...
Code Block | ||||||
---|---|---|---|---|---|---|
| ||||||
!** Used to compute averages (always in the same order)
!call KEYSORT(irc, POBS, KLEN,key=jpraw_refcoord,transposed=.TRUE.)
call KEYSORT(irc, POBS, KLEN,key=kplat,transposed=.TRUE.) |
...
...
Code Block | ||||||
---|---|---|---|---|---|---|
| ||||||
!** Used to compute averages (always in the same order)
!call KEYSORT(irc, POBS, KLEN,key=jpraw_refcoord,transposed=.TRUE.)
call KEYSORT(irc, POBS, KLEN,key=kplat,transposed=.TRUE.) |
...