64 lines
1.7 KiB
FortranFixed
64 lines
1.7 KiB
FortranFixed
|
subroutine get_material_info(nmats,names,matno,ierror)
|
||
|
|
C
|
||
|
|
C
|
||
|
|
C#######################################################################
|
||
|
|
C
|
||
|
|
C PURPOSE - get material number associated with at mregion name
|
||
|
|
C
|
||
|
|
C INPUT ARGUMENTS -
|
||
|
|
C
|
||
|
|
c none
|
||
|
|
c
|
||
|
|
c OUTPUT ARGUMENTS -
|
||
|
|
c
|
||
|
|
c nmats number of materials
|
||
|
|
c names material region names
|
||
|
|
c matno material number for mregion
|
||
|
|
c ierror return flag
|
||
|
|
c
|
||
|
|
c $Log: get_material_info.f,v $
|
||
|
|
c Revision 2.00 2007/11/05 19:45:56 spchu
|
||
|
|
c Import to CVS
|
||
|
|
c
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.0 25 Feb 2000 09:53:10 dcg
|
||
|
|
CPVCS Initial revision.
|
||
|
|
C#######################################################################
|
||
|
|
c
|
||
|
|
implicit none
|
||
|
|
C
|
||
|
|
C#######################################################################
|
||
|
|
C
|
||
|
|
include 'geom_lg.h'
|
||
|
|
character*32 names(*)
|
||
|
|
integer nmats,matno(*),ierror
|
||
|
|
integeri,ierr,length,iout,lout,itype
|
||
|
|
character*32 cmo,geom_name
|
||
|
|
pointer(ipout,out)
|
||
|
|
real*8 out(*),rout
|
||
|
|
c
|
||
|
|
C#######################################################################
|
||
|
|
c
|
||
|
|
ierror=1
|
||
|
|
call cmo_get_name(cmo,ierr)
|
||
|
|
if(ierr.ne.0) go to 9999
|
||
|
|
call cmo_get_attinfo('geom_name',cmo,iout,rout,geom_name,
|
||
|
|
* ipout,lout,itype,ierror)
|
||
|
|
|
||
|
|
if (nmregs.ne.0) then
|
||
|
|
call mmfindbk('cmregs',geom_name,ipcmregs,length,ierror)
|
||
|
|
call mmfindbk('matregs',geom_name,ipmatregs,length,ierror)
|
||
|
|
if(ierror.eq.0) then
|
||
|
|
nmats=0
|
||
|
|
do i=1,nmregs
|
||
|
|
if(cmregs(i).ne.' ') then
|
||
|
|
nmats=nmats+1
|
||
|
|
names(nmats)=cmregs(i)
|
||
|
|
matno(nmats)=matregs(i)
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
endif
|
||
|
|
endif
|
||
|
|
9999 return
|
||
|
|
end
|