You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 lines
815 B
Fortran
41 lines
815 B
Fortran
5 years ago
|
SUBROUTINE PLOTORDS
|
||
|
|
|
||
|
|
USE BLK1MOD
|
||
|
|
USE BLK2MOD
|
||
|
|
! INCLUDE 'BLK1.COM'
|
||
|
|
! INCLUDE 'BLK2.COM'
|
||
|
|
|
||
|
|
NLSTP=NLST+1
|
||
|
|
call getxc
|
||
|
|
DO N=1,NLSTP
|
||
|
|
FPN=N
|
||
|
|
DO M=1,NE
|
||
|
|
|
||
|
|
! Get element in list
|
||
|
|
|
||
|
|
IF(N .LT. NLSTP) THEN
|
||
|
|
J=ILIST(N,M)
|
||
|
|
ELSE
|
||
|
|
J=ilisttmp(M)
|
||
|
|
ENDIF
|
||
|
|
! IF(IMAT(J) .EQ. 0) THEN
|
||
|
|
! ENDIF
|
||
|
|
|
||
|
|
IF(J .GT. 0) THEN
|
||
|
|
IF(XC(J) .GT. 0. .AND. XC(J) .LT. HSIZE) THEN
|
||
|
|
IF(YC(J) .GT. 0. .AND. YC(J) .LT. 7.5) THEN
|
||
|
|
xxc=xc(j)
|
||
|
|
yyc=yc(j)
|
||
|
|
CALL NUMBR(XXC,YYC,0.15,FPN,0.0,-1)
|
||
|
|
ENDIF
|
||
|
|
ENDIF
|
||
|
|
ELSE
|
||
|
|
GO TO 300
|
||
|
|
ENDIF
|
||
|
|
|
||
|
|
ENDDO
|
||
|
|
300 CONTINUE
|
||
|
|
ENDDO
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
END
|