🚀 go-pugleaf

In article <2278@watdcsu.UUCP> I (P.A.ul Layman [EE-Device Physics]) write:
>Provided the common block is not blank common.  This refering to the
>single common block available in f77 which does not have a name such as
>
>	common //a,b,c,...
>
>It is not a great problem. Merely extern the name of the common block
>in your c program.  Just make sure you define it to be the same data type.
>
I just heeded my own advice and looked at the assembler for a f77 program with
a blank common block.  This too can be accessed from c using the name _BLNK__
as in the following example:
main program test.f
_____________________________________
	common //y
	real y(10)
	do 100 i=1,10
100	y(i)=i
	call comtst
	stop
	end
_____________________________________
note that the common statement could also be common y, it makes no differenece.
subroutine comtst.c
_____________________________________
#include <stdio.h>
comtst_()
{
	extern float _BLNK__[];
	int i;
	for ( i=0 ; i<=9 ; i++ )
	    {
	    printf("_BLNK_(%d) = %f\n",i,_BLNK__[i]);
	    }
	return(0);
}
_____________________________________

PAul