00001 program fmain 00002 integer*4 i,j 00003 character*32 string 00004 i = 1 00005 j = 3 00006 string = 'string' 00007 call cg_sub(i,string,j) 00008 call adfsub(i,string,j) 00009 stop 00010 end