SUBROUTINE CORREL ( COR, S, NOMX, NAMY, NV, NVV, IVAR, IALT )
Argument Definitions (+ indicates altered content)
CHARACTER*10       NAMY,       NOMX(NV)
DOUBLE PRECISION  +COR(NVV),  +S(NV)
INTEGER            IALT,       IVAR,       NV,         NVV
Source file:correl.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
      *                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
DOUBLE PRECISION   DSQRT
SUBROUTINE         LOC
External Functions and Subroutines Called
SUBROUTINE         LOC
Local Variables (+ indicates altered content)
INTEGER           +I,         +I1,        +I2,        +IJ
INTEGER           +IR,        +J,          J1,        +J2
INTEGER           +K,         +NP