frame/xxx_template_ioapi.F

   1 !
   2 ! This is a template for adding a package-dependent implemetnation of
   3 ! the I/O API.  You can use the name xxx since that is already set up
   4 ! as a placeholder in module_io.F, md_calls.m4, and the Registry, or
   5 ! you can change the name here and in those other places.  For additional
   6 ! information on adding a package to WRF, see the latest version of the
   7 ! WRF Design and Implementation Document 1.1 (Draft). June 21, 2001
   8 !
   9
  10 !--- ioinit
  11 SUBROUTINE ext_xxx_ioinit( SysDepInfo,Status )
  12   IMPLICIT NONE
  13   CHARACTER (LEN=80), INTENT(IN) :: SysDepInfo
  14   INTEGER, INTENT(INOUT) :: Status
  15   RETURN
  16 END SUBROUTINE ext_xxx_ioinit
  17
  18 SUBROUTINE ext_xxx_inquiry( Inquiry, Result,Status )
  19   IMPLICIT NONE
  20   CHARACTER *(*), INTENT(IN) :: Inquiry
  21   CHARACTER *(*), INTENT(OUT) :: Result
  22   INTEGER, INTENT(INOUT) :: Status
  23   RETURN
  24 END SUBROUTINE ext_xxx_inquiry
  25
  26 !--- ioexit
  27 SUBROUTINE ext_xxx_ioexit( Status )
  28   IMPLICIT NONE
  29   INTEGER, INTENT(INOUT) :: Status
  30   RETURN
  31 END SUBROUTINE
  32
  33 !--- open_for_write_begin
  34 SUBROUTINE ext_xxx_open_for_write_begin( FileName , Comm_compute, Comm_io, SysDepInfo, &
  35                                      DataHandle , Status )
  36   IMPLICIT NONE
  37   CHARACTER *(*), INTENT(IN)  :: FileName
  38   INTEGER ,       INTENT(IN)  :: Comm_compute , Comm_io
  39   CHARACTER *(*), INTENT(IN)  :: SysDepInfo
  40   INTEGER ,       INTENT(OUT) :: DataHandle
  41   INTEGER ,       INTENT(OUT) :: Status
  42   RETURN
  43 END SUBROUTINE ext_xxx_open_for_write_begin
  44
  45 !--- open_for_write_commit
  46 SUBROUTINE ext_xxx_open_for_write_commit( DataHandle , Status )
  47   IMPLICIT NONE
  48   INTEGER ,       INTENT(IN ) :: DataHandle
  49   INTEGER ,       INTENT(OUT) :: Status
  50   RETURN
  51 END SUBROUTINE ext_xxx_open_for_write_commit
  52
  53 !--- open_for_read
  54 SUBROUTINE ext_xxx_open_for_read ( FileName , Comm_compute, Comm_io, SysDepInfo, &
  55                                DataHandle , Status )
  56   IMPLICIT NONE
  57   CHARACTER *(*), INTENT(IN)  :: FileName
  58   INTEGER ,       INTENT(IN)  :: Comm_compute , Comm_io
  59   CHARACTER *(*), INTENT(IN)  :: SysDepInfo
  60   INTEGER ,       INTENT(OUT) :: DataHandle
  61   INTEGER ,       INTENT(OUT) :: Status
  62   RETURN
  63 END SUBROUTINE ext_xxx_open_for_read
  64
  65 !--- inquire_opened
  66 SUBROUTINE ext_xxx_inquire_opened ( DataHandle, FileName , FileStatus, Status )
  67   IMPLICIT NONE
  68   INTEGER ,       INTENT(IN)  :: DataHandle
  69   CHARACTER *(*), INTENT(IN)  :: FileName
  70   INTEGER ,       INTENT(OUT) :: FileStatus
  71   INTEGER ,       INTENT(OUT) :: Status
  72   RETURN
  73 END SUBROUTINE ext_xxx_inquire_opened
  74
  75 !--- inquire_filename
  76 SUBROUTINE ext_xxx_inquire_filename ( DataHandle, FileName , FileStatus, Status )
  77   IMPLICIT NONE
  78   INTEGER ,       INTENT(IN)  :: DataHandle
  79   CHARACTER *(*), INTENT(OUT) :: FileName
  80   INTEGER ,       INTENT(OUT) :: FileStatus
  81   INTEGER ,       INTENT(OUT) :: Status
  82 END SUBROUTINE ext_xxx_inquire_filename
  83
  84 !--- sync
  85 SUBROUTINE ext_xxx_iosync ( DataHandle, Status )
  86   IMPLICIT NONE
  87   INTEGER ,       INTENT(IN)  :: DataHandle
  88   INTEGER ,       INTENT(OUT) :: Status
  89   RETURN
  90 END SUBROUTINE ext_xxx_iosync
  91
  92 !--- close
  93 SUBROUTINE ext_xxx_ioclose ( DataHandle, Status )
  94   IMPLICIT NONE
  95   INTEGER ,       INTENT(IN)  :: DataHandle
  96   INTEGER ,       INTENT(OUT) :: Status
  97   RETURN
  98 END SUBROUTINE ext_xxx_ioclose
  99
 100 !--- get_next_time (not defined for IntIO )
 101 SUBROUTINE ext_xxx_get_next_time ( DataHandle, DateStr, Status )
 102   IMPLICIT NONE
 103   INTEGER ,       INTENT(IN)  :: DataHandle
 104   CHARACTER*(*) , INTENT(OUT) :: DateStr
 105   INTEGER ,       INTENT(OUT) :: Status
 106   RETURN
 107 END SUBROUTINE ext_xxx_get_next_time
 108
 109 !--- set_time
 110 SUBROUTINE ext_xxx_set_time ( DataHandle, DateStr, Status )
 111   IMPLICIT NONE
 112   INTEGER ,       INTENT(IN)  :: DataHandle
 113   CHARACTER*(*) , INTENT(IN)  :: DateStr
 114   INTEGER ,       INTENT(OUT) :: Status
 115   RETURN
 116 END SUBROUTINE ext_xxx_set_time
 117
 118 !--- get_next_var  (not defined for IntIO)
 119 SUBROUTINE ext_xxx_get_next_var ( DataHandle, VarName, Status )
 120   IMPLICIT NONE
 121   INTEGER ,       INTENT(IN)  :: DataHandle
 122   CHARACTER*(*) , INTENT(OUT) :: VarName
 123   INTEGER ,       INTENT(OUT) :: Status
 124   RETURN
 125 END SUBROUTINE ext_xxx_get_next_var
 126
 127 !--- get_dom_ti_real
 128 SUBROUTINE ext_xxx_get_dom_ti_real ( DataHandle,Element,   Data, Count, Outcount, Status )
 129   IMPLICIT NONE
 130   INTEGER ,       INTENT(IN)  :: DataHandle
 131   CHARACTER*(*) , INTENT(IN)  :: Element
 132 RETURN
 133 END SUBROUTINE ext_xxx_get_dom_ti_real
 134
 135 !--- put_dom_ti_real
 136 SUBROUTINE ext_xxx_put_dom_ti_real ( DataHandle,Element,   Data, Count,  Status )
 137   IMPLICIT NONE
 138   INTEGER ,       INTENT(IN)  :: DataHandle
 139   CHARACTER*(*) , INTENT(IN)  :: Element
 140   real ,            INTENT(IN) :: Data(*)
 141   INTEGER ,       INTENT(IN)  :: Count
 142   INTEGER ,       INTENT(OUT) :: Status
 143 RETURN
 144 END SUBROUTINE ext_xxx_put_dom_ti_real
 145
 146 !--- get_dom_ti_double
 147 SUBROUTINE ext_xxx_get_dom_ti_double ( DataHandle,Element,   Data, Count, Outcount, Status )
 148   IMPLICIT NONE
 149   INTEGER ,       INTENT(IN)  :: DataHandle
 150   CHARACTER*(*) , INTENT(IN)  :: Element
 151   real*8 ,            INTENT(OUT) :: Data(*)
 152   INTEGER ,       INTENT(IN)  :: Count
 153   INTEGER ,       INTENT(OUT)  :: OutCount
 154   INTEGER ,       INTENT(OUT) :: Status
 155 RETURN
 156 END SUBROUTINE ext_xxx_get_dom_ti_double
 157
 158 !--- put_dom_ti_double
 159 SUBROUTINE ext_xxx_put_dom_ti_double ( DataHandle,Element,   Data, Count,  Status )
 160   IMPLICIT NONE
 161   INTEGER ,       INTENT(IN)  :: DataHandle
 162   CHARACTER*(*) , INTENT(IN)  :: Element
 163   real*8 ,            INTENT(IN) :: Data(*)
 164   INTEGER ,       INTENT(IN)  :: Count
 165   INTEGER ,       INTENT(OUT) :: Status
 166 RETURN
 167 END SUBROUTINE ext_xxx_put_dom_ti_double
 168
 169 !--- get_dom_ti_integer
 170 SUBROUTINE ext_xxx_get_dom_ti_integer ( DataHandle,Element,   Data, Count, Outcount, Status )
 171   IMPLICIT NONE
 172   INTEGER ,       INTENT(IN)  :: DataHandle
 173   CHARACTER*(*) , INTENT(IN)  :: Element
 174   integer ,            INTENT(OUT) :: Data(*)
 175   INTEGER ,       INTENT(IN)  :: Count
 176   INTEGER ,       INTENT(OUT)  :: OutCount
 177   INTEGER ,       INTENT(OUT) :: Status
 178 RETURN
 179 END SUBROUTINE ext_xxx_get_dom_ti_integer
 180
 181 !--- put_dom_ti_integer
 182 SUBROUTINE ext_xxx_put_dom_ti_integer ( DataHandle,Element,   Data, Count,  Status )
 183   IMPLICIT NONE
 184   INTEGER ,       INTENT(IN)  :: DataHandle
 185   CHARACTER*(*) , INTENT(IN)  :: Element
 186   integer ,            INTENT(IN) :: Data(*)
 187   INTEGER ,       INTENT(IN)  :: Count
 188   INTEGER ,       INTENT(OUT) :: Status
 189 RETURN
 190 END SUBROUTINE ext_xxx_put_dom_ti_integer
 191
 192 !--- get_dom_ti_logical
 193 SUBROUTINE ext_xxx_get_dom_ti_logical ( DataHandle,Element,   Data, Count, Outcount, Status )
 194   IMPLICIT NONE
 195   INTEGER ,       INTENT(IN)  :: DataHandle
 196   CHARACTER*(*) , INTENT(IN)  :: Element
 197   logical ,            INTENT(OUT) :: Data(*)
 198   INTEGER ,       INTENT(IN)  :: Count
 199   INTEGER ,       INTENT(OUT)  :: OutCount
 200   INTEGER ,       INTENT(OUT) :: Status
 201 RETURN
 202 END SUBROUTINE ext_xxx_get_dom_ti_logical
 203
 204 !--- put_dom_ti_logical
 205 SUBROUTINE ext_xxx_put_dom_ti_logical ( DataHandle,Element,   Data, Count,  Status )
 206   IMPLICIT NONE
 207   INTEGER ,       INTENT(IN)  :: DataHandle
 208   CHARACTER*(*) , INTENT(IN)  :: Element
 209   logical ,            INTENT(IN) :: Data(*)
 210   INTEGER ,       INTENT(IN)  :: Count
 211   INTEGER ,       INTENT(OUT) :: Status
 212 RETURN
 213 END SUBROUTINE ext_xxx_put_dom_ti_logical
 214
 215 !--- get_dom_ti_char
 216 SUBROUTINE ext_xxx_get_dom_ti_char ( DataHandle,Element,   Data,  Status )
 217   IMPLICIT NONE
 218   INTEGER ,       INTENT(IN)  :: DataHandle
 219   CHARACTER*(*) , INTENT(IN)  :: Element
 220   CHARACTER*(*) , INTENT(OUT) :: Data
 221   INTEGER ,       INTENT(OUT) :: Status
 222 RETURN
 223 END SUBROUTINE ext_xxx_get_dom_ti_char
 224
 225 !--- put_dom_ti_char
 226 SUBROUTINE ext_xxx_put_dom_ti_char ( DataHandle,Element,   Data,  Status )
 227   IMPLICIT NONE
 228   INTEGER ,       INTENT(IN)  :: DataHandle
 229   CHARACTER*(*) , INTENT(IN)  :: Element
 230   CHARACTER*(*) , INTENT(IN) :: Data
 231   INTEGER ,       INTENT(OUT) :: Status
 232 RETURN
 233 END SUBROUTINE ext_xxx_put_dom_ti_char
 234
 235 !--- get_dom_td_real
 236 SUBROUTINE ext_xxx_get_dom_td_real ( DataHandle,Element, DateStr,  Data, Count, Outcount, Status )
 237   IMPLICIT NONE
 238   INTEGER ,       INTENT(IN)  :: DataHandle
 239   CHARACTER*(*) , INTENT(IN)  :: Element
 240   CHARACTER*(*) , INTENT(IN)  :: DateStr
 241   real ,            INTENT(OUT) :: Data(*)
 242   INTEGER ,       INTENT(IN)  :: Count
 243   INTEGER ,       INTENT(OUT)  :: OutCount
 244   INTEGER ,       INTENT(OUT) :: Status
 245 RETURN
 246 END SUBROUTINE ext_xxx_get_dom_td_real
 247
 248 !--- put_dom_td_real
 249 SUBROUTINE ext_xxx_put_dom_td_real ( DataHandle,Element, DateStr,  Data, Count,  Status )
 250   IMPLICIT NONE
 251   INTEGER ,       INTENT(IN)  :: DataHandle
 252   CHARACTER*(*) , INTENT(IN)  :: Element
 253   CHARACTER*(*) , INTENT(IN)  :: DateStr
 254   real ,            INTENT(IN) :: Data(*)
 255   INTEGER ,       INTENT(IN)  :: Count
 256   INTEGER ,       INTENT(OUT) :: Status
 257 RETURN
 258 END SUBROUTINE ext_xxx_put_dom_td_real
 259
 260 !--- get_dom_td_double
 261 SUBROUTINE ext_xxx_get_dom_td_double ( DataHandle,Element, DateStr,  Data, Count, Outcount, Status )
 262   IMPLICIT NONE
 263   INTEGER ,       INTENT(IN)  :: DataHandle
 264   CHARACTER*(*) , INTENT(IN)  :: Element
 265   CHARACTER*(*) , INTENT(IN)  :: DateStr
 266   real*8 ,            INTENT(OUT) :: Data(*)
 267   INTEGER ,       INTENT(IN)  :: Count
 268   INTEGER ,       INTENT(OUT)  :: OutCount
 269   INTEGER ,       INTENT(OUT) :: Status
 270 RETURN
 271 END SUBROUTINE ext_xxx_get_dom_td_double
 272
 273 !--- put_dom_td_double
 274 SUBROUTINE ext_xxx_put_dom_td_double ( DataHandle,Element, DateStr,  Data, Count,  Status )
 275   IMPLICIT NONE
 276   INTEGER ,       INTENT(IN)  :: DataHandle
 277   CHARACTER*(*) , INTENT(IN)  :: Element
 278   CHARACTER*(*) , INTENT(IN)  :: DateStr
 279   real*8 ,            INTENT(IN) :: Data(*)
 280   INTEGER ,       INTENT(IN)  :: Count
 281   INTEGER ,       INTENT(OUT) :: Status
 282 RETURN
 283 END SUBROUTINE ext_xxx_put_dom_td_double
 284
 285 !--- get_dom_td_integer
 286 SUBROUTINE ext_xxx_get_dom_td_integer ( DataHandle,Element, DateStr,  Data, Count, Outcount, Status )
 287   IMPLICIT NONE
 288   INTEGER ,       INTENT(IN)  :: DataHandle
 289   CHARACTER*(*) , INTENT(IN)  :: Element
 290   CHARACTER*(*) , INTENT(IN)  :: DateStr
 291   integer ,            INTENT(OUT) :: Data(*)
 292   INTEGER ,       INTENT(IN)  :: Count
 293   INTEGER ,       INTENT(OUT)  :: OutCount
 294   INTEGER ,       INTENT(OUT) :: Status
 295 RETURN
 296 END SUBROUTINE ext_xxx_get_dom_td_integer
 297
 298 !--- put_dom_td_integer
 299 SUBROUTINE ext_xxx_put_dom_td_integer ( DataHandle,Element, DateStr,  Data, Count,  Status )
 300   IMPLICIT NONE
 301   INTEGER ,       INTENT(IN)  :: DataHandle
 302   CHARACTER*(*) , INTENT(IN)  :: Element
 303   CHARACTER*(*) , INTENT(IN)  :: DateStr
 304   integer ,            INTENT(IN) :: Data(*)
 305   INTEGER ,       INTENT(IN)  :: Count
 306   INTEGER ,       INTENT(OUT) :: Status
 307 RETURN
 308 END SUBROUTINE ext_xxx_put_dom_td_integer
 309
 310 !--- get_dom_td_logical
 311 SUBROUTINE ext_xxx_get_dom_td_logical ( DataHandle,Element, DateStr,  Data, Count, Outcount, Status )
 312   IMPLICIT NONE
 313   INTEGER ,       INTENT(IN)  :: DataHandle
 314   CHARACTER*(*) , INTENT(IN)  :: Element
 315   CHARACTER*(*) , INTENT(IN)  :: DateStr
 316   logical ,            INTENT(OUT) :: Data(*)
 317   INTEGER ,       INTENT(IN)  :: Count
 318   INTEGER ,       INTENT(OUT)  :: OutCount
 319   INTEGER ,       INTENT(OUT) :: Status
 320 RETURN
 321 END SUBROUTINE ext_xxx_get_dom_td_logical
 322
 323 !--- put_dom_td_logical
 324 SUBROUTINE ext_xxx_put_dom_td_logical ( DataHandle,Element, DateStr,  Data, Count,  Status )
 325   IMPLICIT NONE
 326   INTEGER ,       INTENT(IN)  :: DataHandle
 327   CHARACTER*(*) , INTENT(IN)  :: Element
 328   CHARACTER*(*) , INTENT(IN)  :: DateStr
 329   logical ,            INTENT(IN) :: Data(*)
 330   INTEGER ,       INTENT(IN)  :: Count
 331   INTEGER ,       INTENT(OUT) :: Status
 332 RETURN
 333 END SUBROUTINE ext_xxx_put_dom_td_logical
 334
 335 !--- get_dom_td_char
 336 SUBROUTINE ext_xxx_get_dom_td_char ( DataHandle,Element, DateStr,  Data,  Status )
 337   IMPLICIT NONE
 338   INTEGER ,       INTENT(IN)  :: DataHandle
 339   CHARACTER*(*) , INTENT(IN)  :: Element
 340   CHARACTER*(*) , INTENT(IN)  :: DateStr
 341   CHARACTER*(*) , INTENT(OUT) :: Data
 342   INTEGER ,       INTENT(OUT) :: Status
 343 RETURN
 344 END SUBROUTINE ext_xxx_get_dom_td_char
 345
 346 !--- put_dom_td_char
 347 SUBROUTINE ext_xxx_put_dom_td_char ( DataHandle,Element, DateStr,  Data,  Status )
 348   IMPLICIT NONE
 349   INTEGER ,       INTENT(IN)  :: DataHandle
 350   CHARACTER*(*) , INTENT(IN)  :: Element
 351   CHARACTER*(*) , INTENT(IN)  :: DateStr
 352   CHARACTER*(*) , INTENT(IN) :: Data
 353   INTEGER ,       INTENT(OUT) :: Status
 354 RETURN
 355 END SUBROUTINE ext_xxx_put_dom_td_char
 356
 357 !--- get_var_ti_real
 358 SUBROUTINE ext_xxx_get_var_ti_real ( DataHandle,Element,  Varname, Data, Count, Outcount, Status )
 359   IMPLICIT NONE
 360   INTEGER ,       INTENT(IN)  :: DataHandle
 361   CHARACTER*(*) , INTENT(IN)  :: Element
 362   CHARACTER*(*) , INTENT(IN)  :: VarName
 363   real ,            INTENT(OUT) :: Data(*)
 364   INTEGER ,       INTENT(IN)  :: Count
 365   INTEGER ,       INTENT(OUT)  :: OutCount
 366   INTEGER ,       INTENT(OUT) :: Status
 367 RETURN
 368 END SUBROUTINE ext_xxx_get_var_ti_real
 369
 370 !--- put_var_ti_real
 371 SUBROUTINE ext_xxx_put_var_ti_real ( DataHandle,Element,  Varname, Data, Count,  Status )
 372   IMPLICIT NONE
 373   INTEGER ,       INTENT(IN)  :: DataHandle
 374   CHARACTER*(*) , INTENT(IN)  :: Element
 375   CHARACTER*(*) , INTENT(IN)  :: VarName
 376   real ,            INTENT(IN) :: Data(*)
 377   INTEGER ,       INTENT(IN)  :: Count
 378   INTEGER ,       INTENT(OUT) :: Status
 379 RETURN
 380 END SUBROUTINE ext_xxx_put_var_ti_real
 381
 382 !--- get_var_ti_double
 383 SUBROUTINE ext_xxx_get_var_ti_double ( DataHandle,Element,  Varname, Data, Count, Outcount, Status )
 384   IMPLICIT NONE
 385   INTEGER ,       INTENT(IN)  :: DataHandle
 386   CHARACTER*(*) , INTENT(IN)  :: Element
 387   CHARACTER*(*) , INTENT(IN)  :: VarName
 388   real*8 ,            INTENT(OUT) :: Data(*)
 389   INTEGER ,       INTENT(IN)  :: Count
 390   INTEGER ,       INTENT(OUT)  :: OutCount
 391   INTEGER ,       INTENT(OUT) :: Status
 392 RETURN
 393 END SUBROUTINE ext_xxx_get_var_ti_double
 394
 395 !--- put_var_ti_double
 396 SUBROUTINE ext_xxx_put_var_ti_double ( DataHandle,Element,  Varname, Data, Count,  Status )
 397   IMPLICIT NONE
 398   INTEGER ,       INTENT(IN)  :: DataHandle
 399   CHARACTER*(*) , INTENT(IN)  :: Element
 400   CHARACTER*(*) , INTENT(IN)  :: VarName
 401   real*8 ,            INTENT(IN) :: Data(*)
 402   INTEGER ,       INTENT(IN)  :: Count
 403   INTEGER ,       INTENT(OUT) :: Status
 404 RETURN
 405 END SUBROUTINE ext_xxx_put_var_ti_double
 406
 407 !--- get_var_ti_integer
 408 SUBROUTINE ext_xxx_get_var_ti_integer ( DataHandle,Element,  Varname, Data, Count, Outcount, Status )
 409   IMPLICIT NONE
 410   INTEGER ,       INTENT(IN)  :: DataHandle
 411   CHARACTER*(*) , INTENT(IN)  :: Element
 412   CHARACTER*(*) , INTENT(IN)  :: VarName
 413   integer ,            INTENT(OUT) :: Data(*)
 414   INTEGER ,       INTENT(IN)  :: Count
 415   INTEGER ,       INTENT(OUT)  :: OutCount
 416   INTEGER ,       INTENT(OUT) :: Status
 417 RETURN
 418 END SUBROUTINE ext_xxx_get_var_ti_integer
 419
 420 !--- put_var_ti_integer
 421 SUBROUTINE ext_xxx_put_var_ti_integer ( DataHandle,Element,  Varname, Data, Count,  Status )
 422   IMPLICIT NONE
 423   INTEGER ,       INTENT(IN)  :: DataHandle
 424   CHARACTER*(*) , INTENT(IN)  :: Element
 425   CHARACTER*(*) , INTENT(IN)  :: VarName
 426   integer ,            INTENT(IN) :: Data(*)
 427   INTEGER ,       INTENT(IN)  :: Count
 428   INTEGER ,       INTENT(OUT) :: Status
 429 RETURN
 430 END SUBROUTINE ext_xxx_put_var_ti_integer
 431
 432 !--- get_var_ti_logical
 433 SUBROUTINE ext_xxx_get_var_ti_logical ( DataHandle,Element,  Varname, Data, Count, Outcount, Status )
 434   IMPLICIT NONE
 435   INTEGER ,       INTENT(IN)  :: DataHandle
 436   CHARACTER*(*) , INTENT(IN)  :: Element
 437   CHARACTER*(*) , INTENT(IN)  :: VarName
 438   logical ,            INTENT(OUT) :: Data(*)
 439   INTEGER ,       INTENT(IN)  :: Count
 440   INTEGER ,       INTENT(OUT)  :: OutCount
 441   INTEGER ,       INTENT(OUT) :: Status
 442 RETURN
 443 END SUBROUTINE ext_xxx_get_var_ti_logical
 444
 445 !--- put_var_ti_logical
 446 SUBROUTINE ext_xxx_put_var_ti_logical ( DataHandle,Element,  Varname, Data, Count,  Status )
 447   IMPLICIT NONE
 448   INTEGER ,       INTENT(IN)  :: DataHandle
 449   CHARACTER*(*) , INTENT(IN)  :: Element
 450   CHARACTER*(*) , INTENT(IN)  :: VarName
 451   logical ,            INTENT(IN) :: Data(*)
 452   INTEGER ,       INTENT(IN)  :: Count
 453   INTEGER ,       INTENT(OUT) :: Status
 454 RETURN
 455 END SUBROUTINE ext_xxx_put_var_ti_logical
 456
 457 !--- get_var_ti_char
 458 SUBROUTINE ext_xxx_get_var_ti_char ( DataHandle,Element,  Varname, Data,  Status )
 459   IMPLICIT NONE
 460   INTEGER ,       INTENT(IN)  :: DataHandle
 461   CHARACTER*(*) , INTENT(IN)  :: Element
 462   CHARACTER*(*) , INTENT(IN)  :: VarName
 463   CHARACTER*(*) , INTENT(OUT) :: Data
 464   INTEGER ,       INTENT(OUT) :: Status
 465 RETURN
 466 END SUBROUTINE ext_xxx_get_var_ti_char
 467
 468 !--- put_var_ti_char
 469 SUBROUTINE ext_xxx_put_var_ti_char ( DataHandle,Element,  Varname, Data,  Status )
 470   IMPLICIT NONE
 471   INTEGER ,       INTENT(IN)  :: DataHandle
 472   CHARACTER*(*) , INTENT(IN)  :: Element
 473   CHARACTER*(*) , INTENT(IN)  :: VarName
 474   CHARACTER*(*) , INTENT(IN) :: Data
 475   INTEGER ,       INTENT(OUT) :: Status
 476 RETURN
 477 END SUBROUTINE ext_xxx_put_var_ti_char
 478
 479 !--- get_var_td_real
 480 SUBROUTINE ext_xxx_get_var_td_real ( DataHandle,Element,  DateStr,Varname, Data, Count, Outcount, Status )
 481   IMPLICIT NONE
 482   INTEGER ,       INTENT(IN)  :: DataHandle
 483   CHARACTER*(*) , INTENT(IN)  :: Element
 484   CHARACTER*(*) , INTENT(IN)  :: DateStr
 485   CHARACTER*(*) , INTENT(IN)  :: VarName
 486   real ,            INTENT(OUT) :: Data(*)
 487   INTEGER ,       INTENT(IN)  :: Count
 488   INTEGER ,       INTENT(OUT)  :: OutCount
 489   INTEGER ,       INTENT(OUT) :: Status
 490 RETURN
 491 END SUBROUTINE ext_xxx_get_var_td_real
 492
 493 !--- put_var_td_real
 494 SUBROUTINE ext_xxx_put_var_td_real ( DataHandle,Element,  DateStr,Varname, Data, Count,  Status )
 495   IMPLICIT NONE
 496   INTEGER ,       INTENT(IN)  :: DataHandle
 497   CHARACTER*(*) , INTENT(IN)  :: Element
 498   CHARACTER*(*) , INTENT(IN)  :: DateStr
 499   CHARACTER*(*) , INTENT(IN)  :: VarName
 500   real ,            INTENT(IN) :: Data(*)
 501   INTEGER ,       INTENT(IN)  :: Count
 502   INTEGER ,       INTENT(OUT) :: Status
 503 RETURN
 504 END SUBROUTINE ext_xxx_put_var_td_real
 505
 506 !--- get_var_td_double
 507 SUBROUTINE ext_xxx_get_var_td_double ( DataHandle,Element,  DateStr,Varname, Data, Count, Outcount, Status )
 508   IMPLICIT NONE
 509   INTEGER ,       INTENT(IN)  :: DataHandle
 510   CHARACTER*(*) , INTENT(IN)  :: Element
 511   CHARACTER*(*) , INTENT(IN)  :: DateStr
 512   CHARACTER*(*) , INTENT(IN)  :: VarName
 513   real*8 ,            INTENT(OUT) :: Data(*)
 514   INTEGER ,       INTENT(IN)  :: Count
 515   INTEGER ,       INTENT(OUT)  :: OutCount
 516   INTEGER ,       INTENT(OUT) :: Status
 517 RETURN
 518 END SUBROUTINE ext_xxx_get_var_td_double
 519
 520 !--- put_var_td_double
 521 SUBROUTINE ext_xxx_put_var_td_double ( DataHandle,Element,  DateStr,Varname, Data, Count,  Status )
 522   IMPLICIT NONE
 523   INTEGER ,       INTENT(IN)  :: DataHandle
 524   CHARACTER*(*) , INTENT(IN)  :: Element
 525   CHARACTER*(*) , INTENT(IN)  :: DateStr
 526   CHARACTER*(*) , INTENT(IN)  :: VarName
 527   real*8 ,            INTENT(IN) :: Data(*)
 528   INTEGER ,       INTENT(IN)  :: Count
 529   INTEGER ,       INTENT(OUT) :: Status
 530 RETURN
 531 END SUBROUTINE ext_xxx_put_var_td_double
 532
 533 !--- get_var_td_integer
 534 SUBROUTINE ext_xxx_get_var_td_integer ( DataHandle,Element,  DateStr,Varname, Data, Count, Outcount, Status )
 535   IMPLICIT NONE
 536   INTEGER ,       INTENT(IN)  :: DataHandle
 537   CHARACTER*(*) , INTENT(IN)  :: Element
 538   CHARACTER*(*) , INTENT(IN)  :: DateStr
 539   CHARACTER*(*) , INTENT(IN)  :: VarName
 540   integer ,            INTENT(OUT) :: Data(*)
 541   INTEGER ,       INTENT(IN)  :: Count
 542   INTEGER ,       INTENT(OUT)  :: OutCount
 543   INTEGER ,       INTENT(OUT) :: Status
 544 RETURN
 545 END SUBROUTINE ext_xxx_get_var_td_integer
 546
 547 !--- put_var_td_integer
 548 SUBROUTINE ext_xxx_put_var_td_integer ( DataHandle,Element,  DateStr,Varname, Data, Count,  Status )
 549   IMPLICIT NONE
 550   INTEGER ,       INTENT(IN)  :: DataHandle
 551   CHARACTER*(*) , INTENT(IN)  :: Element
 552   CHARACTER*(*) , INTENT(IN)  :: DateStr
 553   CHARACTER*(*) , INTENT(IN)  :: VarName
 554   integer ,            INTENT(IN) :: Data(*)
 555   INTEGER ,       INTENT(IN)  :: Count
 556   INTEGER ,       INTENT(OUT) :: Status
 557 RETURN
 558 END SUBROUTINE ext_xxx_put_var_td_integer
 559
 560 !--- get_var_td_logical
 561 SUBROUTINE ext_xxx_get_var_td_logical ( DataHandle,Element,  DateStr,Varname, Data, Count, Outcount, Status )
 562   IMPLICIT NONE
 563   INTEGER ,       INTENT(IN)  :: DataHandle
 564   CHARACTER*(*) , INTENT(IN)  :: Element
 565   CHARACTER*(*) , INTENT(IN)  :: DateStr
 566   CHARACTER*(*) , INTENT(IN)  :: VarName
 567   logical ,            INTENT(OUT) :: Data(*)
 568   INTEGER ,       INTENT(IN)  :: Count
 569   INTEGER ,       INTENT(OUT)  :: OutCount
 570   INTEGER ,       INTENT(OUT) :: Status
 571 RETURN
 572 END SUBROUTINE ext_xxx_get_var_td_logical
 573
 574 !--- put_var_td_logical
 575 SUBROUTINE ext_xxx_put_var_td_logical ( DataHandle,Element,  DateStr,Varname, Data, Count,  Status )
 576   IMPLICIT NONE
 577   INTEGER ,       INTENT(IN)  :: DataHandle
 578   CHARACTER*(*) , INTENT(IN)  :: Element
 579   CHARACTER*(*) , INTENT(IN)  :: DateStr
 580   CHARACTER*(*) , INTENT(IN)  :: VarName
 581   logical ,            INTENT(IN) :: Data(*)
 582   INTEGER ,       INTENT(IN)  :: Count
 583   INTEGER ,       INTENT(OUT) :: Status
 584 RETURN
 585 END SUBROUTINE ext_xxx_put_var_td_logical
 586
 587 !--- get_var_td_char
 588 SUBROUTINE ext_xxx_get_var_td_char ( DataHandle,Element,  DateStr,Varname, Data,  Status )
 589   IMPLICIT NONE
 590   INTEGER ,       INTENT(IN)  :: DataHandle
 591   CHARACTER*(*) , INTENT(IN)  :: Element
 592   CHARACTER*(*) , INTENT(IN)  :: DateStr
 593   CHARACTER*(*) , INTENT(IN)  :: VarName
 594   CHARACTER*(*) , INTENT(OUT) :: Data
 595   INTEGER ,       INTENT(OUT) :: Status
 596 RETURN
 597 END SUBROUTINE ext_xxx_get_var_td_char
 598
 599 !--- put_var_td_char
 600 SUBROUTINE ext_xxx_put_var_td_char ( DataHandle,Element,  DateStr,Varname, Data,  Status )
 601   IMPLICIT NONE
 602   INTEGER ,       INTENT(IN)  :: DataHandle
 603   CHARACTER*(*) , INTENT(IN)  :: Element
 604   CHARACTER*(*) , INTENT(IN)  :: DateStr
 605   CHARACTER*(*) , INTENT(IN)  :: VarName
 606   CHARACTER*(*) , INTENT(IN) :: Data
 607   INTEGER ,       INTENT(OUT) :: Status
 608 RETURN
 609 END SUBROUTINE ext_xxx_put_var_td_char
 610
 611 !--- read_field
 612 SUBROUTINE ext_xxx_read_field ( DataHandle , DateStr , VarName , Field , FieldType , Comm , IOComm &
 613                             DomainDesc , MemoryOrder , Stagger , DimNames ,              &
 614                             DomainStart , DomainEnd ,                                    &
 615                             MemoryStart , MemoryEnd ,                                    &
 616                             PatchStart , PatchEnd ,                                      &
 617                             Status )
 618   IMPLICIT NONE
 619   INTEGER ,       INTENT(IN)    :: DataHandle
 620   CHARACTER*(*) , INTENT(INOUT) :: DateStr
 621   CHARACTER*(*) , INTENT(INOUT) :: VarName
 622   INTEGER ,       INTENT(INOUT) :: Field(*)
 623   integer                       ,intent(in)    :: FieldType
 624   integer                       ,intent(inout) :: Comm
 625   integer                       ,intent(inout) :: IOComm
 626   integer                       ,intent(in)    :: DomainDesc
 627   character*(*)                 ,intent(in)    :: MemoryOrder
 628   character*(*)                 ,intent(in)    :: Stagger
 629   character*(*) , dimension (*) ,intent(in)    :: DimNames
 630   integer ,dimension(*)         ,intent(in)    :: DomainStart, DomainEnd
 631   integer ,dimension(*)         ,intent(in)    :: MemoryStart, MemoryEnd
 632   integer ,dimension(*)         ,intent(in)    :: PatchStart,  PatchEnd
 633   integer                       ,intent(out)   :: Status
 634 RETURN
 635 END SUBROUTINE ext_xxx_read_field
 636
 637 !--- write_field
 638 SUBROUTINE ext_xxx_write_field ( DataHandle , DateStr , VarName , Field , FieldType , Comm , IOComm , &
 639                              DomainDesc , MemoryOrder , Stagger , DimNames ,              &
 640                              DomainStart , DomainEnd ,                                    &
 641                              MemoryStart , MemoryEnd ,                                    &
 642                              PatchStart , PatchEnd ,                                      &
 643                              Status )
 644   IMPLICIT NONE
 645   INTEGER ,       INTENT(IN)    :: DataHandle
 646   CHARACTER*(*) , INTENT(IN)    :: DateStr
 647   CHARACTER*(*) , INTENT(IN)    :: VarName
 648   INTEGER ,       INTENT(IN)    :: Field(*)
 649   integer                       ,intent(in)    :: FieldType
 650   integer                       ,intent(inout) :: Comm
 651   integer                       ,intent(inout) :: IOComm
 652   integer                       ,intent(in)    :: DomainDesc
 653   character*(*)                 ,intent(in)    :: MemoryOrder
 654   character*(*)                 ,intent(in)    :: Stagger
 655   character*(*) , dimension (*) ,intent(in)    :: DimNames
 656   integer ,dimension(*)         ,intent(in)    :: DomainStart, DomainEnd
 657   integer ,dimension(*)         ,intent(in)    :: MemoryStart, MemoryEnd
 658   integer ,dimension(*)         ,intent(in)    :: PatchStart,  PatchEnd
 659   integer                       ,intent(out)   :: Status
 660 RETURN
 661 END SUBROUTINE ext_xxx_write_field
 662
 663 !--- get_var_info  (not implemented for IntIO)
 664 SUBROUTINE ext_xxx_get_var_info ( DataHandle , VarName , NDim , MemoryOrder , Stagger , &
 665                               DomainStart , DomainEnd , Status )
 666   IMPLICIT NONE
 667   integer               ,intent(in)     :: DataHandle
 668   character*(*)         ,intent(in)     :: VarName
 669   integer               ,intent(out)    :: NDim
 670   character*(*)         ,intent(out)    :: MemoryOrder
 671   character*(*)         ,intent(out)    :: Stagger
 672   integer ,dimension(*) ,intent(out)    :: DomainStart, DomainEnd
 673   integer               ,intent(out)    :: Status
 674 RETURN
 675 END SUBROUTINE ext_xxx_get_var_info
 676
 677
 678 !--- end_of_frame
 679 SUBROUTINE ext_xxx_end_of_frame(DataHandle, Status)
 680   IMPLICIT NONE
 681   INTEGER, INTENT(IN)  :: DataHandle
 682   INTEGER, INTENT(OUT) :: Status
 683 RETURN
 684 END SUBROUTINE ext_xxx_end_of_frame
 685
 686
 687 !--- error_str
 688 SUBROUTINE ext_xxx_error_str( Code, ReturnString, Status)
 689   IMPLICIT NONE
 690   INTEGER       , INTENT(IN)  :: Code
 691   CHARACTER *(*), INTENT(OUT) :: ReturnString
 692   INTEGER       , INTENT(OUT) :: Status
 693 RETURN
 694 END SUBROUTINE ext_xxx_error_str
 695
 696
 697 !--- get_previous_time
 698 SUBROUTINE ext_xxx_get_previous_time(DataHandle, DateStr, Status)
 699   IMPLICIT NONE
 700   INTEGER      , INTENT(IN)  :: DataHandle
 701   CHARACTER*(*), INTENT(OUT) :: DateStr
 702   INTEGER      , INTENT(OUT) :: Status
 703 RETURN
 704 END SUBROUTINE ext_xxx_get_previous_time
 705
 706
 707 !--- open_for_read_begin
 708 SUBROUTINE ext_xxx_open_for_read_begin( FileName, Comm, IOComm, SysDepInfo, DataHandle, Status)
 709   IMPLICIT NONE
 710   CHARACTER*(*), INTENT(IN)      :: FileName
 711   INTEGER      , INTENT(IN)      :: Comm
 712   INTEGER      , INTENT(IN)      :: IOComm
 713   CHARACTER*(*), INTENT(IN)      :: SysDepInfo
 714   INTEGER      , INTENT(OUT)     :: DataHandle
 715   INTEGER      , INTENT(OUT)     :: Status
 716 RETURN
 717 END SUBROUTINE ext_xxx_open_for_read_begin
 718
 719
 720 !--- open_for_read_commit
 721 SUBROUTINE ext_xxx_open_for_read_commit(DataHandle, Status)
 722   IMPLICIT NONE
 723   INTEGER, INTENT(IN)  :: DataHandle
 724   INTEGER, INTENT(OUT) :: Status
 725 RETURN
 726 END SUBROUTINE ext_xxx_open_for_read_commit
 727
 728
 729 !--- open_for_update
 730 SUBROUTINE ext_xxx_open_for_update( FileName, Comm, IOComm, SysDepInfo, DataHandle, Status)
 731   IMPLICIT NONE
 732   CHARACTER*(*), INTENT(IN)  :: FileName
 733   INTEGER      , INTENT(IN)  :: Comm
 734   INTEGER      , INTENT(IN)  :: IOComm
 735   CHARACTER*(*), INTENT(IN)  :: SysDepInfo
 736   INTEGER      , INTENT(OUT) :: DataHandle
 737   INTEGER      , INTENT(OUT) :: Status
 738 RETURN
 739 END SUBROUTINE ext_xxx_open_for_update
 740
 741
 742 !--- open_for_write
 743 SUBROUTINE ext_xxx_open_for_write (DatasetName, Comm1, Comm2, &
 744                                    SysDepInfo, DataHandle, Status)
 745   IMPLICIT NONE
 746   CHARACTER *(*), INTENT(IN)  :: DatasetName
 747   INTEGER       , INTENT(IN)  :: Comm1, Comm2
 748   CHARACTER *(*), INTENT(IN)  :: SysDepInfo
 749   INTEGER       , INTENT(OUT) :: DataHandle
 750   INTEGER       , INTENT(OUT) :: Status
 751 RETURN
 752 END SUBROUTINE ext_xxx_open_for_write
 753
 754
 755 !--- warning_str
 756 SUBROUTINE ext_xxx_warning_str( Code, ReturnString, Status)
 757   IMPLICIT NONE
 758   INTEGER       , INTENT(IN)  :: Code
 759   CHARACTER *(*), INTENT(OUT) :: ReturnString
 760   INTEGER       , INTENT(OUT) :: Status
 761 RETURN
 762 END SUBROUTINE ext_xxx_warning_str
 763