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