1 : C EFFERM4 SOURCE CHAT 11/10/26 22:15:12 7176 2 : subroutine efferm4(fid, cret) 3 : integer fid,cret 4 : integer*4 fid4,cret4 5 : fid4=fid 5 : call efferm(fid4,cret4) 6 : cret=cret4 7 : return 8 : end 9 : 10 :
© Cast3M 2003 - All rights reserved.
Disclaimer