00001 module interface_interpo_3D_initial_4th_surface
00002 implicit none
00003 interface
00004 subroutine interpo_3D_initial_4th_surface(fnc)
00005 real(8), pointer :: fnc(:,:)
00006 end subroutine interpo_3D_initial_4th_surface
00007 end interface
00008 end module interface_interpo_3D_initial_4th_surface