00001 module interface_interpo_3D_initial_4th
00002 implicit none
00003 interface
00004 subroutine interpo_3D_initial_4th(fnc,char_co)
00005 real(8), pointer :: fnc(:,:,:)
00006 character(len=4) :: char_co
00007 end subroutine interpo_3D_initial_4th
00008 end interface
00009 end module interface_interpo_3D_initial_4th