00001       external fpup_int
00002       external fpup_ints
00003       external fpup_char
00004       external fpup_chars
00005       external fpup_short
00006       external fpup_shorts
00007       external fpup_real
00008       external fpup_reals
00009       external fpup_double
00010       external fpup_doubles
00011       external fpup_logical
00012       external fpup_logicals
00013       interface
00014         function fpup_issizing(p)
00015           INTEGER :: p
00016           logical fpup_issizing
00017         end function
00018         function fpup_ispacking(p)
00019           INTEGER :: p
00020           logical fpup_ispacking
00021         end function
00022         function fpup_isunpacking(p)
00023           INTEGER :: p
00024           logical fpup_isunpacking
00025         end function
00026         function fpup_isdeleting(p)
00027           INTEGER :: p
00028           logical fpup_isdeleting
00029         end function
00030         function fpup_isuserlevel(p)
00031           INTEGER :: p
00032           logical fpup_isuserlevel
00033         end function
00034         subroutine fpup_complex(p,c)
00035           INTEGER p
00036           complex c
00037         end subroutine
00038         subroutine fpup_complexes(p,c,size)
00039           INTEGER p
00040           complex,pointer,dimension(:) :: c
00041           INTEGER size
00042         end subroutine
00043         subroutine fpup_doublecomplex(p,c)
00044           INTEGER p
00045           double complex c
00046         end subroutine
00047         subroutine fpup_doublecomplexes(p,c,size)
00048           INTEGER p
00049           double complex,pointer,dimension(:) :: c
00050           INTEGER size
00051         end subroutine
00052       end interface