src/util/pupf.h

   1       external fpup_int
   2       external fpup_ints
   3       external fpup_char
   4       external fpup_chars
   5       external fpup_short
   6       external fpup_shorts
   7       external fpup_real
   8       external fpup_reals
   9       external fpup_double
  10       external fpup_doubles
  11       external fpup_logical
  12       external fpup_logicals
  13       interface
  14         function fpup_issizing(p)
  15           INTEGER :: p
  16           logical fpup_issizing
  17         end function
  18         function fpup_ispacking(p)
  19           INTEGER :: p
  20           logical fpup_ispacking
  21         end function
  22         function fpup_isunpacking(p)
  23           INTEGER :: p
  24           logical fpup_isunpacking
  25         end function
  26         function fpup_isdeleting(p)
  27           INTEGER :: p
  28           logical fpup_isdeleting
  29         end function
  30         function fpup_isuserlevel(p)
  31           INTEGER :: p
  32           logical fpup_isuserlevel
  33         end function
  34         subroutine fpup_complex(p,c)
  35           INTEGER p
  36           complex c
  37         end subroutine
  38         subroutine fpup_complexes(p,c,size)
  39           INTEGER p
  40           complex,pointer,dimension(:) :: c
  41           INTEGER size
  42         end subroutine
  43         subroutine fpup_doublecomplex(p,c)
  44           INTEGER p
  45           double complex c
  46         end subroutine
  47         subroutine fpup_doublecomplexes(p,c,size)
  48           INTEGER p
  49           double complex,pointer,dimension(:) :: c
  50           INTEGER size
  51         end subroutine
  52       end interface