| 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 |
Parent Directory
| 
Revision Log
| 
Revision Graph