1 : C FRIG3 SOURCE FANDEUR 11/10/07 21:15:26 7159 2 : C 3 : C ===> SOUS-PROGRAMME FRIG3 PLUS UTILISE <=== 4 : C ===> SUBROUTINE NO LONGER USED <=== 5 : C 6 : SUBROUTINE FRIG3 7 : 8 : IMPLICIT INTEGER(I-N) 9 : IMPLICIT REAL*8(A-H,O-Z) 10 : 11 : C ==> VOIR LES SOUS-PROGRAMMES FRIG ET FRIG3C <== 12 : 13 : RETURN 14 : END 15 : 16 :
© Cast3M 2003 - All rights reserved.
Disclaimer