104 lines
2.7 KiB
FortranFixed
104 lines
2.7 KiB
FortranFixed
|
*dk,getptyp
|
||
|
|
subroutine getptyp(name,iityp,ierror)
|
||
|
|
C
|
||
|
|
C
|
||
|
|
C ######################################################################
|
||
|
|
C
|
||
|
|
C PURPOSE -
|
||
|
|
C
|
||
|
|
C This routine returns the point type for a given name
|
||
|
|
C
|
||
|
|
C INPUT ARGUMENTS -
|
||
|
|
C
|
||
|
|
C name - the name of the point type
|
||
|
|
C
|
||
|
|
C OUTPUT ARGUMENTS -
|
||
|
|
C
|
||
|
|
C iityp - the point tpye
|
||
|
|
C ierror - error return(0=ok, -1=error)
|
||
|
|
C
|
||
|
|
C CHANGE HISTORY -
|
||
|
|
C
|
||
|
|
C$Log: getptyp.f,v $
|
||
|
|
CRevision 2.00 2007/11/05 19:45:57 spchu
|
||
|
|
CImport to CVS
|
||
|
|
C
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.2 Mon Apr 14 16:49:56 1997 pvcs
|
||
|
|
CPVCS No change.
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.1 Fri May 03 10:46:50 1996 dcg
|
||
|
|
CPVCS changes for new point type --virtual interfaces
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.0 09/20/95 09:52:22 dcg
|
||
|
|
CPVCS Initial revision.
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
C
|
||
|
|
include 'chydro.h'
|
||
|
|
C
|
||
|
|
character *(*) name
|
||
|
|
character*8 isubname
|
||
|
|
integer iityp,ierror
|
||
|
|
C
|
||
|
|
isubname='getptyp'
|
||
|
|
iityp=-1
|
||
|
|
ierror=0
|
||
|
|
C interior point
|
||
|
|
if (name(1:3).eq.inampint) then
|
||
|
|
iityp=ifitpint
|
||
|
|
C interface point
|
||
|
|
elseif (name(1:3).eq.inampini) then
|
||
|
|
iityp=ifitpini
|
||
|
|
C virtual interface point
|
||
|
|
elseif (name(1:3).eq.inampvrt) then
|
||
|
|
iityp=ifitpvrt
|
||
|
|
C virtual interface + interaface point
|
||
|
|
elseif (name(1:3).eq.inampvin) then
|
||
|
|
iityp=ifitpvin
|
||
|
|
C Relected external boundary
|
||
|
|
elseif (name(1:3).eq.inamprfl) then
|
||
|
|
iityp=ifitprfl
|
||
|
|
C Free external boundary
|
||
|
|
elseif (name(1:3).eq.inampfre) then
|
||
|
|
iityp=ifitpfre
|
||
|
|
C Interface node on reflected boundary
|
||
|
|
elseif (name(1:3).eq.inampirb) then
|
||
|
|
iityp=ifitpirb
|
||
|
|
C Interface node on free boundary
|
||
|
|
elseif (name(1:3).eq.inampifb) then
|
||
|
|
iityp=ifitpifb
|
||
|
|
C Virtual Interface node on free boundary
|
||
|
|
elseif (name(1:3).eq.inampvfb) then
|
||
|
|
iityp=ifitpvfb
|
||
|
|
C Virtual Interface node on reflective boundary
|
||
|
|
elseif (name(1:3).eq.inampvrb) then
|
||
|
|
iityp=ifitpvrb
|
||
|
|
C Virtual Interface node on reflective and free boundary
|
||
|
|
elseif (name(1:3).eq.inampvrf) then
|
||
|
|
iityp=ifitpvrf
|
||
|
|
C Virtual Interface and interface node on reflective boundary
|
||
|
|
elseif (name(1:3).eq.inampvir) then
|
||
|
|
iityp=ifitpvir
|
||
|
|
C Virtual Interface and interface node on free boundary
|
||
|
|
elseif (name(1:3).eq.inampvif) then
|
||
|
|
iityp=ifitpvif
|
||
|
|
C Virtual Interface and interface node on free reflect boundary
|
||
|
|
elseif (name(1:3).eq.inampalb) then
|
||
|
|
iityp=ifitpalb
|
||
|
|
C Merged node
|
||
|
|
elseif (name(1:3).eq.inampmrg) then
|
||
|
|
iityp=ifitpmrg
|
||
|
|
C Dudded node
|
||
|
|
elseif (name(1:3).eq.inampdud) then
|
||
|
|
iityp=ifitpdud
|
||
|
|
C Parent node
|
||
|
|
elseif (name(1:3).eq.inamppar) then
|
||
|
|
iityp=ifitpcup
|
||
|
|
C illegal node type
|
||
|
|
else
|
||
|
|
ierror=-1
|
||
|
|
endif
|
||
|
|
return
|
||
|
|
end
|