Hello. In MSC.Marc with the Intel XE 2015 Fortran compiler there is the demonstration example e8x94c.dat on deformation of a plate. Without use of file u8x94c.f on Fortran with the method usplit_mesh, shown below, deformation of a plate is run without a splitting of faces of the hexagon finite elements. After adding file u8x94c.f, deformation of a plate is run with a splitting of faces (written above in code in the method usplit_mesh) of hexagon finite elements.

In file u8x94c.f is declared the method usplit_mesh with ten parameters, stated below. From the theory of programming it is known, that the method usplit_mesh is not run, until it is called with a task of certain values for all ten parameters, for example with the value “1” for the variable “icall”. At running of the demonstration example e8x94c.dat on deformation of a plate with use of file u8x94c.f with method usplit_mesh, somewhere is called the method usplit_mesh with the certain values for all ten parameters, but where is called, it is unknown.

What code should be written in the method usplit_mesh, shown below, to learn, where the method usplit_mesh is called? Thanks.

subroutine usplit_mesh(icall,nodelist,nlist,iedgelist,nedgelist,

$ ifacelist,nfacelist,inc,time,timeinc)

#ifdef _IMPLICITNONE

implicit none

#else

implicit logical (a-z)

#endif

integer nodelist,nlist,iedgelist,nedgelist,ifacelist,nfacelist

integer icall,inc

real*8 time,timeinc

dimension nodelist(*),iedgelist(2,*),ifacelist(4,*)

integer num,i,alt

if (icall.eq.1) then

alt=3

c alternative 1: specify a sequence of nodes

if (alt.eq.1) then

nlist=7

num=0

do i=57,63

num=num+1

nodelist(num)=i

enddo

elseif (alt.eq.2) then

c alternative 2: specify a list of edges in any order

nedgelist=6

iedgelist(1,1)=57

iedgelist(2,1)=58

iedgelist(1,2)=62

iedgelist(2,2)=63

iedgelist(1,3)=59

iedgelist(2,3)=60

iedgelist(1,4)=58

iedgelist(2,4)=59

iedgelist(1,5)=60

iedgelist(2,5)=61

iedgelist(1,6)=61

iedgelist(2,6)=62

elseif (alt.eq.3) then

c 3d: give a list of faces

nfacelist=4

ifacelist(1,1)=819

ifacelist(2,1)=817

ifacelist(3,1)=822

ifacelist(4,1)=824

c

ifacelist(1,2)=817

ifacelist(2,2)=57

ifacelist(3,2)=58

ifacelist(4,2)=822

c

ifacelist(1,3)=829

ifacelist(2,3)=827

ifacelist(3,3)=822

ifacelist(4,3)=824

c

ifacelist(1,4)=822

ifacelist(2,4)=827

ifacelist(3,4)=58

ifacelist(4,4)=59

endif

endif

return

end