Annotation of /MITgcm_contrib/osse/EnKF/errs

f77    -c -o ReadPickup.o ReadPickup.F
ReadPickup.F: In subroutine `readpickup':
ReadPickup.F:7: 
           integer,   intent(in)  :: n,nx,ny,nz
                      ^
Invalid type-declaration attribute at (^) -- must be one of: DIMENSION(array-spec), EXTERNAL, INTRINSIC, PARAMETER, or SAVE
ReadPickup.F:7: 
           integer,   intent(in)  :: n,nx,ny,nz
                            ^
Invalid form for type-declaration statement at (^)
ReadPickup.F:8: 
           real*8,   intent(out) :: y(n)
                     ^
Invalid type-declaration attribute at (^) -- must be one of: DIMENSION(array-spec), EXTERNAL, INTRINSIC, PARAMETER, or SAVE
ReadPickup.F:8: 
           real*8,   intent(out) :: y(n)
                           ^
Invalid form for type-declaration statement at (^)
ReadPickup.F:3: 
           subroutine ReadPickup(n,nx,ny,nz,y)
                                   1
ReadPickup.F:9: (continued):
           real*8  r8seg(nx)
                         2
Invalid declaration of or reference to symbol `nx' at (2) [initially seen at (1)]
ReadPickup.F:9: 
           real*8  r8seg(nx)
                   1
ReadPickup.F:11: (continued):
           open(unit=3,file='pickup', status='old',
           2
Invalid declaration of or reference to symbol `r8seg' at (2) [initially seen at (1)]
ReadPickup.F:11: 
           open(unit=3,file='pickup', status='old',
                                                   ^
Invalid form for OPEN statement at (^)
ReadPickup.F:12: 
           access='direct', recl=nx*8)
           ^
Invalid declaration of or reference to symbol `access' at (^) [initially seen at (^)]
ReadPickup.F:12: 
           access='direct', recl=nx*8)
                          ^
Invalid form for assignment statement at (^)
ReadPickup.F:3: 
           subroutine ReadPickup(n,nx,ny,nz,y)
                                         1
ReadPickup.F:16: (continued):
           do k = 1,nz
                    2
Invalid declaration of or reference to symbol `nz' at (2) [initially seen at (1)]
ReadPickup.F:3: 
           subroutine ReadPickup(n,nx,ny,nz,y)
                                      1
ReadPickup.F:17: (continued):
              do j = 1,ny
                       2
Invalid declaration of or reference to symbol `ny' at (2) [initially seen at (1)]
ReadPickup.F:3: 
           subroutine ReadPickup(n,nx,ny,nz,y)
                                            1
ReadPickup.F:21: (continued):
                 y(i:i+nx) = r8seg(1:nx)
                 2
Invalid declaration of or reference to symbol `y' at (2) [initially seen at (1)]
ReadPickup.F:61: 
           open(unit=3,file='pickup_nh', status='old',
                                                      ^
Invalid form for OPEN statement at (^)
ReadPickup.F:62: 
           access='direct', recl=nx*8)
                          ^
Invalid form for assignment statement at (^)
ReadPickup.F:3: 
           subroutine ReadPickup(n,nx,ny,nz,y)
                                 1
ReadPickup.F:77: (continued):
           end subroutine ReadPickup
           2
Invalid declaration of or reference to symbol `n' at (2) [initially seen at (1)]
ReadPickup.F: In subroutine `da_byteswapr8':
ReadPickup.F:20: warning:
                 call DA_BYTESWAPR8(nx,r8seg)
                      1
ReadPickup.F:79: (continued):
           subroutine DA_BYTESWAPR8( na, arr )
                      2
Argument #1 (named `na') of `da_byteswapr8' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
ReadPickup.F:20: warning:
                 call DA_BYTESWAPR8(nx,r8seg)
                      1
ReadPickup.F:79: (continued):
           subroutine DA_BYTESWAPR8( na, arr )
                      2
Argument #2 (named `arr') of `da_byteswapr8' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
make: *** [ReadPickup.o] Error 1
1	afe	1.1	f77 -c -o ReadPickup.o ReadPickup.F
2			ReadPickup.F: In subroutine `readpickup':
3			ReadPickup.F:7:
4			integer, intent(in) :: n,nx,ny,nz
5			^
6			Invalid type-declaration attribute at (^) -- must be one of: DIMENSION(array-spec), EXTERNAL, INTRINSIC, PARAMETER, or SAVE
7			ReadPickup.F:7:
8			integer, intent(in) :: n,nx,ny,nz
9			^
10			Invalid form for type-declaration statement at (^)
11			ReadPickup.F:8:
12			real*8, intent(out) :: y(n)
13			^
14			Invalid type-declaration attribute at (^) -- must be one of: DIMENSION(array-spec), EXTERNAL, INTRINSIC, PARAMETER, or SAVE
15			ReadPickup.F:8:
16			real*8, intent(out) :: y(n)
17			^
18			Invalid form for type-declaration statement at (^)
19			ReadPickup.F:3:
20			subroutine ReadPickup(n,nx,ny,nz,y)
21			1
22			ReadPickup.F:9: (continued):
23			real*8 r8seg(nx)
24			2
25			Invalid declaration of or reference to symbol `nx' at (2) [initially seen at (1)]
26			ReadPickup.F:9:
27			real*8 r8seg(nx)
28			1
29			ReadPickup.F:11: (continued):
30			open(unit=3,file='pickup', status='old',
31			2
32			Invalid declaration of or reference to symbol `r8seg' at (2) [initially seen at (1)]
33			ReadPickup.F:11:
34			open(unit=3,file='pickup', status='old',
35			^
36			Invalid form for OPEN statement at (^)
37			ReadPickup.F:12:
38			access='direct', recl=nx*8)
39			^
40			Invalid declaration of or reference to symbol `access' at (^) [initially seen at (^)]
41			ReadPickup.F:12:
42			access='direct', recl=nx*8)
43			^
44			Invalid form for assignment statement at (^)
45			ReadPickup.F:3:
46			subroutine ReadPickup(n,nx,ny,nz,y)
47			1
48			ReadPickup.F:16: (continued):
49			do k = 1,nz
50			2
51			Invalid declaration of or reference to symbol `nz' at (2) [initially seen at (1)]
52			ReadPickup.F:3:
53			subroutine ReadPickup(n,nx,ny,nz,y)
54			1
55			ReadPickup.F:17: (continued):
56			do j = 1,ny
57			2
58			Invalid declaration of or reference to symbol `ny' at (2) [initially seen at (1)]
59			ReadPickup.F:3:
60			subroutine ReadPickup(n,nx,ny,nz,y)
61			1
62			ReadPickup.F:21: (continued):
63			y(i:i+nx) = r8seg(1:nx)
64			2
65			Invalid declaration of or reference to symbol `y' at (2) [initially seen at (1)]
66			ReadPickup.F:61:
67			open(unit=3,file='pickup_nh', status='old',
68			^
69			Invalid form for OPEN statement at (^)
70			ReadPickup.F:62:
71			access='direct', recl=nx*8)
72			^
73			Invalid form for assignment statement at (^)
74			ReadPickup.F:3:
75			subroutine ReadPickup(n,nx,ny,nz,y)
76			1
77			ReadPickup.F:77: (continued):
78			end subroutine ReadPickup
79			2
80			Invalid declaration of or reference to symbol `n' at (2) [initially seen at (1)]
81			ReadPickup.F: In subroutine `da_byteswapr8':
82			ReadPickup.F:20: warning:
83			call DA_BYTESWAPR8(nx,r8seg)
84			1
85			ReadPickup.F:79: (continued):
86			subroutine DA_BYTESWAPR8( na, arr )
87			2
88			Argument #1 (named `na') of `da_byteswapr8' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
89			ReadPickup.F:20: warning:
90			call DA_BYTESWAPR8(nx,r8seg)
91			1
92			ReadPickup.F:79: (continued):
93			subroutine DA_BYTESWAPR8( na, arr )
94			2
95			Argument #2 (named `arr') of `da_byteswapr8' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
96			make: *** [ReadPickup.o] Error 1