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