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