Esope source files

   1 : C KFINSO    SOURCE    CHAT      05/01/13    00:55:21     5004           
   2 :       SUBROUTINE KFINSO(NF1,NF2,KA,IM,KG)                               KFI00020
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 : C Calcul des facteurs de forme en 3D
   6 :       DIMENSION KG(2),KA(1),IM(1)                                       KFI00030
   7 :        KK1 = KA(NF1)                                                    KFI00050
   8 :        KK2 = KA(NF2)                                                    KFI00060
   9 :        IF (KK1.LT.KK2) THEN                                             KFI00070
  10 :          KG(1) = IM(NF1)                                                KFI00080
  11 :          KG(2) = IM(NF2)                                                KFI00090
  12 :        ELSE                                                             KFI00100
  13 :          KG(1) = IM(NF2)                                                KFI00110
  14 :          KG(2) = IM(NF1)                                                KFI00120
  15 :        ENDIF                                                            KFI00130
  16 :       END                                                               KFI00140
  17 :  
  18 :