Sources Esope | Cast3M

kanor2
C KANOR2    SOURCE    CHAT      05/01/13    00:51:14     5004
      SUBROUTINE KANOR2(AM,T,NPT,IES)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      DIMENSION AM(NPT,IES),T(NPT)
 
      IF(IES.EQ.2)THEN
      DO 1 I=1,NPT
      AX=AM(I,1)
      AY=AM(I,2)
      AA=AX*AX+AY*AY
      AA=SQRT(AA)
      T(I)=AA
 1    CONTINUE
      ELSE
      DO 2 I=1,NPT
      AX=AM(I,1)
      AY=AM(I,2)
      AZ=AM(I,3)
      AA=AX*AX+AY*AY+AZ*AZ
      AA=SQRT(AA)
      T(I)=AA
 2    CONTINUE
      ENDIF
      RETURN
      END