File: cornom.f

package info (click to toggle)
x13as 1.1-b59-1
  • links: PTS, VCS
  • area: non-free
  • in suites: bookworm
  • size: 9,088 kB
  • sloc: fortran: 114,121; makefile: 14
file content (17 lines) | stat: -rw-r--r-- 506 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
**==cornom.f    processed by SPAG 4.03F  at 09:47 on  1 Mar 1994
      SUBROUTINE cornom(C,Cn,Lagh1,Cx0,Cy0)
      IMPLICIT NONE
C*** Start of declarations inserted by SPAG
      DOUBLE PRECISION C,Cn,cst1,Cx0,Cy0,ds
      INTEGER i,Lagh1
C*** End of declarations inserted by SPAG
C     COMMON SUBROUTINE
C     NORMALIZATION OF COVARIANCE
      DIMENSION C(*),Cn(*)
      cst1=1.0D-00
      ds=cst1/sqrt(Cx0*Cy0)
      DO i=1,Lagh1
       Cn(i)=C(i)*ds
      END DO
      RETURN
      END