1C /* ff_f.f */ /* anonymous ftp@zebra.desy.de */ 2C /* An example from cfortran.h package. Requires ff.c or .C */ 3C /* Burkhard Burow burow@desy.de 1990 - 1996. */ 4 5 subroutine ff(v,n) 6 implicit none 7 integer n 8 character*(*) v(4) 9 print*,'FF:len(v(1 or 2 or 3 or 4)) =',len(v(1)) 10 print*,'FF:v(1,2,3,4) =',v(1),',',v(2),',',v(3),',',v(4) 11 print*,'FF:n =',n 12 call ccff(v,n) 13 return 14 end 15