var/da/da_tools/da_openfile.inc

   1 subroutine da_openfile (kunit, cdfile, cdaccess, cdstatus, cdform)
   2
   3    !------------------------------------------------------------------------
   4    ! Purpose: open an file and rewind
   5    !
   6    !   method:
   7    !   ------
   8    !
   9    !   input:
  10    !   -----
  11    !      kunit:          logical unit
  12    !      cdfile:         name of file for output of discared obs.
  13    !      cda!ess:       a!ess (sequential or),
  14    !      cdstatus:       status (old, new or unknown)
  15    !      cdform:         form (formatted or unformatted)
  16    !
  17    !   output:
  18    !   ------
  19    !      opened file
  20    !
  21    !   common:                      no
  22    !   -------
  23    !   external:                    no
  24    !   --------
  25    !   references:                  no
  26    !   ----------
  27    !
  28    !   modifications:
  29    !   --------------
  30    !       original :  98-07 (f. vandenberghe)
  31    !       additions : 98-11 norm doctor (f. vandenberghe)
  32    !--------------------------------------------------------------------------
  33
  34    implicit none
  35
  36    integer, intent(in) :: Kunit
  37    character*(*), intent(in) :: CDFILE, CDACCESS, CDSTATUS, CDFORM
  38
  39    integer :: iost
  40
  41    ! 1.  open FILE
  42    ! -------------
  43
  44    IOST = 0
  45
  46    open (unit   = Kunit, &
  47           FILE   = CDFILE, &
  48           ACCESS = CDACCESS, &
  49           STATUS = CDSTATUS, &
  50           FORM   = CDFORM, &
  51           ERR    =  2000, &
  52           iostat = IOST       )
  53
  54    rewind (Kunit)
  55
  56    return
  57
  58   ! 2.  ERROR PROCESSinG
  59    ! --------------------
  60
  61 2000 continue
  62    call da_error(__FILE__,__LINE__, &
  63       (/"Cannot open file"//CDFILE/))
  64
  65 end subroutine da_openfile
  66
  67