Skip to content

Commit 41eaaa1

Browse files
Bruno02468Bruno02468
committed
another fort.1 (unopened ANS) almost got away
1 parent b20e363 commit 41eaaa1

1 file changed

Lines changed: 38 additions & 38 deletions

File tree

‎Source/LK9/L91/WRITE_BAR.f90‎

Lines changed: 38 additions & 38 deletions
Original file line numberDiff line numberDiff line change
@@ -1,33 +1,33 @@
11
! ##################################################################################################################################
2-
! Begin MIT license text.
2+
! Begin MIT license text.
33
! _______________________________________________________________________________________________________
4-
5-
! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com)
6-
7-
! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and
4+
5+
! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com)
6+
7+
! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and
88
! associated documentation files (the "Software"), to deal in the Software without restriction, including
99
! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10-
! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to
11-
! the following conditions:
12-
13-
! The above copyright notice and this permission notice shall be included in all copies or substantial
14-
! portions of the Software and documentation.
15-
16-
! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
17-
! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18-
! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
19-
! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20-
! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21-
! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22-
! THE SOFTWARE.
10+
! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to
11+
! the following conditions:
12+
13+
! The above copyright notice and this permission notice shall be included in all copies or substantial
14+
! portions of the Software and documentation.
15+
16+
! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
17+
! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18+
! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
19+
! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20+
! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21+
! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22+
! THE SOFTWARE.
2323
! _______________________________________________________________________________________________________
24-
25-
! End MIT license text.
26-
24+
25+
! End MIT license text.
26+
2727
SUBROUTINE WRITE_BAR (NUM, FILL_F06, FILL_ANS, ISUBCASE, ITABLE, &
2828
TITLE, SUBTITLE, LABEL, &
2929
FIELD5_INT_MODE, FIELD6_EIGENVALUE )
30-
30+
3131
USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE
3232
USE IOUNT1, ONLY : WRT_ERR, WRT_LOG, ANS, ERR, F04, F06, OP2
3333
USE SCONTR, ONLY : BARTOR, BLNK_SUB_NAM, MOGEL
@@ -37,11 +37,11 @@ SUBROUTINE WRITE_BAR (NUM, FILL_F06, FILL_ANS, ISUBCASE, ITABLE, &
3737
USE DEBUG_PARAMETERS, ONLY : DEBUG
3838
USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, MAXREQ, MSPRNT, OGEL
3939
USE PARAMS, ONLY : PRTANS
40-
40+
4141
USE WRITE_BAR_USE_IFs
4242

4343
IMPLICIT NONE
44-
44+
4545
CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_BAR'
4646

4747
CHARACTER(LEN=*), INTENT(IN) :: FILL_F06 ! Padding for output format
@@ -54,7 +54,7 @@ SUBROUTINE WRITE_BAR (NUM, FILL_F06, FILL_ANS, ISUBCASE, ITABLE, &
5454
REAL(DOUBLE), INTENT(IN) :: FIELD6_EIGENVALUE
5555

5656
CHARACTER(133*BYTE) :: BLINE1A ! Result of concatenating char. variables BOUT1, BMS1, BMSF1, BTOR to
57-
! make the 1st line of stress output for a CBAR with torsional stress
57+
! make the 1st line of stress output for a CBAR with torsional stress
5858
CHARACTER(133*BYTE) :: BLINE1B ! Result of concatenating char. variables BOUT1, BMS1, BMSF1, BMS2, BMSF2
5959
! to make the 1st line of stress output for a CBAR w/o torsional stress
6060
CHARACTER(133*BYTE) :: BLINE2A ! Result of concatenating char. variables BOUT2, BMS2, BMSF2
@@ -76,13 +76,13 @@ SUBROUTINE WRITE_BAR (NUM, FILL_F06, FILL_ANS, ISUBCASE, ITABLE, &
7676
CHARACTER(14*BYTE) :: MIN_ANS_CHAR(16) ! Character variable that contains the 6 grid min outputs
7777
CHARACTER( 1*BYTE) :: MSFLAG ! If margin is negative, MSFLAG is an *
7878
CHARACTER(14*BYTE) :: OGEL_CHAR(MOGEL) ! Char representation of 1 row of OGEL outputs
79-
79+
8080
INTEGER(LONG), INTENT(IN) :: ISUBCASE ! The subcase ID
8181
INTEGER(LONG), INTENT(IN) :: NUM ! The number of rows of OGEL to write out
8282
INTEGER(LONG) :: I,J ! DO loop indices
8383
INTEGER(LONG) :: K ! Counter
8484
INTEGER(LONG), PARAMETER :: SUBR_BEGEND = WRITE_BAR_BEGEND
85-
85+
8686
REAL(DOUBLE) :: ABS_ANS(16) ! Max ABS for all grids output for each of the 6 disp components
8787
REAL(DOUBLE) :: MAX_ANS(16) ! Max for all grids output for each of the 6 disp components
8888
REAL(DOUBLE) :: MIN_ANS(16) ! Min for all grids output for each of the 6 disp components
@@ -106,9 +106,9 @@ SUBROUTINE WRITE_BAR (NUM, FILL_F06, FILL_ANS, ISUBCASE, ITABLE, &
106106
! Data is first written to character variables and then that character variable is output the F06 and ANS.
107107
! op2_headers = ['s1a', 's2a', 's3a', 's4a', 'axial', 'smaxa', 'smina', 'MS_tension',
108108
! 's1b', 's2b', 's3b', 's4b', 'smaxb', 'sminb', 'MS_compression']
109-
109+
110110
NVALUES = NUM_WIDE * NUM
111-
111+
112112
!CALL GET_STRESS_CODE(STRESS_CODE, IS_VON_MISES, IS_STRAIN, IS_FIBER_DISTANCE)
113113
CALL GET_STRESS_CODE( STRESS_CODE, 1, 0, 0)
114114
CALL WRITE_OES3_STATIC(ITABLE, ISUBCASE, DEVICE_CODE, ELEMENT_TYPE, NUM_WIDE, STRESS_CODE, &
@@ -132,14 +132,14 @@ SUBROUTINE WRITE_BAR (NUM, FILL_F06, FILL_ANS, ISUBCASE, ITABLE, &
132132

133133
BOUT1(1:) = ' '
134134
BMS1(1:) = ' '
135-
BMSF1 = ' '
136-
135+
BMSF1 = ' '
136+
137137
BOUT2(1:) = ' '
138138
BMS2(1:) = ' '
139139
BMSF2 = ' '
140140

141-
BTOR(1:) = ' '
142-
141+
BTOR(1:) = ' '
142+
143143
! Write first line of output for one element to a temporary internal file
144144
K = K + 1
145145
CALL WRT_REAL_TO_CHAR_VAR ( OGEL, MAXREQ, MOGEL, K, OGEL_CHAR )
@@ -191,7 +191,7 @@ SUBROUTINE WRITE_BAR (NUM, FILL_F06, FILL_ANS, ISUBCASE, ITABLE, &
191191

192192
! Write the two lines of stress output for one element to F06
193193
WRITE(F06,*)
194-
WRITE(ANS,*)
194+
IF (PRTANS == 'Y') WRITE(ANS,*)
195195
IF (BARTOR == 'Y') THEN
196196
BLINE1A = BOUT1//BMS1//BMSF1//BTOR
197197
BLINE2A = BOUT2//BMS2//BMSF2//BMS3//BMSF3
@@ -283,11 +283,11 @@ SUBROUTINE WRITE_BAR (NUM, FILL_F06, FILL_ANS, ISUBCASE, ITABLE, &
283283
1X,'ABS (for output set): ',7(1ES14.6),ES14.2)
284284

285285
! **********************************************************************************************************************************
286-
286+
287287
! ##################################################################################################################################
288-
288+
289289
CONTAINS
290-
290+
291291
! ##################################################################################################################################
292292

293293
SUBROUTINE GET_MAX_MIN_ABS ( BEG_COL, END_COL )
@@ -307,7 +307,7 @@ SUBROUTINE GET_MAX_MIN_ABS ( BEG_COL, END_COL )
307307

308308
DO JJ=1,2*(END_COL-BEG_COL+1)
309309
MAX_ANS(JJ) = -MACH_LARGE_NUM
310-
ENDDO
310+
ENDDO
311311

312312
LL = 0
313313
DO II=1,NUM

0 commit comments

Comments
 (0)