Error in running Case9 with the blender file

Issues and examples using this model (available in the Models Repository)

Error in running Case9 with the blender file

Postby nsakib520 on Tue Feb 19, 2013 12:49 pm

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
nsakib520
 
Posts: 4
Joined: Mon Nov 26, 2012 9:40 am

Return to SPHysics User Discussions

Who is online

Users browsing this forum: No registered users and 3 guests

cron