File: sfcast.i

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 (10 lines) | stat: -rw-r--r-- 270 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
 
C
C... Variables in Common Block /savefcast/ ...
      integer NSFCAST,NSFCAST1
C..
C This variable is for test to be removed
C
      integer Iseasse
      real*8 SQFSAVE
      real*8 SFCAST(KP)
      common /savefcast/ SFCAST,SQFSAVE,NSFCAST,Iseasse,NSFCAST1