lnx1 1> make tcommon
pgf77 -g -c tcommon.f
pgf77 -g -L/usr/local/PGI/lib tcommon.o -o tcommon

lnx1 2> tcommon
 In subcom:
 string = foo             
 v =    1.000000000000000        2.000000000000000     
    3.000000000000000     
 x =    10.00000000000000      y =    20.00000000000000      z = 
    30.00000000000000     
 i =          314