WRTDAT.inc

1       SUBROUTINE WRTDAT                                                         
2      I(NFL   ,                                                                  
3      I IDATE , KT    ,                                                          
4      I LEVEL , ELEM  , TITLE , UNIT  , KTSD  , KTSA  ,                          
5      I DATA  , IDIM  , JDIM  ,                                                  
6      W IDA   )                                                                  
7 C                                                                               
8       INTEGER IDATE(5)                                                          
9       CHARACTER* 4 LEVEL, ELEM                                                  
10       CHARACTER*32 TITLE                                                        
11       CHARACTER*16 UNIT                                                         
12       REAL*8    DATA(IDIM*JDIM) ! <<<--- WARNING!!! THIS IS REAL*8              
13 c     INTEGER*2 IDA(IDIM*JDIM)    !shc-rizvi
14       INTEGER   IDA(IDIM*JDIM/2)    !shc-rizvi
15 C                                                                               
16       NELM=1                                                                    
17       WRITE(NFL) IDATE, KT, NELM, LEVEL, ELEM                                   
18       CALL CR8I2V(DATA,BASE,AMP,IDA,IDIM*JDIM)                                  
19       WRITE(NFL) LEVEL, ELEM, TITLE, UNIT, KTSD, KTSA, BASE, AMP, IDA           
20 C                                                                               
21       RETURN                                                                    
22       END SUBROUTINE WRTDAT