Error in running Case9 with the blender file

[nsakib520]

Hi

I was trying to run the program for Case 9 where external blender file is exported for complex geometry. I have successfully exported the blender file. But when i try to run the Case9_unix_gfortran.bat in gfortan 4.7.2 on Ubuntu 12.04 it gets error from the ext_moving_3D.f in the subroutine of rpush(mv,i). The error report is as follows:

gfortran -O3 -c -o energy_3D.o energy_3D.f
gfortran -O3 -c -o recover_list_3D.o recover_list_3D.f
gfortran -O3 -c -o ini_divide_3D.o ini_divide_3D.f
gfortran -O3 -c -o keep_list_3D.o keep_list_3D.f
gfortran -O3 -c -o SPHYSICS_3D.o SPHYSICS_3D.f
gfortran -O3 -c -o ext_moving_3D.o ext_moving_3D.f
ext_moving_3D.f:258.25:

call rpush(mvs(i),(/0.,0.,0.,0./))
1
Error: Procedure 'rpush' at (1) with assumed-shape dummy argument 'i' must have an explicit interface
ext_moving_3D.f:258.25:

call rpush(mvs(i),(/0.,0.,0.,0./))
1
Error: Procedure 'rpush' at (1) with assumed-shape dummy argument 'i' must have an explicit interface
ext_moving_3D.f:258.25:

call rpush(mvs(i),(/0.,0.,0.,0./))
1
Error: Procedure 'rpush' at (1) with assumed-shape dummy argument 'i' must have an explicit interface
make: *** [ext_moving_3D.o] Error 1

SPHYSICS_3D compilation failed


Can anyone please explain the function of this subroutine? I also tried to compile this ext_moving_3D.f only, but it makes same error. So i think problem is within the rpush subroutine. The error is as follows:

sakib@sakib-HP-Pavilion-dv6-Notebook-PC:~$ cd /home/sakib/Documents/SPHYSICS_3D_2.2.001/source/SPHYSICS3D
sakib@sakib-HP-Pavilion-dv6-Notebook-PC:~/Documents/SPHYSICS_3D_2.2.001/source/SPHYSICS3D$ gfortran -O3 -c ext_moving_3D.f
ext_moving_3D.f:258.25:

call rpush(mvs(i),(/0.,0.,0.,0./))
1
Error: Procedure 'rpush' at (1) with assumed-shape dummy argument 'i' must have an explicit interface
ext_moving_3D.f:258.25:

call rpush(mvs(i),(/0.,0.,0.,0./))
1
Error: Procedure 'rpush' at (1) with assumed-shape dummy argument 'i' must have an explicit interface
ext_moving_3D.f:258.25:

call rpush(mvs(i),(/0.,0.,0.,0./))
1
Error: Procedure 'rpush' at (1) with assumed-shape dummy argument 'i' must have an explicit interface
sakib@sakib-HP-Pavilion-dv6-Notebook-PC:~/Documents/SPHYSICS_3D_2.2.001/source/SPHYSICS3D$


Need help....

SAKIB