Esope source files

   1 : C KANOR2    SOURCE    CHAT      05/01/13    00:51:14     5004           
   2 :       SUBROUTINE KANOR2(AM,T,NPT,IES)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       DIMENSION AM(NPT,IES),T(NPT)
   6 : 
   7 :       IF(IES.EQ.2)THEN
   8 :       DO 1 I=1,NPT
   9 :       AX=AM(I,1)
  10 :       AY=AM(I,2)
  11 :       AA=AX*AX+AY*AY
  12 :       AA=SQRT(AA)
  13 :       T(I)=AA
  14 :  1    CONTINUE
  15 :       ELSE
  16 :       DO 2 I=1,NPT
  17 :       AX=AM(I,1)
  18 :       AY=AM(I,2)
  19 :       AZ=AM(I,3)
  20 :       AA=AX*AX+AY*AY+AZ*AZ
  21 :       AA=SQRT(AA)
  22 :       T(I)=AA
  23 :  2    CONTINUE
  24 :       ENDIF
  25 :       RETURN
  26 :       END
  27 :  
  28 :