Sources Esope | Cast3M

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