diff --git a/.gitmodules b/.gitmodules index a21de6db..42221b77 100644 --- a/.gitmodules +++ b/.gitmodules @@ -11,3 +11,15 @@ ignore = all update = checkout branch = master +[submodule "metis/GKlib"] + path = metis/GKlib + url = https://github.com/KarypisLab/GKlib.git + ignore = all + update = checkout + branch = master +[submodule "metis/METIS"] + path = metis/METIS + url = https://github.com/KarypisLab/METIS.git + ignore = all + update = checkout + branch = master diff --git a/CMakeLists.txt b/CMakeLists.txt index c52d5244..c2d463a2 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -45,6 +45,9 @@ if(NOT DEFINED CMAKE_SUPPRESS_DEVELOPER_WARNINGS) set(CMAKE_SUPPRESS_DEVELOPER_WARNINGS 1 CACHE INTERNAL "No dev warnings") endif() +# build static libraries throughout this tree +set(BUILD_SHARED_LIBS OFF CACHE BOOL "Build static libraries" FORCE) + # recommend the appropriate make command if(WIN32) set(RECOMMENDED_MAKE "mingw32-make") @@ -76,8 +79,67 @@ if(GIT_FOUND AND EXISTS "${PROJECT_SOURCE_DIR}/.git") endif() set(SUPERLU_DIR "${PROJECT_SOURCE_DIR}/superlu") +set(SUPERLU_PATCHES_DIR "${PROJECT_SOURCE_DIR}/superlu_patches") set(SUPERLU_MT_DIR "${PROJECT_SOURCE_DIR}/superlu_mt") -set(SUPERLU_PATCHES_DIR "${PROJECT_SOURCE_DIR}/superlu_mt_patches") +set(SUPERLU_MT_PATCHES_DIR "${PROJECT_SOURCE_DIR}/superlu_mt_patches") +set(METIS_DIR "${PROJECT_SOURCE_DIR}/metis/METIS") +set(GKLIB_DIR "${PROJECT_SOURCE_DIR}/metis/GKlib") +set(METIS_PATCHES_DIR "${PROJECT_SOURCE_DIR}/metis/metis_patches") + +if(NOT DEFINED TPL_ENABLE_METISLIB) + set(TPL_ENABLE_METISLIB ON CACHE BOOL "Enable METIS for SuperLU") +endif() +if(TPL_ENABLE_METISLIB) + if(NOT EXISTS "${GKLIB_DIR}/CMakeLists.txt") + message(FATAL_ERROR "The GKlib submodule was not downloaded.") + endif() + if(NOT EXISTS "${METIS_DIR}/CMakeLists.txt") + message(FATAL_ERROR "The METIS submodule was not downloaded.") + endif() + + message(STATUS "Applying patches to METIS...") + file(GLOB_RECURSE METIS_PATCH_FILES RELATIVE "${METIS_PATCHES_DIR}" "${METIS_PATCHES_DIR}/*") + + foreach(file IN LISTS METIS_PATCH_FILES) + set(src "${METIS_PATCHES_DIR}/${file}") + set(dst "${METIS_DIR}/${file}") + + get_filename_component(dst_dir "${dst}" DIRECTORY) + file(MAKE_DIRECTORY "${dst_dir}") + + message(STATUS " Patching: ${file}") + file(COPY "${src}" DESTINATION "${dst_dir}") + endforeach() + + message(STATUS "METIS patched.") + + set(SHARED OFF CACHE BOOL "Build vendored GKlib/METIS as static libraries" FORCE) + set(GKLIB_BUILD_APPS OFF CACHE BOOL "Build GKlib applications" FORCE) + set(METIS_BUILD_PROGRAMS OFF CACHE BOOL "Build METIS command line programs" FORCE) + set(GKLIB_PATH "${GKLIB_DIR}" CACHE PATH "GKlib source directory" FORCE) + + add_subdirectory("${GKLIB_DIR}" "${CMAKE_BINARY_DIR}/metis/GKlib") + add_subdirectory("${METIS_DIR}" "${CMAKE_BINARY_DIR}/metis/METIS") + + set(TPL_METIS_LIBRARIES "${CMAKE_ARCHIVE_OUTPUT_DIRECTORY}/libmetis.a;${CMAKE_ARCHIVE_OUTPUT_DIRECTORY}/libGKlib.a" CACHE STRING "METIS static libraries" FORCE) + set(TPL_METIS_INCLUDE_DIRS "${CMAKE_BINARY_DIR}/metis/METIS/include" CACHE PATH "METIS include directory" FORCE) + + message(STATUS "Applying patches to SUPERLU...") + file(GLOB_RECURSE SUPERLU_PATCH_FILES RELATIVE "${SUPERLU_PATCHES_DIR}" "${SUPERLU_PATCHES_DIR}/*") + + foreach(file IN LISTS SUPERLU_PATCH_FILES) + set(src "${SUPERLU_PATCHES_DIR}/${file}") + set(dst "${SUPERLU_DIR}/${file}") + + get_filename_component(dst_dir "${dst}" DIRECTORY) + file(MAKE_DIRECTORY "${dst_dir}") + + message(STATUS " Patching: ${file}") + file(COPY "${src}" DESTINATION "${dst_dir}") + endforeach() + + message(STATUS "SUPERLU patched for METIS") +endif() set(enable_examples OFF FORCE) set(enable_tests OFF FORCE) @@ -87,10 +149,10 @@ if(USE_SUPERLU_MT) message(STATUS "Will link against faster SuperLU_MT.") set(PLAT "_OPENMP" CACHE STRING "threading flavor _PTHREAD/_OPENMP" FORCE) message(STATUS "Applying patches to SuperLU_MT...") - file(GLOB_RECURSE PATCH_FILES RELATIVE "${SUPERLU_PATCHES_DIR}" "${SUPERLU_PATCHES_DIR}/*") + file(GLOB_RECURSE PATCH_FILES RELATIVE "${SUPERLU_MT_PATCHES_DIR}" "${SUPERLU_MT_PATCHES_DIR}/*") foreach(file IN LISTS PATCH_FILES) - set(src "${SUPERLU_PATCHES_DIR}/${file}") + set(src "${SUPERLU_MT_PATCHES_DIR}/${file}") set(dst "${SUPERLU_MT_DIR}/${file}") # ensure the destination directory exists @@ -150,6 +212,9 @@ else() include_directories("${SUPERLU_DIR}/SRC") add_subdirectory(${SUPERLU_DIR}) + if(TPL_ENABLE_METISLIB) + add_dependencies(superlu metis GKlib) + endif() set(SLU_DRIVER "${SUPERLU_DIR}/FORTRAN/c_fortran_dgssv.c") endif() diff --git a/Source/ARPACK/ARPACK_INFO_MSG.f90 b/Source/ARPACK/ARPACK_INFO_MSG.f90 index 950fc07c..509e0d9a 100644 --- a/Source/ARPACK/ARPACK_INFO_MSG.f90 +++ b/Source/ARPACK/ARPACK_INFO_MSG.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ARPACK_INFO_MSG ( SUBNAME, INFO, IPARAM, LWORKL, NEV, NCV ) @@ -84,7 +84,7 @@ SUBROUTINE ARPACK_INFO_MSG ( SUBNAME, INFO, IPARAM, LWORKL, NEV, NCV ) IF ((SUBNAME == 'DSAUPD') .OR. (SUBNAME == 'dsaupd')) THEN - + IF (INFO == 1) THEN ! MSG( 2) ERROR_NUM = ' 7101' @@ -417,7 +417,7 @@ SUBROUTINE ARPACK_INFO_MSG ( SUBNAME, INFO, IPARAM, LWORKL, NEV, NCV ) ! ********************************************************************************************************************************** 100 FORMAT(' *INFORMATION: THE FOLLOWING MESSAGE WAS FOUND BY ARPACK SUBR ',A,' CALLED BY ARPACK DRIVER DSBAND IN ',A, & ' SUBR EIG_LANCZOS.' & - ,/,14X,' IT RELATES TO AN ERROR, LISTED BELOW, FOR ARPACK "INFO" = ',I6,' IN THE LANCZOS EIGENVALUE METHOD:',/) + ,/,14X,' IT RELATES TO AN ERROR, LISTED BELOW, FOR ARPACK "INFO" = ',I6,' IN THE LANCZOS EIGENVALUE METHOD:',/) 710 FORMAT(' *ERROR ',A,': PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' FOR LANCZOS EIGENVALUE EXTRACTION WITH ARPACK "INFO" = ',I6,':' & diff --git a/Source/EMG/EMG1/CHECK_TE_MATRIX.f90 b/Source/EMG/EMG1/CHECK_TE_MATRIX.f90 index 55b4ecb4..aa6be2b5 100644 --- a/Source/EMG/EMG1/CHECK_TE_MATRIX.f90 +++ b/Source/EMG/EMG1/CHECK_TE_MATRIX.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE CHECK_TE_MATRIX ( TE_IN, NAME_IN ) diff --git a/Source/EMG/EMG1/ELMDAT1.f90 b/Source/EMG/EMG1/ELMDAT1.f90 index 1d33f5d5..14ae6908 100644 --- a/Source/EMG/EMG1/ELMDAT1.f90 +++ b/Source/EMG/EMG1/ELMDAT1.f90 @@ -1,41 +1,41 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) ! Generates small arrays of elem data, for use by subroutine EMG, one elem at a time for all elems. Arrays generated are: ! XEB : basic coords of grids for 1 elem -! V VECTOR : for some 1-D elems +! V VECTOR : for some 1-D elems ! EPROP : array of elem geometric properties ! ISOLID : data for 3-D elems defining options from the PSOLID Bulk Data entry ! EMAT : material property data ! PIN FLAG : Pin flag data for some elems ! OFFSETS : offsets for some elems - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, MEDAT0_CUSERIN, MELGP, MEMATC, MEMATR, MEPROP, METYPE, MOFFSET, MRMATLC, & @@ -66,14 +66,14 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELMDAT1' CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y' write warning messages, otherwise do not - CHARACTER( 1*BYTE) :: GET_VVEC ! If 'Y' run code to get VVEC + CHARACTER( 1*BYTE) :: GET_VVEC ! If 'Y' run code to get VVEC CHARACTER( 1*BYTE) :: VVEC_DEFINED ! If 'Y' then a VVEC was found for elements that require one INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID INTEGER(LONG) :: ACID ! Actual coord sys ID INTEGER(LONG) :: EPNTK ! Value from array EPNT at the row for this internal elem ID. It is the -! row number in array EDAT where data begins for this element. +! row number in array EDAT where data begins for this element. INTEGER(LONG) :: IPNTR ! Pointer into an array INTEGER(LONG) :: VVEC_FLAG ! Either actual grid ID for V vector or -IVVEC @@ -84,7 +84,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) INTEGER(LONG) :: IGID_V ! Internal grid ID for V vector INTEGER(LONG) :: USERIN_INDEX_COMP ! Index in EDAT where displ comp list begins INTEGER(LONG) :: USERIN_INDEX_GRID ! Index in EDAT where grid list begins - INTEGER(LONG) :: IPIN(2) ! Pinflag fields from EDAT for a BAR or BEAM elem + INTEGER(LONG) :: IPIN(2) ! Pinflag fields from EDAT for a BAR or BEAM elem INTEGER(LONG) :: IREM ! Indicator that a pinflag has digits different than 1,2,3,4,5 or 6 INTEGER(LONG) :: IROW ! Row no. in a real array where data is found for this element INTEGER(LONG) :: IVVEC ! Row number in VVEC where V vector for this elem is found @@ -101,9 +101,9 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) REAL(DOUBLE) :: K_BUSH(6),B_BUSH(6)! Values read from PBUSH for stiffness, damping REAL(DOUBLE) :: PHID, THETAD ! Outputs from subr GEN_T0L REAL(DOUBLE) :: THICK_AVG ! Average of all THICK(i) - REAL(DOUBLE) :: T0G(3,3) ! Matrix to transform V vector from global to basic coords + REAL(DOUBLE) :: T0G(3,3) ! Matrix to transform V vector from global to basic coords REAL(DOUBLE) :: VV(3) ! V vector in basic coords for this elem - + INTRINSIC :: MOD, FLOOR @@ -155,7 +155,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) ! ********************************************************************************************************************************** ! AGRID/BGRID contain the G.P. no's (actual/internal) for points that the elem connects to (not for the v vector) - + CALL GET_ELEM_AGRID_BGRID ( INT_ELEM_ID, 'Y' ) ! ELDOF are the number of DOF's for this elem @@ -171,8 +171,8 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) DO I=1,MELGP+1 DO J=1,3 XEB(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,ELGP XEB(I,1) = RGRID(BGRID(I),1) XEB(I,2) = RGRID(BGRID(I),2) @@ -214,9 +214,9 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) VV(J) = ZERO ENDDO IF ((TYPE == 'BAR ') .OR. (TYPE == 'BEAM ') .OR. (TYPE == 'BUSH ') .OR. (TYPE == 'USER1 ')) THEN - + VVEC_FLAG = 0 - IF ((TYPE == 'BAR ') .OR. (TYPE == 'BEAM ')) THEN + IF ((TYPE == 'BAR ') .OR. (TYPE == 'BEAM ')) THEN VVEC_FLAG = EDAT(EPNTK+4) ELSE IF (TYPE == 'USER1 ') THEN VVEC_FLAG = EDAT(EPNTK+6) @@ -224,7 +224,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) VVEC_FLAG = EDAT(EPNTK+5) BUSH_VVEC = VVEC_FLAG ! BUSH_VVEC is in module MODEL_STUF and is used in subr ELMGM1_BUSH !xx ACID = BUSH_CID - IF (BUSH_CID >= 0) THEN ! CID >= 0 for BUSH means VVEC is defined by coord sys in BUSH_CID + IF (BUSH_CID >= 0) THEN ! CID >= 0 for BUSH means VVEC is defined by coord sys in BUSH_CID GET_VVEC = 'N' ENDIF ENDIF @@ -250,19 +250,19 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) IF (BGRID(1) /= -1) THEN ! If grid not defined an error was set in subr GET_ELEM_AGRID_BGRID ACID = GRID(BGRID(1),3) ! Global coord sys ID - IVVEC = -VVEC_FLAG + IVVEC = -VVEC_FLAG IF (ACID /= 0) THEN ! Need to transform V vector to basic coords DO I=1,NCORD IF (ACID == CORD(I,2)) THEN ! ACID global coord system exists. It was checked in CORDP_PROC ICID = I EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( BGRID(1), ICID, THETAD, PHID, T0G ) DO J=1,3 - VV(J) = T0G(J,1)*VVEC(IVVEC,1) + T0G(J,2)*VVEC(IVVEC,2) + T0G(J,3)*VVEC(IVVEC,3) - ENDDO + VV(J) = T0G(J,1)*VVEC(IVVEC,1) + T0G(J,2)*VVEC(IVVEC,2) + T0G(J,3)*VVEC(IVVEC,3) + ENDDO DO J=1,3 XEB(ELGP+1,J) = XEB(1,J) + VV(J) ! Basic coords at end of V vector ENDDO @@ -271,7 +271,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) DO J=1,3 XEB(ELGP+1,J) = XEB(1,J) + VVEC(IVVEC,J) - ENDDO + ENDDO ENDIF @@ -283,14 +283,14 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) IF (TYPE == 'BUSH ') THEN ! vvec and CID not spec for BUSH so need to test EPROP later BUSH_VVEC_OR_CID = 'N' ! (NOTE: already made sure CID was defined if GA, GB coincident) - ENDIF + ENDIF ENDIF ENDIF ENDIF - + IF ((TYPE == 'BUSH ') .AND. (DEBUG(110) > 0)) THEN write(f06,*) ' ===================================================================' write(f06,*) ' DEBUG(110) for subr DEBUG_ELMDAT1_FOR_BUSH needs rewrite 2021-08-28' @@ -308,7 +308,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) FATAL_ERR = FATAL_ERR + 1 ENDIF ENDIF - + ! ********************************************************************************************************************************** ! For BUSH, get coord systems @@ -323,17 +323,17 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) DO I=1,MEPROP EPROP(I) = ZERO - ENDDO + ENDDO IF (TYPE == 'BAR ') THEN DO I=1,MRPBAR EPROP(I) = RPBAR(INTL_PID,I) - ENDDO + ENDDO ELSE IF (TYPE == 'BEAM ') THEN DO I=1,MRPBEAM EPROP(I) = RPBEAM(INTL_PID,I) - ENDDO + ENDDO ELSE IF (TYPE == 'BUSH ') THEN DO I=1,MRPBUSH @@ -351,22 +351,22 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) FATAL_ERR = FATAL_ERR + 1 ENDIF ENDIF - ENDDO + ENDDO ELSE IF (TYPE(1:4) == 'ELAS') THEN DO I=1,MRPELAS EPROP(I) = RPELAS(INTL_PID,I) - ENDDO + ENDDO ELSE IF (TYPE == 'ROD ') THEN DO I=1,MRPROD EPROP(I) = RPROD(INTL_PID,I) - ENDDO + ENDDO ELSE IF (TYPE == 'SHEAR ') THEN DO I=1,MRPSHEAR EPROP(I) = RPSHEAR(INTL_PID,I) - ENDDO + ENDDO ELSE IF ((TYPE(1:5) == 'TRIA3') .OR. (TYPE(1:5) == 'QUAD4') .OR. (TYPE(1:5) == 'QUAD8')) THEN @@ -447,7 +447,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) ELSE IF (TYPE(1:5) == 'QUAD8') THEN DELTA = DEDAT_Q8_THICK_KEY ENDIF - + IF (EDAT(EPNTK+DELTA) > 0) THEN ! Membrane thickness was defined as grid thicknesses on connection entry IPNTR = EDAT(EPNTK+DELTA) DO I=1,ELGP @@ -480,7 +480,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) ELSE IF (TYPE == 'USER1 ') THEN DO I=1,MRPUSER1 EPROP(I) = RPUSER1(INTL_PID,I) - ENDDO + ENDDO ENDIF @@ -599,12 +599,12 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) DO I=1,MEMATR DO J=1,MEMATC EMAT(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,MEMATC MTRL_TYPE(I) = 0 - ENDDO + ENDDO IF (TYPE == 'BAR ') THEN @@ -702,7 +702,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) ENDIF ENDIF ENDDO - ! Density is not allowed in case it's used for + ! Density is not allowed in case it's used for ! gravity which doesn't currently work. IF(RMATL(INTL_MID(1),4) /= ZERO) THEN WRITE(ERR,*) ' *ERROR: MAT1 DENSITY MUST BE 0.0 OR BLANK FOR QUAD8' @@ -756,7 +756,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) IF (INTL_MID(J) /= 0) THEN EMAT(I,J) = RMATL(INTL_MID(J),I) ENDIF - ENDDO + ENDDO ENDDO ENDIF @@ -787,7 +787,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) DO I=1,ELDOF DOFPIN(I) = 0 - ENDDO + ENDDO ! Process pin flag data in EDAT @@ -820,7 +820,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) DOFPIN(NFLAG) = IREM + 6*(I-1) ENDIF ENDDO - ENDDO + ENDDO IF ((DEBUG(9) > 0) .AND. (NFLAG > 0)) THEN WRITE(F06,*) 'In ELMDAT1: DOFPIN for ',type,eid,' is = ',(dofpin(i),i=1,nflag) WRITE(F06,*) @@ -844,8 +844,8 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) DO I=1,ELGP DO J=1,3 OFFDIS(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO IF ((TYPE == 'BAR ') .OR. (TYPE == 'BEAM ')) THEN @@ -879,7 +879,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) ELSE EOFF(INT_ELEM_ID) = 'N' ! No axis, no OCID, no offset. END IF - ELSE + ELSE ! Offsets are 3 dimensional and we can't get OFFDIS for grid GB yet EOFF(INT_ELEM_ID) = 'Y' ! is required since we can't use GA-GB (OCID=-1) @@ -974,8 +974,8 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) DO I=1,ELGP OFFSET(I) = 'N' - ENDDO - + ENDDO + DO I=1,ELGP DXI = DABS(OFFDIS(I,1)) DYI = DABS(OFFDIS(I,2)) @@ -994,7 +994,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) DO I=1,2 ELAS_COMP(I) = 0 - ENDDO + ENDDO IERROR = 0 DO I=1,2 ! If displ comps on CELAS1,2 entry were blank or 0, change to 1,2 @@ -1010,7 +1010,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) ELSE ELAS_COMP(I) = 1 ENDIF - ENDIF + ENDIF ENDDO IF (IERROR > 0) THEN CALL OUTA_HERE ( 'Y' ) @@ -1042,7 +1042,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) USERIN_MASS_MAT_NAME = USERIN_MAT_NAMES(INTL_PID,2) USERIN_LOAD_MAT_NAME = USERIN_MAT_NAMES(INTL_PID,3) USERIN_RBM0_MAT_NAME = USERIN_MAT_NAMES(INTL_PID,4) - ! Calc array of grid num, comp num for the DOF's that elem connects to + ! Calc array of grid num, comp num for the DOF's that elem connects to CALL DEALLOCATE_MODEL_STUF ( 'USERIN_ACT_GRDS, USERIN_ACT_COMPS' ) CALL ALLOCATE_MODEL_STUF ( 'USERIN_ACT_GRDS, USERIN_ACT_COMPS', SUBR_NAME ) DO I=1,USERIN_NUM_ACT_GRDS @@ -1059,7 +1059,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) ! ********************************************************************************************************************************** 1822 FORMAT(' *ERROR 1822: ',A,I8,' ON ',A,I8,' IS UNDEFINED') - 1900 FORMAT(' *ERROR 1900: GRID ',I8,' ON ELEMENT ',I8,' TYPE ',A,' NOT DEFINED') + 1900 FORMAT(' *ERROR 1900: GRID ',I8,' ON ELEMENT ',I8,' TYPE ',A,' NOT DEFINED') 1901 FORMAT(' *ERROR 1901: A PIN FLAG ON ELEMENT ',I8,' TYPE ',A,' IS < 0 OR > 6') @@ -1073,7 +1073,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) 1945 FORMAT(' *ERROR 1945: ',A,' ELEMENT ',I8,' HAS OFFSET ZOFFS = ',1ES9.2,' SPECIFIED. HOWEVER, IT HAS PROPERTIES DEFINED ON', & ' PCOMP ',I8,'.' & - ,/,14X,' ZOFFS CANNOT BE USED FOR SHELL ELEMENTS WITH PCOMP PROPERTIES. USE THE Z0 OPTION ON THE PCOMP') + ,/,14X,' ZOFFS CANNOT BE USED FOR SHELL ELEMENTS WITH PCOMP PROPERTIES. USE THE Z0 OPTION ON THE PCOMP') 1949 FORMAT(' *ERROR 1949: MEMBRANE THICKNESS FOR ',A,I8,' = ',1ES9.2,'. CHECK TM ON PSHELL OR Ti ON CONNECTION ENTRY TO MAKE' & ,/,14X,' SURE THAT ELEM AVG THICKNESS IS > 0') @@ -1112,9 +1112,9 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) 99978 format(' Element grid thicknesses for ',a,i8,' (pointer, avg thickness, grid thicknesses)',/,i8,20(1es14.6)) ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE DEBUG_ELMDAT1_FOR_BUSH diff --git a/Source/EMG/EMG1/ELMDAT2.f90 b/Source/EMG/EMG1/ELMDAT2.f90 index eb04be2b..bc3b0efc 100644 --- a/Source/EMG/EMG1/ELMDAT2.f90 +++ b/Source/EMG/EMG1/ELMDAT2.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ELMDAT2 ( INT_ELEM_ID, OPT, WRITE_WARN ) @@ -30,10 +30,10 @@ SUBROUTINE ELMDAT2 ( INT_ELEM_ID, OPT, WRITE_WARN ) ! Generates small arrays of elem data, for use by subroutine EMG, one elem at a time for all elems. Arrays generated are: ! DT (1 elem temperatures) and PRESS (1 element pressure load) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : WRT_ERR - USE SCONTR, ONLY : BLNK_SUB_NAM, LPDAT, MPRESS, MDT, MTDAT_TEMPRB, NSUB, NTSUB + USE SCONTR, ONLY : BLNK_SUB_NAM, LPDAT, MPRESS, MDT, MTDAT_TEMPRB, NSUB, NTSUB USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, QUARTER, THIRD USE MODEL_STUF, ONLY : BGRID, DT, ELGP, ETYPE, GTEMP, PDATA, PPNT, PTYPE, PRESS, TDATA, TPNT, TYPE @@ -73,7 +73,7 @@ SUBROUTINE ELMDAT2 ( INT_ELEM_ID, OPT, WRITE_WARN ) DO J=1,NTSUB DT(I,J) = ZERO ENDDO - ENDDO + ENDDO IF (NTSUB > 0) THEN @@ -86,33 +86,33 @@ SUBROUTINE ELMDAT2 ( INT_ELEM_ID, OPT, WRITE_WARN ) IF ((TYPE == 'ROD ') .OR. (TYPE == 'BAR ') .OR. (TYPE == 'BEAM ') .OR. (TYPE == 'USER1 ')) THEN DO I=1,MTDAT_TEMPRB DT(I,J) = TDATA(ITPN-1+I) - ENDDO - ELSE + ENDDO + ELSE DO I=1,ELGP DT(I,J) = TDATA(ITPN) - ENDDO + ENDDO DT(ELGP+1,J) = TDATA(ITPN+1) ENDIF ELSE ! Temperatures are on grid cards - DO I=1,ELGP - DT(I,J) = GTEMP(BGRID(I),J) - ENDDO + DO I=1,ELGP + DT(I,J) = GTEMP(BGRID(I),J) + ENDDO ENDIF - ENDDO + ENDDO ENDIF ENDIF ENDIF - + ! ********************************************************************************************************************************** ! Generate PRESS pressure array for this element if OPT(5) says to. The pressure data was on elem pressure B.D. cards and -! has been transferred to arrays PPNT, PDATA by an earlier subr (PRESSURE_DATA_PROC) +! has been transferred to arrays PPNT, PDATA by an earlier subr (PRESSURE_DATA_PROC) IF (OPT(5) == 'Y') THEN @@ -122,7 +122,7 @@ SUBROUTINE ELMDAT2 ( INT_ELEM_ID, OPT, WRITE_WARN ) DO J=1,NSUB PRESS(I,J) = ZERO ENDDO - ENDDO + ENDDO IF ((TYPE(1:5) == 'TRIA3') .OR. (TYPE(1:5) == 'QUAD4')) THEN @@ -181,7 +181,7 @@ SUBROUTINE ELMDAT2 ( INT_ELEM_ID, OPT, WRITE_WARN ) ENDIF - ENDIF + ENDIF diff --git a/Source/EMG/EMG1/ELMGM1.f90 b/Source/EMG/EMG1/ELMGM1.f90 index 327e7f5d..5d2c94c7 100644 --- a/Source/EMG/EMG1/ELMGM1.f90 +++ b/Source/EMG/EMG1/ELMGM1.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ELMGM1 ( INT_ELEM_ID, WRITE_WARN ) - + ! Calculates and checks some elem geometry for ROD, BAR, BEAM, triangles and provides a transformation matrix (TE) to transform the ! element stiffness matrix in the element system to the basic coordinate system. Calculates grid point coords in local coord system. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, MELGP, MOFFSET, NCORD, FATAL_ERR @@ -38,11 +38,11 @@ SUBROUTINE ELMGM1 ( INT_ELEM_ID, WRITE_WARN ) USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : BGRID, CAN_ELEM_TYPE_OFFSET, CORD, EID, ELEM_LEN_12, ELEM_LEN_AB, ELGP,NUM_EMG_FATAL_ERRS,& EOFF, GRID, OFFDIS, OFFDIS_O, OFFDIS_B, OFFDIS_G, RCORD, TE, TE_IDENT, TYPE, XEB, XEL - + USE ELMGM1_USE_IFs IMPLICIT NONE - + CHARACTER( 1*BYTE) :: ID(3) ! Used in deciding whether TE_IDENT = 'Y' or 'N' CHARACTER( 5*BYTE) :: SORT_ORDER ! Order in which the VX(i) have been sorted in subr CALC_VEC_SORT_ORDER CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELMGM1' @@ -53,15 +53,15 @@ SUBROUTINE ELMGM1 ( INT_ELEM_ID, WRITE_WARN ) INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID for which INTEGER(LONG) :: ACID_G ! Actual coordinate system ID INTEGER(LONG) :: I,J,K ! DO loop indices - INTEGER(LONG) :: I3_IN(3) ! Integer array used in sorting VX. + INTEGER(LONG) :: I3_IN(3) ! Integer array used in sorting VX. INTEGER(LONG) :: I3_OUT(3) ! Integer array giving order of VX comps. If VX is in the order with -! comp 2 smallest then comp 3 then comp 1 then I3_OUT is 2, 3, 1 +! comp 2 smallest then comp 3 then comp 1 then I3_OUT is 2, 3, 1 - INTEGER(LONG) :: ICID ! Internal coord sys no. corresponding to an actual coord sys no. + INTEGER(LONG) :: ICID ! Internal coord sys no. corresponding to an actual coord sys no. INTEGER(LONG) :: ROWNUM ! A row number in an array - + REAL(DOUBLE) :: DX1(3) ! Array used in intermediate calc's REAL(DOUBLE) :: DX2(3) ! Array used in intermediate calc's REAL(DOUBLE) :: EPS1 ! A small number to compare to real zero @@ -69,33 +69,33 @@ SUBROUTINE ELMGM1 ( INT_ELEM_ID, WRITE_WARN ) REAL(DOUBLE) :: MAGY ! Magnitude of vector VY REAL(DOUBLE) :: MAGZ ! Magnitude of vector VZ REAL(DOUBLE) :: PHID, THETAD ! Outputs from subr GEN_T0L - REAL(DOUBLE) :: T0G(3,3) ! Matrix to transform offsets from global to basic coords - REAL(DOUBLE) :: TG0(3,3) ! Matrix to transform offsets from basic to global coords - REAL(DOUBLE) :: TET(3,3) ! Transpose of TE: UEL = TE*UEB + REAL(DOUBLE) :: T0G(3,3) ! Matrix to transform offsets from global to basic coords + REAL(DOUBLE) :: TG0(3,3) ! Matrix to transform offsets from basic to global coords + REAL(DOUBLE) :: TET(3,3) ! Transpose of TE: UEL = TE*UEB REAL(DOUBLE) :: VX(3) ! A vector in the elem x dir REAL(DOUBLE) :: VY(3) ! A vector in the elem y dir REAL(DOUBLE) :: VZ(3) ! A vector in the elem z dir REAL(DOUBLE) :: V13(3) ! A vector from grid 1 to grid 3 (for BAR, BEAM or USER1 it is V vector) - + ! ********************************************************************************************************************************** EPS1 = EPSIL(1) - + ! Initialize - + DO I=1,MELGP DO J=1,3 XEL(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + DO I=1,3 DO J=1,3 TE(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + DO I=1,3 VX(I) = ZERO ENDDO @@ -136,16 +136,16 @@ SUBROUTINE ELMGM1 ( INT_ELEM_ID, WRITE_WARN ) ICID = J EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( BGRID(I), ICID, THETAD, PHID, T0G ) DO J=1,3 - OFFDIS_B(I,J) = T0G(J,1)*OFFDIS(I,1) + T0G(J,2)*OFFDIS(I,2) + T0G(J,3)*OFFDIS(I,3) - ENDDO + OFFDIS_B(I,J) = T0G(J,1)*OFFDIS(I,1) + T0G(J,2)*OFFDIS(I,2) + T0G(J,3)*OFFDIS(I,3) + ENDDO ELSE ! Offset was in basic coords DO J=1,3 OFFDIS_B(I,J) = OFFDIS(I,J) - ENDDO + ENDDO ENDIF ENDDO ELSE ! There are no offsets so set OFFDIS_B to zero @@ -154,12 +154,12 @@ SUBROUTINE ELMGM1 ( INT_ELEM_ID, WRITE_WARN ) OFFDIS_B(I,J) = ZERO ENDDO ENDDO - ENDIF - + ENDIF + ENDIF ! ---------------------------------------------------------------------------------------------------------------------------------- -! Calculate a vector between ends of the element in basic coords (not between grids if there are offsets). +! Calculate a vector between ends of the element in basic coords (not between grids if there are offsets). IF ((TYPE == 'BAR ') .OR. (TYPE == 'BEAM ') .OR. (TYPE == 'ROD ')) THEN VX(1) = ( XEB(2,1) + OFFDIS_B(2,1) ) - ( XEB(1,1) + OFFDIS_B(1,1) ) @@ -261,7 +261,7 @@ SUBROUTINE ELMGM1 ( INT_ELEM_ID, WRITE_WARN ) ELSE ID(I) = 'N' ENDIF - ENDDO + ENDDO IF ((ID(1) == 'Y') .AND. (ID(2) == 'Y') .AND. (ID(3) == 'Y')) THEN TE_IDENT = 'Y' ENDIF @@ -270,23 +270,23 @@ SUBROUTINE ELMGM1 ( INT_ELEM_ID, WRITE_WARN ) ! ---------------------------------------------------------------------------------------------------------------------------------- ! Calculate remainder of TE for elements other than ROD - + ! Calculate V13, vector from G.P.-1 to G.P.-3. For BAR, BEAM, BUDH, USER1 the V13 vector is the v vector = XEB(ELGP+1,i) - + begn: IF (TYPE /= 'ROD ') THEN - + IF ((TYPE == 'BAR ') .OR. (TYPE == 'BEAM ') .OR. (TYPE == 'USER1 ')) THEN ROWNUM = ELGP + 1 - ELSE + ELSE ROWNUM = 3 ENDIF - DO I=1,3 + DO I=1,3 V13(I) = XEB(ROWNUM,I) - XEB(1,I) - ENDDO - + ENDDO + ! Calculate VX x V13 and unit vector in elem z dir. (Col. 3 of TE). If MAGZ is equal to zero, then vector from G.P. 1 ! to G.P. 3 is parallel to vector from G.P.-1 to G.P.-2 so write error and quit. - + CALL CROSS ( VX, V13, VZ ) MAGZ = DSQRT(VZ(1)*VZ(1) + VZ(2)*VZ(2) + VZ(3)*VZ(3)) IF (MAGZ <= EPS1) THEN @@ -319,8 +319,8 @@ SUBROUTINE ELMGM1 ( INT_ELEM_ID, WRITE_WARN ) ENDIF DO I=1,3 TE(2,I) = VY(I)/MAGY - ENDDO - ! Now set TE_IDENT to be 'Y' if TE is an identity matrix. + ENDDO + ! Now set TE_IDENT to be 'Y' if TE is an identity matrix. TE_IDENT = 'N' DO I=1,3 ID(I) = 'N' @@ -331,30 +331,30 @@ SUBROUTINE ELMGM1 ( INT_ELEM_ID, WRITE_WARN ) ELSE ID(I) = 'N' ENDIF - ENDDO + ENDDO IF ((ID(1) == 'Y') .AND. (ID(2) == 'Y') .AND. (ID(3) == 'Y')) THEN TE_IDENT = 'Y' ENDIF - + ENDIF begn ! ---------------------------------------------------------------------------------------------------------------------------------- ! Use TE to get array of elem coords in local system. - + XEL(1,1) = ZERO XEL(1,2) = ZERO XEL(1,3) = ZERO - + DO I=2,ELGP DO J=1,3 XEL(I,J) = ZERO DO K=1,3 XEL(I,J) = XEL(I,J) + (XEB(I,K) - XEB(1,K))*TE(J,K) - ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + ENDDO + RETURN @@ -375,7 +375,7 @@ SUBROUTINE ELMGM1 ( INT_ELEM_ID, WRITE_WARN ) ,/,14X,' THE VECTOR COMPONENTS CALCULATED WERE ',3(1ES14.6)) 1944 FORMAT(' *ERROR 1944: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' THE VX VECTOR FOR ',A,' ELEMENT ',I8,' WAS LEFT UNSORTED. IT MUST BE SORTED TO DETERMINE VY, VZ') + ,/,14X,' THE VX VECTOR FOR ',A,' ELEMENT ',I8,' WAS LEFT UNSORTED. IT MUST BE SORTED TO DETERMINE VY, VZ') 1954 FORMAT(' *ERROR 1954: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' DIMENSION OF ARRAYS OFFDIS, OFFSET ARE ONLY ',I8,' BUT MUST BE ',I8,' FOR ELEM TYPE ',A) diff --git a/Source/EMG/EMG1/ELMGM1_BUSH.f90 b/Source/EMG/EMG1/ELMGM1_BUSH.f90 index e2fdd67e..982dfd3e 100644 --- a/Source/EMG/EMG1/ELMGM1_BUSH.f90 +++ b/Source/EMG/EMG1/ELMGM1_BUSH.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) - + ! Calculates and checks some elem geometry for ROD, BAR, BEAM, triangles and provides a transformation matrix (TE) to transform the ! element stiffness matrix in the element system to the basic coordinate system. Calculates grid point coords in local coord system. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, MELGP, MOFFSET, NCORD, FATAL_ERR @@ -39,11 +39,11 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) USE MODEL_STUF, ONLY : BGRID, BUSH_CID, BUSH_OCID, BUSH_VVEC, CAN_ELEM_TYPE_OFFSET, CORD, EID, ELEM_LEN_12, & ELEM_LEN_AB, ELGP, EOFF, GRID, NUM_EMG_FATAL_ERRS, OFFDIS, OFFDIS_L, OFFDIS_O, OFFDIS_B, & OFFDIS_G, OFFDIS_GA_GB, RCORD, TE, TE_GA_GB, TE_IDENT, TYPE, XEB, XEL - + USE ELMGM1_BUSH_USE_IFs IMPLICIT NONE - + CHARACTER( 1*BYTE) :: ID(3) ! Used in deciding whether TE_IDENT = 'Y' or 'N' CHARACTER( 5*BYTE) :: SORT_ORDER ! Order in which the VX(i) have been sorted in subr CALC_VEC_SORT_ORDER CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELMGM1_BUSH' @@ -54,15 +54,15 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID for which INTEGER(LONG) :: ACID_G ! Actual coordinate system ID INTEGER(LONG) :: I,J,K ! DO loop indices - INTEGER(LONG) :: I3_IN(3) ! Integer array used in sorting VX. + INTEGER(LONG) :: I3_IN(3) ! Integer array used in sorting VX. INTEGER(LONG) :: I3_OUT(3) ! Integer array giving order of VX comps. If VX is in the order with -! comp 2 smallest then comp 3 then comp 1 then I3_OUT is 2, 3, 1 +! comp 2 smallest then comp 3 then comp 1 then I3_OUT is 2, 3, 1 - INTEGER(LONG) :: ICID ! Internal coord sys no. corresponding to an actual coord sys no. + INTEGER(LONG) :: ICID ! Internal coord sys no. corresponding to an actual coord sys no. INTEGER(LONG) :: ROWNUM ! A row number in an array - + REAL(DOUBLE) :: DX1(3) ! Array used in intermediate calc's REAL(DOUBLE) :: DX2(3) ! Array used in intermediate calc's REAL(DOUBLE) :: EPS1 ! A small number to compare to real zero @@ -71,10 +71,10 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) REAL(DOUBLE) :: MAGZ ! Magnitude of vector VZ REAL(DOUBLE) :: PHID, THETAD ! Outputs from subr GEN_T0L REAL(DOUBLE) :: TET_GA_GB(3,3) ! Transpose of TE_GA_GB - REAL(DOUBLE) :: T0G(3,3) ! Matrix to transform offsets from global to basic coords - REAL(DOUBLE) :: TG0(3,3) ! Matrix to transform offsets from basic to global coords - REAL(DOUBLE) :: T0I(3,3) ! Matrix to transform offsets from BUSH OCID to basic coords - REAL(DOUBLE) :: TET(3,3) ! Transpose of TE: UEL = TE*UEB + REAL(DOUBLE) :: T0G(3,3) ! Matrix to transform offsets from global to basic coords + REAL(DOUBLE) :: TG0(3,3) ! Matrix to transform offsets from basic to global coords + REAL(DOUBLE) :: T0I(3,3) ! Matrix to transform offsets from BUSH OCID to basic coords + REAL(DOUBLE) :: TET(3,3) ! Transpose of TE: UEL = TE*UEB REAL(DOUBLE) :: VX(3) ! A vector in the elem x dir REAL(DOUBLE) :: VY(3) ! A vector in the elem y dir REAL(DOUBLE) :: VZ(3) ! A vector in the elem z dir @@ -85,21 +85,21 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ! ********************************************************************************************************************************** EPS1 = EPSIL(1) - + ! Initialize - + DO I=1,MELGP DO J=1,3 XEL(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + DO I=1,3 DO J=1,3 TE(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + DO I=1,3 VX(I) = ZERO ENDDO @@ -136,7 +136,7 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ICID = J EXIT ENDIF - ENDDO + ENDDO IF (CORD_FND == 'Y') THEN ! NOTE: This BUSH TE transforms a vector in BUSH_CID to basic TET(1,1) = RCORD(ICID, 4) ; TET(1,2) = RCORD(ICID, 5) ; TET(1,3) = RCORD(ICID, 6) @@ -174,9 +174,9 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) DO I=1,3 TE(1,I) = VX(I)/ELEM_LEN_12 ! For BUSH use length bet 2 grids since length bet elem ends is zero ENDDO - DO I=1,3 + DO I=1,3 V13(I) = XEB(ELGP+1,I) - XEB(1,I) - ENDDO + ENDDO CALL CROSS ( VX, V13, VZ ) MAGZ = DSQRT(VZ(1)*VZ(1) + VZ(2)*VZ(2) + VZ(3)*VZ(3)) IF (MAGZ <= EPS1) THEN @@ -201,9 +201,9 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ENDIF DO I=1,3 TE(2,I) = VY(I)/MAGY - ENDDO + ENDDO - ELSE IF (BUSH_VVEC == 0) THEN ! No v-vec or CID specified for BUSH elem so elem x axis is GA->GB + ELSE IF (BUSH_VVEC == 0) THEN ! No v-vec or CID specified for BUSH elem so elem x axis is GA->GB ! -- VX(1) = XEB(2,1) - XEB(1,1) VX(2) = XEB(2,2) - XEB(1,2) @@ -213,7 +213,7 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) TE(1,I) = VX(I)/ELEM_LEN_12 ENDDO - DO I=1,3 + DO I=1,3 I3_IN(I) = I I3_OUT(I) = I3_IN(I) ENDDO @@ -275,7 +275,7 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ELSE ID(I) = 'N' ENDIF - ENDDO + ENDDO IF ((ID(1) == 'Y') .AND. (ID(2) == 'Y') .AND. (ID(3) == 'Y')) THEN TE_IDENT = 'Y' ENDIF @@ -283,20 +283,20 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ! ---------------------------------------------------------------------------------------------------------------------------------- ! Use TE to get array of elem coords in local system. - + XEL(1,1) = ZERO XEL(1,2) = ZERO XEL(1,3) = ZERO - + DO I=2,ELGP DO J=1,3 XEL(I,J) = ZERO DO K=1,3 XEL(I,J) = XEL(I,J) + (XEB(I,K) - XEB(1,K))*TE(J,K) - ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + ENDDO + DO I=1,3 DO J=1,3 TET(I,J) = TE(J,I) @@ -305,31 +305,31 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ! ---------------------------------------------------------------------------------------------------------------------------------- ! Use TE to get array of elem coords in local system. - + XEL(1,1) = ZERO XEL(1,2) = ZERO XEL(1,3) = ZERO - + DO I=2,ELGP DO J=1,3 XEL(I,J) = ZERO DO K=1,3 XEL(I,J) = XEL(I,J) + (XEB(I,K) - XEB(1,K))*TE(J,K) - ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + ENDDO + ! ---------------------------------------------------------------------------------------------------------------------------------- ! Calculate a coord transformation matrix, TE_GA_GB, that will transform a vector whose x axis is along the GA-GB axis to basic: ! This will be used for only the x axis when the BUSH offset is along the line GA-GB in order to specify the offsets whenever ! BUSH_OCID is -1 (default) or blank. The other y and z aves of TE_GA_GB don't matter except thet they be normal to x. So use the -! procedure outlined in "Some Basic Vector Operations In IDL" (below) to find the y and z axes of TE_GA_GB +! procedure outlined in "Some Basic Vector Operations In IDL" (below) to find the y and z axes of TE_GA_GB ! This needs to be done if GA and GB are not coincident but also this coord transformation is used in calculating element forces ! from nodal loads (i.e. in subr OFP3_ELFE_1D) IF (ELEM_LEN_12 > .0001D0) THEN - VX(1) = XEB(2,1) - XEB(1,1) ! Unit vector in element X direction + VX(1) = XEB(2,1) - XEB(1,1) ! Unit vector in element X direction VX(2) = XEB(2,2) - XEB(1,2) VX(3) = XEB(2,3) - XEB(1,3) @@ -383,7 +383,7 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) DO I=1,3 TE_GA_GB(3,I) = VZ(I)/MAGZ ! Row 3 of TE_GA_GB - ENDDO ! ----------------- + ENDDO ! ----------------- DO I=1,3 ! Transpose of TE_GA_GB DO J=1,3 @@ -396,7 +396,7 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ! ---------------------------------------------------------------------------------------------------------------------------------- ! Offsets for BUSH are specified in a unique coord system. It may or may not be basic or global. So we first transform the input -! offset values to basic and then transform them to global. This way, when we process the offsets in subr ELEM_TRANSFORM_LBG, +! offset values to basic and then transform them to global. This way, when we process the offsets in subr ELEM_TRANSFORM_LBG, ! we can treat the final offset values for the BUSH the same as we do for BAR, BEAM or ROD. ! The coord system for BUSH offsets is BUSH_OCID which can be: ! (1) -1 means offset lies on the line between GA and GB, or @@ -421,11 +421,11 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ICID = J EXIT ENDIF - ENDDO + ENDDO IF (CORD_FND == 'Y') THEN CALL GEN_T0L ( BGRID(1), ICID, THETAD, PHID, T0I ) DO J=1,3 - OFFDIS_B(1,J) = T0I(J,1)*OFFDIS_O(1,1) + T0I(J,2)*OFFDIS_O(1,2) + T0I(J,3)*OFFDIS_O(1,3) + OFFDIS_B(1,J) = T0I(J,1)*OFFDIS_O(1,1) + T0I(J,2)*OFFDIS_O(1,2) + T0I(J,3)*OFFDIS_O(1,3) ENDDO write(f06,*) ELSE @@ -464,7 +464,7 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ENDIF -! Now that we have the offsets at grid 1 in basic coords we can calc offset values for grid 2 and then transform offsets to global. +! Now that we have the offsets at grid 1 in basic coords we can calc offset values for grid 2 and then transform offsets to global. IF (EOFF(INT_ELEM_ID) == 'Y') THEN @@ -486,7 +486,7 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ICID = J EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( BGRID(I), ICID, THETAD, PHID, T0G ) DO J=1,3 ! We want transpose of T0G since we are transforming from basic to global DO K=1,3 @@ -494,12 +494,12 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ENDDO ENDDO DO J=1,3 - OFFDIS_G(I,J) = TG0(J,1)*OFFDIS_B(I,1) + TG0(J,2)*OFFDIS_B(I,2) + TG0(J,3)*OFFDIS_B(I,3) - ENDDO + OFFDIS_G(I,J) = TG0(J,1)*OFFDIS_B(I,1) + TG0(J,2)*OFFDIS_B(I,2) + TG0(J,3)*OFFDIS_B(I,3) + ENDDO ELSE ! Global was basic so no transformation of coords needed DO J=1,3 OFFDIS_G(I,J) = OFFDIS_B(I,J) - ENDDO + ENDDO ENDIF ENDDO @@ -517,7 +517,7 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ENDDO ENDDO - ENDIF + ENDIF ! Calculate offsets in local, CID, axes @@ -556,9 +556,9 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) - - + + ! ---------------------------------------------------------------------------------------------------------------------------------- LX(1) = ( XEB(2,1) + OFFDIS_B(2,1) ) - ( XEB(1,1) + OFFDIS_B(1,1) ) LX(2) = ( XEB(2,2) + OFFDIS_B(2,2) ) - ( XEB(1,2) + OFFDIS_B(1,2) ) @@ -596,7 +596,7 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ,/,14X,' THE VECTOR COMPONENTS CALCULATED WERE ',3(1ES14.6)) 1944 FORMAT(' *ERROR 1944: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' THE VX VECTOR FOR ',A,' ELEMENT ',I8,' WAS LEFT UNSORTED. IT MUST BE SORTED TO DETERMINE VY, VZ') + ,/,14X,' THE VX VECTOR FOR ',A,' ELEMENT ',I8,' WAS LEFT UNSORTED. IT MUST BE SORTED TO DETERMINE VY, VZ') 1954 FORMAT(' *ERROR 1954: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' DIMENSION OF ARRAYS OFFDIS, OFFSET ARE ONLY ',I8,' BUT MUST BE ',I8,' FOR ELEM TYPE ',A) @@ -609,11 +609,11 @@ SUBROUTINE ELMGM1_BUSH ( INT_ELEM_ID, WRITE_WARN ) ! ********************************************************************************************************************************** - + ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE DEBUG_ELMGM1_FOR_BUSH diff --git a/Source/EMG/EMG1/ELMGM2.f90 b/Source/EMG/EMG1/ELMGM2.f90 index 0e6ad833..2658f4fa 100644 --- a/Source/EMG/EMG1/ELMGM2.f90 +++ b/Source/EMG/EMG1/ELMGM2.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ELMGM2 ( WRITE_WARN ) - + ! Calcs and checks elem geometry for quad elems and provides a transformation matrix ( TE ) to transfer the elem stiffness matrix ! in the elem system to the basic coordinate system. Calculates grid point coords in local coord system. ! To define the elem coordinate system, a mean plane is defined which lies midway between the grid points (HBAR is mean dist). ! The elem z direction is in the direction of the cross product of the diagonals (V13 x V24). Initially, the x axis is along ! side 1-2 of the elem projection onto the mean plane. For elems thet are not rectangular, the x,y axes are rotated such that x ! splits the angle between the diagonals. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, ERR, F06, WRT_BUG, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, MEFE, MEWE, MELGP, FATAL_ERR, WARN_ERR @@ -94,7 +94,7 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) REAL(DOUBLE) :: Y4 ! REAL(DOUBLE) :: Y34 ! (Y3 - Y4) in elem mean plane in local elem coords REAL(DOUBLE) :: VAR(15) ! Variables for BUG output purposes - + INTRINSIC :: DABS @@ -104,23 +104,23 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) EPS4 = EPSIL(4) ! Initialize XEL to zero - + DO I=1,MELGP DO J=1,3 XEL(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO ! ********************************************************************************************************************************** ! Calculate elem z direction from cross products of diagonals - + ! Generate vectors from G.P 1 to G.P 3 and from G.P. 2 to G.P. 4 (diagonals) - + DO I=1,3 V13B(I) = XEB(3,I) - XEB(1,I) V24B(I) = XEB(4,I) - XEB(2,I) - ENDDO - + ENDDO + CALL CROSS ( V13B, V24B, KVEC ) MAGK = DSQRT(KVEC(1)*KVEC(1) + KVEC(2)*KVEC(2) + KVEC(3)*KVEC(3)) @@ -142,28 +142,28 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) ENDIF ! Unit vector in elem local z direction is 3rd row of TE - + DO I=1,3 KVEC(I) = KVEC(I)/MAGK TE_12(3,I) = KVEC(I) - ENDDO - + ENDDO + ! ********************************************************************************************************************************** ! Calc initial elem x dir along side 1-2 of the elem projection onto the mean plane. DO I=1,3 V12B(I) = XEB(2,I) - XEB(1,I) - ENDDO - + ENDDO + ! HBAR is one half of the projection of V12B in z direction - + HBAR = HALF*((V12B(1)*KVEC(1) + V12B(2)*KVEC(2) + V12B(3)*KVEC(3))) - + ! Now calculate initial x direction along side 1-2 of the elem projection onto the mean plane. - + DO I=1,3 IVEC(I) = V12B(I) - TWO*HBAR*KVEC(I) - ENDDO + ENDDO ! If initial MAGI = 0 then write error and quit. MAGI = DSQRT(IVEC(1)*IVEC(1) + IVEC(2)*IVEC(2) + IVEC(3)*IVEC(3)) @@ -191,7 +191,7 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) DO I=1,3 IVEC(I) = IVEC(I)/MAGI ! Unit vector along side 1-2 in the mean plane (NOT from G.P. 1-2) TE_12(1,I) = IVEC(I) - ENDDO + ENDDO ! ********************************************************************************************************************************** ! Calculate unit vector in initial elem. y direction (from KVEC x IVEC): @@ -219,12 +219,12 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) DO I=1,3 JVEC(I) = JVEC(I)/MAGJ TE_12(2,I) = JVEC(I) - ENDDO + ENDDO ! ********************************************************************************************************************************** ! Perform some geometry checks on the quad element -! First, calculate XEL coords of grids in local element coord system (relative to node 1) with local x along side 1-2. +! First, calculate XEL coords of grids in local element coord system (relative to node 1) with local x along side 1-2. XEL(1,1) = ZERO XEL(1,2) = ZERO @@ -233,15 +233,15 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) IF ((TYPE == 'QUAD8 ') .OR. & ((TYPE == 'QUAD4 ') .AND. ((QUAD4TYP == 'MITC4 ') .OR. (QUAD4TYP == 'MITC4+')))) THEN - ! The z coordinate of grid points in the + ! The z coordinate of grid points in the ! XEL element coordinate system can be non-zero if it's warped. DO I=2,ELGP DO J=1,3 XEL(I,J) = ZERO DO K=1,3 XEL(I,J) = XEL(I,J) + (XEB(I,K) - XEB(1,K))*TE_12(J,K) - ENDDO - ENDDO + ENDDO + ENDDO ENDDO ELSE @@ -255,28 +255,28 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) XEL(I,J) = ZERO DO K=1,3 XEL(I,J) = XEL(I,J) + (XEB(I,K) - XEB(1,K))*TE_12(J,K) - ENDDO - ENDDO + ENDDO + ENDDO ENDDO - ENDIF + ENDIF QUAD_GEOM_ERR = 0 CALL QUAD_GEOM_CHECK IF (QUAD_GEOM_ERR > 0) THEN RETURN ENDIF - + ! ********************************************************************************************************************************** ! Now TE_12 is for elem coord system with x along projected side 1-2. We need to rotate x-y (about z) to get x in a ! direction which splits the angle between the two diagonals. QUAD_THETA is the angle between side 1-2 and diagonal from ! point 1 to point 3. QUAD_GAMMA is the angle between side 1-2 and the diagonal from point 2 to point 4. The rotation ! about z is thru an angle of QUAD_DELTA = (QUAD_THETA - QUAD_GAMMA)/2. - + ! Find QUAD_THETA from the dot product of vector along side 1-2 and diagonal from point 1 to point 3 (in the mean plane) ! Find QUAD_GAMMA from the dot product of vector along side 1-2 and diagonal from point 2 to point 4 (in the mean plane). ! Use ABS to get the acute angle - + QUAD_THETA = DACOS(( V13B(1)*IVEC(1) + V13B(2)*IVEC(2) + V13B(3)*IVEC(3))/V13BM) QUAD_GAMMA = DACOS((-V24B(1)*IVEC(1) - V24B(2)*IVEC(2) - V24B(3)*IVEC(3))/V24BM) QUAD_DELTA = (QUAD_THETA - QUAD_GAMMA)/TWO @@ -291,42 +291,42 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) DO I=1,3 DO J=1,3 TE(I,J) = TE_SD(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ELSE DO I=1,3 DO J=1,3 TE(I,J) = TE_12(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF -! Now TE is final transformation from basic to elem coordinates. That is, UEL = TE*UEB - +! Now TE is final transformation from basic to elem coordinates. That is, UEL = TE*UEB + IF ((DEBUG(6) == 1) .AND. (WRT_BUG(0) == 1)) THEN WRITE(BUG,*) ' Coord transformation matrix that rotates a vector through angle QUAD_DELTA' WRITE(BUG,*) ' --------------------------------------------------------------------------' DO I=1,3 WRITE(BUG,90003) (CT_QD(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) WRITE(BUG,*) ' TE matrix if local x is along side 1-2' WRITE(BUG,*) ' --------------------------------------' DO I=1,3 WRITE(BUG,90003) (TE_12(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) WRITE(BUG,*) ' TE matrix if local x splits the angle between the diagonals' WRITE(BUG,*) ' -----------------------------------------------------------' DO I=1,3 WRITE(BUG,90003) (TE_SD(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) IF (QUADAXIS == 'SPLITD') THEN @@ -338,7 +338,7 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) ENDIF DO I=1,3 WRITE(BUG,90003) (TE(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) CALL CHECK_TE_MATRIX ( TE, 'TE' ) ENDIF @@ -354,13 +354,13 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) ELSE ID(I) = 0 ENDIF - ENDDO + ENDDO IF ((ID(1) == 1) .AND. (ID(2) == 1) .AND. (ID(3) == 1)) THEN TE_IDENT = 'Y' ENDIF ! ********************************************************************************************************************************** -! Calculate XEL coords of grids in local element coord system (relative to node 1). +! Calculate XEL coords of grids in local element coord system (relative to node 1). XEL(1,1) = ZERO XEL(1,2) = ZERO @@ -369,15 +369,15 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) IF ((TYPE == 'QUAD8 ') .OR. & ((TYPE == 'QUAD4 ') .AND. ((QUAD4TYP == 'MITC4 ') .OR. (QUAD4TYP == 'MITC4+')))) THEN - ! The z coordinate of grid points in the + ! The z coordinate of grid points in the ! XEL element coordinate system can be non-zero if it's warped. DO I=2,ELGP DO J=1,3 XEL(I,J) = ZERO DO K=1,3 XEL(I,J) = XEL(I,J) + (XEB(I,K) - XEB(1,K))*TE(J,K) - ENDDO - ENDDO + ENDDO + ENDDO ENDDO ELSE @@ -391,11 +391,11 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) XEL(I,J) = ZERO DO K=1,3 XEL(I,J) = XEL(I,J) + (XEB(I,K) - XEB(1,K))*TE(J,K) - ENDDO - ENDDO + ENDDO + ENDDO ENDDO - ENDIF + ENDIF IF ((DEBUG(6) == 1) .AND. (WRT_BUG(0) == 1)) THEN @@ -403,18 +403,18 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) WRITE(BUG,*) ' --------------------------------------------------------' DO I=1,4 WRITE(BUG,90003) (XEL(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) ENDIF ! ********************************************************************************************************************************** ! If HBAR is nonzero, we need to calculate transformation from mean plane to the grid points. This is used only for ! the membrane element. BMEANT is the transpose of the B matrix for the QDMEM1 elem. - + IF (DABS(HBAR) > MXWARP) THEN CALL CALC_BMEANT ENDIF - + RETURN @@ -432,9 +432,9 @@ SUBROUTINE ELMGM2 ( WRITE_WARN ) ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE QUAD_GEOM_CHECK @@ -585,8 +585,8 @@ SUBROUTINE QUAD_GEOM_CHECK V23L(I) = XEL(3,I) - XEL(2,I) V34L(I) = XEL(4,I) - XEL(3,I) V41L(I) = XEL(1,I) - XEL(4,I) - ENDDO - + ENDDO + CALL CROSS ( V12L, V23L, K13VEC ) CALL CROSS ( V23L, V34L, K24VEC ) CALL CROSS ( V34L, V41L, K31VEC ) @@ -623,16 +623,16 @@ SUBROUTINE QUAD_GEOM_CHECK DO I=1,3 V13B(I) = XEB(3,I) - XEB(1,I) V24B(I) = XEB(4,I) - XEB(2,I) - ENDDO + ENDDO V13BM = DSQRT(V13B(1)*V13B(1) + V13B(2)*V13B(2) + V13B(3)*V13B(3)) - V24BM = DSQRT(V24B(1)*V24B(1) + V24B(2)*V24B(2) + V24B(3)*V24B(3)) + V24BM = DSQRT(V24B(1)*V24B(1) + V24B(2)*V24B(2) + V24B(3)*V24B(3)) IF ((DEBUG(6) == 1) .AND. (WRT_BUG(0) == 1)) THEN WRITE(BUG,*) ' V13BM, V24BM diagonal lengths (in mean plane):' WRITE(BUG,*) ' ----------------------------------------------' WRITE(BUG,90003) V13BM,V24BM WRITE(BUG,*) ENDIF - + IF (V13BM < EPS1) THEN QUAD_GEOM_ERR = QUAD_GEOM_ERR + 1 NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 @@ -670,7 +670,7 @@ SUBROUTINE QUAD_GEOM_CHECK ENDIF ENDIF ENDIF - + ! Print warning if all points not in a plane by more than WARP_WARN. Use average diagonal length times EPS4 as measure. WARP_WARN = EPS4*(V13BM + V24BM)/TWO @@ -754,21 +754,21 @@ SUBROUTINE CALC_BMEANT ! to the 12 forces for the actual warped element REAL(DOUBLE) :: DELTA1 ! sin(theta2 - quad_gamma) = sin(TH1 - GAM) REAL(DOUBLE) :: DELTA2 ! sin(theta2 + quad_gamma) = sin(TH1 + GAM) - REAL(DOUBLE) :: SIN_TH1 ! sin(theta1), TH1 = interior angle of quad at node 1 - REAL(DOUBLE) :: COS_TH1 ! cos(theta1) - REAL(DOUBLE) :: SIN_TH2 ! sin(theta2). TH2 = interior angle of quad at node 2 - REAL(DOUBLE) :: COS_TH2 ! cos(theta2) - REAL(DOUBLE) :: SIN_GAM ! sin(quad_gamma ). GAM = angle of side 3-4 from side 1-2 - REAL(DOUBLE) :: COS_GAM ! cos(quad_gamma ) - REAL(DOUBLE) :: CTN_TH1 ! cot(theta1) - REAL(DOUBLE) :: CTN_TH2 ! cot(theta2) + REAL(DOUBLE) :: SIN_TH1 ! sin(theta1), TH1 = interior angle of quad at node 1 + REAL(DOUBLE) :: COS_TH1 ! cos(theta1) + REAL(DOUBLE) :: SIN_TH2 ! sin(theta2). TH2 = interior angle of quad at node 2 + REAL(DOUBLE) :: COS_TH2 ! cos(theta2) + REAL(DOUBLE) :: SIN_GAM ! sin(quad_gamma ). GAM = angle of side 3-4 from side 1-2 + REAL(DOUBLE) :: COS_GAM ! cos(quad_gamma ) + REAL(DOUBLE) :: CTN_TH1 ! cot(theta1) + REAL(DOUBLE) :: CTN_TH2 ! cot(theta2) ! ********************************************************************************************************************************** DO I=1,12 DO J=1,8 BMEAN(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO SIN_TH1 = Y4/L41 COS_TH1 = -X14/L41 @@ -803,7 +803,7 @@ SUBROUTINE CALC_BMEANT ENDDO WRITE(BUG,*) ENDIF - + BMEAN( 1,1) = ONE BMEAN( 2,2) = ONE BMEAN( 4,3) = ONE @@ -818,20 +818,20 @@ SUBROUTINE CALC_BMEANT BMEAN( 3,4) = -HBAR*CTN_TH2/L12 BMEAN( 3,7) = -HBAR*SIN_GAM/(L41*DELTA2) BMEAN( 3,8) = -HBAR*COS_GAM/(L41*DELTA2) - + BMEAN( 6,1) = -BMEAN( 3,1) BMEAN( 6,2) = HBAR*CTN_TH1/L12 BMEAN( 6,3) = BMEAN( 3,1) BMEAN( 6,4) = HBAR*(CTN_TH2/L12 - ONE/(L23*SIN_TH2)) BMEAN( 6,5) = HBAR*SIN_GAM/(L23*DELTA1) BMEAN( 6,6) = HBAR*COS_GAM/(L23*DELTA1) - + BMEAN( 9,4) = HBAR/(L23*SIN_TH2) BMEAN( 9,5) = -HBAR*(SIN_GAM/L23 + SIN_TH2/L34)/DELTA1 BMEAN( 9,6) = -HBAR*(COS_GAM/L23 + COS_TH2/L34)/DELTA1 BMEAN( 9,7) = HBAR*SIN_TH1/(L34*DELTA2) BMEAN( 9,8) = -HBAR*COS_TH1/(L34*DELTA2) - + BMEAN(12,2) = -HBAR/(L41*SIN_TH1) BMEAN(12,5) = HBAR*SIN_TH2/(L34*DELTA1) BMEAN(12,6) = HBAR*COS_TH2/(L34*DELTA1) diff --git a/Source/EMG/EMG1/ELMGM3.f90 b/Source/EMG/EMG1/ELMGM3.f90 index 763439d7..57414b2e 100644 --- a/Source/EMG/EMG1/ELMGM3.f90 +++ b/Source/EMG/EMG1/ELMGM3.f90 @@ -1,39 +1,39 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ELMGM3 ( WRITE_WARN ) - + ! Calculates and checks elem geometry for 3D elems and provides a transformation matrix ( TE ) to transfer the elem stiffness matrix ! in the elem system to the basic coordinate system. Calculates grid point coords in local coord system. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR, BUG, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MEFE, MELGP USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ZERO, HALF, ONE, TWO + USE CONSTANTS_1, ONLY : ZERO, HALF, ONE, TWO USE PARAMS, ONLY : EPSIL, HEXAXIS USE MODEL_STUF, ONLY : EID, ELGP, EMG_IFE, ERR_SUB_NAM, HEXA_DELTA, HEXA_GAMMA, HEXA_THETA, & NUM_EMG_FATAL_ERRS, TE, TE_IDENT, TYPE, XEB, XEL @@ -74,7 +74,7 @@ SUBROUTINE ELMGM3 ( WRITE_WARN ) REAL(DOUBLE) :: V24B(3) ! Vector from G.P. 2 to G.P. 4 in basic coords (a diagonal) REAL(DOUBLE) :: V13BM ! Mag of V13B REAL(DOUBLE) :: V24BM ! Mag of V24B - + INTRINSIC :: DABS @@ -83,12 +83,12 @@ SUBROUTINE ELMGM3 ( WRITE_WARN ) EPS1 = EPSIL(1) ! Initialize XEL to zero - + DO I=1,MELGP DO J=1,3 XEL(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO ! Calc coords of a mean plane between grids 1-4 and grids 5-8. These will be referred to as points AM, BM, CM, DM: @@ -97,20 +97,20 @@ SUBROUTINE ELMGM3 ( WRITE_WARN ) XEBM(2,J) = (XEB(2,J) + XEB(6,J))/TWO XEBM(3,J) = (XEB(3,J) + XEB(7,J))/TWO XEBM(4,J) = (XEB(4,J) + XEB(8,J))/TWO - ENDDO + ENDDO ! ********************************************************************************************************************************** ! Calculate elem z direction from cross products of diagonals - + ! Generate vectors from G.P AM to G.P CM and from G.P. BM to G.P. DM (diagonals in the mean (M) plane) - + DO I=1,3 V13B(I) = XEBM(3,I) - XEBM(1,I) V24B(I) = XEBM(4,I) - XEBM(2,I) - ENDDO - + ENDDO + V13BM = DSQRT(V13B(1)*V13B(1) + V13B(2)*V13B(2) + V13B(3)*V13B(3)) - V24BM = DSQRT(V24B(1)*V24B(1) + V24B(2)*V24B(2) + V24B(3)*V24B(3)) + V24BM = DSQRT(V24B(1)*V24B(1) + V24B(2)*V24B(2) + V24B(3)*V24B(3)) CALL CROSS ( V13B, V24B, KVEC ) MAGK = DSQRT(KVEC(1)*KVEC(1) + KVEC(2)*KVEC(2) + KVEC(3)*KVEC(3)) @@ -133,28 +133,28 @@ SUBROUTINE ELMGM3 ( WRITE_WARN ) ENDIF ! Unit vector in elem local z direction is 3rd row of TE - + DO I=1,3 KVEC(I) = KVEC(I)/MAGK TE_12(3,I) = KVEC(I) - ENDDO - + ENDDO + ! ********************************************************************************************************************************** ! Calc initial elem x dir along side 1-2 of the element. First, get vector from pt 1 to 2: DO I=1,3 V12B(I) = XEB(2,I) - XEB(1,I) - ENDDO - + ENDDO + ! HEXA_HBAR is one half of the projection of V12B in z direction - + HEXA_HBAR = HALF*((V12B(1)*KVEC(1) + V12B(2)*KVEC(2) + V12B(3)*KVEC(3))) - + ! Now calculate initial x direction along side 1-2 of the elem projection onto the mean plane. - + DO I=1,3 IVEC(I) = V12B(I) - TWO*HEXA_HBAR*KVEC(I) - ENDDO + ENDDO ! If initial MAGI = 0 then write error and quit. @@ -183,7 +183,7 @@ SUBROUTINE ELMGM3 ( WRITE_WARN ) DO I=1,3 IVEC(I) = IVEC(I)/MAGI ! Unit vector along side 1-2 in the mean plane (NOT from G.P. 1-2) TE_12(1,I) = IVEC(I) - ENDDO + ENDDO ! ********************************************************************************************************************************** ! Calculate unit vector in initial elem. y dir. (from VZ (cross) VX): @@ -211,18 +211,18 @@ SUBROUTINE ELMGM3 ( WRITE_WARN ) DO I=1,3 JVEC(I) = JVEC(I)/MAGJ TE_12(2,I) = JVEC(I) - ENDDO + ENDDO ! ********************************************************************************************************************************** ! Now TE_12 is for elem coord system with x along projected side 1-2. We need to rotate x-y (about z) to get x in a ! direction which splits the angle between the two diagonals. HEXA_THETA is the angle between side 1-2 and diagonal from ! point 1 to point 3. HEXA_GAMMA is the angle between side 1-2 and the diagonal from point 2 to point 4. The rotation ! about z is thru an angle of HEXA_DELTA = (HEXA_THETA - HEXA_GAMMA)/2. - + ! Find HEXA_THETA from the dot product of vector along side 1-2 and diagonal from point 1 to point 3 (in the mean plane) ! Find HEXA_GAMMA from the dot product of vector along side 1-2 and diagonal from point 2 to point 4 (in the mean plane). ! Use ABS to get the acute angle - + HEXA_THETA = DACOS(( V13B(1)*IVEC(1) + V13B(2)*IVEC(2) + V13B(3)*IVEC(3))/V13BM) HEXA_GAMMA = DACOS((-V24B(1)*IVEC(1) - V24B(2)*IVEC(2) - V24B(3)*IVEC(3))/V24BM) HEXA_DELTA = (HEXA_THETA - HEXA_GAMMA)/TWO @@ -237,42 +237,42 @@ SUBROUTINE ELMGM3 ( WRITE_WARN ) DO I=1,3 DO J=1,3 TE(I,J) = TE_SD(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ELSE DO I=1,3 DO J=1,3 TE(I,J) = TE_12(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF -! Now TE is final transformation from basic to elem coordinates. That is, UEL = TE*UEB - +! Now TE is final transformation from basic to elem coordinates. That is, UEL = TE*UEB + IF ((DEBUG(6) == 2) .AND. (WRT_BUG(0) == 1)) THEN WRITE(BUG,*) ' Coord transformation matrix that rotates a vector through angle HEXA_DELTA' WRITE(BUG,*) ' --------------------------------------------------------------------------' DO I=1,3 WRITE(BUG,90003) (CT_QD(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) WRITE(BUG,*) ' TE matrix if local x is along side 1-2' WRITE(BUG,*) ' --------------------------------------' DO I=1,3 WRITE(BUG,90003) (TE_12(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) WRITE(BUG,*) ' TE matrix if local x splits the angle between the diagonals' WRITE(BUG,*) ' -----------------------------------------------------------' DO I=1,3 WRITE(BUG,90003) (TE_SD(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) IF (HEXAXIS == 'SPLITD') THEN @@ -284,7 +284,7 @@ SUBROUTINE ELMGM3 ( WRITE_WARN ) ENDIF DO I=1,3 WRITE(BUG,90003) (TE(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) CALL CHECK_TE_MATRIX ( TE, 'TE' ) ENDIF @@ -299,13 +299,13 @@ SUBROUTINE ELMGM3 ( WRITE_WARN ) ELSE ID(I) = 0 ENDIF - ENDDO + ENDDO IF ((ID(1) == 1) .AND. (ID(2) == 1) .AND. (ID(3) == 1)) THEN TE_IDENT = 'Y' ENDIF ! ********************************************************************************************************************************** -! Calculate XEL coords of grids in local element coord system (relative to node 1). +! Calculate XEL coords of grids in local element coord system (relative to node 1). XEL(1,1) = ZERO XEL(1,2) = ZERO @@ -316,8 +316,8 @@ SUBROUTINE ELMGM3 ( WRITE_WARN ) XEL(I,J) = ZERO DO K=1,3 XEL(I,J) = XEL(I,J) + (XEB(I,K) - XEB(1,K))*TE(J,K) - ENDDO - ENDDO + ENDDO + ENDDO ENDDO IF ((DEBUG(6) == 1) .AND. (WRT_BUG(0) == 1)) THEN @@ -325,7 +325,7 @@ SUBROUTINE ELMGM3 ( WRITE_WARN ) WRITE(BUG,*) ' --------------------------------------------------------' DO I=1,4 WRITE(BUG,90003) (XEL(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) ENDIF diff --git a/Source/EMG/EMG1/EMG.f90 b/Source/EMG/EMG1/EMG.f90 index 45cf4b7c..e3505345 100644 --- a/Source/EMG/EMG1/EMG.f90 +++ b/Source/EMG/EMG1/EMG.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) - + ! Main driver routine for calculation of matrices for all elements. This routine initializes appropriate arrays and calls ! other routines to calculate element matrices: @@ -41,8 +41,8 @@ SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) ! TE = Coord transformation matrix (basic to elem) ! ZS = Stress recovery coeff's ! FCONV = Constants to convert stress to engineering force -! NOTE: may need to calc KE to get this - +! NOTE: may need to calc KE to get this + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MBUG, MEDAT0_CUSERIN, MELDOF, MEMATC, MOFFSET, NSUB, NTSUB @@ -61,7 +61,7 @@ SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) IMPLICIT NONE - CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'EMG' + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'EMG' CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR ! Name of subr that called this one CHARACTER( 1*BYTE), INTENT(IN) :: OPT(6) ! Array of EMG option indicators explained above CHARACTER(LEN=*) , INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not @@ -69,32 +69,32 @@ SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) CHARACTER( 2*BYTE) :: LOC ! Location where THETAM is calculated (for DEBUG output purposes) CHARACTER( 1*BYTE) :: FIX_EDAT = 'N'! If 'Y', run code to change order of grids in EDAT for 3D elems CHARACTER( 1*BYTE) :: RED_INT_SHEAR = 'N'! If 'Y', use Gaussian weighted average of B matrices for shear terms - + INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID for which INTEGER(LONG) :: CASE_NUM = 0 ! Can be subcase number (e.g. for UEL, PEL outout) INTEGER(LONG) :: DUM_BUG(0:MBUG-1) ! Values from WRT_BUG sent to subr ELMOUT in a particular call INTEGER(LONG) :: EPNTK ! Value from array EPNT at the row for this internal elem ID. It is the -! row number in array EDAT where data begins for this element. +! row number in array EDAT where data begins for this element. INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: INT_ORDER = 0 ! Gaussian integration order for element INTEGER(LONG) :: IORD_IJ ! Integration order in the triangular plane for PENTA elements INTEGER(LONG) :: IORD_K ! Integration order in Z direction for PENTA elements INTEGER(LONG) :: INT41,INT42 ! An integer used in getting MATANGLE - + ! ********************************************************************************************************************************** EPNTK = EPNT(INT_ELEM_ID) EID = EDAT(EPNTK) TYPE = ETYPE(INT_ELEM_ID) CALL IS_ELEM_PCOMP_PROPS ( INT_ELEM_ID ) - + NUM_EMG_FATAL_ERRS = 0 CALL EMG_INIT ! ********************************************************************************************************************************** -! Call ELMDAT1 subr to get some of the data needed for this elem. +! Call ELMDAT1 subr to get some of the data needed for this elem. IF ((TYPE == 'ELAS1 ') .OR. (TYPE == 'ELAS2 ') .OR. (TYPE == 'ELAS3 ') .OR. (TYPE == 'ELAS4 ') .OR. & (TYPE == 'ROD ') .OR. (TYPE == 'BAR ') .OR. (TYPE == 'BEAM ') .OR. (TYPE == 'BUSH ') .OR. & @@ -104,13 +104,13 @@ SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) (TYPE == 'USER1 ') .OR. (TYPE == 'USERIN ') .OR. (TYPE == 'PLOTEL ') .OR. & (TYPE == 'SHEAR ') .OR. (TYPE(1:5) == 'TRIA3') .OR. (TYPE(1:5) == 'QUAD4' ) .OR. (TYPE(1:5) == 'QUAD8' )) THEN CALL ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) - ELSE + ELSE WRITE(ERR,1916) SUBR_NAME,EID,TYPE WRITE(F06,1916) SUBR_NAME,EID,TYPE FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit ENDIF - + IF (NUM_EMG_FATAL_ERRS > 0) CALL EMG_QUIT ! ********************************************************************************************************************************** @@ -169,9 +169,9 @@ SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) ELSE IF ((TYPE == 'USER1 ') .OR. (TYPE == 'USERIN ')) THEN CONTINUE - + ENDIF - + IF (NUM_EMG_FATAL_ERRS > 0) CALL EMG_QUIT ! ********************************************************************************************************************************** @@ -250,7 +250,7 @@ SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) IF (WRITE_WARN == 'Y') THEN IF ((INT41 /= 0) .OR. (INT42 /= 0)) THEN - + WARN_ERR = WARN_ERR + 1 WRITE(ERR,1003) TYPE, EID IF (SUPWARN == 'N') THEN @@ -264,7 +264,7 @@ SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) ENDIF IF (TYPE == 'QUAD8 ') THEN - + CALL MATERIAL_PROPS_2D ( WRITE_WARN ) ! Don't transform the material properties here because the transformation is different at each point in the element. @@ -307,11 +307,11 @@ SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) IF ((OPT(1) == 'N') .AND. (OPT(2) == 'N') .AND. (OPT(3) == 'N') .AND. (OPT(4) == 'N') .AND. (OPT(5) == 'N') .AND. & (OPT(6) == 'N')) THEN RETURN - ENDIF + ENDIF ! ********************************************************************************************************************************** -! For all but USERIN elem, call ELMDAT2 subr to get the rest of the data needed to calculate the matrices for this element. - +! For all but USERIN elem, call ELMDAT2 subr to get the rest of the data needed to calculate the matrices for this element. + IF ((TYPE(1:4) == 'ELAS' ) .OR. (TYPE == 'ROD ') .OR. (TYPE == 'BAR ') .OR. (TYPE == 'BEAM ') .OR. & (TYPE(1:5) == 'TRIA3' ) .OR. (TYPE(1:5) == 'QUAD4' ) .OR. (TYPE == 'SHEAR ') .OR. (TYPE == 'USER1 ') .OR. & (TYPE == 'HEXA8 ') .OR. (TYPE == 'HEXA20 ') .OR. & @@ -325,14 +325,14 @@ SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) ! ********************************************************************************************************************************** ! Now get the individual elem routines to calc the required elem matrices: ME and/or PTE and/or (SE1, SE2, STE1,STE2) ! and/or KE). - + IF (TYPE(1:4) == 'ELAS') THEN CALL ELAS1 ( OPT, WRITE_WARN ) - + ELSE IF ((TYPE == 'ROD ') .OR. (TYPE == 'BAR ') .OR. (TYPE == 'BEAM ')) THEN CALL BREL1 ( OPT, WRITE_WARN ) IF (NUM_EMG_FATAL_ERRS > 0) CALL EMG_QUIT - + ELSE IF (TYPE(1:4) == 'BUSH') THEN CALL BUSH ( INT_ELEM_ID, OPT, WRITE_WARN ) IF (NUM_EMG_FATAL_ERRS > 0) CALL EMG_QUIT @@ -392,9 +392,9 @@ SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) ELSE IF (TYPE == 'USERIN ') THEN CALL USERIN ( INT_ELEM_ID, OPT, CALLING_SUBR, WRITE_WARN ) - - ENDIF - + + ENDIF + ! ********************************************************************************************************************************** ! For plate elements, process offsets (since they are specified in local element coordinates) @@ -431,17 +431,17 @@ SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) ,/,14X,' ELEMENT',I8,' IS TYPE ',A,'. NO CODE WRITTEN FOR THIS TYPE.') 1001 FORMAT(' THETAM material angle for ',a,i8,' = ',f8.3,' deg (at code location ',a,' in subr EMG: Row number in array MATANGLE'& - ,' INT42 = ',I8,I3) + ,' INT42 = ',I8,I3) 1002 FORMAT(' THETAM material angle for ',a,i8,' = ',f8.3,' deg (at code location ',a,' in subr EMG: Material angle coord system' & - ,' INT42 = ',I8,I3) + ,' INT42 = ',I8,I3) 1003 FORMAT(' WARNING : MATERIAL ANGLE FOR ',A,I8,' IS NOT USED FOR PLATE ELEMENTS WITH PCOMP PROPERTIES') ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE EMG_INIT @@ -449,7 +449,7 @@ SUBROUTINE EMG_INIT USE SCONTR, ONLY : LSUB, MELDOF, MELGP, MDT, MPRESS, MAX_STRESS_POINTS USE MODEL_STUF, ONLY : AGRID, BE1, BE2, BE3, BGRID, DOFPIN, DT, ELAS_COMP, FCONV, KE, KED, ME, & OFFDIS, OFFSET, PEB, PEG, PEL, PPE, PRESS, PTE, SE1, SE2, SE3, STE1, STE2, STE3, & - UEB, UEG, UEL, UGG, XEB, XEL + UEB, UEG, UEL, UGG, XEB, XEL IMPLICIT NONE INTEGER(LONG) :: II,JJ,KK @@ -516,24 +516,24 @@ SUBROUTINE EMG_INIT DO JJ=1,MELDOF DO II=1,MELDOF KE(II,JJ) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO ENDIF ! 9 IF (ALLOCATED(KED)) THEN DO JJ=1,MELDOF DO II=1,MELDOF KED(II,JJ) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO ENDIF ! 10 IF (ALLOCATED(ME)) THEN DO JJ=1,MELDOF DO II=1,MELDOF ME(II,JJ) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO ENDIF ! 11 IF (ALLOCATED(OFFDIS)) THEN @@ -572,9 +572,9 @@ SUBROUTINE EMG_INIT DO JJ=1,NSUB DO II=1,MELDOF PPE(II,JJ) = ZERO - ENDDO - ENDDO - ENDIF + ENDDO + ENDDO + ENDIF ! 17 IF (ALLOCATED(PRESS)) THEN DO II=1,MPRESS diff --git a/Source/EMG/EMG1/GET_ELEM_AGRID_BGRID.f90 b/Source/EMG/EMG1/GET_ELEM_AGRID_BGRID.f90 index 6d1987c3..1a8f1c52 100644 --- a/Source/EMG/EMG1/GET_ELEM_AGRID_BGRID.f90 +++ b/Source/EMG/EMG1/GET_ELEM_AGRID_BGRID.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE GET_ELEM_AGRID_BGRID ( INT_ELEM_ID, CHECK_AGRID ) @@ -44,7 +44,7 @@ SUBROUTINE GET_ELEM_AGRID_BGRID ( INT_ELEM_ID, CHECK_AGRID ) INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID for which INTEGER(LONG) :: IERR = 0 ! Local error count for BGRID not defined INTEGER(LONG) :: EPNTK ! Value from array EPNT at the row for this internal elem ID. It is the -! row number in array EDAT where data begins for this element. +! row number in array EDAT where data begins for this element. INTEGER(LONG) :: GRID_ID_ROW_NUM ! Row num in GRID_ID where AGRID(I) exists INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: DELTA ! Offset in EDAT (from 1st record for an elem) where grid no's begin @@ -58,11 +58,11 @@ SUBROUTINE GET_ELEM_AGRID_BGRID ( INT_ELEM_ID, CHECK_AGRID ) EID = EDAT(EPNTK) ! AGRID/BGRID contain the G.P. no's (actual/internal) for points that the elem connects to (not for the v vector) - + DO I=1,MELGP+1 AGRID(I) = 0 BGRID(I) = 0 - ENDDO + ENDDO CALL GET_ELGP ( INT_ELEM_ID ) @@ -112,7 +112,7 @@ SUBROUTINE GET_ELEM_AGRID_BGRID ( INT_ELEM_ID, CHECK_AGRID ) RETURN ! ********************************************************************************************************************************** - 1900 FORMAT(' *ERROR 1900: GRID ',I8,' ON ELEMENT ',I8,' TYPE ',A,' NOT DEFINED') + 1900 FORMAT(' *ERROR 1900: GRID ',I8,' ON ELEMENT ',I8,' TYPE ',A,' NOT DEFINED') 1951 FORMAT(' *ERROR 1951: ',A,I8,' USES GRID ',I8,' WHICH IS A SCALAR POINT. SCALAR POINTS NOT ALLOWED FOR THIS ELEM TYPE') diff --git a/Source/EMG/EMG1/GET_ELEM_ONAME.f90 b/Source/EMG/EMG1/GET_ELEM_ONAME.f90 index f09cd7df..aa3f9bbe 100644 --- a/Source/EMG/EMG1/GET_ELEM_ONAME.f90 +++ b/Source/EMG/EMG1/GET_ELEM_ONAME.f90 @@ -1,39 +1,39 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_ELEM_ONAME ( NAME ) - + ! Gets element output name (used in LINK9 subr's which write elem and/or ply outputs) for a given element type - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, METYPE + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, METYPE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ELEM_ONAME, ELMTYP, TYPE - + USE GET_ELEM_ONAME_USE_IFs IMPLICIT NONE diff --git a/Source/EMG/EMG1/GET_ELGP.f90 b/Source/EMG/EMG1/GET_ELGP.f90 index 234443b8..3809df2c 100644 --- a/Source/EMG/EMG1/GET_ELGP.f90 +++ b/Source/EMG/EMG1/GET_ELGP.f90 @@ -1,39 +1,39 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_ELGP ( INT_ELEM_ID ) - + ! Gets number of grid points for a given element based on the element's internal ID - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06, WRT_ERR - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MEFE, MELGP, METYPE + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MEFE, MELGP, METYPE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, EID, ELGP, ELMTYP, etype, EMG_IFE, EPNT, ERR_SUB_NAM, NELGP, NUM_EMG_FATAL_ERRS, TYPE - + USE GET_ELGP_USE_IFs IMPLICIT NONE @@ -43,7 +43,7 @@ SUBROUTINE GET_ELGP ( INT_ELEM_ID ) INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID INTEGER(LONG) :: EPNTK ! Value from array EPNT at the row for this internal elem ID. It is the -! row number in array EDAT where data begins for this element. +! row number in array EDAT where data begins for this element. INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: NG ! Number of GRID's for USERIN elem INTEGER(LONG) :: NS ! Number of SPOINT's for USERIN elem @@ -103,7 +103,7 @@ SUBROUTINE GET_ELGP ( INT_ELEM_ID ) NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 FATAL_ERR = FATAL_ERR + 1 IF (WRT_ERR > 0) THEN - WRITE(ERR,1933) SUBR_NAME, TYPE, EID, ELGP, MELGP + WRITE(ERR,1933) SUBR_NAME, TYPE, EID, ELGP, MELGP WRITE(F06,1933) SUBR_NAME, TYPE, EID, ELGP, MELGP ELSE IF (NUM_EMG_FATAL_ERRS <= MEFE) THEN @@ -114,12 +114,12 @@ SUBROUTINE GET_ELGP ( INT_ELEM_ID ) ENDIF ENDIF CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF ! ********************************************************************************************************************************** 1933 FORMAT(' *ERROR 1933: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' THE NUMBER OF GRID POINTS FOR ',A,' ELEMENT ',I8,', IS: ',I8 & - ,/,14X,' THE MINIMUM NUMBER IS 1 AND THE MAXIMUM NUMBER ALLOWED FOR ANY ELEMENT IS: ',I8) + ,/,14X,' THE MINIMUM NUMBER IS 1 AND THE MAXIMUM NUMBER ALLOWED FOR ANY ELEMENT IS: ',I8) 1940 FORMAT(' *ERROR 1940: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' ELEMENT TYPE "',A,'" NOT FOUND IN ARRAY ELMTYP') diff --git a/Source/EMG/EMG1/GET_MATANGLE_FROM_CID.f90 b/Source/EMG/EMG1/GET_MATANGLE_FROM_CID.f90 index e801e261..952edcaf 100644 --- a/Source/EMG/EMG1/GET_MATANGLE_FROM_CID.f90 +++ b/Source/EMG/EMG1/GET_MATANGLE_FROM_CID.f90 @@ -1,32 +1,32 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_MATANGLE_FROM_CID ( ACID ) - -! Calcs THETAM for plate elements that have the material angle specified via a coord sys ID (ACID here) + +! Calcs THETAM for plate elements that have the material angle specified via a coord sys ID (ACID here) USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -35,11 +35,11 @@ SUBROUTINE GET_MATANGLE_FROM_CID ( ACID ) USE CONSTANTS_1, ONLY : CONV_DEG_RAD, ZERO, ONE USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : CORD, EID, NUM_EMG_FATAL_ERRS, NUM_EMG_FATAL_ERRS, RCORD, TE, THETAM, TYPE, QUAD_DELTA - + USE GET_MATANGLE_FROM_CID_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GET_MATANGLE_FROM_CID' CHARACTER( 1*BYTE) :: CORD_FND ! If 'Y', ACID internal coord sys ID was found in array CORD @@ -47,7 +47,7 @@ SUBROUTINE GET_MATANGLE_FROM_CID ( ACID ) INTEGER(LONG) :: I ! DO loop indices INTEGER(LONG) :: ICID ! Internal coord sys ID for ACID - + REAL(DOUBLE) :: DOT_XM ! Dot product of VEC_XE and VEC_ME REAL(DOUBLE) :: CROSS_XM(3) ! Cross product of VEC_XE and VEC_ME REAL(DOUBLE) :: Y ! First parameter for ATAN2 function @@ -105,7 +105,7 @@ SUBROUTINE GET_MATANGLE_FROM_CID ( ACID ) MAG2_ME = MAG2_ME + VEC_ME(I)*VEC_ME(I) ENDDO MAG_ME = DSQRT(MAG2_ME) - + IF (MAG_ME <= EPS1) THEN FATAL_ERR = FATAL_ERR + 1 NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 @@ -116,13 +116,13 @@ SUBROUTINE GET_MATANGLE_FROM_CID ( ACID ) ! Find the angle of ME from XE about ZE. ! THETAM = atan2(ZE dot (XE cross ME) , XE dot ME ) - + CALL CROSS(VEC_XE, VEC_ME, CROSS_XM) ! XE cross ME DOT_XM = VEC_XE(1)*VEC_ME(1) + VEC_XE(2)*VEC_ME(2) + VEC_XE(3)*VEC_ME(3) ! XE dot ME - Y = VEC_ZE(1)*CROSS_XM(1) + VEC_ZE(2)*CROSS_XM(2) + VEC_ZE(3)*CROSS_XM(3) ! ZE dot (CROSS_XM) + Y = VEC_ZE(1)*CROSS_XM(1) + VEC_ZE(2)*CROSS_XM(2) + VEC_ZE(3)*CROSS_XM(3) ! ZE dot (CROSS_XM) THETAM = ATAN2(Y, DOT_XM) - IF (TYPE(1:5) == 'QUAD4') THEN + IF (TYPE(1:5) == 'QUAD4') THEN THETAM = THETAM + QUAD_DELTA ! Convert angle from element x axis to angle from 1-2 edge. ENDIF diff --git a/Source/EMG/EMG1/GET_PCOMP_SECT_PROPS.f90 b/Source/EMG/EMG1/GET_PCOMP_SECT_PROPS.f90 index 38f3d94f..666cb163 100644 --- a/Source/EMG/EMG1/GET_PCOMP_SECT_PROPS.f90 +++ b/Source/EMG/EMG1/GET_PCOMP_SECT_PROPS.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_PCOMP_SECT_PROPS ( PCOMP_TM, PCOMP_IB, PCOMP_TS ) - -! Calculates section properties, PCOMP_TM, PCOMP_IB, PCOMP_TS, for shell elements that have PCOMP properties. + +! Calculates section properties, PCOMP_TM, PCOMP_IB, PCOMP_TS, for shell elements that have PCOMP properties. USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, MPCOMP_PLIES, MPCOMP0, MRPCOMP_PLIES, MRPCOMP0 USE MODEL_STUF, ONLY : EPROP, INTL_PID, NUM_PLIES, RPCOMP, TPLY - USE PARAMS, ONLY : PCMPTSTM + USE PARAMS, ONLY : PCMPTSTM USE CONSTANTS_1, ONLY : ZERO, THIRD - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE GET_PCOMP_SECT_PROPS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GET_PCOMP_SECT_PROPS' INTEGER(LONG) :: K ! DO loop index @@ -51,7 +51,7 @@ SUBROUTINE GET_PCOMP_SECT_PROPS ( PCOMP_TM, PCOMP_IB, PCOMP_TS ) REAL(DOUBLE) :: ZBK,ZTK ! Coord from ref plane to bot and top of ply K REAL(DOUBLE) :: ZBK2,ZTK2 ! ZBK^2, ZTK^2 REAL(DOUBLE) :: ZBK3,ZTK3 ! ZBK^3, ZTK^3 - + ! ********************************************************************************************************************************** ZBK = EPROP(4) diff --git a/Source/EMG/EMG1/GRID_ELEM_CONN_TABLE.f90 b/Source/EMG/EMG1/GRID_ELEM_CONN_TABLE.f90 index 6747ed0e..5d94dcc8 100644 --- a/Source/EMG/EMG1/GRID_ELEM_CONN_TABLE.f90 +++ b/Source/EMG/EMG1/GRID_ELEM_CONN_TABLE.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE GRID_ELEM_CONN_TABLE @@ -36,8 +36,8 @@ SUBROUTINE GRID_ELEM_CONN_TABLE USE SCONTR, ONLY : BLNK_SUB_NAM, MAX_ELEM_DEGREE, NELE, NGRID USE IOUNT1, ONLY : F06 USE TIMDAT, ONLY : TSEC - USE MODEL_STUF, ONLY : AGRID, ELGP, ETYPE, ESORT1, ESORT2, GRID_ID, GRID_ELEM_CONN_ARRAY - USE PARAMS, ONLY : PRTCONN + USE MODEL_STUF, ONLY : AGRID, ELGP, ETYPE, ESORT1, ESORT2, GRID_ID, GRID_ELEM_CONN_ARRAY + USE PARAMS, ONLY : PRTCONN USE GRID_ELEM_CONN_TABLE_USE_IFs diff --git a/Source/EMG/EMG1/IS_ELEM_PCOMP_PROPS.f90 b/Source/EMG/EMG1/IS_ELEM_PCOMP_PROPS.f90 index 86bcbbb9..29e1f120 100644 --- a/Source/EMG/EMG1/IS_ELEM_PCOMP_PROPS.f90 +++ b/Source/EMG/EMG1/IS_ELEM_PCOMP_PROPS.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE IS_ELEM_PCOMP_PROPS ( INT_ELEM_ID ) - + ! Given a shell (TRIA3 or QUAD4) element's internal ID, determine if its properties are defined on a Bulk Data PCOMP entry USE PENTIUM_II_KIND, ONLY : LONG @@ -38,7 +38,7 @@ SUBROUTINE IS_ELEM_PCOMP_PROPS ( INT_ELEM_ID ) INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID for which INTEGER(LONG) :: EPNTK ! Value from array EPNT at the row for this internal elem ID. It is the -! row number in array EDAT where data begins for this element. +! row number in array EDAT where data begins for this element. ! ********************************************************************************************************************************** EPNTK = EPNT(INT_ELEM_ID) TYPE = ETYPE(INT_ELEM_ID) @@ -60,4 +60,4 @@ SUBROUTINE IS_ELEM_PCOMP_PROPS ( INT_ELEM_ID ) ! ********************************************************************************************************************************** - END SUBROUTINE IS_ELEM_PCOMP_PROPS \ No newline at end of file + END SUBROUTINE IS_ELEM_PCOMP_PROPS diff --git a/Source/EMG/EMG1/ROT_COMP_ELEM_AXES.f90 b/Source/EMG/EMG1/ROT_COMP_ELEM_AXES.f90 index 5b55a404..438ade30 100644 --- a/Source/EMG/EMG1/ROT_COMP_ELEM_AXES.f90 +++ b/Source/EMG/EMG1/ROT_COMP_ELEM_AXES.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ROT_COMP_ELEM_AXES ( INT_ELEM_ID, IPLY, THETA, DIRECTION ) @@ -35,7 +35,7 @@ SUBROUTINE ROT_COMP_ELEM_AXES ( INT_ELEM_ID, IPLY, THETA, DIRECTION ) ! Ref 2: "Practical Analysis of Composites" by J.N. Reddy and A. Miravete, CRC Press, 1995 section 3.3. Eqn 7 in Ref 2 is matrix T1 ! whereas my matrix is T1P (in the code below). Note that Ref 2 stress tensor definition and mine have a different order: -! ------------------------------------------------------------------------- +! ------------------------------------------------------------------------- ! | Ref 2 stress tensor for matrix T1 | MYSTRAN stress tensor for matrix T1P| ! |-----------------------------------|-------------------------------------| ! | sig-1 = sig-xx | sig-1 = sig-xx | @@ -102,13 +102,13 @@ SUBROUTINE ROT_COMP_ELEM_AXES ( INT_ELEM_ID, IPLY, THETA, DIRECTION ) INTEGER(LONG) :: INT41,INT42 ! An integer used in getting MATANGLE CHARACTER( 2*BYTE) :: LOC ! Location where THETAM is calculated (for DEBUG output purposes) INTEGER(LONG) :: EPNTK ! Value from array EPNT at the row for this internal elem ID. - - + + ! ********************************************************************************************************************************** ! Calc T1P matrix from eqn 3.3-7 in Ref 1. (with order 1,2,3,4,5,6 changed to 1,2,3,6,4,5 to account for the fact that Ref (1) has -! the 6 position for xy stress whereas it is the 4th position here) +! the 6 position for xy stress whereas it is the 4th position here) RADIANS_ROT = CONV_DEG_RAD*THETA ! THETA is angle (deg) from elem matl axis to ply K longitudinal axis @@ -259,13 +259,13 @@ SUBROUTINE ROT_COMP_ELEM_AXES ( INT_ELEM_ID, IPLY, THETA, DIRECTION ) CALL MATMULT_FFF ( T1M , EM , 3, 3, 3, DUM33 ) ! (1) Transform EM membrane matl matrix from ply to elem coords CALL MATMULT_FFF ( DUM33 , T1Mt, 3, 3, 3, EM) - + CALL MATMULT_FFF ( T1M , EB , 3, 3, 3, DUM33 ) ! (2) Transform EB bending matl matrix from ply to elem coords CALL MATMULT_FFF ( DUM33 , T1Mt, 3, 3, 3, EB) - + CALL MATMULT_FFF ( T1T , ET , 2, 2, 2, DUM22 ) ! (3) Transform TM transverse shear matl matrix from ply to elem coords CALL MATMULT_FFF ( DUM22 , T1Tt, 2, 2, 2, ET) - + CALL MATMULT_FFF ( T1M , EBM , 3, 3, 3, DUM33 ) ! (4) Transform EBM bending/membrane matl matrix from ply to elem coords CALL MATMULT_FFF ( DUM33 , T1Mt, 3, 3, 3, EBM) diff --git a/Source/EMG/EMG1/SHELL_ABD_MATRICES.f90 b/Source/EMG/EMG1/SHELL_ABD_MATRICES.f90 index cfbd6867..8675612d 100644 --- a/Source/EMG/EMG1/SHELL_ABD_MATRICES.f90 +++ b/Source/EMG/EMG1/SHELL_ABD_MATRICES.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) @@ -95,10 +95,10 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) REAL(DOUBLE) :: PCOMP_TM ! Membrane thickness of PCOMP for equivalent PSHELL REAL(DOUBLE) :: PCOMP_IB ! Bending MOI of PCOMP for equivalent PSHELL REAL(DOUBLE) :: PCOMP_TS ! Transverse shear thickness of PCOMP for equivalent PSHELL - REAL(DOUBLE) :: PLY_A(3,3) ! Transformed material matrix A for a ply - REAL(DOUBLE) :: PLY_B(3,3) ! Transformed material matrix B for a ply - REAL(DOUBLE) :: PLY_D(3,3) ! Transformed material matrix D for a ply - REAL(DOUBLE) :: PLY_T(2,2) ! Transformed material matrix T for a ply + REAL(DOUBLE) :: PLY_A(3,3) ! Transformed material matrix A for a ply + REAL(DOUBLE) :: PLY_B(3,3) ! Transformed material matrix B for a ply + REAL(DOUBLE) :: PLY_D(3,3) ! Transformed material matrix D for a ply + REAL(DOUBLE) :: PLY_T(2,2) ! Transformed material matrix T for a ply REAL(DOUBLE) :: SB ! Allowable interlaminar shear stress. Required if FT is specified REAL(DOUBLE) :: TREFK ! Ref temperature for ply K REAL(DOUBLE) :: Z0 ! Coord from ref plane to bottom surface of element @@ -120,7 +120,7 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) WRITE(F06,1946) TYPE, SUBR_NAME RETURN ENDIF - + CALL IS_ELEM_PCOMP_PROPS ( INT_ELEM_ID ) SHELL_T_MOD = 'N' ! Reset this to N every time this subr is called @@ -150,7 +150,7 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) FCONV(3) = TS ENDIF - IF ((TYPE(1:5) == 'QUAD4') .OR. (TYPE(1:5) == 'TRIA3') .OR. (TYPE(1:5) == 'TRIA3')) THEN + IF ((TYPE(1:5) == 'QUAD4') .OR. (TYPE(1:5) == 'TRIA3') .OR. (TYPE(1:5) == 'TRIA3')) THEN MASS_PER_UNIT_AREA = (RHO(1)*TM + NSM) ENDIF @@ -186,12 +186,12 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) ALPM(1) = ALPVEC(1,1) ! xx ALPM(2) = ALPVEC(2,1) ! yy ALPM(3) = ALPVEC(4,1) ! xy - + CALL MATMULT_FFF ( EB, ALPB, 3, 3, 1, DUM ) DO I=1,3 SHELL_DALP(I) = IB*DUM(I) ENDDO - + CALL MATMULT_FFF ( EM, ALPM, 3, 3, 1, DUM ) DO I=1,3 SHELL_AALP(I) = TM*DUM(I) @@ -219,7 +219,7 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) EPROP(5) = RPCOMP(INTL_PID,2) ; NSM = EPROP(5) EPROP(6) = RPCOMP(INTL_PID,3) ; SB = EPROP(6) EPROP(7) = RPCOMP(INTL_PID,4) ; TREFK = EPROP(7) - EPROP(8) = Z0 ; ZS(1) = EPROP(8) + EPROP(8) = Z0 ; ZS(1) = EPROP(8) EPROP(9) = -Z0 ; ZS(2) = EPROP(9) FT = PCOMP(INTL_PID,3) @@ -313,7 +313,7 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) INTL_MID(1) = PCOMP(INTL_PID,PLY_PCOMP_INDEX) ! Shell A, D, T use membrane material props INTL_MID(2) = INTL_MID(1) ! Need to have INTL_MID(2) nonzero so that subr QDEL1,TREL1 -! will call subr to calc bending stiffness. Also SEi depends on EB +! will call subr to calc bending stiffness. Also SEi depends on EB INTL_MID(3) = INTL_MID(1) ! Shell T uses transverse shear material props unless material matrix ! calcuated below has zero transverse shear modulus in which case @@ -327,7 +327,7 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) ZPLY = RPCOMP(INTL_PID,PLY_RPCOMP_INDEX+2)! Coord of mid plane of ply relative to mid plane of elem IF ((TYPE == 'QDMEM ') .OR. (TYPE == 'QUAD4K ') .OR. (TYPE == 'QUAD4 ') .OR. & - (TYPE == 'TRMEM ') .OR. (TYPE == 'TRIA3K ') .OR. (TYPE == 'TRIA3 ')) THEN + (TYPE == 'TRMEM ') .OR. (TYPE == 'TRIA3K ') .OR. (TYPE == 'TRIA3 ')) THEN MASS_PER_UNIT_AREA = MASS_PER_UNIT_AREA + (RHO(1)*TPLY) ELSE IF ((TYPE == 'QDPLT1 ') .OR. (TYPE == 'QDPLT2 ') .OR. & (TYPE == 'TRPLT1 ') .OR. (TYPE == 'TRPLT2 ')) THEN @@ -354,7 +354,7 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) IF (INTL_MID(J) /= 0) THEN EMAT(I,J) = RMATL(INTL_MID(J),I) ENDIF - ENDDO + ENDDO ENDDO IF (PCOMP(INTL_PID,2) == 0) THEN ! Props were defined on a PCOMP entry so we need to modify TREF to be @@ -368,7 +368,7 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) ENDIF ENDDO ENDIF - + EMAT(MRMATLC+1,3) = SB ! SB is the allowable interlaminar shear stress (on PCOMP B.D. entry) EMAT(MRMATLC+2,3) = SB CALL MATERIAL_PROPS_2D ( WRITE_WARN ) @@ -390,7 +390,7 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) PCOMP_IB = PCOMP_IB + THIRD*(ZTK3 - ZBK3) ! PCMPTSTM is a factor (< 1) for shear to total plate thickness for PCOMP PCOMP_TS = PCOMP_TS + (ZTK - ZBK )*PCMPTSTM - + IF (TYPE == 'SHEAR ') THEN ! For SHEAR elem there is only SHELL_A and only its 3,3 term is nonzreo DO I=1,3 DO J=1,3 @@ -466,7 +466,7 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) EPROP(2) = TWELVE*PCOMP_IB/(PCOMP_TM*PCOMP_TM*PCOMP_TM) EPROP(3) = PCOMP_TS/PCOMP_TM - IF (WRT_BUG(1) > 0) THEN + IF (WRT_BUG(1) > 0) THEN CALL BUG_SHELL_ABD_MATRICES ( 0, 23 ) ENDIF @@ -478,10 +478,10 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) IF ((PCOMP_TM > EPS1) .AND. (PCOMP_IB > EPS1) .AND. (PCOMP_TS > EPS1)) THEN CALL WRITE_PCOMP_EQUIV ( PCOMP_TM, PCOMP_IB, PCOMP_TS ) ELSE - WRITE(ERR,9800) PCOMP(INTL_PID,1), PCOMP_TM, PCOMP_IB, PCOMP_TS - WRITE(F06,9800) PCOMP(INTL_PID,1), PCOMP_TM, PCOMP_IB, PCOMP_TS + WRITE(ERR,9800) PCOMP(INTL_PID,1), PCOMP_TM, PCOMP_IB, PCOMP_TS + WRITE(F06,9800) PCOMP(INTL_PID,1), PCOMP_TM, PCOMP_IB, PCOMP_TS ENDIF - ENDIF + ENDIF ENDIF pcom0 @@ -495,7 +495,7 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) SHELL_T(2,1) = ZERO WRITE(ERR,9801) EID, SHELL_T(1,1), SHELL_T(2,2) ! WRITE(F06,9801) EID, SHELL_T(1,1), SHELL_T(2,2) - SHELL_T_MOD = 'Y' + SHELL_T_MOD = 'Y' ENDIF @@ -518,7 +518,7 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) ' TO SINGULARITY.',/, 14X,' THIS RESET COULD HAVE BEEN AVOIDED BY SPECIFYING TRANSVERSE SHEAR MATERIAL PROPERTIES', & ' FOR THIS ELEMENT.',/,14X,' THE RESET VALUES FOR THE DIAGONALS OF THE 2 BY 2 SHELL_T', & ' MATRIX FOR THIS ELEMENT ARE:', 2(1ES14.6),/,14X,' IN AN ATTEMPT TO SIMULATE ZERO TRANSVERSE SHEAR FLEXIBILITY'/) - + 49832 format(' In SHELL_ABD_MATRICES: TM, IB, TS, FCONV(1), FCONV(2) = ',5(1es14.6)) @@ -540,7 +540,7 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) ! ################################################################################################################################## - + CONTAINS ! ################################################################################################################################## @@ -555,7 +555,7 @@ SUBROUTINE BUG_SHELL_ABD_MATRICES ( JPLY, WHAT ) CHARACTER(4*BYTE) :: MTRL_NAME ! Material name (MAT1, etc) INTEGER(LONG), INTENT(IN) :: JPLY ! Integer ply number - INTEGER(LONG) :: IIROW,IICOL ! + INTEGER(LONG) :: IIROW,IICOL ! INTEGER(LONG) :: J1,J2 ! Counters INTEGER(LONG) :: PCOMP_PLIES ! Number of plies in 1 PCOMP entry incl sym plies not explicitly defined INTEGER(LONG), INTENT(IN) :: WHAT ! Which block of code to write @@ -564,7 +564,7 @@ SUBROUTINE BUG_SHELL_ABD_MATRICES ( JPLY, WHAT ) IF (WHAT == 13) THEN WRITE(BUG,91301) - + DO I=1,3 ! Write final result, SHELL_A WRITE(BUG,91302) I, (SHELL_A(I,J),J=1,3) ENDDO @@ -584,7 +584,7 @@ SUBROUTINE BUG_SHELL_ABD_MATRICES ( JPLY, WHAT ) WRITE(BUG,91305) I, (SHELL_T(I,J),J=1,2) ENDDO WRITE(BUG,*) - + ELSE IF (WHAT == 20) THEN PCOMP_PLIES = PCOMP(INTL_PID,5) @@ -632,12 +632,12 @@ SUBROUTINE BUG_SHELL_ABD_MATRICES ( JPLY, WHAT ) J1 = MPCOMP0 + MPCOMP_PLIES*(J-1) + 1 J2 = MRPCOMP0 + MRPCOMP_PLIES*(J-1) + 1 IF (PCOMP(INTL_PID,J1+1) == 0) THEN - WRITE(BUG,92008) J, MATL(IIROW,1), RPCOMP(INTL_PID,J2), RPCOMP(INTL_PID,J2+1), '0 (NO )', RPCOMP(INTL_PID,J2+2) + WRITE(BUG,92008) J, MATL(IIROW,1), RPCOMP(INTL_PID,J2), RPCOMP(INTL_PID,J2+1), '0 (NO )', RPCOMP(INTL_PID,J2+2) ELSE - WRITE(BUG,92008) J, MATL(IIROW,1), RPCOMP(INTL_PID,J2), RPCOMP(INTL_PID,J2+1), '0 (YES)', RPCOMP(INTL_PID,J2+2) + WRITE(BUG,92008) J, MATL(IIROW,1), RPCOMP(INTL_PID,J2), RPCOMP(INTL_PID,J2+1), '0 (YES)', RPCOMP(INTL_PID,J2+2) ENDIF ENDDO - WRITE(BUG,92007) RPCOMP(INTL_PID,6) + WRITE(BUG,92007) RPCOMP(INTL_PID,6) WRITE(BUG,*) ELSE @@ -650,9 +650,9 @@ SUBROUTINE BUG_SHELL_ABD_MATRICES ( JPLY, WHAT ) J1 = MPCOMP0 + MPCOMP_PLIES*(J-1) + 1 J2 = MRPCOMP0 + MRPCOMP_PLIES*(J-1) + 1 IF (PCOMP(INTL_PID,J1+1) == 0) THEN - WRITE(BUG,92008) J, MATL(IIROW,1), RPCOMP(INTL_PID,J2), RPCOMP(INTL_PID,J2+1), '0 (NO )', RPCOMP(INTL_PID,J2+2) + WRITE(BUG,92008) J, MATL(IIROW,1), RPCOMP(INTL_PID,J2), RPCOMP(INTL_PID,J2+1), '0 (NO )', RPCOMP(INTL_PID,J2+2) ELSE - WRITE(BUG,92008) J, MATL(IIROW,1), RPCOMP(INTL_PID,J2), RPCOMP(INTL_PID,J2+1), '0 (YES)', RPCOMP(INTL_PID,J2+2) + WRITE(BUG,92008) J, MATL(IIROW,1), RPCOMP(INTL_PID,J2), RPCOMP(INTL_PID,J2+1), '0 (YES)', RPCOMP(INTL_PID,J2+2) ENDIF ENDDO WRITE(BUG,*) @@ -663,12 +663,12 @@ SUBROUTINE BUG_SHELL_ABD_MATRICES ( JPLY, WHAT ) J1 = MPCOMP0 + MPCOMP_PLIES*(J-1) + 1 J2 = MRPCOMP0 + MRPCOMP_PLIES*(J-1) + 1 IF (PCOMP(INTL_PID,J1+1) == 0) THEN - WRITE(BUG,92008) J, MATL(IIROW,1), RPCOMP(INTL_PID,J2), RPCOMP(INTL_PID,J2+1), '0 (NO )', RPCOMP(INTL_PID,J2+2) + WRITE(BUG,92008) J, MATL(IIROW,1), RPCOMP(INTL_PID,J2), RPCOMP(INTL_PID,J2+1), '0 (NO )', RPCOMP(INTL_PID,J2+2) ELSE - WRITE(BUG,92008) J, MATL(IIROW,1), RPCOMP(INTL_PID,J2), RPCOMP(INTL_PID,J2+1), '0 (YES)', RPCOMP(INTL_PID,J2+2) + WRITE(BUG,92008) J, MATL(IIROW,1), RPCOMP(INTL_PID,J2), RPCOMP(INTL_PID,J2+1), '0 (YES)', RPCOMP(INTL_PID,J2+2) ENDIF ENDDO - WRITE(BUG,92007) RPCOMP(INTL_PID,6) + WRITE(BUG,92007) RPCOMP(INTL_PID,6) WRITE(BUG,*) ENDIF @@ -717,7 +717,7 @@ SUBROUTINE BUG_SHELL_ABD_MATRICES ( JPLY, WHAT ) DO I=1,2 ! Write transformed material matrices, EM, ET WRITE(BUG,92205) I, (EM(I,J),J=1,3), I, (ET(I,J),J=1,2) ENDDO - DO I=3,3 + DO I=3,3 WRITE(BUG,92206) I, (EM(I,J),J=1,3) ENDDO WRITE(BUG,*) @@ -745,7 +745,7 @@ SUBROUTINE BUG_SHELL_ABD_MATRICES ( JPLY, WHAT ) WRITE(BUG,*) ELSE IF (WHAT == 23) THEN - + PCOMP_PLIES = PCOMP(INTL_PID,5) WRITE(BUG,92301) PCOMP(INTL_PID,1), PCOMP_PLIES @@ -797,7 +797,7 @@ SUBROUTINE BUG_SHELL_ABD_MATRICES ( JPLY, WHAT ) 92006 format(29x,'Ply no. Actual Thickness Matl angle SOUTi ZI ',/, & 29x,' Matl ID TPLY THETAi (Coord of mid)',/, & - 29x,'------- ------------ ------------ ------------ ------------ ------------') + 29x,'------- ------------ ------------ ------------ ------------ ------------') 92007 FORMAT(56x,'------------',/,54X,1ES14.6,' total thickness') diff --git a/Source/EMG/EMG1/SOLVE_SHELL_ALP.f90 b/Source/EMG/EMG1/SOLVE_SHELL_ALP.f90 index 0e62d4a4..3ee56d3b 100644 --- a/Source/EMG/EMG1/SOLVE_SHELL_ALP.f90 +++ b/Source/EMG/EMG1/SOLVE_SHELL_ALP.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE SOLVE_SHELL_ALP ( SHELL_ALP_ERR ) ! Solves for SHELL_ALP which is an effective CTE matrix for the PSHELL equivalent for a PCOMP (akin to ALPVEC's 1st 3 rows for a -! homogeneous shell element) +! homogeneous shell element) USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, MEMATC diff --git a/Source/EMG/EMG1/WRITE_PCOMP_EQUIV.f90 b/Source/EMG/EMG1/WRITE_PCOMP_EQUIV.f90 index 2dba0161..e8a0d62c 100644 --- a/Source/EMG/EMG1/WRITE_PCOMP_EQUIV.f90 +++ b/Source/EMG/EMG1/WRITE_PCOMP_EQUIV.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE WRITE_PCOMP_EQUIV ( PCOMP_TM, PCOMP_IB, PCOMP_TS ) @@ -125,10 +125,10 @@ SUBROUTINE WRITE_PCOMP_EQUIV ( PCOMP_TM, PCOMP_IB, PCOMP_TS ) PCOMP_IBP = TWELVE*PCOMP_IB/(PCOMP_TM*PCOMP_TM*PCOMP_TM) PCOMP_TSTM = PCOMP_TS/PCOMP_TM - WRITE(F06,9901) PCOMP(INTL_PID,1), PCOMP_TM, PCOMP_IBP, PCOMP_TSTM + WRITE(F06,9901) PCOMP(INTL_PID,1), PCOMP_TM, PCOMP_IBP, PCOMP_TSTM IF (SUPINFO == 'N') THEN WRITE(F06,9901) PCOMP(INTL_PID,1), PCOMP_TM, PCOMP_IBP, PCOMP_TSTM - ENDIF + ENDIF DO I=1,3 DO J =1,3 @@ -201,7 +201,7 @@ SUBROUTINE WRITE_PCOMP_EQUIV ( PCOMP_TM, PCOMP_IB, PCOMP_TS ) WRITE(F06,*) - ENDIF + ENDIF CALL GET_CHAR8_OUTPUTS ( C8FLD_GIJ, C8FLD_ALP, C8FLD_RHO, C8FLD_TREF, C8FLD_TM, C8FLD_ZS ) @@ -297,7 +297,7 @@ SUBROUTINE WRITE_PCOMP_EQUIV ( PCOMP_TM, PCOMP_IB, PCOMP_TS ) '+++++++++++++++++++++++++++++++++++++++++++++++++') 9901 FORMAT(' *INFORMATION: Equivalent PSHELL amd MAT2 entries for PCOMP ',I8,' with:' & - ,/,14X,' membrane thickness TM = ',1ES13.6,', 12*IB/(TM^3) = ',1ES13.6,', TS/TM = ',1ES13.6,':',/) + ,/,14X,' membrane thickness TM = ',1ES13.6,', 12*IB/(TM^3) = ',1ES13.6,', TS/TM = ',1ES13.6,':',/) 9902 FORMAT(' Type MATL ID G11 G12 G13 G22 G23 G33', & ' A1 A2 A3',/ & @@ -317,9 +317,9 @@ SUBROUTINE WRITE_PCOMP_EQUIV ( PCOMP_TM, PCOMP_IB, PCOMP_TS ) 9913 FORMAT('PSHELL ,',I9,',',I9,',',A9,',',I9,', 1.0,',I9,',',' 1.0, , +',I7,/,' +',I7,2(',',A9),/) 9922 FORMAT('MAT2 ,',I9,7(',',A9),', +',I7,/,' +',I7,3(',',A9),',',A9,/) - + 9923 FORMAT('MAT2 ,',I9,7(',',A9),', +',I7,/,' +',I7,3(',',8X),',',A9,/) - + 9932 FORMAT('MAT2 ,',I9,7(',',A9),', +',I7,/,' +',I7,2(',',A9),',',9X,',',A9,/) 9933 FORMAT('MAT2 ,',I9,7(',',A9),', +',I7,/,' +',I7,2(',',8X),',',9X,',',A9,/) @@ -329,7 +329,7 @@ SUBROUTINE WRITE_PCOMP_EQUIV ( PCOMP_TM, PCOMP_IB, PCOMP_TS ) ' flexibility') ! ################################################################################################################################## - + CONTAINS ! ################################################################################################################################## @@ -370,18 +370,18 @@ SUBROUTINE GET_CHAR8_OUTPUTS ( C8FLD_GIJ, C8FLD_ALP, C8FLD_RHO, C8FLD_TREF, C8FL CALL REAL_DATA_TO_C8FLD ( PCOMP_MEM_MAT2(2,2) ,C8FLD_GIJ(2,2,1) ) CALL REAL_DATA_TO_C8FLD ( PCOMP_MEM_MAT2(2,3) ,C8FLD_GIJ(2,3,1) ) CALL REAL_DATA_TO_C8FLD ( PCOMP_MEM_MAT2(3,3) ,C8FLD_GIJ(3,3,1) ) - + CALL REAL_DATA_TO_C8FLD ( PCOMP_BEN_MAT2(1,1) ,C8FLD_GIJ(1,1,2) ) CALL REAL_DATA_TO_C8FLD ( PCOMP_BEN_MAT2(1,2) ,C8FLD_GIJ(1,2,2) ) CALL REAL_DATA_TO_C8FLD ( PCOMP_BEN_MAT2(1,3) ,C8FLD_GIJ(1,3,2) ) CALL REAL_DATA_TO_C8FLD ( PCOMP_BEN_MAT2(2,2) ,C8FLD_GIJ(2,2,2) ) CALL REAL_DATA_TO_C8FLD ( PCOMP_BEN_MAT2(2,3) ,C8FLD_GIJ(2,3,2) ) CALL REAL_DATA_TO_C8FLD ( PCOMP_BEN_MAT2(3,3) ,C8FLD_GIJ(3,3,2) ) - + CALL REAL_DATA_TO_C8FLD ( PCOMP_TSH_MAT2(1,1) ,C8FLD_GIJ(1,1,3) ) CALL REAL_DATA_TO_C8FLD ( PCOMP_TSH_MAT2(1,2) ,C8FLD_GIJ(1,2,3) ) CALL REAL_DATA_TO_C8FLD ( PCOMP_TSH_MAT2(2,2) ,C8FLD_GIJ(2,2,3) ) - + CALL REAL_DATA_TO_C8FLD ( PCOMP_MBC_MAT2(1,1) ,C8FLD_GIJ(1,1,4) ) CALL REAL_DATA_TO_C8FLD ( PCOMP_MBC_MAT2(1,2) ,C8FLD_GIJ(1,2,4) ) CALL REAL_DATA_TO_C8FLD ( PCOMP_MBC_MAT2(1,3) ,C8FLD_GIJ(1,3,4) ) diff --git a/Source/EMG/EMG2/ELMOFF.f90 b/Source/EMG/EMG2/ELMOFF.f90 index 85582633..ced1215a 100644 --- a/Source/EMG/EMG2/ELMOFF.f90 +++ b/Source/EMG/EMG2/ELMOFF.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) - +! End MIT license text. + + SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) + ! Processes element mass, stiffness, thermal load, pressure load, stress recovery matrices if there are any offsets of the element -! at any grid points. This is a general routine which can be used by any of the elements as long as the +! at any grid points. This is a general routine which can be used by any of the elements as long as the ! element has no more than 4 grid points. ! ====================================== @@ -52,15 +52,15 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not INTEGER(LONG) :: I,J,K,L,M,N ! DO loop indices - INTEGER(LONG) :: II,JJ ! Computed indices - INTEGER(LONG) :: JBEG ! Index - INTEGER(LONG) :: KBEG ! Index + INTEGER(LONG) :: II,JJ ! Computed indices + INTEGER(LONG) :: JBEG ! Index + INTEGER(LONG) :: KBEG ! Index INTEGER(LONG) :: ROW ! A computed row number in the elem stiff matrix INTEGER(LONG) :: COL ! A computed col number in the elem stiff matrix INTEGER(LONG) :: NCOL ! An input to subr MULT_OFFSET, called herein INTEGER(LONG) :: METH ! An input to subr MULT_OFFSET, called herein - + REAL(DOUBLE) :: DUM3(3,3) ! An intermediate result when calculating offset SEi REAL(DOUBLE) :: DUM4(3,3) ! An intermediate result when calculating offset SEi REAL(DOUBLE) :: DUM11(3,3) ! An intermediate result when calculating offset KE @@ -95,7 +95,7 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) REAL(DOUBLE) :: TY_DIR(3) ! Vector that defines the y axis of the spring. REAL(DOUBLE) :: T(3,3) ! Transformation matrix for spring. REAL(DOUBLE) :: KROT(3,3) ! Stiff matrix for spring. - + INTRINSIC :: DABS @@ -120,7 +120,7 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) ! The offset matrix is called E for each G.P. but is never written out as a 6 x 6 matrix. ! The general form of E for one grid point is: - + ! | 1 0 0 | 0 DZ -DY | ! | 0 1 0 | -DZ 0 DX | ! | 0 0 1 | DY -DX 0 | @@ -213,43 +213,43 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) ! ********************************************************************************************************************************** ! Add K6ROT stiffness - ! Only for QUAD4 and TRIA3, + ! Only for QUAD4 and TRIA3, ! not QUAD8, QUAD4K, or TRIA3K. IF (TYPE == 'QUAD4 ' .OR. TYPE == 'TRIA3 ') THEN - + ! No K6ROT for shells that only use MID1. IF (INTL_MID(2) > 0) THEN AREA = ZERO IF ((TYPE(1:5) == "QUAD4")) THEN - + XSD(1) = XEL(1,1) - XEL(2,1) ! x coord diffs (in local elem coords) XSD(2) = XEL(2,1) - XEL(3,1) XSD(3) = XEL(3,1) - XEL(4,1) XSD(4) = XEL(4,1) - XEL(1,1) - + YSD(1) = XEL(1,2) - XEL(2,2) ! y coord diffs (in local elem coords) YSD(2) = XEL(2,2) - XEL(3,2) YSD(3) = XEL(3,2) - XEL(4,2) YSD(4) = XEL(4,2) - XEL(1,2) - + CALL ORDER_GAUSS ( 2, SSS, HHH ) DO I=1,2 DO J=1,2 CALL JAC2D ( SSS(I), SSS(J), XSD, YSD, 'N', JAC, JACI, DETJ ) AREA = AREA + HHH(I)*HHH(J)*DETJ - ENDDO - ENDDO - + ENDDO + ENDDO + ELSEIF (TYPE(1:5) == "TRIA3") THEN - + X2E = XEL(2,1) Y3E = XEL(3,2) ! Actual area is half this but using this value ! gives the same stiffness as MSC. AREA = X2E*Y3E - + ENDIF ! Drilling spring stiffness = K6ROT * 10^-6 * G12 * thickness * area @@ -258,8 +258,8 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) ! Find the direction of the singularity DOF (SNORM) in the element coordinate system. IF ((TYPE == 'QUAD4 ') .AND. ((QUAD4TYP == 'MITC4 ') .OR. (QUAD4TYP == 'MITC4+'))) THEN - ! This is currently the director vector - ! but it won't be if SNORM is implemented + ! This is currently the director vector + ! but it won't be if SNORM is implemented ! without changing the geometry of the element. K6_DIR(:,1:ELGP) = DIRECTOR(:,1:ELGP) ELSEIF (((TYPE == 'QUAD4 ') .AND. ((QUAD4TYP == 'MIN4 ') .OR. (QUAD4TYP == 'MIN4T '))) & @@ -308,10 +308,10 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) ENDIF ! ********************************************************************************************************************************** - + ! Set KE = KE1 for 6*ELGP by 6*ELGP terms - + DO J=1,6*ELGP DO K=1,6*ELGP KE(J,K) = KE1(J,K) @@ -335,17 +335,17 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DO J=1,3 DO K=1,NTSUB PDUM1(J,K) = PTE(II+J,K) - ENDDO - ENDDO + ENDDO + ENDDO NCOL = NTSUB METH = 2 CALL MULT_OFFSET ( PDUM1, DXI, DYI, DZI, NCOL, METH, PDUM2 ) DO J=1,3 DO K=1,NTSUB PTE(II+J+3,K) = PTE(II+J+3,K) + PDUM2(J,K) - ENDDO + ENDDO ENDDO - ENDIF + ENDIF IF (OPT(1) == 'Y') THEN ! Process ME. Generate E(transp)*ME*E. DO J=I,ELGP @@ -361,8 +361,8 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DUM12(K,L) = ME(II+K,JJ+L+3) DUM21(K,L) = ME(II+K+3,JJ+L) DUM22(K,L) = ME(II+K+3,JJ+L+3) - ENDDO - ENDDO + ENDDO + ENDDO NCOL = 3 ! Modify upper right 3x3 partition of ME METH = 1 @@ -370,8 +370,8 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DO K=1,3 DO L=1,3 ME(II+K,JJ+L+3) = DUM12(K,L) + DUM3(K,L) - ENDDO - ENDDO + ENDDO + ENDDO NCOL = 3 ! Modify lower left 3x3 partition of ME METH = 2 @@ -379,8 +379,8 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DO K=1,3 DO L=1,3 ME(II+K+3,JJ+L) = DUM21(K,L) + DUM3(K,L) - ENDDO - ENDDO + ENDDO + ENDDO NCOL = 3 ! Modify lower right 3x3 partition of ME METH = 1 @@ -388,17 +388,17 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DO K=1,3 DO L=1,3 ME(II+K+3,JJ+L+3) = DUM22(K,L) + DUM3(K,L) - ENDDO - ENDDO - + ENDDO + ENDDO + NCOL = 3 METH = 2 CALL MULT_OFFSET ( DUM12, DXI, DYI, DZI, NCOL, METH, DUM3 ) DO K=1,3 DO L=1,3 ME(II+K+3,JJ+L+3) = ME(II+K+3,JJ+L+3) +DUM3(K,L) - ENDDO - ENDDO + ENDDO + ENDDO NCOL = 3 METH = 1 @@ -409,13 +409,13 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DO K=1,3 DO L=1,3 ME(II+K+3,JJ+L+3) = ME(II+K+3,JJ+L+3) +DUM3(K,L) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF - ENDDO - + ENDDO + DO K=2,ELGP ! Generate the remaining Mij using symmetry. DO L=1,K-1 DO M=1,6 @@ -423,13 +423,13 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) ROW = 6*(K-1) + M COL = 6*(L-1) + N ME(ROW,COL) = ME(COL,ROW) - ENDDO - ENDDO - ENDDO + ENDDO + ENDDO + ENDDO ENDDO - ENDIF - + ENDIF + IF (OPT(3) == 'Y') THEN ! Process SEi. Generate SEi*E DO L=1,MAX_STRESS_POINTS+1 @@ -437,29 +437,29 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DO K=1,3 !xxError DUM3(J,K) = SE1(L,J,II+K) DUM3(J,K) = SE1(J,II+K,L) - ENDDO + ENDDO ENDDO - ENDDO + ENDDO NCOL = 3 METH = 1 CALL MULT_OFFSET ( DUM3, DXI, DYI, DZI, NCOL, METH, DUM4 ) DO L=1,MAX_STRESS_POINTS+1 - DO J=1,3 + DO J=1,3 DO K=1,3 !xxError SE1(L,J,II+K+3) = SE1(L,J,II+K+3) + DUM4(J,K) SE1(J,II+K+3,L) = SE1(J,II+K+3,L) + DUM4(J,K) ENDDO - ENDDO - ENDDO + ENDDO + ENDDO DO L=1,MAX_STRESS_POINTS+1 DO J=1,3 DO K=1,3 !xxError DUM3(J,K) = SE2(L,J,II+K) DUM3(J,K) = SE2(J,II+K,L) - ENDDO + ENDDO ENDDO - ENDDO + ENDDO NCOL = 3 METH = 1 CALL MULT_OFFSET ( DUM3, DXI, DYI, DZI, NCOL, METH, DUM4 ) @@ -468,8 +468,8 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DO K=1,3 !xxError SE2(L,J,II+K+3) = SE2(L,J,II+K+3) + DUM4(J,K) SE2(J,II+K+3,L) = SE2(J,II+K+3,L) + DUM4(J,K) - ENDDO - ENDDO + ENDDO + ENDDO ENDDO DO L=1,MAX_STRESS_POINTS+1 @@ -477,9 +477,9 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DO K=1,3 !xxError DUM3(J,K) = SE3(L,J,II+K) DUM3(J,K) = SE3(J,II+K,L) - ENDDO + ENDDO ENDDO - ENDDO + ENDDO NCOL = 3 METH = 1 CALL MULT_OFFSET ( DUM3, DXI, DYI, DZI, NCOL, METH, DUM4 ) @@ -488,9 +488,9 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DO K=1,3 !xxError SE3(L,J,II+K+3) = SE3(L,J,II+K+3) + DUM4(J,K) SE3(J,II+K+3,L) = SE3(J,II+K+3,L) + DUM4(J,K) - ENDDO + ENDDO ENDDO - ENDDO + ENDDO ENDIF @@ -509,8 +509,8 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DUM12(K,L) = KE(II+K,JJ+L+3) DUM21(K,L) = KE(II+K+3,JJ+L) DUM22(K,L) = KE(II+K+3,JJ+L+3) - ENDDO - ENDDO + ENDDO + ENDDO NCOL = 3 ! Modify upper right 3x3 partition of KE METH = 1 @@ -518,8 +518,8 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DO K=1,3 DO L=1,3 KE(II+K,JJ+L+3) = DUM12(K,L) + DUM3(K,L) - ENDDO - ENDDO + ENDDO + ENDDO NCOL = 3 ! Modify lower left 3x3 partition of KE METH = 2 @@ -527,8 +527,8 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DO K=1,3 DO L=1,3 KE(II+K+3,JJ+L) = DUM21(K,L) + DUM3(K,L) - ENDDO - ENDDO + ENDDO + ENDDO NCOL = 3 ! Modify lower right 3x3 partition of KE METH = 1 @@ -536,17 +536,17 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DO K=1,3 DO L=1,3 KE(II+K+3,JJ+L+3) = DUM22(K,L) + DUM3(K,L) - ENDDO - ENDDO - + ENDDO + ENDDO + NCOL = 3 METH = 2 CALL MULT_OFFSET ( DUM12, DXI, DYI, DZI, NCOL, METH, DUM3 ) DO K=1,3 DO L=1,3 KE(II+K+3,JJ+L+3) = KE(II+K+3,JJ+L+3) +DUM3(K,L) - ENDDO - ENDDO + ENDDO + ENDDO NCOL = 3 METH = 1 @@ -557,13 +557,13 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) DO K=1,3 DO L=1,3 KE(II+K+3,JJ+L+3) = KE(II+K+3,JJ+L+3) +DUM3(K,L) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF - ENDDO - + ENDDO + DO K=2,ELGP ! Generate the remaining Kij using symmetry. DO L=1,K-1 DO M=1,6 @@ -571,36 +571,36 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) ROW = 6*(K-1) + M COL = 6*(L-1) + N KE(ROW,COL) = KE(COL,ROW) - ENDDO - ENDDO - ENDDO + ENDDO + ENDDO + ENDDO ENDDO - ENDIF - + ENDIF + IF (OPT(5) == 'Y') THEN ! Process PPE. Generate E(transp.)*PPE DO J=1,3 DO K=1,NSUB PDUM1(J,K) = PPE(II+J,K) - ENDDO - ENDDO + ENDDO + ENDDO NCOL = NSUB METH = 2 CALL MULT_OFFSET ( PDUM1, DXI, DYI, DZI, NCOL, METH, PDUM2 ) DO J=1,3 DO K=1,NSUB PPE(II+J+3,K) = PPE(II+J+3,K) + PDUM2(J,K) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF ENDIF - ENDDO - + ENDDO + + - RETURN @@ -631,9 +631,9 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) CONTAINS ! ################################################################################################################################## - + SUBROUTINE MULT_OFFSET ( A, DX, DY, DZ, NCOLA, METH, B ) - + ! Perform matrix multiply to get A*E or E(transp)*A for elem offsets. Matrix E, the offset matrix, is a simple form. ! It is an identity 6 x 6 plus a 3 x 3 in the upper right corner containing the 3 offset distances. Due to this ! simplicity, A*E or E(transp)*A is calculated explicitly @@ -642,7 +642,7 @@ SUBROUTINE MULT_OFFSET ( A, DX, DY, DZ, NCOLA, METH, B ) USE IOUNT1, ONLY : ERR, F06, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MEFE USE TIMDAT, ONLY : TSEC - USE MODEL_STUF, ONLY : EMG_IFE, ERR_SUB_NAM, NUM_EMG_FATAL_ERRS + USE MODEL_STUF, ONLY : EMG_IFE, ERR_SUB_NAM, NUM_EMG_FATAL_ERRS IMPLICIT NONE @@ -653,13 +653,13 @@ SUBROUTINE MULT_OFFSET ( A, DX, DY, DZ, NCOLA, METH, B ) ! = 2 if E(transp)*A is to be calculated INTEGER(LONG), INTENT(IN) :: NCOLA ! Number of cols in matrix A - + REAL(DOUBLE) , INTENT(IN) :: A(3,NCOLA) ! Matrix to either post-multiply E by or pre-multiply E(transp) by REAL(DOUBLE) , INTENT(IN) :: DX ! Offset distance in direction 1 REAL(DOUBLE) , INTENT(IN) :: DY ! Offset distance in direction 2 REAL(DOUBLE) , INTENT(IN) :: DZ ! Offset distance in direction 3 REAL(DOUBLE) , INTENT(INOUT) :: B(3,NCOLA) ! Result matrix of either A*E or E(transp)*A - + ! ********************************************************************************************************************************** @@ -670,14 +670,14 @@ SUBROUTINE MULT_OFFSET ( A, DX, DY, DZ, NCOLA, METH, B ) B(IK,1) = -A(IK,2)*DZ + A(IK,3)*DY B(IK,2) = A(IK,1)*DZ - A(IK,3)*DX B(IK,3) = -A(IK,1)*DY + A(IK,2)*DX - ENDDO + ENDDO ELSE IF (METH == 2) THEN DO JK=1,NCOLA B(1,JK) = -A(2,JK)*DZ + A(3,JK)*DY B(2,JK) = A(1,JK)*DZ - A(3,JK)*DX B(3,JK) = -A(1,JK)*DY + A(2,JK)*DX - ENDDO - ELSE + ENDDO + ELSE NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 FATAL_ERR = FATAL_ERR + 1 IF (WRT_ERR /= 0) THEN @@ -692,7 +692,7 @@ SUBROUTINE MULT_OFFSET ( A, DX, DY, DZ, NCOLA, METH, B ) ENDIF CALL OUTA_HERE ( 'Y' ) ENDIF - + RETURN diff --git a/Source/EMG/EMG2/ELMOUT.f90 b/Source/EMG/EMG2/ELMOUT.f90 index 402eacb0..a7cdeeb3 100644 --- a/Source/EMG/EMG2/ELMOUT.f90 +++ b/Source/EMG/EMG2/ELMOUT.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) - + ! Prints elem related data (controlled by Case Control ELDATA requests and situational variable WRT_BUG(i) ). - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_DAT1_BIT, ELDT_BUG_DAT2_BIT, ELDT_BUG_ME_BIT, ELDT_BUG_P_T_BIT, & @@ -46,7 +46,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) USE ELMOUT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELMOUT' CHARACTER(LEN=*), INTENT(IN) :: OPT(6) ! Array of EMG option indicators explained above CHARACTER( 1*BYTE) :: FOUND ! Used in determining if we found something we were looking for @@ -54,7 +54,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) CHARACTER(60*BYTE) :: NAME1 ! Text used for output print purposes CHARACTER(21*BYTE) :: NAME2 ! Text used for output print purposes CHARACTER(12*BYTE) :: NAME3 ! Text used for output print purposes - + INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID for which INTEGER(LONG), INTENT(IN) :: CASE_NUM ! Can be subcase number (e.g. for UEL, PEL output) INTEGER(LONG), INTENT(IN) :: DUM_BUG(0:MBUG-1) ! Indicator for output of elem data to BUG file @@ -65,7 +65,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) INTEGER(LONG) :: TCASE2(NSUB) ! TCASE2(I) gives the internal subcase no. for internal thermal case I ! If there are 5 subcases and internal S/C 3 is the 1-st S/C to have ! thermal load and internal S/C 5 is the 2-nd to have thermal load: -! TCASE2(1-5) = 3, 5, 0, 0, 0 +! TCASE2(1-5) = 3, 5, 0, 0, 0 REAL(DOUBLE) :: OEL(6) ! Temp array for holding elem displ, node loads @@ -92,7 +92,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) ! Write output from ELMDAT subroutine. IF (DUM_BUG(0) > 0) THEN - + WRITE(BUG,1000) WRITE(BUG,1001) ELDT_BUG_DAT1_BIT, TYPE, EID @@ -114,7 +114,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' Actual Internal Element X Y Z' DO I=1,ELGP WRITE(BUG,1004) AGRID(I), BGRID(I),I,(XEB(I,J),J=1,3) - ENDDO + ENDDO IF ((TYPE == 'BAR ') .OR. (TYPE == 'BEAM ') .OR. (TYPE == 'USER1 ')) THEN WRITE(BUG,1113) (XEB(ELGP+1,J),J=1,3) ENDIF @@ -147,7 +147,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' Col 1 Col 2 Col 3 Col 4' DO I=1,MEMATR WRITE(BUG,3004) (EMAT(I,J),J=1,MEMATC) - ENDDO + ENDDO WRITE(BUG,*) WRITE(BUG,*) ' ULT_STRE, material stress allowables' @@ -185,7 +185,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' --------------------------------' DO I=1,ELGP WRITE(BUG,3003) (OFFDIS(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) ENDIF @@ -194,7 +194,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) ENDIF IF(TYPE(1:4) == 'ELAS') THEN ! For ELAS, write displ comps, at elem grids, that elem connects to - WRITE(BUG,4001) (ELAS_COMP(I), GRID_TYPE(I), AGRID(I), I=1,2) + WRITE(BUG,4001) (ELAS_COMP(I), GRID_TYPE(I), AGRID(I), I=1,2) ENDIF ! Write output from ELMGMi @@ -227,7 +227,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) ENDIF DO I=1,3 WRITE(BUG,3003) (TE(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) WRITE(BUG,*) ' Actual & Internal G.P.s and local coordinates (AGRID, BGRID, I, XEL)' @@ -236,7 +236,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' Actual Internal No. X Y Z' DO I=1,ELGP WRITE(BUG,1004) AGRID(I), BGRID(I),I,(XEL(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) IF ((TYPE == 'QDMEM ') .OR. (TYPE == 'QDPLT1 ') .OR. (TYPE == 'QDPLT2 ') .OR. & @@ -255,7 +255,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,1005) (BMEANT(I,3*(J-1)+K),I=1,8) ENDDO WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDIF @@ -274,21 +274,21 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' -----------------------------------------------------------------------------' DO I=1,3 WRITE(BUG,3003) (EM(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) WRITE(BUG,*) ' EB material matrix, in local element coordinate system, for bending stresses' WRITE(BUG,*) ' ----------------------------------------------------------------------------' DO I=1,3 WRITE(BUG,3003) (EB(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) WRITE(BUG,*) ' ET material matrix, in local element coordinate system, for transverse shear stresses' WRITE(BUG,*) ' -------------------------------------------------------------------------------------' DO I=1,2 WRITE(BUG,3002) (ET(I,J),J=1,2) - ENDDO + ENDDO WRITE(BUG,*) ELSE IF ((TYPE == 'HEXA8 ') .OR. (TYPE == 'HEXA20 ') .OR. & @@ -299,7 +299,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' -----------------------------------------------------------------------------' DO I=1,6 WRITE(BUG,3006) (ES(I,J),J=1,6) - ENDDO + ENDDO WRITE(BUG,*) ENDIF @@ -311,7 +311,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) ! ********************************************************************************************************************************** ! Element thermal and pressure load matrices - IF (DUM_BUG(2) > 0) THEN + IF (DUM_BUG(2) > 0) THEN WRITE(BUG,1000) @@ -321,14 +321,14 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) DO I = 1,NSUB TCASE2(I) = 0 - ENDDO + ENDDO J = 0 DO I = 1,NSUB IF (SUBLOD(I,2) /= 0) THEN J = J + 1 TCASE2(J) = I ENDIF - ENDDO + ENDDO WRITE(BUG,*) ' DT, Array of element temperature data (one row for each thermal subcase):' WRITE(BUG,*) ' ------------------------------------------------------------------------' @@ -336,7 +336,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,1006) J, NTSUB WRITE(BUG,3026) (DT(I,J),I=1,MDT) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) DO J=1,NTSUB @@ -350,7 +350,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) ENDIF WRITE(BUG,3006) (PTE(I,J),I=1,ELDOF) WRITE(BUG,*) - ENDDO + ENDDO ELSE WRITE(BUG,*) ' There is no thermal load data' ENDIF @@ -362,7 +362,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,1006) J, NSUB WRITE(BUG,3026) (PRESS(I,J),I=1,MPRESS) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) DO J=1,NSUB @@ -376,7 +376,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) ENDIF WRITE(BUG,3006) (PPE(I,J),I=1,ELDOF) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDIF @@ -403,7 +403,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' Row',I WRITE(BUG,3006) (ME(I,J),J=1,ELDOF) WRITE(BUG,*) - ENDDO + ENDDO ENDIF @@ -459,7 +459,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,3006) (KED(I,J),J=1,ELDOF) WRITE(BUG,*) ENDDO - ELSE + ELSE WRITE(BUG,*) ' KE element stiffness matrix in local element coordinate system' WRITE(BUG,*) ' --------------------------------------------------------------' IF ((TYPE == 'BAR ') .OR. (TYPE == 'BEAM ') .OR. (TYPE == 'ROD ')) THEN @@ -474,7 +474,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,3006) (KE(I,J),J=1,ELDOF) WRITE(BUG,*) ENDDO - ENDIF + ENDIF ENDIF @@ -521,7 +521,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' Row',I WRITE(BUG,3006) (SE1(I,J,K),J=1,ELDOF) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDDO @@ -532,7 +532,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' Row',I WRITE(BUG,3006) (SE2(I,J,K),J=1,ELDOF) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDDO @@ -543,7 +543,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' Row',I WRITE(BUG,3006) (SE3(I,J,K),J=1,ELDOF) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDDO @@ -556,7 +556,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' Column',J WRITE(BUG,3003) (STE1(I,J,K),I=1,3) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDDO @@ -567,7 +567,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' Column',J WRITE(BUG,3003) (STE2(I,J,K),I=1,3) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDDO @@ -578,7 +578,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' Column',J WRITE(BUG,3003) (STE3(I,J,K),I=1,3) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDDO @@ -602,7 +602,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' Row',I WRITE(BUG,3006) (BE1(I,J,K),J=1,ELDOF) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDDO @@ -613,7 +613,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' Row',I WRITE(BUG,3006) (BE2(I,J,K),J=1,ELDOF) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDDO @@ -624,7 +624,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) WRITE(BUG,*) ' Row',I WRITE(BUG,3006) (BE3(I,J,K),J=1,ELDOF) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDDO @@ -781,7 +781,7 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) 2010 FORMAT(3X,A,' elem nodes in ',A,' coordinate system for subcase ',I8 ,//,& ' Grid T1 T2 T3 R1 R2 R3' ,/,& ' ---- -- -- -- -- -- --') - 2024 FORMAT(24I3) + 2024 FORMAT(24I3) 3002 FORMAT(2(1ES14.6)) @@ -824,5 +824,5 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) 5007 FORMAT(A,1ES14.6) ! ********************************************************************************************************************************** - + END SUBROUTINE ELMOUT diff --git a/Source/EMG/EMG2/ELMTLB.f90 b/Source/EMG/EMG2/ELMTLB.f90 index 02394078..543d4b75 100644 --- a/Source/EMG/EMG2/ELMTLB.f90 +++ b/Source/EMG/EMG2/ELMTLB.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ELMTLB ( OPT ) - + ! Transforms element matrices from local to basic coordinates. Matrices transformed are: ME, KE, KED, PTE, PPE, using elem coord -! transformation matrix TE - +! transformation matrix TE + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : f06 USE SCONTR, ONLY : BLNK_SUB_NAM, MELDOF, NSUB, NTSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ELDOF, ELGP, KE, KED, ME, PTE, PPE, TE - + USE ELMTLB_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELMTLB' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) @@ -51,12 +51,12 @@ SUBROUTINE ELMTLB ( OPT ) INTEGER(LONG), PARAMETER :: NROW = 3 ! No. rows to get/put for subrs MATGET/MATPUT, called herein INTEGER(LONG), PARAMETER :: NROWA = 3 ! No. rows in a matrix for subr MATMULT_FFF/MATMULT_FFF_T, called herein - + REAL(DOUBLE) :: DUM11(3,3) ! An intermediate result when calculating transformed KE REAL(DOUBLE) :: DUM12(3,3) ! An intermediate result when calculating transformed KE REAL(DOUBLE) :: PDUM1(3,NSUB) ! An intermediate result when calculating transformed PTE, PPE REAL(DOUBLE) :: PDUM2(3,NSUB) ! An intermediate result when calculating transformed PTE, PPE - + ! ********************************************************************************************************************************** @@ -71,14 +71,14 @@ SUBROUTINE ELMTLB ( OPT ) CALL MATMULT_FFF ( DUM11, TE, NROWA, NCOLA, NCOLB, DUM12 ) CALL MATMULT_FFF_T ( TE, DUM12, NROWA, NCOLA, NCOLB, DUM11 ) CALL MATPUT ( DUM11, MELDOF, MELDOF, BEG_ROW, BEG_COL, NROW, NCOL, ME ) - ENDDO + ENDDO ENDDO DO I=1,ELDOF ! Set lower portion of ME using symmetry. DO J=1,I-1 ME(I,J) = ME(J,I) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF @@ -105,18 +105,18 @@ SUBROUTINE ELMTLB ( OPT ) CALL MATMULT_FFF ( DUM11, TE, NROWA, NCOLA, NCOLB, DUM12 ) CALL MATMULT_FFF_T ( TE, DUM12, NROWA, NCOLA, NCOLB, DUM11 ) CALL MATPUT ( DUM11, MELDOF, MELDOF, BEG_ROW, BEG_COL, NROW, NCOL, KE ) - ENDDO + ENDDO ENDDO - - + + DO I=1,ELDOF ! Set lower portion of KE using symmetry. DO J=1,I-1 KE(I,J) = KE(J,I) - ENDDO + ENDDO ENDDO - ENDIF + ENDIF IF (OPT(5) == 'Y') THEN ! Transform PPE to TE' x PPE NCOL = NSUB @@ -127,7 +127,7 @@ SUBROUTINE ELMTLB ( OPT ) CALL MATGET ( PPE, MELDOF, NSUB, BEG_ROW, BEG_COL, NROW, NCOL, PDUM1 ) CALL MATMULT_FFF_T ( TE, PDUM1, NROWA, NCOLA, NCOLB, PDUM2 ) CALL MATPUT ( PDUM2, MELDOF, NSUB, BEG_ROW, BEG_COL, NROW, NSUB, PPE ) - ENDDO + ENDDO ENDIF IF (OPT(6) == 'Y') THEN ! Transform KED to TE' x KED x TE @@ -141,13 +141,13 @@ SUBROUTINE ELMTLB ( OPT ) CALL MATMULT_FFF ( DUM11, TE, NROWA, NCOLA, NCOLB, DUM12 ) CALL MATMULT_FFF_T ( TE, DUM12, NROWA, NCOLA, NCOLB, DUM11 ) CALL MATPUT ( DUM11, MELDOF, MELDOF, BEG_ROW, BEG_COL, NROW, NCOL, KED ) - ENDDO - ENDDO - + ENDDO + ENDDO + DO I=1,ELDOF ! Set lower portion of KED using symmetry. DO J=1,I-1 KED(I,J) = KED(J,I) - ENDDO + ENDDO ENDDO ENDIF @@ -157,5 +157,5 @@ SUBROUTINE ELMTLB ( OPT ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE ELMTLB diff --git a/Source/EMG/EMG3/BAR1.f90 b/Source/EMG/EMG3/BAR1.f90 index 9991bacc..d04ca65b 100644 --- a/Source/EMG/EMG3/BAR1.f90 +++ b/Source/EMG/EMG3/BAR1.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, TREF ) - + ! Calculates, for 1-D BAR element ! 1) PTE = element thermal load vectors , if OPT(2) = 'Y' ! 2) SEi, STEi = element stress data recovery matrices, if OPT(3) = 'Y' ! 3) KE = element linear stiffness matrix , if OPT(6) = 'N' (i.e. always calc KE linear unless OPT(6) = 'Y') ! 4) KED = element differen stiff matrix , if OPT(6) = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -45,11 +45,11 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, USE MODEL_STUF, ONLY : ELDOF, DOFPIN, DT, EID, NUM_EMG_FATAL_ERRS, KE, KED, PEL, PTE, SE1, SE2, STE1, STE2, TYPE,& UEL USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE BAR1_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BAR1' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -57,7 +57,7 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, INTEGER(LONG) :: IERROR ! Local error indicator INTEGER(LONG) :: NUM_PFLAG_DOFS ! The number of pin flagged DOF's for this element - + REAL(DOUBLE) , INTENT(IN) :: ALPHA ! Coefficient of thermal expansion REAL(DOUBLE) , INTENT(IN) :: AREA ! Cross-sectional area REAL(DOUBLE) , INTENT(IN) :: E ! Youngs modulus @@ -115,7 +115,7 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, REAL(DOUBLE) :: S12(3,6) ! Intermediate matrix used in calculating SE1 stress matrix REAL(DOUBLE) :: S21(3,6) ! Intermediate matrix used in calculating SE2 stress matrix REAL(DOUBLE) :: S22(3,6) ! Intermediate matrix used in calculating SE2 stress matrix - REAL(DOUBLE) :: TBAR ! Average elem temperature + REAL(DOUBLE) :: TBAR ! Average elem temperature ! The following are used for the differential stiffness matrix calc. See NASTRAN Prog's Manual (COSMIC 1972) page 4.87.30 @@ -128,7 +128,7 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, REAL(DOUBLE) :: Fx ! Axial force (also Fx, in NASTRAN Prog Man differ stiff) INTRINSIC DABS - + REAL(DOUBLE) :: TPRIME(5,NTSUB) ! Matrix where each col has the 5 temperature/gradients for the BAR elem @@ -144,7 +144,7 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, KE(I,J) = ZERO ENDDO ENDDO - + G1 = K1*AREA*G G2 = K2*AREA*G R0 = TWELVE*E/(L*L*L) @@ -156,7 +156,7 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, ! If I12 > 0 then R1, R2 remain as is. If I12 = 0 then R1, R2 depend on G1 and G2. Quit if R1D or R2D = 0. ! If DEBUG(12) = 1, then use R1 and R2 from below even when I12 = 0 - + IERROR = 0 IF ((DABS(I12) <= EPS1) .OR. (DEBUG(12) == 1)) THEN IF (DABS(G1) >= EPS1) THEN @@ -188,7 +188,7 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, ! Return if IERROR > 0 IF (IERROR > 0) RETURN - + ! Calc intermediate variables DELTA1 = I2/DEN @@ -208,10 +208,10 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, C02 = L*L/THREE C03 = C02/TWO IF (DEBUG(203) > 0) CALL DEBUG_BAR1 ( 2 ) - -! Generate KE - KE( 1, 1) = RA ! A-A partition of KE +! Generate KE + + KE( 1, 1) = RA ! A-A partition of KE KE( 2, 2) = R1 KE( 2, 3) = BETA KE( 2, 5) =-C01*BETA @@ -243,7 +243,7 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, KE( 6,11) =-C03*BETA KE( 6,12) = K3T - KE( 7, 7) = RA ! B-B partition of KE + KE( 7, 7) = RA ! B-B partition of KE KE( 8, 8) = R1 KE( 8, 9) = BETA KE( 8,11) = C01*BETA @@ -255,7 +255,7 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, KE(11,11) = K2T KE(11,12) =-C02*BETA KE(12,12) = K1T - + DO I=2,12 ! Set lower triangular partition of KE using symmetry DO J=1,I-1 KE(I,J) = KE(J,I) @@ -264,39 +264,39 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, ! Process Pin Flags. NUM_PFLAG_DOFS is a count of the total number of DOF pin flagged. DOFPIN(i) generated in ELMDAT is an ! integer array of the DOF numbers of the pin flagged DOF. - + NUM_PFLAG_DOFS = 0 DO I=1,12 IF (DOFPIN(I) > 0) THEN NUM_PFLAG_DOFS = NUM_PFLAG_DOFS + 1 ENDIF - ENDDO + ENDDO IF (NUM_PFLAG_DOFS /= 0) THEN CALL PINFLG ( NUM_PFLAG_DOFS ) ENDIF - + DO I=1,6 ! Upper left partition of KE is KAA. Need this for calc'ing PTE, SEi DO J=1,6 KAA(I,J) = KE(I,J) - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,6 ! Upper right partition of KE is KAB. Need this for calculating SEi DO J=7,12 KAB(I,J-6) = KE(I,J) - ENDDO - ENDDO + ENDDO + ENDDO DO I=7,12 ! Lower left partition of KE is KBA. Need this for calculating PTE DO J=1,6 KBA(I-6,J) = KE(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ! The following matrices are needed if either OPT(2) or OPT(3) or OPT(6) is called for IF ((OPT(2) == 'Y') .OR. (OPT(3) == 'Y') .OR. (OPT(6) == 'Y')) THEN - IF (NTSUB > 0) THEN + IF (NTSUB > 0) THEN DO J=1,NTSUB TBAR = (DT(1,J) + DT(2,J))/TWO @@ -312,8 +312,8 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, ENDIF ! ********************************************************************************************************************************** -! Determine element thermal loads. - +! Determine element thermal loads. + ! IF ((OPT(2) == 'Y') .OR. (OPT(6) == 'Y')) THEN IF (NTSUB > 0) THEN @@ -321,8 +321,8 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, DO I=1,6 DO J=1,5 ABAR(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO ABAR(1,1) = ONE ABAR(2,2) = DELTA1*I1*L/SIX @@ -346,7 +346,7 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, DO J=1,5 ABAR(I,J) = -ALPHA*L*ABAR(I,J) ENDDO - ENDDO + ENDDO CALL MATMULT_FFF ( KAA, ABAR, 6, 6, 5, BTA ) CALL MATMULT_FFF ( KBA, ABAR, 6, 6, 5, BTB ) @@ -363,10 +363,10 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, ENDIF ! ENDIF - + ! ********************************************************************************************************************************** ! Calculate SE matrices for stress data recovery. - + ! IF ((OPT(3) == 'Y') .OR. (OPT(6) == 'Y')) THEN DO I=1,3 @@ -447,7 +447,7 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, IF ((OPT(6) == 'Y') .AND. (LOAD_ISTEP > 1)) THEN CALL ELMDIS - + ! Calc BAR forces CALL CALC_ELEM_NODE_FORCES M1a = -PEL(6) ! M1a (bending moment, plane 1, end a for BAR) - NASTRAN Maz @@ -575,9 +575,9 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE DEBUG_BAR1 (WHAT) @@ -654,4 +654,4 @@ SUBROUTINE DEBUG_BAR1 (WHAT) END SUBROUTINE DEBUG_BAR1 - END SUBROUTINE BAR1 \ No newline at end of file + END SUBROUTINE BAR1 diff --git a/Source/EMG/EMG3/BART.f90 b/Source/EMG/EMG3/BART.f90 index 2dca6f12..f390107e 100644 --- a/Source/EMG/EMG3/BART.f90 +++ b/Source/EMG/EMG3/BART.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, TREF ) - + ! Calculates, for 1-D Timoshenko beam element ! 1) PTE = element thermal load vectors , if OPT(2) = 'Y' ! 2) SEi, STEi = element stress data recovery matrices, if OPT(3) = 'Y' ! 3) KE = element linear stiffness matrix , if OPT(6) = 'N' (i.e. always calc KE linear unless OPT(6) = 'Y') ! 4) KED = element differen stiff matrix , if OPT(6) = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -45,11 +45,11 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, USE MODEL_STUF, ONLY : ELDOF, DOFPIN, DT, EID, NUM_EMG_FATAL_ERRS, KE, KED, PEL, PTE, SE1, SE2, STE1, STE2, TYPE,& UEL USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE BAR1_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BART' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -57,7 +57,7 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, INTEGER(LONG) :: IERROR ! Local error indicator INTEGER(LONG) :: NUM_PFLAG_DOFS ! The number of pin flagged DOF's for this element - + REAL(DOUBLE) , INTENT(IN) :: ALPHA ! Coefficient of thermal expansion REAL(DOUBLE) , INTENT(IN) :: AREA ! Cross-sectional area REAL(DOUBLE) , INTENT(IN) :: E ! Youngs modulus @@ -99,7 +99,7 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, REAL(DOUBLE) :: S12(3,6) ! Intermediate matrix used in calculating SE1 stress matrix REAL(DOUBLE) :: S21(3,6) ! Intermediate matrix used in calculating SE2 stress matrix REAL(DOUBLE) :: S22(3,6) ! Intermediate matrix used in calculating SE2 stress matrix - REAL(DOUBLE) :: TBAR ! Average elem temperature + REAL(DOUBLE) :: TBAR ! Average elem temperature ! The following are used for the differential stiffness matrix calc. See NASTRAN Prog's Manual (COSMIC 1972) page 4.87.30 @@ -112,7 +112,7 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, REAL(DOUBLE) :: Fx ! Axial force (also Fx, in NASTRAN Prog Man differ stiff) INTRINSIC DABS - + REAL(DOUBLE) :: TPRIME(5,NTSUB) ! Matrix where each col has the 5 temperature/gradients for the BAR elem @@ -128,7 +128,7 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, KE(I,J) = ZERO ENDDO ENDDO - + G1 = K1*AREA*G G2 = K2*AREA*G @@ -136,8 +136,8 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, C2 = G1/L C3 = G1/2 ! NOTE: TESSLER HAS OPPOSITE SIGN BUT NEGATIVE, NOT POSITIVE, WORKS - C4 = E*I2/L + G1*L/4 - C5 = -E*I2/L + G1*L/4 + C4 = E*I2/L + G1*L/4 + C5 = -E*I2/L + G1*L/4 C6 = G2/L C7 = G2/2 @@ -145,7 +145,7 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, C9 = -E*I1/L + G2*L/4 RG = G*JTOR/L - + DEN = I1*I2 - I12*I12 ! I1*I2 > I12^2 was checked when PBAR's were read in subr LOADB DELTA1 = I2/DEN DELTA2 = I1/DEN @@ -153,7 +153,7 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, IF (DEBUG(203) > 0) CALL DEBUG_BART ( 1 ) -! Generate KE +! Generate KE KE( 1, 1) = C1 KE( 1, 7) =-C1 @@ -192,7 +192,7 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, KE(11,11) = C4 KE(12,12) = C8 - + DO I=2,12 ! Set lower triangular partition of KE using symmetry DO J=1,I-1 KE(I,J) = KE(J,I) @@ -201,39 +201,39 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, ! Process Pin Flags. NUM_PFLAG_DOFS is a count of the total number of DOF pin flagged. DOFPIN(i) generated in ELMDAT is an ! integer array of the DOF numbers of the pin flagged DOF. - + NUM_PFLAG_DOFS = 0 DO I=1,12 IF (DOFPIN(I) > 0) THEN NUM_PFLAG_DOFS = NUM_PFLAG_DOFS + 1 ENDIF - ENDDO + ENDDO IF (NUM_PFLAG_DOFS /= 0) THEN CALL PINFLG ( NUM_PFLAG_DOFS ) ENDIF - + DO I=1,6 ! Upper left partition of KE is KAA. Need this for calc'ing PTE, SEi DO J=1,6 KAA(I,J) = KE(I,J) - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,6 ! Upper right partition of KE is KAB. Need this for calculating SEi DO J=7,12 KAB(I,J-6) = KE(I,J) - ENDDO - ENDDO + ENDDO + ENDDO DO I=7,12 ! Lower left partition of KE is KBA. Need this for calculating PTE DO J=1,6 KBA(I-6,J) = KE(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ! The following matrices are needed if either OPT(2) or OPT(3) or OPT(6) is called for IF ((OPT(2) == 'Y') .OR. (OPT(3) == 'Y') .OR. (OPT(6) == 'Y')) THEN - IF (NTSUB > 0) THEN + IF (NTSUB > 0) THEN DO J=1,NTSUB TBAR = (DT(1,J) + DT(2,J))/TWO @@ -249,8 +249,8 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, ENDIF ! ********************************************************************************************************************************** -! Determine element thermal loads. - +! Determine element thermal loads. + ! IF ((OPT(2) == 'Y') .OR. (OPT(6) == 'Y')) THEN IF (NTSUB > 0) THEN @@ -258,8 +258,8 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, DO I=1,6 DO J=1,5 ABAR(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO ABAR(1,1) = ONE ABAR(2,2) = DELTA1*I1*L/SIX @@ -283,7 +283,7 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, DO J=1,5 ABAR(I,J) = -ALPHA*L*ABAR(I,J) ENDDO - ENDDO + ENDDO CALL MATMULT_FFF ( KAA, ABAR, 6, 6, 5, BTA ) CALL MATMULT_FFF ( KBA, ABAR, 6, 6, 5, BTB ) @@ -300,10 +300,10 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, ENDIF ! ENDIF - + ! ********************************************************************************************************************************** ! Calculate SE matrices for stress data recovery. - + ! IF ((OPT(3) == 'Y') .OR. (OPT(6) == 'Y')) THEN DO I=1,3 @@ -384,7 +384,7 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, IF ((OPT(6) == 'Y') .AND. (LOAD_ISTEP > 1)) THEN CALL ELMDIS - + ! Calc BAR forces CALL CALC_ELEM_NODE_FORCES M1a = -PEL(6) ! M1a (bending moment, plane 1, end a for BAR) - NASTRAN Maz @@ -512,9 +512,9 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE DEBUG_BART (WHAT) @@ -576,5 +576,5 @@ SUBROUTINE DEBUG_BART (WHAT) ! ********************************************************************************************************************************** END SUBROUTINE DEBUG_BART - - END SUBROUTINE BART \ No newline at end of file + + END SUBROUTINE BART diff --git a/Source/EMG/EMG3/BEAM.f90 b/Source/EMG/EMG3/BEAM.f90 index a3b6b1ec..057c98a0 100644 --- a/Source/EMG/EMG3/BEAM.f90 +++ b/Source/EMG/EMG3/BEAM.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BEAM - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : NUM_EMG_FATAL_ERRS - + USE BEAM_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BEAM' - + ! ********************************************************************************************************************************** @@ -55,5 +55,5 @@ SUBROUTINE BEAM 1 FORMAT(' *ERROR : CODE NOT WRITTEN FOR BEAM ELEMENT MATRICES AS YET') ! ********************************************************************************************************************************** - - END SUBROUTINE BEAM \ No newline at end of file + + END SUBROUTINE BEAM diff --git a/Source/EMG/EMG3/BREL1.f90 b/Source/EMG/EMG3/BREL1.f90 index e5190615..7a35c0bf 100644 --- a/Source/EMG/EMG3/BREL1.f90 +++ b/Source/EMG/EMG3/BREL1.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BREL1 ( OPT, WRITE_WARN ) - + ! Calculates, or calls subr's to calculate, quadrilateral element matrices: ! 1) ME = element mass matrix , if OPT(1) = 'Y' @@ -33,7 +33,7 @@ SUBROUTINE BREL1 ( OPT, WRITE_WARN ) ! 3) SEi, STEi = element stress data recovery matrices, if OPT(3) = 'Y' ! 4) KE = element linea stiffness matrix , if OPT(4) = 'Y' ! 5) KED = element differen stiff matrix calc , if OPT(6) = 'Y' = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR @@ -43,11 +43,11 @@ SUBROUTINE BREL1 ( OPT, WRITE_WARN ) USE DEBUG_PARAMETERS USE MODEL_STUF, ONLY : EID, ELEM_LEN_AB, EMAT, NUM_EMG_FATAL_ERRS, EPROP, FCONV, ME, ULT_STRE, ULT_STRN, & TYPE, ZS - + USE BREL1_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BREL1' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not @@ -70,14 +70,14 @@ SUBROUTINE BREL1 ( OPT, WRITE_WARN ) REAL(DOUBLE) :: NSM ! Nonstructural mass REAL(DOUBLE) :: RHO ! Material density REAL(DOUBLE) :: TREF ! Element reference temperature - + ! ********************************************************************************************************************************** EPS1 = EPSIL(1) ! Set element property and material constants - + IF (TYPE == 'ROD ') THEN AREA = EPROP(1) ! Cross-sectional area @@ -112,20 +112,20 @@ SUBROUTINE BREL1 ( OPT, WRITE_WARN ) ENDIF ! Need to set some values for materials here since subr for material properties not called for these 1D elements - + E = EMAT( 1,1) ! Young's modulus G = EMAT( 2,1) ! Shear modulus RHO = EMAT( 4,1) ! Mass density ALPHA = EMAT( 5,1) ! Coefficient of thermal expansion TREF = EMAT( 6,1) ! Reference temperature for thermal expaqnsion GE = EMAT( 7,1) ! Structural damping coefficient - ULT_STRE(1,1) = EMAT( 8,1) ! Max allowable stress in tension + ULT_STRE(1,1) = EMAT( 8,1) ! Max allowable stress in tension ULT_STRE(2,1) = EMAT( 9,1) ! Max allowable stress in compression ULT_STRE(3,1) = EMAT(10,1) ! Max allowable stress in shear - + ! ********************************************************************************************************************************** -! Generate the mass matrix for this element (array was initialized in subr EMG). - +! Generate the mass matrix for this element (array was initialized in subr EMG). + IF (OPT(1) == 'Y') THEN M0 = (RHO*AREA + NSM)*(ELEM_LEN_AB)/TWO ME(1,1) = M0 @@ -135,18 +135,18 @@ SUBROUTINE BREL1 ( OPT, WRITE_WARN ) ME(8,8) = M0 ME(9,9) = M0 ENDIF - + ! ********************************************************************************************************************************** ! Call routines to calc element matrices (stiffness, etc.) - + IF ((OPT(2) == 'Y') .OR. (OPT(3) == 'Y') .OR. (OPT(4) == 'Y') .OR. (OPT(5) == 'Y') .OR. (OPT(6) == 'Y')) THEN - + IF (TYPE == 'ROD ') THEN CALL ROD1 ( OPT, ELEM_LEN_AB, AREA, JTOR, ZS(1), E, G, ALPHA, TREF ) - + ELSE IF (TYPE == 'BAR ') THEN ! Bernoulli-Euler prismatic beam - + IF (DEBUG(249) == 0) THEN CALL BAR1 ( OPT, ELEM_LEN_AB, AREA, I1, I2, JTOR, ZS(9), K1, K2, I12, E, G, ALPHA, TREF ) @@ -159,7 +159,7 @@ SUBROUTINE BREL1 ( OPT, WRITE_WARN ) WRITE(F06,1963) EID RETURN ENDIF - + ENDIF ELSE IF (TYPE == 'BEAM ') THEN ! General beam @@ -167,9 +167,9 @@ SUBROUTINE BREL1 ( OPT, WRITE_WARN ) CALL BEAM ENDIF - + ENDIF - + ! ********************************************************************************************************************************** 1963 FORMAT(' *ERROR 1962: TIMOSHENKO BAR ELEMENT ',A,' CANNOT HAVE NONZERO I12. IT WILL BE SET TO I12 = 0.') @@ -178,5 +178,5 @@ SUBROUTINE BREL1 ( OPT, WRITE_WARN ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BREL1 diff --git a/Source/EMG/EMG3/BUSH.f90 b/Source/EMG/EMG3/BUSH.f90 index 7c7bc4ae..1fa1d8d3 100644 --- a/Source/EMG/EMG3/BUSH.f90 +++ b/Source/EMG/EMG3/BUSH.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BUSH ( INT_ELEM_ID, OPT, WRITE_WARN ) - + ! Calculates, for BUSH element -! 1) KE = element stiffness matrix if OPT(4) = 'Y' +! 1) KE = element stiffness matrix if OPT(4) = 'Y' ! 2) SE1, STE1 = element stress data recovery matrices if OPT(3) = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : F06 USE SCONTR, ONLY : BLNK_SUB_NAM @@ -40,8 +40,8 @@ SUBROUTINE BUSH ( INT_ELEM_ID, OPT, WRITE_WARN ) USE BUSH_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BUSH' CHARACTER(LEN=*) , INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -62,8 +62,8 @@ SUBROUTINE BUSH ( INT_ELEM_ID, OPT, WRITE_WARN ) ! Initialize: BUSH_DXA = OFFDIS_GA_GB(1,1) - BUSH_DY = OFFDIS_GA_GB(1,2) - BUSH_DZ = OFFDIS_GA_GB(1,3) + BUSH_DY = OFFDIS_GA_GB(1,2) + BUSH_DZ = OFFDIS_GA_GB(1,3) BUSH_DXB = OFFDIS_GA_GB(2,1) ! Calc stiffness matrix @@ -182,4 +182,4 @@ SUBROUTINE BUSH ( INT_ELEM_ID, OPT, WRITE_WARN ) ! ********************************************************************************************************************************** - END SUBROUTINE BUSH \ No newline at end of file + END SUBROUTINE BUSH diff --git a/Source/EMG/EMG3/ELAS1.f90 b/Source/EMG/EMG3/ELAS1.f90 index d104d8a6..ae03d5b1 100644 --- a/Source/EMG/EMG3/ELAS1.f90 +++ b/Source/EMG/EMG3/ELAS1.f90 @@ -1,46 +1,46 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ELAS1 ( OPT, WRITE_WARN ) - + ! Calculates 1-D scalar spring matrices in global coordinate system ! 1) SEi = Element stress recovery matrices if OPT(3) = 'Y' ! 2) KE = Element stiffness matrix in element coord's if OPT(4) = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : AGRID, BGRID, ELAS_COMP, EID, EPROP, FCONV, KE, SE1, TYPE - + USE ELAS1_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELAS1' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not @@ -49,21 +49,21 @@ SUBROUTINE ELAS1 ( OPT, WRITE_WARN ) INTEGER(LONG) :: I2 ! The component no (1-6) at end B that this elem is connected to INTEGER(LONG) :: NUM_COMPS_GRID_1 ! No. displ components (1 for SPOINT, 6 for actual grid) for 1st grid - + REAL(DOUBLE) :: K ! Spring stiffness REAL(DOUBLE) :: GE ! Material damping coeff - + ! ********************************************************************************************************************************** ! Set element property and material constants - + K = EPROP(1) GE = EPROP(2) IF ((TYPE(1:5) == 'ELAS1') .OR. (TYPE(1:5) == 'ELAS3')) THEN FCONV(1) = EPROP(3) ELSE - FCONV(1) = 1.D0 + FCONV(1) = 1.D0 ENDIF I1 = ELAS_COMP(1) CALL GET_GRID_NUM_COMPS ( BGRID(1), NUM_COMPS_GRID_1, SUBR_NAME ) @@ -71,7 +71,7 @@ SUBROUTINE ELAS1 ( OPT, WRITE_WARN ) ! ********************************************************************************************************************************** ! Calculate the element stiffness matrix in global coordinates. - + IF (OPT(4) == 'Y') THEN KE(I1,I1) = K KE(I1,I2) = -KE(I1,I1) @@ -81,16 +81,16 @@ SUBROUTINE ELAS1 ( OPT, WRITE_WARN ) ! ********************************************************************************************************************************** ! Calculate SE1 matrix for stress recovery. - + IF (OPT(3) == 'Y') THEN SE1(1,I2,1) = K*FCONV(1) SE1(1,I1,1) = -SE1(1,I2,1) ENDIF - + RETURN ! ********************************************************************************************************************************* - - END SUBROUTINE ELAS1 \ No newline at end of file + + END SUBROUTINE ELAS1 diff --git a/Source/EMG/EMG3/KUSER1.f90 b/Source/EMG/EMG3/KUSER1.f90 index 63ec0a84..35c027bf 100644 --- a/Source/EMG/EMG3/KUSER1.f90 +++ b/Source/EMG/EMG3/KUSER1.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE KUSER1 ( OPT, WRITE_WARN ) - + ! Calc's matrices for user supplied subroutine elements USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -36,14 +36,14 @@ SUBROUTINE KUSER1 ( OPT, WRITE_WARN ) USE KUSER1_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'KUSER1' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not - + ! ********************************************************************************************************************************** @@ -51,7 +51,7 @@ SUBROUTINE KUSER1 ( OPT, WRITE_WARN ) WRITE(F06,1934) SUBR_NAME,TYPE FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - + RETURN @@ -61,5 +61,5 @@ SUBROUTINE KUSER1 ( OPT, WRITE_WARN ) ,/,14X,' CODE NOT WRITTEN FOR ELEMENT TYPE = ',A) ! ********************************************************************************************************************************** - - END SUBROUTINE KUSER1 \ No newline at end of file + + END SUBROUTINE KUSER1 diff --git a/Source/EMG/EMG3/PINFLG.f90 b/Source/EMG/EMG3/PINFLG.f90 index 81b6eb2e..cf87b176 100644 --- a/Source/EMG/EMG3/PINFLG.f90 +++ b/Source/EMG/EMG3/PINFLG.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE PINFLG ( NUM_PFLAG_DOFS ) - + ! Processes element pin flags to modify stiffness matrix - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, WARN_ERR @@ -35,11 +35,11 @@ SUBROUTINE PINFLG ( NUM_PFLAG_DOFS ) USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : EPSIL, SUPWARN USE MODEL_STUF, ONLY : EID, ELDOF, NUM_EMG_FATAL_ERRS, KE, DOFPIN, TYPE - + USE PINFLG_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'PINFLG' INTEGER(LONG), INTENT(IN) :: NUM_PFLAG_DOFS ! The number of pin flagged DOF's for this element @@ -51,18 +51,18 @@ SUBROUTINE PINFLG ( NUM_PFLAG_DOFS ) INTEGER(LONG) :: IERROR ! Count of errors. Error occurs if a diag KE for a pinflaged DOF is zero INTEGER(LONG) :: PDOF ! A DOF component number (1 digit) from array DOFPIN - + REAL(DOUBLE) :: EPS1 ! A small number to compare for real zero - + INTRINSIC DABS - + ! ********************************************************************************************************************************** EPS1 = EPSIL(1) ! Check to make sure that the diagonal stiffness for the pin flagged DOF's are not zero - + IERROR = 0 DO I=1,NUM_PFLAG_DOFS ZERO_STIFF(I) = 'N' @@ -78,13 +78,13 @@ SUBROUTINE PINFLG ( NUM_PFLAG_DOFS ) !xx FATAL_ERR = FATAL_ERR + 1 ZERO_STIFF(I) = 'Y' ENDIF - ENDDO + ENDDO IF (IERROR > 0) THEN RETURN ENDIF - + ! Process pin flags in KE - + i_do: DO I = 1,NUM_PFLAG_DOFS IF (ZERO_STIFF(I) == 'N') THEN PDOF = DOFPIN(I) @@ -100,14 +100,14 @@ SUBROUTINE PINFLG ( NUM_PFLAG_DOFS ) NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 FATAL_ERR = FATAL_ERR + 1 CYCLE i_do - ENDIF + ENDIF ENDIF ENDDO ENDIF - ENDDO - + ENDDO + ! Set row and column PDOF (pin flagged) to zero - + DO J=1,ELDOF KE(PDOF,J) = ZERO KE(J,PDOF) = ZERO @@ -115,8 +115,8 @@ SUBROUTINE PINFLG ( NUM_PFLAG_DOFS ) ENDIF - ENDDO i_do - + ENDDO i_do + RETURN @@ -130,5 +130,5 @@ SUBROUTINE PINFLG ( NUM_PFLAG_DOFS ) ! ********************************************************************************************************************************** - + END SUBROUTINE PINFLG diff --git a/Source/EMG/EMG3/ROD1.f90 b/Source/EMG/EMG3/ROD1.f90 index 47377c1d..f1598b56 100644 --- a/Source/EMG/EMG3/ROD1.f90 +++ b/Source/EMG/EMG3/ROD1.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ROD1 ( OPT, L, AREA, JTOR, SCOEFF, E, G, ALPHA, TREF ) - + ! Calculates, for 1-D ROD element ! 1) PTE = element thermal load vectors , if OPT(2) = 'Y' ! 2) SEi, STEi = element stress data recovery matrices, if OPT(3) = 'Y' ! 3) KE = element linea stiffness matrix , if OPT(4) = 'Y' ! 4) KED = element differen stiff matrix calc , if OPT(6) = 'Y' = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : NTSUB, BLNK_SUB_NAM @@ -42,13 +42,13 @@ SUBROUTINE ROD1 ( OPT, L, AREA, JTOR, SCOEFF, E, G, ALPHA, TREF ) USE ROD1_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ROD1' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices INTEGER(LONG) :: J ! Do loop index - + REAL(DOUBLE) , INTENT(IN) :: ALPHA ! Coefficient of thermal expansion REAL(DOUBLE) , INTENT(IN) :: AREA ! Cross-sectional area REAL(DOUBLE) , INTENT(IN) :: E ! Youngs modulus @@ -62,25 +62,25 @@ SUBROUTINE ROD1 ( OPT, L, AREA, JTOR, SCOEFF, E, G, ALPHA, TREF ) REAL(DOUBLE) :: CT0 ! Intermediate variable used in calc thermal loads, PTE REAL(DOUBLE) :: Fx ! Axizl load in the ROD element as a result of the applied loads REAL(DOUBLE) :: KD0 ! Intermediate variable used in calc KED - REAL(DOUBLE) :: TBAR ! Average elem temperature - + REAL(DOUBLE) :: TBAR ! Average elem temperature + ! ********************************************************************************************************************************** -! Determine element thermal loads. - +! Determine element thermal loads. + IF (OPT(2) == 'Y') THEN DO J=1,NTSUB TBAR = (DT(1,J) + DT(2,J))/TWO CT0 = AREA*E*ALPHA*(TBAR - TREF) PTE( 1,J) = -CT0 - PTE( 7,J) = CT0 + PTE( 7,J) = CT0 ENDDO ENDIF - + ! ********************************************************************************************************************************** ! Calculate SE matrix (2 x 12) for stress data recovery. - + IF ((OPT(3) == 'Y') .OR. (OPT(6) == 'Y')) THEN SE1(1, 1,1) = -E/L SE1(1, 7,1) = E/L @@ -91,10 +91,10 @@ SUBROUTINE ROD1 ( OPT, L, AREA, JTOR, SCOEFF, E, G, ALPHA, TREF ) STE1(1,J,1) = E*ALPHA*(TBAR - TREF) ENDDO ENDIF - + ! ********************************************************************************************************************************** ! Calculate element stiffness matrix KE(12,12). - + IF ((OPT(4) == 'Y') .OR. (OPT(6) == 'Y')) THEN C01 = AREA*E/L C02 = JTOR*G/L @@ -107,10 +107,10 @@ SUBROUTINE ROD1 ( OPT, L, AREA, JTOR, SCOEFF, E, G, ALPHA, TREF ) KE( 7, 7) = C01 KE(10,10) = C02 ENDIF - + ! ********************************************************************************************************************************** ! Calculate element differential stiffness matrix KED(12,12). - + IF (OPT(6) == 'Y') THEN CALL ELMDIS @@ -128,11 +128,11 @@ SUBROUTINE ROD1 ( OPT, L, AREA, JTOR, SCOEFF, E, G, ALPHA, TREF ) KED( 9, 3) = KED( 3, 9) KED( 9, 9) = KED( 3, 3) ENDIF - + RETURN ! ********************************************************************************************************************************** - END SUBROUTINE ROD1 \ No newline at end of file + END SUBROUTINE ROD1 diff --git a/Source/EMG/EMG3/USERIN.f90 b/Source/EMG/EMG3/USERIN.f90 index 43dca07b..0f0cdc2b 100644 --- a/Source/EMG/EMG3/USERIN.f90 +++ b/Source/EMG/EMG3/USERIN.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE USERIN ( INT_ELEM_ID, OPT, EMG_CALLING_SUBR, WRITE_WARN ) - + ! Reads in matrices for a USERIN element from file IN4FIL specified in Exec Control (with statement IN4 i = in4file file name ! The matrices read are: @@ -43,7 +43,7 @@ SUBROUTINE USERIN ( INT_ELEM_ID, OPT, EMG_CALLING_SUBR, WRITE_WARN ) ! WTMASS B.D. entry, PARAM WTMASS is 1.0). After the grid point weight generator is run (subr GPWG), the mass matrix will be ! converted back, same as all other mass, by multiplying by WTMASS. NOTE: WTMASS was checked to be sure it is > 0 when WTMASS B.D. ! entry was read - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN4, IN4_MSG, IN4FIL USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MEDAT0_CUSERIN, MELDOF, NDOFG, NGRID, NSUB @@ -53,18 +53,18 @@ SUBROUTINE USERIN ( INT_ELEM_ID, OPT, EMG_CALLING_SUBR, WRITE_WARN ) USE DOF_TABLES, ONLY : TDOF, TDOFI, TDOF_ROW_START USE PARAMS, ONLY : grdpnt, WTMASS USE INPUTT4_MATRICES, ONLY : IN4_COL_MAP, IN4_MAT - USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET, TR6_0 + USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET, TR6_0 USE MODEL_STUF, ONLY : AGRID, EDAT, EID, ELDOF, ELGP, EPNT, GRID_ID, INTL_PID, KE, ME, PPE, PUSERIN, TYPE, & NUM_EMG_FATAL_ERRS USE MODEL_STUF, ONLY : USERIN_ACT_GRIDS, USERIN_ACT_COMPS, USERIN_CID0, USERIN_IN4_INDEX, USERIN_RBM0, & USERIN_NUM_BDY_DOF, USERIN_NUM_ACT_GRDS, USERIN_NUM_SPOINTS, & USERIN_MASS_MAT_NAME, USERIN_LOAD_MAT_NAME, USERIN_RBM0_MAT_NAME, USERIN_STIF_MAT_NAME - + USE USERIN_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'USERIN' CHARACTER(LEN=*) , INTENT(IN) :: EMG_CALLING_SUBR ! Subr that called EMG which, in turn, called this subr CHARACTER( 1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -72,9 +72,9 @@ SUBROUTINE USERIN ( INT_ELEM_ID, OPT, EMG_CALLING_SUBR, WRITE_WARN ) CHARACTER( 1*BYTE) :: CDOF(6) ! Contains 1 in each of the 6 pos'ns corresponding to a DOF from CGRID(I) INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID for which - INTEGER(LONG) :: ELDOF_INDEX ! + INTEGER(LONG) :: ELDOF_INDEX ! INTEGER(LONG) :: EPNTK ! Value from array EPNT at the row for this internal elem ID. It is the -! row number in array EDAT where data begins for this element. +! row number in array EDAT where data begins for this element. INTEGER(LONG) :: G_SET_COL ! Col no. in array TDOF where the G-set is (from subr TDOF_COL_NUM) INTEGER(LONG) :: I,J,L ! DO loop index INTEGER(LONG) :: IERR ! Error count returned from subr READ_IN4_FULL_MAT @@ -82,13 +82,13 @@ SUBROUTINE USERIN ( INT_ELEM_ID, OPT, EMG_CALLING_SUBR, WRITE_WARN ) INTEGER(LONG) :: K ! Counter INTEGER(LONG) :: NRC ! Row/col size of stiff, mass matrices to be read from IN4 file INTEGER(LONG) :: IROW ! Row number where TDOFI data begins for GRID_NUM - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr FILE_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr FILE_OPEN ! Array that has USERIN grid num in col 1 and comp number in remaining 7 ! cols (1 col has all comps, others each indiv comp) for USERIN bdy DOF's INTEGER(LONG) :: USERIN_CID0_ICID ! Internal coordinate system ID for USERIN_CID0 - + REAL(DOUBLE) :: DX ! X offset of USERIN elem CG from overall model basic sys origin REAL(DOUBLE) :: DY ! Y offset of USERIN elem CG from overall model basic sys origin REAL(DOUBLE) :: DZ ! Z offset of USERIN elem CG from overall model basic sys origin @@ -180,7 +180,7 @@ SUBROUTINE USERIN ( INT_ELEM_ID, OPT, EMG_CALLING_SUBR, WRITE_WARN ) ENDDO ! Get coord transformation matrix TN that transforms a vec from coord system USERIN_CID0 (dirs of basic sys in run that generates -! the USERIN matrices) to overall model basic system. +! the USERIN matrices) to overall model basic system. CALL GET_TN_TRANSFORM_MAT ( USERIN_CID0_ICID, TN ) @@ -215,7 +215,7 @@ SUBROUTINE USERIN ( INT_ELEM_ID, OPT, EMG_CALLING_SUBR, WRITE_WARN ) ! If there is a RB mass matrix on the IN4 file read it as the 6x6 RB mass matrix for the elem. Otherwise calc the 6x6 ! RB mass matrix from the boundary partition of the mass matrix (NASTRAN matrix MRRGN) and TB6, calc'd above. - IF (USERIN_RBM0_MAT_NAME(1:) /= ' ') THEN + IF (USERIN_RBM0_MAT_NAME(1:) /= ' ') THEN CALL READ_IN4_FULL_MAT ( TYPE, EID, USERIN_RBM0_MAT_NAME, 6, 6, IN4, IN4FIL(USERIN_IN4_INDEX), RBM66, & IERR, SUBR_NAME//' (for USERIN_RBM0 matrix)' ) DO I=1,6 ! Divide by WTMASS (default is 1.0) here to get USERIN elem mass same @@ -239,9 +239,9 @@ SUBROUTINE USERIN ( INT_ELEM_ID, OPT, EMG_CALLING_SUBR, WRITE_WARN ) DO I=1,6 DO J=1,6 USERIN_RBM0(I,J) = RBM66(I,J) - ENDDO + ENDDO ENDDO - ENDIF + ENDIF IF (DEBUG(180) > 0) CALL DEB_USERIN ( 16 ) @@ -254,7 +254,7 @@ SUBROUTINE USERIN ( INT_ELEM_ID, OPT, EMG_CALLING_SUBR, WRITE_WARN ) ! Transform MRRcb to basic coords CALL MATMULT_FFF ( MRRcb_FULL , TB6, USERIN_NUM_BDY_DOF, USERIN_NUM_BDY_DOF, 6, DUM ) CALL MATMULT_FFF_T ( TB6, DUM , USERIN_NUM_BDY_DOF, 6 , 6, USERIN_RBM0 ) - DO I=1,6 ! Divide by WTMASS to get units same as input mass + DO I=1,6 ! Divide by WTMASS to get units same as input mass DO J=1,6 USERIN_RBM0(I,J) = USERIN_RBM0(I,J)/WTMASS ENDDO @@ -336,9 +336,9 @@ SUBROUTINE USERIN ( INT_ELEM_ID, OPT, EMG_CALLING_SUBR, WRITE_WARN ) 9999 FORMAT(' PROCESSING STOPPED IN SUBR ',A,' DUE TO ABOVE ',I8,' ERROR(S)') ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE GET_TN_TRANSFORM_MAT ( USERIN_CID0_ICID, TN ) @@ -431,7 +431,7 @@ SUBROUTINE TRANSFORM_USERIN_RBM0 ( USERIN_CID0_ICID, TN, RBM66, DX, DY, DZ, R66, ! (1) Rotate RBM66 from USERIN basic coord system to be parallel with overall model basic coord system. Call result temp USERIN_RBM0 ! Rotational transformation matrix R66 has 2 copies of the transpose of 3x3 matrix TN on its diagonal ! TN transforms a vec from coord system USERIN_CID0 (dirs of basic sys in run that generates the USERIN matrices) -! to overall model basic system. +! to overall model basic system. DO I=1,6 ! Initialize 6x6 transformation matrix for USERIN RB mass DO J=1,6 @@ -465,9 +465,9 @@ SUBROUTINE TRANSFORM_USERIN_RBM0 ( USERIN_CID0_ICID, TN, RBM66, DX, DY, DZ, R66, ! where I is a 3x3 identity matrix, O a 3x3 null matrix and D is the 3x3 matrix that has offsets of USERIN coord sys ICID (basic ! coord sys of USERIN elem) relative to basic coord sys origin of the overall model: -! | 0 DZ -DY | +! | 0 DZ -DY | ! D = | -DZ 0 DX | , DX = RCORD(ICID,1), DY = RCORD(ICID,2), DZ = RCORD(ICID,3) -! | DY -DX 0 | +! | DY -DX 0 | DX = RCORD(USERIN_CID0_ICID,1) ! Get DX, DY, DZ offsets of USERIN internal coord sys ICID (USERIN basic DY = RCORD(USERIN_CID0_ICID,2) ! coord sys definition) relative to overall model basic coord sys @@ -479,7 +479,7 @@ SUBROUTINE TRANSFORM_USERIN_RBM0 ( USERIN_CID0_ICID, TN, RBM66, DX, DY, DZ, R66, ENDDO ENDDO - DO I=1,3 ! Upper left 3x3, and lower right 3x3, matrices I are identity matrices + DO I=1,3 ! Upper left 3x3, and lower right 3x3, matrices I are identity matrices T66(I,I) = ONE T66(I+3,I+3) = ONE ENDDO @@ -706,7 +706,7 @@ SUBROUTINE DEB_USERIN ( WHAT ) 98722 FORMAT(' (15) Name of RB mass matrix (USERIN_RBM0) = "',a,'"',/) 98723 FORMAT(' (15) Name of RB mass matrix (USERIN_RBM0) = (none input so one will be generated internally)',/) - + 98731 FORMAT(10I10) 98741 FORMAT(4X,32767(13X,I3)) diff --git a/Source/EMG/EMG4/CALC_PHI_SQ.f90 b/Source/EMG/EMG4/CALC_PHI_SQ.f90 index 98cfa2e6..adfcfea7 100644 --- a/Source/EMG/EMG4/CALC_PHI_SQ.f90 +++ b/Source/EMG/EMG4/CALC_PHI_SQ.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE CALC_PHI_SQ ( IERROR ) @@ -61,7 +61,7 @@ SUBROUTINE CALC_PHI_SQ ( IERROR ) PCOMP_PROPS, PLY_NUM, PSI_HAT, SHRSUM, TPLY, TYPE USE CALC_PHI_SQ_USE_IFs - IMPLICIT NONE + IMPLICIT NONE CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CALC_PHI_SQ' @@ -172,8 +172,8 @@ SUBROUTINE CALC_PHI_SQ ( IERROR ) ,/,14X,' CANNOT CALCULATE PHI_SQ FACTOR NEEDED FOR TRANSVERSE SHEAR STIFFNESS CALCULATION') 1943 FORMAT(' *ERROR 1943: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,15X, A, 'ELEMENT ',I8,' IS NOT A VALID ELEMENT FOR THIS SUBR') + ,/,15X, A, 'ELEMENT ',I8,' IS NOT A VALID ELEMENT FOR THIS SUBR') ! ********************************************************************************************************************************** - END SUBROUTINE CALC_PHI_SQ \ No newline at end of file + END SUBROUTINE CALC_PHI_SQ diff --git a/Source/EMG/EMG4/GET_ELEM_NUM_PLIES.f90 b/Source/EMG/EMG4/GET_ELEM_NUM_PLIES.f90 index 46577517..10ccc752 100644 --- a/Source/EMG/EMG4/GET_ELEM_NUM_PLIES.f90 +++ b/Source/EMG/EMG4/GET_ELEM_NUM_PLIES.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE GET_ELEM_NUM_PLIES ( INT_ELEM_ID ) @@ -42,7 +42,7 @@ SUBROUTINE GET_ELEM_NUM_PLIES ( INT_ELEM_ID ) INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID for which INTEGER(LONG) :: EPNTK ! Value from array EPNT at the row for this internal elem ID. It is the -! row number in array EDAT where data begins for this element. +! row number in array EDAT where data begins for this element. INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: I1 ! Index into EDAT @@ -71,7 +71,7 @@ SUBROUTINE GET_ELEM_NUM_PLIES ( INT_ELEM_ID ) DO I=1,NPCOMP NUM_PLIES = PCOMP(INTL_PID,5) ENDDO - ENDIF + ENDIF ENDIF diff --git a/Source/EMG/EMG4/MITC4_B.f90 b/Source/EMG/EMG4/MITC4_B.f90 index ceead983..a6765831 100644 --- a/Source/EMG/EMG4/MITC4_B.f90 +++ b/Source/EMG/EMG4/MITC4_B.f90 @@ -1,30 +1,30 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MITC4_B ( R, S, T, MEMBRANE, BENDING, SHEAR, B ) - + ! Calculates the strain-displacement matrix in the cartesian local coordinate system ! for MITC4 shell at one point in isoparametric coordinates. ! @@ -32,7 +32,7 @@ SUBROUTINE MITC4_B ( R, S, T, MEMBRANE, BENDING, SHEAR, B ) ! "A new MITC4+ shell element" by Ko, Lee, Bathe, 2016 ! ! Reference [2]: -! MITC4 paper "A continuum mechanics based four-node shell element for general nonlinear analysis" +! MITC4 paper "A continuum mechanics based four-node shell element for general nonlinear analysis" ! by Dvorkin and Bathe @@ -47,7 +47,7 @@ SUBROUTINE MITC4_B ( R, S, T, MEMBRANE, BENDING, SHEAR, B ) USE MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION_Interface USE MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL_Interface - IMPLICIT NONE + IMPLICIT NONE INTEGER(LONG) :: COL ! A column (element DOF) of B. 1-24. INTEGER(LONG) :: GP ! Grid point number. 1-4. @@ -82,12 +82,12 @@ SUBROUTINE MITC4_B ( R, S, T, MEMBRANE, BENDING, SHEAR, B ) LOGICAL , INTENT(IN) :: BENDING ! If true, generate bending parts of B (rows 1,2,4) LOGICAL , INTENT(IN) :: SHEAR ! If true, generate shear parts of B (rows 5,6) - + ! ********************************************************************************************************************************** ! Initialize empty matrix B(:,:) = ZERO - + ! ********************************************************************************************************************************** ! Add in-layer strain-displacement terms @@ -102,7 +102,7 @@ SUBROUTINE MITC4_B ( R, S, T, MEMBRANE, BENDING, SHEAR, B ) X_D(:) = X_D(:) + QUARTER * GP_RS(1, GP) * GP_RS(2, GP) * XEL(GP, :) ENDDO - + IF(QUAD4TYP == 'MITC4+') THEN ! MITC4+ according to ref [1] @@ -177,9 +177,9 @@ SUBROUTINE MITC4_B ( R, S, T, MEMBRANE, BENDING, SHEAR, B ) ENDIF ELSEIF(QUAD4TYP == 'MITC4 ') THEN - + IF(.TRUE.) THEN - + IF(MEMBRANE) THEN ! MITC4+ form of MITC4 according to ref [1] CALL MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION( R, S, T, X_R, X_S, X_D, .TRUE., .FALSE., 1, 4, BM ) @@ -190,7 +190,7 @@ SUBROUTINE MITC4_B ( R, S, T, MEMBRANE, BENDING, SHEAR, B ) CALL MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION( R, S, T, X_R, X_S, X_D, .FALSE., .TRUE., 1, 4, BB ) B(1:4,:) = B(1:4,:) + BB(1:4,:) ENDIF - + ELSE ! MITC4 according to ref [2] @@ -258,5 +258,5 @@ SUBROUTINE MITC4_B ( R, S, T, MEMBRANE, BENDING, SHEAR, B ) ! ********************************************************************************************************************************** - + END SUBROUTINE MITC4_B diff --git a/Source/EMG/EMG4/MITC4_CARTESIAN_LOCAL_BASIS.f90 b/Source/EMG/EMG4/MITC4_CARTESIAN_LOCAL_BASIS.f90 index 470e5593..67fc1b12 100644 --- a/Source/EMG/EMG4/MITC4_CARTESIAN_LOCAL_BASIS.f90 +++ b/Source/EMG/EMG4/MITC4_CARTESIAN_LOCAL_BASIS.f90 @@ -1,32 +1,32 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. FUNCTION MITC4_CARTESIAN_LOCAL_BASIS ( R, S, T ) - + ! Reference [2]: -! MITC4 paper "A continuum mechanics based four-node shell element for general nonlinear analysis" +! MITC4 paper "A continuum mechanics based four-node shell element for general nonlinear analysis" ! by Dvorkin and Bathe ! First index of the result (row) is a vector component in basic coordinates (x,y,z) @@ -37,7 +37,7 @@ FUNCTION MITC4_CARTESIAN_LOCAL_BASIS ( R, S, T ) USE MITC_COVARIANT_BASIS_Interface USE CROSS_Interface - IMPLICIT NONE + IMPLICIT NONE REAL(DOUBLE) :: MITC4_CARTESIAN_LOCAL_BASIS(3,3) REAL(DOUBLE) , INTENT(IN) :: R @@ -49,9 +49,9 @@ FUNCTION MITC4_CARTESIAN_LOCAL_BASIS ( R, S, T ) REAL(DOUBLE) :: Z(3) ! ********************************************************************************************************************************** - + CALL MITC_COVARIANT_BASIS( R, S, T, G ) - + Z = G(:,3) Z = Z / DSQRT(DOT_PRODUCT(Z, Z)) @@ -67,5 +67,5 @@ FUNCTION MITC4_CARTESIAN_LOCAL_BASIS ( R, S, T ) RETURN ! ********************************************************************************************************************************** - + END FUNCTION MITC4_CARTESIAN_LOCAL_BASIS diff --git a/Source/EMG/EMG4/MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION.f90 b/Source/EMG/EMG4/MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION.f90 index a68a72cb..474b31e9 100644 --- a/Source/EMG/EMG4/MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION.f90 +++ b/Source/EMG/EMG4/MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, X_R, X_S, X_D, MEMBRANE, BENDING, ROW_FROM, ROW_TO, B ) - + ! Reference [1]: ! "A new MITC4+ shell element" by Ko, Lee, Bathe, 2016 ! ! Reference [2]: -! MITC4 paper "A continuum mechanics based four-node shell element for general nonlinear analysis" +! MITC4 paper "A continuum mechanics based four-node shell element for general nonlinear analysis" ! by Dvorkin and Bathe - + ! Covariant strain-displacement components at point (R,S,T) directly evaluated from the displacement and rotation interpolations. ! Only for in-layer strains. ! -! Grid point 1 Grid point 2 ... +! Grid point 1 Grid point 2 ... ! ux uy uz rx ry rz ux uy uz rx ry rz ! 11 [ # # # # # # | # # # # # # | ] ! 22 [ # # # # # # | # # # # # # | ] @@ -56,7 +56,7 @@ SUBROUTINE MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, X_R, X_S, X_D, USE OUTA_HERE_Interface USE CROSS_Interface - IMPLICIT NONE + IMPLICIT NONE INTEGER(LONG), INTENT(IN) :: ROW_FROM ! First row of B to generate. Strain component index 1-4. INTEGER(LONG), INTENT(IN) :: ROW_TO ! Last row of B to generate. Strain component index 1-4. @@ -82,17 +82,17 @@ SUBROUTINE MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, X_R, X_S, X_D, LOGICAL , INTENT(IN) :: BENDING ! If true, generate bending parts of B ! ********************************************************************************************************************************** - + ! Shape function derivatives at R,S CALL MITC_SHAPE_FUNCTIONS(R, S, PSH, DPSHG) - + ! Initialize B B(ROW_FROM:ROW_TO,:) = ZERO - + ! Eqn (9) of ref [1]. DXMDRS(:,1) = X_R + S * X_D ! ∂x_m/∂r DXMDRS(:,2) = X_S + R * X_D ! ∂x_m/∂s - + IF(BENDING) THEN @@ -105,7 +105,7 @@ SUBROUTINE MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, X_R, X_S, X_D, DXBDRS(:,2) = DXBDRS(:,2) + HALF * DIR_THICKNESS(GP) * DIRECTOR(:,GP) * DPSHG(2,GP) ENDDO - ! Find a V1 and V2 for each node which form an + ! Find a V1 and V2 for each node which form an ! orthogonal right-handed coordinate system V1, V2, Vn ! where Vn is the director vector. DO GP=1,ELGP @@ -117,7 +117,7 @@ SUBROUTINE MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, X_R, X_S, X_D, ! Calculate V2 CALL CROSS(DIRECTOR(:,GP), V1(:,GP), V2(:,GP)) ENDDO - + ENDIF DO ROW=ROW_FROM,ROW_TO @@ -137,7 +137,7 @@ SUBROUTINE MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, X_R, X_S, X_D, IF(MEMBRANE) THEN ! Membrane e^m_xx, e^m_yy, e^m_xy terms of eqn (7a) ! described in eqn (7b) in ref [1] - + ! 1 / ∂x_m ∂u_m \ ! B(ROW,:) += - ( ---- dot ---- ) ! 2 \ ∂r_i ∂r_j / @@ -146,7 +146,7 @@ SUBROUTINE MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, X_R, X_S, X_D, ! B(ROW,:) += - ( ---- dot ---- ) ! 2 \ ∂r_j ∂r_i / CALL ADD_TERM_M(ROW, DXMDRS(:,J), I, ONE) - + ENDIF @@ -186,7 +186,7 @@ SUBROUTINE MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, X_R, X_S, X_D, CALL ADD_TERM_B(ROW, DXBDRS(:,J), I, T*T) ENDIF - + ENDDO @@ -224,12 +224,12 @@ SUBROUTINE ADD_TERM_M(ROW, LEFT, IU, COEFFICIENT) REAL(DOUBLE) , INTENT(IN) :: LEFT(3) ! The vector on the left of the dot product REAL(DOUBLE) , INTENT(IN) :: COEFFICIENT ! Scalar to multiply each term by. Coefficient in eqn (7a) of ref [1] - REAL(DOUBLE) :: DUMDRS(3) ! One grid point's term in the sum for the coefficients of the partial + REAL(DOUBLE) :: DUMDRS(3) ! One grid point's term in the sum for the coefficients of the partial ! derivatives of u_m with respect to R or S. INTEGER(LONG), INTENT(IN) :: ROW ! Row of B to add the result to. 1, 2, or 4. INTEGER(LONG), INTENT(IN) :: IU ! Index of dr in the u derivative. 1 or 2. - + DO GP=1,ELGP K = (GP-1) * 6 ! Eqn (9) of ref [1]. This node's term of: @@ -243,7 +243,7 @@ SUBROUTINE ADD_TERM_M(ROW, LEFT, IU, COEFFICIENT) B(ROW, K+2) = B(ROW, K+2) + COEFFICIENT / TWO * LEFT(2) * DUMDRS(2) B(ROW, K+3) = B(ROW, K+3) + COEFFICIENT / TWO * LEFT(3) * DUMDRS(3) ENDDO - + END SUBROUTINE ADD_TERM_M ! ********************************************************************************************************************************** @@ -261,7 +261,7 @@ SUBROUTINE ADD_TERM_B(ROW, LEFT, IU, COEFFICIENT) INTEGER(LONG), INTENT(IN) :: ROW ! Row of B to add the result to. 1, 2, or 4. INTEGER(LONG), INTENT(IN) :: IU ! Index of dr in the u derivative. 1 or 2. - + DO GP=1,ELGP K = (GP-1) * 6 @@ -274,10 +274,10 @@ SUBROUTINE ADD_TERM_B(ROW, LEFT, IU, COEFFICIENT) B(ROW, K+5) = B(ROW, K+5) + COEFFICIENT / TWO * DOT_PRODUCT(LEFT, DUMb) ENDDO - + END SUBROUTINE ADD_TERM_B ! ********************************************************************************************************************************** - + END SUBROUTINE MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION diff --git a/Source/EMG/EMG4/MITC8.f90 b/Source/EMG/EMG4/MITC8.f90 index 532f3893..aa93a2fa 100644 --- a/Source/EMG/EMG4/MITC8.f90 +++ b/Source/EMG/EMG4/MITC8.f90 @@ -1,30 +1,30 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) - + ! Calculates, or calls subr's to calculate, quadrilateral element matrices: ! 1) ME = element mass matrix , if OPT(1) = 'Y' @@ -33,7 +33,7 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) ! 4) KE = element linea stiffness matrix , if OPT(4) = 'Y' ! 5) PPE = element pressure load matrix , if OPT(5) = 'Y' ! 6) KED = element differen stiff matrix calc , if OPT(6) = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_GAUSS, MAX_STRESS_POINTS @@ -54,9 +54,9 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) USE MITC8_CARTESIAN_LOCAL_BASIS_Interface USE MITC8_ELEMENT_CS_BASIS_Interface USE MITC_ELASTICITY_Interface - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MITC8' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -112,7 +112,7 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) ! XEL element (internal use) ! Used for the grid point DOFs of the strain-displacement and the element stiffness matrices. ! Used for extrapolating stress and strain from Gauss points to corners. -! Grid point coordinates stored in XEL are in a coordinate system which is flat, with the normal being the cross product +! Grid point coordinates stored in XEL are in a coordinate system which is flat, with the normal being the cross product ! of vectors from grid points 1-3 and 2-4. The x axis is an arbitrary direction in this plane. The flat coordinate system ! is used for grid point coordinates for extrapolating stress because the polynomial curve fit code to extrapolate stress/strain ! from Gauss points to corners is only 2D. @@ -143,12 +143,12 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) ! ! ********************************************************************************************************************************** - + ! Initialize PHI_SQ = ONE ! Not used for this element CALL MITC_INITIALIZE () - + IF (PCOMP_PROPS == 'Y') THEN WRITE(ERR,*) ' *ERROR: Code not written for composite material with QUAD8' WRITE(F06,*) ' *ERROR: Code not written for composite material with QUAD8' @@ -157,49 +157,49 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) CALL OUTA_HERE ( 'Y' ) ENDIF - - + + ! ********************************************************************************************************************************** ! Generate the mass matrix for this element. - + IF (OPT(1) == 'Y') THEN !Not implememented yet but we can't make it a fatal error because this gets called even when it doesn't need it. ENDIF - + ! ********************************************************************************************************************************** -! Calculate element thermal loads. - +! Calculate element thermal loads. + IF (OPT(2) == 'Y') THEN - + WRITE(ERR,*) ' *ERROR: Code not written for QUAD8 thermal loads' WRITE(F06,*) ' *ERROR: Code not written for QUAD8 thermal loads' NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - + ENDIF - + ! ********************************************************************************************************************************** -! BE1 matrix (3 x 48) for membrane strain/stress/force data recovery. +! BE1 matrix (3 x 48) for membrane strain/stress/force data recovery. ! BE2 matrix (3 x 48) for bending strain/stress/force data recovery. ! BE3 matrix (2 x 48) for transverse shear strain/stress/force data recovery. ! All calculated at Gauss points and not center. ! The displacements are in basic coordinates and the strains are in element coordinates. -! There's a possible bug where the numbering of the element grid points (eg. 1-2-3-4 vs 2-3-4-1) affects the stress/strain/elforce, +! There's a possible bug where the numbering of the element grid points (eg. 1-2-3-4 vs 2-3-4-1) affects the stress/strain/elforce, ! when the element is distorted. This includes von Mises which should be invariant to rotation. ! ! - It doesn't occur if we skip the extrapolation from Gauss points to corners so Gauss point strains are probably OK. -! - It makes no differences if the cartesian local coordiante system is changed to be G1G2 or the bisected diagonals projected +! - It makes no differences if the cartesian local coordiante system is changed to be G1G2 or the bisected diagonals projected ! onto the surface everywhere or like Siemens material coordinates with an intermediate reference plane. -! - It works OK if the cartesian local coordinate system is defined using the same vector for each element, eg. (1,0,0), instead +! - It works OK if the cartesian local coordinate system is defined using the same vector for each element, eg. (1,0,0), instead ! of G1G2 with either the Siemens or direct projection. However, this won't generalize to elements in any orientation and might ! just be hiding the problem. -! - The problem is probably the extrapolation from Gauss points to grid points. Maybe it should be done in covariant coordinates +! - The problem is probably the extrapolation from Gauss points to grid points. Maybe it should be done in covariant coordinates ! the way strains are interpolated by MITC. Somehow. IF (OPT(3) == 'Y') THEN @@ -215,7 +215,7 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) R = SS_IJ(I) S = SS_IJ(J) - + CALL MITC8_B( R, S, -ONE, .TRUE., .TRUE., BI1) CALL MITC8_B( R, S, +ONE, .TRUE., .TRUE., BI2) @@ -234,12 +234,12 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) ! Transverse shear strain. Note reversed order of rows. BE3(1,:,STR_PT_NUM) = (BI2(6,:) + BI1(6,:)) / TWO ! zx BE3(2,:,STR_PT_NUM) = (BI2(5,:) + BI1(5,:)) / TWO ! yz - + ENDDO ENDDO ! Find angle of the element coordinate system's x axis from - ! the cartesian local coordinate system's x axis at each + ! the cartesian local coordinate system's x axis at each ! corner. ! This will be used to transform stress and strain to the ! element coordinate system after extrapolating to corners. @@ -256,20 +256,20 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) CALL CROSS( XL, XE, CROSS_XLE ) SHELL_STR_ANGLE( STR_PT_NUM ) = ATAN2(DOT_PRODUCT( ZL, CROSS_XLE ), DOT_PRODUCT( XL, XE )) - + ENDDO ENDIF ! ********************************************************************************************************************************** ! Calculate element stiffness matrix KE. - + IF(OPT(4) == 'Y') THEN ! Based on -! MITC4 paper "A continuum mechanics based four-node shell element for general nonlinear analysis" +! MITC4 paper "A continuum mechanics based four-node shell element for general nonlinear analysis" ! by Dvorkin and Bathe -! MITC8 paper "A FORMULATION OF GENERAL SHELL ELEMENTS-THE USE OF MIXED INTERPOLATION OF TENSORIAL COMPONENTS" +! MITC8 paper "A FORMULATION OF GENERAL SHELL ELEMENTS-THE USE OF MIXED INTERPOLATION OF TENSORIAL COMPONENTS" ! by Dvorkin and Bathe, 1986 @@ -307,17 +307,17 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) INTFAC = DETJ*HH_IJ(I)*HH_IJ(J)*HH_K(K) KE(1:6*ELGP,1:6*ELGP) = KE(1:6*ELGP,1:6*ELGP) + DUM2(:,:)*INTFAC ENDDO - ENDDO - ENDDO + ENDDO + ENDDO + + - - ENDIF - + ! ********************************************************************************************************************************** -! Determine element pressure loads - +! Determine element pressure loads + IF (OPT(5) == 'Y') THEN WRITE(ERR,*) ' *ERROR: Code not written for QUAD8 pressure loads' @@ -325,12 +325,12 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - + ENDIF - + ! ********************************************************************************************************************************** ! Calculate linear differential stiffness matrix - + IF ((OPT(6) == 'Y') .AND. (LOAD_ISTEP > 1)) THEN WRITE(ERR,*) ' *ERROR: Code not written for QUAD8 differential stiffness matrix' @@ -342,8 +342,8 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) ENDIF - - + + RETURN @@ -352,5 +352,5 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) ! ********************************************************************************************************************************** - + END SUBROUTINE MITC8 diff --git a/Source/EMG/EMG4/MITC8_B.f90 b/Source/EMG/EMG4/MITC8_B.f90 index ef458704..7800ab17 100644 --- a/Source/EMG/EMG4/MITC8_B.f90 +++ b/Source/EMG/EMG4/MITC8_B.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) - + ! Calculates the strain-displacement matrix in the cartesian local coordinate system ! for MITC8 shell at one point in isoparametric coordinates. ! Based on -! MITC8 paper "A FORMULATION OF GENERAL SHELL ELEMENTS-THE USE OF MIXED INTERPOLATION OF TENSORIAL COMPONENTS" +! MITC8 paper "A FORMULATION OF GENERAL SHELL ELEMENTS-THE USE OF MIXED INTERPOLATION OF TENSORIAL COMPONENTS" ! by Dvorkin and Bathe, 1986 @@ -45,7 +45,7 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) USE MITC8_CARTESIAN_LOCAL_BASIS_Interface USE MITC_TRANSFORM_B_Interface - IMPLICIT NONE + IMPLICIT NONE LOGICAL, INTENT(IN) :: INLAYER ! TRUE for in-layer rows (1-4) LOGICAL, INTENT(IN) :: SHEAR ! TRUE for transverse shear rows (5-6) @@ -90,18 +90,18 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) REAL(DOUBLE) :: TRANSFORM(3,3) ! Transformation matrix INTRINSIC :: DSQRT - + ! ********************************************************************************************************************************** ! Initialize empty matrix B(:,:) = ZERO - + ! ********************************************************************************************************************************** ! Add in-layer strain-displacement terms - IF ( INLAYER ) THEN + IF ( INLAYER ) THEN ! 8 in-layer sampling points ! ^ s @@ -115,7 +115,7 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) ! | o o o | ! +-----+-----+ ! 1 5 2 - ! + ! A = ONE / DSQRT(THREE) POINT_R = (/ A, -A, -A, A, ZERO, -A, ZERO, A /) @@ -174,7 +174,7 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) DO POINT=5,8 - + SELECT CASE (POINT) CASE (5); I=1; J=2; POINT_A=1; POINT_B=2 CASE (6); I=2; J=1; POINT_A=2; POINT_B=3 @@ -207,12 +207,12 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) CALL MITC_CONTRAVARIANT_BASIS( G, G_CONTRA ) B_2(:,:,1) = ZERO - + CALL OUTER_PRODUCT( G_CONTRA(:,J), G_CONTRA(:,J), 3, 3, GG ) DO COL=1,6*ELGP CALL MITC_ADD_TO_B( B_2, 1, COL, EJJ(J, COL), GG ) ENDDO - + ! [1/2 (ε|_A + ε|_B)] E_AVERAGE = (B_1(:,:,POINT_A) + B_1(:,:,POINT_B)) / TWO @@ -227,8 +227,8 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) ! [...] · g_i SCALAR = DUM1(1) * G(1,I) + DUM1(2) * G(2,I) + DUM1(3) * G(3,I) CALL MITC_ADD_TO_B( B_2, 1, COL, SCALAR, GG ) - ENDDO - + ENDDO + ! {g_r · [1/2 (ε|_A + ε|_B)] · g_s} (g^r g^s + [g^r g^s]^T |_SamplingPoint CALL OUTER_PRODUCT( G_CONTRA(:,1), G_CONTRA(:,2), 3, 3, GG ) GG = GG + TRANSPOSE(GG) @@ -240,8 +240,8 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) ! [...] · g_s SCALAR = DUM1(1) * G(1,2) + DUM1(2) * G(2,2) + DUM1(3) * G(3,2) CALL MITC_ADD_TO_B( B_2, 1, COL, SCALAR, GG ) - ENDDO - + ENDDO + B = B + B_2(:,:,1) * H_IS(POINT) ENDDO @@ -255,7 +255,7 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) ! ********************************************************************************************************************************** ! Add transverse shear strain-displacement terms - IF ( SHEAR ) THEN + IF ( SHEAR ) THEN DO I=1,2 @@ -277,7 +277,7 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) ! | 3 4 | ! +-o---+---o-+ ! 1 5 2 - ! + ! ! 7 sampling points for ε_st (I=2) ! Points 2 and 4 are interchanged compared to Bathe because this makes it symmetric with ε_rt to reuse code. @@ -292,7 +292,7 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) ! o3 SBo 2o ! +-----+-----+ ! 1 2 3 - ! + ! ! Points 6 and 7 are called RA and RB respectively in Bathe. A = ONE / DSQRT(THREE) @@ -322,7 +322,7 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) ! I guess that the transverse shear sampling points are at the nodal surface (t=0, T=0). Same as MITC4. CALL MITC_COVARIANT_BASIS( POINT_R(POINT), POINT_S(POINT), ZERO, G ) CALL MITC_CONTRAVARIANT_BASIS( G, G_CONTRA ) - + IF(POINT == 5) THEN CALL MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION( POINT_R(6), POINT_S(6), ZERO, ROW, ROW, EIT_RA ) CALL MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION( POINT_R(7), POINT_S(7), ZERO, ROW, ROW, EIT_RB ) @@ -332,7 +332,7 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) ENDIF B_2(:,:,1) = ZERO - + CALL OUTER_PRODUCT( G_CONTRA(:,I), G_CONTRA(:,3), 3, 3, GG ) ! Evaluate both the g^r g^t term and the [g^r g^t]^T term together so their sum is symmetric since only ! the unique elements are stored in the B matrix. @@ -340,14 +340,14 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) DO COL=1,6*ELGP CALL MITC_ADD_TO_B( B_2, 1, COL, EIT(ROW, COL), GG ) ENDDO - + B = B + B_2(:,:,1) * H_IT(POINT) ENDDO - - - - + + + + ENDDO @@ -369,5 +369,5 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) ! ********************************************************************************************************************************** - + END SUBROUTINE MITC8_B diff --git a/Source/EMG/EMG4/MITC8_CARTESIAN_LOCAL_BASIS.f90 b/Source/EMG/EMG4/MITC8_CARTESIAN_LOCAL_BASIS.f90 index a21d7b04..55a0af86 100644 --- a/Source/EMG/EMG4/MITC8_CARTESIAN_LOCAL_BASIS.f90 +++ b/Source/EMG/EMG4/MITC8_CARTESIAN_LOCAL_BASIS.f90 @@ -1,30 +1,30 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. FUNCTION MITC8_CARTESIAN_LOCAL_BASIS ( R, S ) - + ! Finds the basis vectors of the cartesian local coordinate system expressed in the basic coordinate system. ! This is defined the same way as the material coordinate system in Simcenter Nastran with THETA=0. ! This definition is chosen because it is uniform over the surface of the element so stress and strain outputs @@ -41,14 +41,14 @@ FUNCTION MITC8_CARTESIAN_LOCAL_BASIS ( R, S ) USE MITC_SHAPE_FUNCTIONS_Interface USE CROSS_Interface - IMPLICIT NONE - + IMPLICIT NONE + INTEGER(LONG) :: I ! DO loop indices REAL(DOUBLE) :: MITC8_CARTESIAN_LOCAL_BASIS(3,3) REAL(DOUBLE) , INTENT(IN) :: R REAL(DOUBLE) , INTENT(IN) :: S - REAL(DOUBLE) :: PSH(ELGP) + REAL(DOUBLE) :: PSH(ELGP) REAL(DOUBLE) :: DPSHG(2,ELGP) ! Derivatives of shape functions with respect to R and S. REAL(DOUBLE) :: E_XI(3) REAL(DOUBLE) :: E_ETA(3) @@ -60,10 +60,10 @@ FUNCTION MITC8_CARTESIAN_LOCAL_BASIS ( R, S ) ! ********************************************************************************************************************************** - - + + CALL MITC_SHAPE_FUNCTIONS(R, S, PSH, DPSHG) - + ! Unit normal to the reference plane CALL CROSS(XEL(3,:) - XEL(1,:), XEL(4,:) - XEL(2,:), Z_REF) Z_REF = Z_REF / DSQRT(DOT_PRODUCT(Z_REF, Z_REF)) @@ -98,5 +98,5 @@ FUNCTION MITC8_CARTESIAN_LOCAL_BASIS ( R, S ) ! ********************************************************************************************************************************** - + END FUNCTION MITC8_CARTESIAN_LOCAL_BASIS diff --git a/Source/EMG/EMG4/MITC8_ELEMENT_CS_BASIS.f90 b/Source/EMG/EMG4/MITC8_ELEMENT_CS_BASIS.f90 index 8626d5e3..f9fea4f0 100644 --- a/Source/EMG/EMG4/MITC8_ELEMENT_CS_BASIS.f90 +++ b/Source/EMG/EMG4/MITC8_ELEMENT_CS_BASIS.f90 @@ -1,30 +1,30 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. FUNCTION MITC8_ELEMENT_CS_BASIS ( R, S ) - + ! Finds the basis vectors of the local element coordinate system expressed in the basic coordinate system. ! This is defined the same way as in MSC Nastran and is used for element stress, strain and force output. ! First index of the result is a vector component in basic coordinates (x,y,z) @@ -37,14 +37,14 @@ FUNCTION MITC8_ELEMENT_CS_BASIS ( R, S ) USE MITC_SHAPE_FUNCTIONS_Interface USE CROSS_Interface - IMPLICIT NONE - + IMPLICIT NONE + INTEGER(LONG) :: I ! DO loop indices REAL(DOUBLE) :: MITC8_ELEMENT_CS_BASIS(3,3) REAL(DOUBLE) , INTENT(IN) :: R REAL(DOUBLE) , INTENT(IN) :: S - REAL(DOUBLE) :: PSH(ELGP) + REAL(DOUBLE) :: PSH(ELGP) REAL(DOUBLE) :: DPSHG(2,ELGP) ! Derivatives of shape functions with respect to R and S. REAL(DOUBLE) :: E_XI(3) REAL(DOUBLE) :: E_ETA(3) @@ -58,8 +58,8 @@ FUNCTION MITC8_ELEMENT_CS_BASIS ( R, S ) ! ********************************************************************************************************************************** - - + + CALL MITC_SHAPE_FUNCTIONS(R, S, PSH, DPSHG) ! e_ξ(r, s) = d/dR X = sum over nodes[ dN/dR X ] @@ -91,7 +91,7 @@ FUNCTION MITC8_ELEMENT_CS_BASIS ( R, S ) T(:,1) = A CALL CROSS(B, A, T(:,2)) T(:,3) = B - + ! Transform x_l and y_l to the basic coordinate system MITC8_ELEMENT_CS_BASIS(:,1) = MATMUL(T, X_L_ACB) MITC8_ELEMENT_CS_BASIS(:,2) = MATMUL(T, Y_L_ACB) @@ -102,5 +102,5 @@ FUNCTION MITC8_ELEMENT_CS_BASIS ( R, S ) ! ********************************************************************************************************************************** - + END FUNCTION MITC8_ELEMENT_CS_BASIS diff --git a/Source/EMG/EMG4/MITC_ADD_TO_B.f90 b/Source/EMG/EMG4/MITC_ADD_TO_B.f90 index 8f2d85f4..a91a62ca 100644 --- a/Source/EMG/EMG4/MITC_ADD_TO_B.f90 +++ b/Source/EMG/EMG4/MITC_ADD_TO_B.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MITC_ADD_TO_B ( B, POINT, COL, SCALAR, TENSOR ) ! Add the UT of the 3x3 tensor times the scalar to a column of the B for sampling point POINT. - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE - IMPLICIT NONE - + IMPLICIT NONE + REAL(DOUBLE) , INTENT(INOUT) :: B(6,6*8,4) REAL(DOUBLE) , INTENT(IN) :: SCALAR REAL(DOUBLE) , INTENT(IN) :: TENSOR(3,3) @@ -51,5 +51,5 @@ SUBROUTINE MITC_ADD_TO_B ( B, POINT, COL, SCALAR, TENSOR ) ! ********************************************************************************************************************************** - + END SUBROUTINE MITC_ADD_TO_B diff --git a/Source/EMG/EMG4/MITC_CONTRAVARIANT_BASIS.f90 b/Source/EMG/EMG4/MITC_CONTRAVARIANT_BASIS.f90 index b3c65709..e4c6574c 100644 --- a/Source/EMG/EMG4/MITC_CONTRAVARIANT_BASIS.f90 +++ b/Source/EMG/EMG4/MITC_CONTRAVARIANT_BASIS.f90 @@ -1,30 +1,30 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MITC_CONTRAVARIANT_BASIS ( G, G_CONTRA ) - + ! Calculates the contravariant basis vectors g^1, g^2, g^3 to the specified covariant basis vectors ! g_r, g_s, g_t. This is the inverse Jacobian matrix where g_r/s/t are the columns of the Jacobian matrix. ! G(:,1) is g_r, etc. @@ -33,8 +33,8 @@ SUBROUTINE MITC_CONTRAVARIANT_BASIS ( G, G_CONTRA ) USE PENTIUM_II_KIND, ONLY : DOUBLE USE CROSS_Interface - - IMPLICIT NONE + + IMPLICIT NONE REAL(DOUBLE) , INTENT(IN) :: G(3,3) ! Covariant basis vectors REAL(DOUBLE) , INTENT(OUT) :: G_CONTRA(3,3) ! Contravariant basis vectors @@ -58,5 +58,5 @@ SUBROUTINE MITC_CONTRAVARIANT_BASIS ( G, G_CONTRA ) ! ********************************************************************************************************************************** - + END SUBROUTINE MITC_CONTRAVARIANT_BASIS diff --git a/Source/EMG/EMG4/MITC_COVARIANT_BASIS.f90 b/Source/EMG/EMG4/MITC_COVARIANT_BASIS.f90 index fcbc6f65..2005ef4a 100644 --- a/Source/EMG/EMG4/MITC_COVARIANT_BASIS.f90 +++ b/Source/EMG/EMG4/MITC_COVARIANT_BASIS.f90 @@ -1,30 +1,30 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MITC_COVARIANT_BASIS ( R, S, T, G ) - + ! Calculates g_r, g_s, g_t in XEL element coordinates. ! These are also the columns of the Jacobian matrix. ! G(:,1) is g_r, etc. @@ -38,13 +38,13 @@ SUBROUTINE MITC_COVARIANT_BASIS ( R, S, T, G ) USE MITC_SHAPE_FUNCTIONS_Interface - IMPLICIT NONE - + IMPLICIT NONE + INTEGER(LONG) :: GP ! Element grid point number REAL(DOUBLE) , INTENT(IN) :: R, S, T ! Isoparametric coordinates REAL(DOUBLE) , INTENT(OUT) :: G(3,3) ! basis vector in basic coordinates - REAL(DOUBLE) :: PSH(ELGP) + REAL(DOUBLE) :: PSH(ELGP) REAL(DOUBLE) :: DPSHG(2,ELGP) ! Derivatives of shape functions with respect to xi and eta. ! ********************************************************************************************************************************** @@ -62,10 +62,10 @@ SUBROUTINE MITC_COVARIANT_BASIS ( R, S, T, G ) ! Interpolate director vector * thickness. G(:,3) = G(:,3) + DIRECTOR(:,GP) * DIR_THICKNESS(GP) / TWO * PSH(GP) ENDDO - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE MITC_COVARIANT_BASIS diff --git a/Source/EMG/EMG4/MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION.f90 b/Source/EMG/EMG4/MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION.f90 index 0451b640..2cca80d9 100644 --- a/Source/EMG/EMG4/MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION.f90 +++ b/Source/EMG/EMG4/MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, ROW_FROM, ROW_TO, B ) - + ! Covariant strain-displacement components at point (R,S,T) directly evaluated from the displacement and rotation interpolations ! -! Grid point 1 Grid point 2 ... +! Grid point 1 Grid point 2 ... ! ux uy uz rx ry rz ux uy uz rx ry rz ! 11 [ # # # # # # | # # # # # # | ] ! 22 [ # # # # # # | # # # # # # | ] @@ -45,8 +45,8 @@ SUBROUTINE MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, ROW_FROM, ROW_T USE MITC_SHAPE_FUNCTIONS_Interface USE MITC_COVARIANT_BASIS_Interface - IMPLICIT NONE - + IMPLICIT NONE + REAL(DOUBLE) , INTENT(IN) :: R,S,T ! Isparametric coordinates REAL(DOUBLE) , INTENT(OUT) :: B(6, 6*ELGP) ! Strain-displacement matrix. REAL(DOUBLE) :: PSH(ELGP) ! Shape functions @@ -58,18 +58,18 @@ SUBROUTINE MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, ROW_FROM, ROW_T INTEGER(LONG), INTENT(IN) :: ROW_TO ! Last row of B to generate. Strain component index 1-6. INTEGER(LONG) :: GP ! Element grid point number INTEGER(LONG) :: I,J,K,L ! Loop and tensor indices - INTEGER(LONG) :: ROW - + INTEGER(LONG) :: ROW + ! ********************************************************************************************************************************** ! Reference [2]: -! MITC4 paper "A continuum mechanics based four-node shell element for general nonlinear analysis" +! MITC4 paper "A continuum mechanics based four-node shell element for general nonlinear analysis" ! by Dvorkin and Bathe ! Shape function derivatives at R,S CALL MITC_SHAPE_FUNCTIONS(R, S, PSH, DPSHG) - ! Extend shape function derivates to include + ! Extend shape function derivates to include ! thickness direction (0) for convenience. DO GP=1,ELGP DO J=1,2 @@ -117,7 +117,7 @@ SUBROUTINE MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, ROW_FROM, ROW_T B(ROW, K+4) = B(ROW, K+4) + DIR_THICKNESS(GP) * PSH(GP) * (G(3,I) * DIRECTOR(2,GP) - G(2,I) * DIRECTOR(3,GP)) / FOUR B(ROW, K+5) = B(ROW, K+5) + DIR_THICKNESS(GP) * PSH(GP) * (G(1,I) * DIRECTOR(3,GP) - G(3,I) * DIRECTOR(1,GP)) / FOUR B(ROW, K+6) = B(ROW, K+6) + DIR_THICKNESS(GP) * PSH(GP) * (G(2,I) * DIRECTOR(1,GP) - G(1,I) * DIRECTOR(2,GP)) / FOUR - ELSE + ELSE ! 1/4 d/dr (t h phi) = 1/4 t h dN/dr phi ! 1/4 d/ds (t h phi) = 1/4 t h dN/ds phi B(ROW, K+4) = B(ROW, K+4) + & @@ -146,5 +146,5 @@ SUBROUTINE MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, ROW_FROM, ROW_T ! ********************************************************************************************************************************** - + END SUBROUTINE MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION diff --git a/Source/EMG/EMG4/MITC_DETJ.f90 b/Source/EMG/EMG4/MITC_DETJ.f90 index b94db283..8c36015b 100644 --- a/Source/EMG/EMG4/MITC_DETJ.f90 +++ b/Source/EMG/EMG4/MITC_DETJ.f90 @@ -1,39 +1,39 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. FUNCTION MITC_DETJ ( R, S, T ) ! Calculates the Jacobian determinant in basic coordinates at a point in isoparametric coordinates. - + USE PENTIUM_II_KIND, ONLY : DOUBLE USE MITC_COVARIANT_BASIS_Interface USE CROSS_Interface - IMPLICIT NONE - + IMPLICIT NONE + REAL(DOUBLE) :: MITC_DETJ REAL(DOUBLE) , INTENT(IN) :: R REAL(DOUBLE) , INTENT(IN) :: S @@ -42,7 +42,7 @@ FUNCTION MITC_DETJ ( R, S, T ) REAL(DOUBLE) :: DUM1(3) ! ********************************************************************************************************************************** - + CALL MITC_COVARIANT_BASIS( R, S, T, G ) !DET(J) = G_R . (G_S x G_T) @@ -53,5 +53,5 @@ FUNCTION MITC_DETJ ( R, S, T ) ! ********************************************************************************************************************************** - + END FUNCTION MITC_DETJ diff --git a/Source/EMG/EMG4/MITC_ELASTICITY.f90 b/Source/EMG/EMG4/MITC_ELASTICITY.f90 index 9d4f5504..61ce96ad 100644 --- a/Source/EMG/EMG4/MITC_ELASTICITY.f90 +++ b/Source/EMG/EMG4/MITC_ELASTICITY.f90 @@ -1,40 +1,40 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. FUNCTION MITC_ELASTICITY () ! Returns the 6x6 elasticity matrix. ! In the element coordinate system for QUAD4. ! In the material coordinate system for QUAD8. - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE MODEL_STUF, ONLY : EM, ET, EPROP USE CONSTANTS_1, ONLY : ZERO - IMPLICIT NONE - + IMPLICIT NONE + INTEGER(LONG) :: I,J ! DO loop indices REAL(DOUBLE) :: MITC_ELASTICITY(6,6) @@ -62,11 +62,11 @@ FUNCTION MITC_ELASTICITY () DO I=2,6 ! Copy UT to LT because it's symmetric. DO J=1,I-1 MITC_ELASTICITY(I,J) = MITC_ELASTICITY(J,I) - ENDDO - ENDDO + ENDDO + ENDDO RETURN ! ********************************************************************************************************************************** - + END FUNCTION MITC_ELASTICITY diff --git a/Source/EMG/EMG4/MITC_INITIALIZE.f90 b/Source/EMG/EMG4/MITC_INITIALIZE.f90 index bb191689..16db8aef 100644 --- a/Source/EMG/EMG4/MITC_INITIALIZE.f90 +++ b/Source/EMG/EMG4/MITC_INITIALIZE.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MITC_INITIALIZE () ! Initialize element variables in MITC_STUF. @@ -30,18 +30,18 @@ SUBROUTINE MITC_INITIALIZE () USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE MODEL_STUF, ONLY : ELGP, EPROP, XEL, BGRID, GRID_SNORM, TYPE, TE USE CONSTANTS_1, ONLY : ZERO, ONE - USE MITC_STUF, ONLY : DIRECTOR, DIR_THICKNESS, GP_RS + USE MITC_STUF, ONLY : DIRECTOR, DIR_THICKNESS, GP_RS USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : FATAL_ERR USE MATMULT_FFF_Interface - IMPLICIT NONE + IMPLICIT NONE INTEGER(LONG) :: GP ! Element grid point number INTEGER(LONG) :: I,J ! DO loop indices - REAL(DOUBLE) :: PSH(ELGP) + REAL(DOUBLE) :: PSH(ELGP) REAL(DOUBLE) :: DPSHG(2,ELGP) ! Derivatives of shape functions with respect to R and S. REAL(DOUBLE) :: TANGENT_R(3) REAL(DOUBLE) :: TANGENT_S(3) @@ -63,7 +63,7 @@ SUBROUTINE MITC_INITIALIZE () GP_RS(1,2) = -ONE GP_RS(1,3) = -ONE GP_RS(1,4) = ONE - + GP_RS(2,1) = ONE GP_RS(2,2) = ONE GP_RS(2,3) = -ONE @@ -79,7 +79,7 @@ SUBROUTINE MITC_INITIALIZE () GP_RS(1,6) = ONE GP_RS(1,7) = ZERO GP_RS(1,8) = -ONE - + GP_RS(2,1) = -ONE GP_RS(2,2) = -ONE GP_RS(2,3) = ONE @@ -125,7 +125,7 @@ SUBROUTINE MITC_INITIALIZE () MIDSURFACE_NORMAL(:,GP) = NORMAL NORMAL = GRID_SNORM(BGRID(GP),:) - + ! Use the midsurface normal unless SNORM exists and it's ! a linear element. IF (ANY(NORMAL /= ZERO) .AND. (TYPE(1:5) == 'QUAD4')) THEN @@ -151,13 +151,13 @@ SUBROUTINE MITC_INITIALIZE () ! Error if the angle betwen them is greater than ~=89 degrees. ! 90 degrees would divide by zero and >90 degrees would be ! inside-out. - IF(THICKNESS_FACTOR < 0.01) THEN + IF(THICKNESS_FACTOR < 0.01) THEN WRITE(ERR,*) ' *ERROR: SNORM IS TOO FAR FROM MIDSURFACE NORMAL' WRITE(F06,*) ' *ERROR: SNORM IS TOO FAR FROM MIDSURFACE NORMAL' FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ENDIF - + DIR_THICKNESS(GP) = EPROP(1) / THICKNESS_FACTOR ENDDO @@ -168,5 +168,5 @@ SUBROUTINE MITC_INITIALIZE () ! ********************************************************************************************************************************** - + END SUBROUTINE MITC_INITIALIZE diff --git a/Source/EMG/EMG4/MITC_SHAPE_FUNCTIONS.f90 b/Source/EMG/EMG4/MITC_SHAPE_FUNCTIONS.f90 index 319d2193..b74d7eca 100644 --- a/Source/EMG/EMG4/MITC_SHAPE_FUNCTIONS.f90 +++ b/Source/EMG/EMG4/MITC_SHAPE_FUNCTIONS.f90 @@ -1,30 +1,30 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MITC_SHAPE_FUNCTIONS ( R, S, PSH, DPSHG ) - + USE PENTIUM_II_KIND, ONLY : DOUBLE USE MODEL_STUF, ONLY : ELGP, TYPE @@ -34,7 +34,7 @@ SUBROUTINE MITC_SHAPE_FUNCTIONS ( R, S, PSH, DPSHG ) USE SHP2DQ_Interface USE OUTA_HERE_Interface - IMPLICIT NONE + IMPLICIT NONE REAL(DOUBLE) , INTENT(IN) :: R,S ! Isoparametric coordinates REAL(DOUBLE) , INTENT(OUT) :: PSH(ELGP) ! Shape functions @@ -42,7 +42,7 @@ SUBROUTINE MITC_SHAPE_FUNCTIONS ( R, S, PSH, DPSHG ) REAL(DOUBLE) :: DUM(2,ELGP) REAL(DOUBLE) :: DUM2(ELGP) - + ! ********************************************************************************************************************************** ! Shape function derivatives at R,S @@ -79,5 +79,5 @@ SUBROUTINE MITC_SHAPE_FUNCTIONS ( R, S, PSH, DPSHG ) ! ********************************************************************************************************************************** - + END SUBROUTINE MITC_SHAPE_FUNCTIONS diff --git a/Source/EMG/EMG4/MITC_STUF.f90 b/Source/EMG/EMG4/MITC_STUF.f90 index 832c6c21..8bcdf731 100644 --- a/Source/EMG/EMG4/MITC_STUF.f90 +++ b/Source/EMG/EMG4/MITC_STUF.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC_STUF ! This module contains variables that are calculated once for each element and used in various places. - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE - + IMPLICIT NONE SAVE - + ! ********************************************************************************************************************************** ! Maximum number of nodes for an element - INTEGER(LONG), PARAMETER :: MELGP = 8 + INTEGER(LONG), PARAMETER :: MELGP = 8 ! Director vector at each element node REAL(DOUBLE) :: DIRECTOR(3,MELGP) diff --git a/Source/EMG/EMG4/MITC_TRANSFORM_B.f90 b/Source/EMG/EMG4/MITC_TRANSFORM_B.f90 index 4a737492..dacf7dbe 100644 --- a/Source/EMG/EMG4/MITC_TRANSFORM_B.f90 +++ b/Source/EMG/EMG4/MITC_TRANSFORM_B.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MITC_TRANSFORM_B ( TRANSFORM, B ) ! Transform the strain-displacement matrix (tensor components) to a different basis. @@ -33,7 +33,7 @@ SUBROUTINE MITC_TRANSFORM_B ( TRANSFORM, B ) USE MODEL_STUF, ONLY : ELGP USE CONSTANTS_1, ONLY : ZERO - IMPLICIT NONE + IMPLICIT NONE REAL(DOUBLE), INTENT(INOUT) :: B(6,6*ELGP) REAL(DOUBLE), INTENT(IN) :: TRANSFORM(3,3) @@ -53,11 +53,11 @@ SUBROUTINE MITC_TRANSFORM_B ( TRANSFORM, B ) INDEX1 = (/ 1, 2, 3, 1, 2, 1 /) INDEX2 = (/ 1, 2, 3, 2, 3, 3 /) - + ROWS = RESHAPE((/ 1, 4, 6, 4, 2, 5, 6, 5, 3 /), SHAPE(ROWS)) - + B_TRANSFORMED(:,:) = ZERO - + DO ROW=1,6 K = INDEX1(ROW) L = INDEX2(ROW) @@ -75,5 +75,5 @@ SUBROUTINE MITC_TRANSFORM_B ( TRANSFORM, B ) ! ********************************************************************************************************************************** - + END SUBROUTINE MITC_TRANSFORM_B diff --git a/Source/EMG/EMG4/MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL.f90 b/Source/EMG/EMG4/MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL.f90 index c1dd112d..fb89af5b 100644 --- a/Source/EMG/EMG4/MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL.f90 +++ b/Source/EMG/EMG4/MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL ( R, S, T, B ) ! Transform covariant strain components from the contravariant basis to the cartesian local basis. @@ -37,9 +37,9 @@ SUBROUTINE MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL ( R, S, T, B ) USE MITC4_CARTESIAN_LOCAL_BASIS_Interface USE MITC_TRANSFORM_B_Interface USE MATMULT_FFF_T_Interface - - IMPLICIT NONE + + IMPLICIT NONE REAL(DOUBLE) , INTENT(IN) :: R, S, T ! Isoparametric coordinates REAL(DOUBLE) , INTENT(OUT) :: B(6, 6*ELGP) ! Strain-displacement matrix @@ -66,5 +66,5 @@ SUBROUTINE MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL ( R, S, T, B ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL diff --git a/Source/EMG/EMG4/QDEL1.f90 b/Source/EMG/EMG4/QDEL1.f90 index 50d66af3..dd4e4247 100644 --- a/Source/EMG/EMG4/QDEL1.f90 +++ b/Source/EMG/EMG4/QDEL1.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) - + ! Calculates, or calls subr's to calculate, quadrilateral element matrices: ! 1) ME = element mass matrix , if OPT(1) = 'Y' @@ -34,7 +34,7 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) ! 4) KE = element linea stiffness matrix , if OPT(4) = 'Y' ! 5) PPE = element pressure load matrix , if OPT(5) = 'Y' ! 6) KED = element differen stiff matrix calc , if OPT(6) = 'Y' = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, ERR, F06, WRT_BUG, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_GAUSS, MEFE @@ -45,11 +45,11 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) USE MODEL_STUF, ONLY : EID, ELDOF, EMG_IFE, EMG_RFE, EMAT, ERR_SUB_NAM, EB, INTL_MID, KE, & MASS_PER_UNIT_AREA, NUM_EMG_FATAL_ERRS, ME, PCOMP_LAM, PCOMP_PROPS, SHELL_B, TYPE, XEL USE MODEL_STUF, ONLY : BENSUM, SHRSUM, PHI_SQ, PSI_HAT - + USE QDEL1_USE_IFs - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'QDEL1' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -60,14 +60,14 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) INTEGER(LONG) :: GAUSS_PT ! Gauss point number (used for DEBUG output in subr SHP2DQ INTEGER(LONG) :: I,J,K,L ! DO loop indices INTEGER(LONG) :: IORD ! Gaussian integration order for QMEM1 portion of element -! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! Do not change IORD_PCOMP. It must be such that it squared = number of nodes for the QUAD4 (MIN4T) INTEGER(LONG), PARAMETER :: IORD_PCOMP = 2 ! Int order for nonsym layup PCOMP must be 2 (checked in subr ! SHELL_ABD_MATRICES) -! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + - REAL(DOUBLE) :: AREA ! Elem area REAL(DOUBLE) :: AR ! Elem aspect ratio @@ -99,12 +99,12 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) REAL(DOUBLE) :: YSD(4) ! Diffs in y coords of quad sides in local coords INTRINSIC DSQRT - + ! ********************************************************************************************************************************** EPS1 = EPSIL(1) - + ! Initialize BENSUM = ZERO @@ -113,17 +113,17 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) PHI_SQ = ZERO ! Calculate side diffs - + XSD(1) = XEL(1,1) - XEL(2,1) ! x coord diffs (in local elem coords) XSD(2) = XEL(2,1) - XEL(3,1) XSD(3) = XEL(3,1) - XEL(4,1) XSD(4) = XEL(4,1) - XEL(1,1) - + YSD(1) = XEL(1,2) - XEL(2,2) ! y coord diffs (in local elem coords) YSD(2) = XEL(2,2) - XEL(3,2) YSD(3) = XEL(3,2) - XEL(4,2) YSD(4) = XEL(4,2) - XEL(1,2) - + IF ((DEBUG(6) > 0) .AND. (WRT_BUG(0) > 0)) THEN WRITE(BUG,*) ' Element side differences in x, y coords:' WRITE(BUG,*) ' ---------------------------------------' @@ -132,21 +132,21 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) WRITE(BUG,98763) XSD(3), YSD(3) WRITE(BUG,98764) XSD(4), YSD(4) WRITE(BUG,*) - ENDIF + ENDIF ! Calculate area by Gaussian integration - + AREA = ZERO CALL ORDER_GAUSS ( 2, SSS, HHH ) DO I=1,2 DO J=1,2 CALL JAC2D ( SSS(I), SSS(J), XSD, YSD, 'N', JAC, JACI, DETJ ) AREA = AREA + HHH(I)*HHH(J)*DETJ - ENDDO - ENDDO - + ENDDO + ENDDO + ! If AREA <= 0, set error and return - + IF (AREA < EPS1) THEN NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 FATAL_ERR = FATAL_ERR + 1 @@ -162,23 +162,23 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) ENDIF RETURN ENDIF - + ! Calculate aspect ratio. Note that D1M and D2M have been checked to be > 0 in subr ELMGM2 DO I=1,2 D1(I) = XEL(3,I) - XEL(1,I) D2(I) = XEL(4,I) - XEL(2,I) - ENDDO + ENDDO D1M = DSQRT(D1(1)*D1(1) + D1(2)*D1(2)) D2M = DSQRT(D2(1)*D2(1) + D2(2)*D2(2)) AR = D1M/D2M IF (AR < ONE) THEN AR = ONE/AR - ENDIF - + ENDIF + ! ********************************************************************************************************************************** ! Generate the mass matrix for this element. For the pure bending element the mass is based only on the non-structural mass. - + IF (OPT(1) == 'Y') THEN M0 = MASS_PER_UNIT_AREA*AREA/FOUR @@ -198,8 +198,8 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) ENDIF ! ********************************************************************************************************************************** - IF ((OPT(2) == 'Y') .OR. (OPT(3) == 'Y') .OR. (OPT(4) == 'Y') .OR. (OPT(5) == 'Y') .OR. (OPT(6) == 'Y')) THEN - + IF ((OPT(2) == 'Y') .OR. (OPT(3) == 'Y') .OR. (OPT(4) == 'Y') .OR. (OPT(5) == 'Y') .OR. (OPT(6) == 'Y')) THEN + IF (TYPE == 'SHEAR ') THEN IORD = IORQ1S RED_INT_SHEAR = 'N' @@ -217,7 +217,7 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) CALL QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM ) ENDIF ENDIF - + IF (TYPE(1:6) == 'QUAD4K') THEN IF (INTL_MID(2) /= 0) THEN @@ -261,9 +261,9 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) ENDIF ENDIF - - ENDIF - + + ENDIF + ! ********************************************************************************************************************************** ! Calc BM'*SHELL_B*BB (and its transpose) and add to KE. Only do this if this is a composite element with nonsym layup @@ -310,12 +310,12 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) DO K=1,ELDOF DO L=1,ELDOF KE(K,L) = KE(K,L) + INTFAC*(DUM2(K,L) + DUM2(L,K)) - ENDDO - ENDDO + ENDDO + ENDDO - ENDDO + ENDDO - ENDDO + ENDDO ELSE IF (TYPE(1:5) == 'TRIA3') THEN @@ -345,8 +345,8 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) DO K=1,ELDOF DO L=1,ELDOF KE(K,L) = KE(K,L) + (DUM2(K,L) + DUM2(L,K)) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF @@ -376,5 +376,5 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) 98764 FORMAT(' X4-X1 = ',1ES14.6,' Y4-Y1 = ',1ES14.6) ! ********************************************************************************************************************************** - + END SUBROUTINE QDEL1 diff --git a/Source/EMG/EMG4/QMEM1.f90 b/Source/EMG/EMG4/QMEM1.f90 index d5e849ad..ed23aec2 100644 --- a/Source/EMG/EMG4/QMEM1.f90 +++ b/Source/EMG/EMG4/QMEM1.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM ) - + ! Isoparametric membrane quadrilateral. Default iorq1s = 1 gives reduced integration for shear terms. User can override ! this with Bulk Data PARAM iorq1s 2. Element can be nonplanar. HBAR is the dist that the nodes are away from the mean ! plane (+/-). If HBAR is small, the virgin element has 8 DOF (2 displ DOF's/node) and is expanded to MYSTRAN 24 DOF @@ -39,7 +39,7 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM ! 3) KE = element linea stiffness matrix , if OPT(4) = 'Y' ! 4) PPE = element pressure load matrix , if OPT(5) = 'Y' ! 5) KED = element differen stiff matrix calc , if OPT(6) = 'Y' = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_GAUSS, MAX_STRESS_POINTS, MEFE, NSUB, NTSUB, & @@ -52,11 +52,11 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM SE1, STE1, SHELL_AALP, SHELL_A, TREF, TYPE, FCONV, STRESS, NUM_PLIES, INTL_PID, TPLY, & EPROP, PLY_NUM USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE QMEM1_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'QMEM1' CHARACTER(1*BYTE) , INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER( 1*BYTE), INTENT(IN) :: RED_INT_SHEAR ! If 'Y', use Gaussian weighted average of B matrices for shear terms @@ -88,13 +88,13 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM 19, & ! ID2(10)= 19 means expand 12x12 elem DOF 10 is MYSTRAN 24X24 elem DOF 19 20, & ! ID2(11)= 20 means expand 12x12 elem DOF 11 is MYSTRAN 24X24 elem DOF 20 21 /) ! ID2(12)= 21 means expand 12x12 elem DOF 12 is MYSTRAN 24X24 elem DOF 21 - -! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! Do not change IORD_STRESS_Q4. The algorithm to find Gauss point coords in elem x,y space requires there to be the same number of ! shape functions and Gauss points as elem nodes. INTEGER(LONG), PARAMETER :: IORD_STRESS_Q4 = 2! Gauss integration order for stress/strain recovery matrices -! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - INTEGER(LONG), PARAMETER :: NUM_NODES = 4 ! Quad has 4 nodes ! Indicator of no output of elem data to BUG file @@ -117,13 +117,13 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM REAL(DOUBLE) :: DETJ(IORD*IORD) ! Determinant of JAC for all Gauss points REAL(DOUBLE) :: DPSHG(2,4) ! Output from subr SHP2DQ. Derivatives of PSH wrt elem isopar coords. REAL(DOUBLE) :: DPSHX(2,4) ! Derivatives of PSH wrt elem x, y coords. - REAL(DOUBLE) :: DUM1(3,8) ! Intermediate matrix used in solving for KE stiffness matrix - REAL(DOUBLE) :: DUM2(8,8) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM1(3,8) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM2(8,8) ! Intermediate matrix used in solving for KE stiffness matrix REAL(DOUBLE) :: DUM3(8) ! Intermediate matrix used in solving for PTE thermal loads REAL(DOUBLE) :: DUM4(8) ! Intermediate matrix used in solving for PTE thermal loads REAL(DOUBLE) :: DUM5(8,8) ! Intermediate matrix used in solving for KE stiffness matrix - REAL(DOUBLE) :: DUM6(12,8) ! Intermediate matrix used in solving for KE stiffness matrix - REAL(DOUBLE) :: DUM7(12,12) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM6(12,8) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM7(12,12) ! Intermediate matrix used in solving for KE stiffness matrix REAL(DOUBLE) :: DUM8(12) ! Intermediate matrix used in solving for PTE thermal loads REAL(DOUBLE) :: DUM9(3,8) ! Intermediate matrix used in solving for SEi stress recovery matrices REAL(DOUBLE) :: DUM10(2,8) ! Intermediate matrix used in solving for PPE matrices @@ -150,7 +150,7 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM ! An output from subr ORDER, called herein. Gauss abscissa's. REAL(DOUBLE) :: SUMB ! An intermediate variable used in calc B matrix for reduced integration REAL(DOUBLE) :: SUMD ! An intermediate variable used in calc B matrix for reduced integration - REAL(DOUBLE) :: TBAR ! Average elem temperature + REAL(DOUBLE) :: TBAR ! Average elem temperature @@ -199,14 +199,14 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM ENDIF ! ********************************************************************************************************************************** -! Calculate element thermal loads. - +! Calculate element thermal loads. + IF (OPT(2) == 'Y') THEN CALL ORDER_GAUSS ( IORD, SSS, HHH ) - + DO K=1,8 DUM3(K) = ZERO - ENDDO + ENDDO GAUSS_PT = 0 IORD_MSG = 'for in-plane direct strains = ' @@ -222,34 +222,34 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM INTFAC = DETJ(GAUSS_PT)*HHH(I)*HHH(J) DO K=1,8 DUM3(K) = DUM3(K) + DUM4(K)*INTFAC - ENDDO - ENDDO + ENDDO + ENDDO ENDDO - + IF ((DABS(HBAR) > MXWARP) .AND. (DEBUG(4) == 0)) THEN CALL MATMULT_FFF_T ( BMEANT, DUM3, 8, 12, 1, DUM8 ) DO J=1,NTSUB TBAR = (DT(1,J) + DT(2,J) + DT(3,J) + DT(4,J))/FOUR DO K=1,12 PTE(ID2(K),J) = DUM8(K)*(TBAR - TREF(1)) - ENDDO - ENDDO + ENDDO + ENDDO ELSE DO J=1,NTSUB TBAR = (DT(1,J) + DT(2,J) + DT(3,J) + DT(4,J))/FOUR DO K=1,8 PTE(ID1(K),J) = DUM3(K)*(TBAR - TREF(1)) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF - + ENDIF - + ! ********************************************************************************************************************************** ! Calculate BE1, SE1 matrix (3 x 24) for strain/stress data recovery. All calculated at center of element/ply ! Note: strain/stress recovery matrices only make sense for individual plies (or whole elem if only 1 "ply") so this section of ! code uses EM and ALPVEC rather than SHELL_AALP - + IF (OPT(3) == 'Y') THEN IORD_MSG = 'for in-plane direct strains = ' @@ -262,8 +262,8 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM DO I=1,3 ! Strain-displ matrix DO J=1,8 BE1(I,ID1(J),1) = BI(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ! SE1, STE1 generated in elem coords. Then, in LINK9 the stresses, calc'd in elem coords, will be transformed to ply coords @@ -271,7 +271,7 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM DO I=1,3 DO J=1,8 SE1(I,ID1(J),1) = DUM9(I,J) - ENDDO + ENDDO ENDDO ALP(1) = ALPVEC(1,1) @@ -284,12 +284,12 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM DO I=1,3 STE1(I,J,1) = EALP(I)*(TBAR - TREF(1)) ENDDO - ENDDO - - + ENDDO + + + + ENDIF - ENDIF - ! Generate BE1, SE1 for the stress recovery Gauss points (order IORD_STRESS_Q4). Put them into arrays BE1(i,j,k) and SE1(i,j,k) ! at i indices 2 through IORD_STRESS_Q4*IORD_STRESS_Q4 since index 1 is for center point stress/strain matrices. ! First make sure we dimensioned BEi/SEi large enough @@ -326,7 +326,7 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM DO L=1,3 DO M=1,2*ELGP SE1(L,ID1(M),GAUSS_PT+1) = DUM9(L,M) - ENDDO + ENDDO ENDDO ENDDO @@ -335,16 +335,16 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM ! ********************************************************************************************************************************** ! Calculate element stiffness matrix KE. - + IF(OPT(4) == 'Y') THEN DO I=1,8 DO J=1,8 DUM5(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + CALL ORDER_GAUSS ( IORD, SSS, HHH ) - + GAUSS_PT = 0 IORD_MSG = 'for in-plane direct strains = ' DO I=1,IORD @@ -362,10 +362,10 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM DO K=1,8 DO L=1,8 DUM5(K,L) = DUM5(K,L) + DUM2(K,L)*INTFAC - ENDDO - ENDDO - ENDDO - ENDDO + ENDDO + ENDDO + ENDDO + ENDDO IF ((DABS(HBAR) > MXWARP) .AND. (DEBUG(4) == 0)) THEN CALL MATMULT_FFF_T ( BMEANT, DUM5, 8, 12, 8, DUM6 ) @@ -373,30 +373,30 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM DO I=1,12 DO J=1,12 KE(ID2(I),ID2(J)) = KE(ID2(I),ID2(J)) + DUM7(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ELSE DO I=1,8 DO J=1,8 KE(ID1(I),ID1(J)) = DUM5(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF - + IF (DEBUG(18) > 0) THEN CALL QMEM1_RB_STRAIN_ENERGY ENDIF ! Set lower triangular portion of KE equal to upper portion - + DO I=2,24 DO J=1,I-1 KE(I,J) = KE(J,I) - ENDDO - ENDDO - + ENDDO + ENDDO + ENDIF - + ! ********************************************************************************************************************************** ! If element is a composite and if it is a nonsym layup we need to calc BIG_BM for later use @@ -428,25 +428,25 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM DO L=1,3 DO M=1,12 BIG_BM(L,ID2(M),GAUSS_PT) = BIT(L,M) - ENDDO - ENDDO + ENDDO + ENDDO ELSE DO L=1,3 DO M=1,8 BIG_BM(L,ID1(M),GAUSS_PT) = BI(L,M) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF ENDDO - ENDDO + ENDDO ENDIF ! ********************************************************************************************************************************** -! Determine element pressure loads - +! Determine element pressure loads + IF (OPT(5) == 'Y') THEN IF (DEBUG(16) == 0) THEN ! Generate PPE as work equilavent loads @@ -463,12 +463,12 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM ENDDO CALL ORDER_GAUSS ( IORD, SSS, HHH ) - + DO I=1,2 DO J=1,8 DUM10(I,J) = ZERO ENDDO - ENDDO + ENDDO GAUSS_PT = 0 IORD_MSG = 'for in-plane direct strains, input IORD = ' @@ -490,16 +490,16 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM DO L=1,8 DUM10(K,L) = DUM10(K,L) + INTFAC*NBAR(K,L) ENDDO - ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + ENDDO + CALL MATMULT_FFF_T ( DUM10, QLOAD, 2, 8, NSUB, PQ ) - + DO I=1,8 DO J=1,NSUB PPE(ID1(I),J) = PQ(I,J) - ENDDO + ENDDO ENDDO ELSE ! Generate PPE as static equilavent loads @@ -513,15 +513,15 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM PPE(14,J) = AREA*PRESS(2,J)/FOUR PPE(19,J) = AREA*PRESS(1,J)/FOUR PPE(20,J) = AREA*PRESS(2,J)/FOUR - ENDDO - + ENDDO + ENDIF - + ENDIF - + ! ********************************************************************************************************************************** ! Calculate linear differential stiffness matrix - + IF ((OPT(6) == 'Y') .AND. (LOAD_ISTEP > 1)) THEN ! Things not tested or properly coded for differential stiffness matrix yet: @@ -540,7 +540,7 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM ENDDO CALL GET_ELEM_NUM_PLIES ( INT_ELEM_ID ) ! Get NUM_PLIES - + DO JPLY=1,NUM_PLIES ! Get UEL, EM, TPLY for this ply. IF (PCOMP_PROPS == 'N') THEN @@ -551,7 +551,7 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM ELSE - + IF (PCOMP_LAM == 'NON') THEN ! Delete this IF block to allow the LAM field set to nonsymmetric. FATAL_ERR = FATAL_ERR + 1 NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 @@ -573,13 +573,13 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM GAUSS_PT = GAUSS_PT + 1 CALL ELEM_STRE_STRN_ARRAYS ( GAUSS_PT+1 ) ! Stress at this Gauss point using UEL, BE1, EM, ALPVEC, DT - + FORCEx(GAUSS_PT) = FORCEx(GAUSS_PT) + TPLY*STRESS(1) FORCEy(GAUSS_PT) = FORCEy(GAUSS_PT) + TPLY*STRESS(2) FORCExy(GAUSS_PT) = FORCExy(GAUSS_PT) + TPLY*STRESS(3) ENDDO ENDDO - + ENDDO @@ -588,7 +588,7 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM ! Section 14.3 Stress Stiffness Matrix Of A Plate Element ! +1 +1 -! [ ] ⌠ ⌠ [ ]T [ ]-T [ Nx Nxy ] [ ]-1 [ ] +! [ ] ⌠ ⌠ [ ]T [ ]-T [ Nx Nxy ] [ ]-1 [ ] ! [k ] = | | [ G ] [ J ] [ Nxy Ny ] [ J ] [ G ] |J| dξ dη ! [ σ] ⌡ ⌡ [ I] [ ] [ ] [ I] ! -1 -1 @@ -601,15 +601,15 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM ! DPSHX = J^-1 G_I is the 2 x ELGP matrix of shape function derivatives with respect to element coordinates x and y. ! +1 +1 -! [k ] ⌠ ⌠ T [ Nx Nxy ] +! [k ] ⌠ ⌠ T [ Nx Nxy ] ! [ σ] = ⌡ ⌡ DPSHX [ Nxy Ny ] DPSHX |J| dξ dη -! -1 -1 +! -1 -1 DO K=1,ELGP DO L=1,ELGP KS(K,L) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO CALL ORDER_GAUSS ( IORD_STRESS_Q4, SSS, HHH ) @@ -622,7 +622,7 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM DUM11(2,1) = FORCExy(GAUSS_PT) ; DUM11(2,2) = FORCEy(GAUSS_PT) DO L=1,ELGP ! Shape function derivatives at this Gauss point. - DPSHX(1,L) = BE1(1,ID1(2*(L-1)+1),GAUSS_PT+1) + DPSHX(1,L) = BE1(1,ID1(2*(L-1)+1),GAUSS_PT+1) DPSHX(2,L) = BE1(2,ID1(2*(L-1)+2),GAUSS_PT+1) ENDDO @@ -630,13 +630,13 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM CALL MATMULT_FFF ( DUM12, DPSHX, ELGP, 2, ELGP, DUM13 ) INTFAC = DETJ(GAUSS_PT)*HHH(I)*HHH(J) - + ! Accumulate integrand into the result DO K=1,ELGP DO L=1,ELGP KS(K,L) = KS(K,L) + DUM13(K,L) * INTFAC - ENDDO - ENDDO + ENDDO + ENDDO ENDDO ENDDO @@ -645,18 +645,18 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM DO I=1,6*ELGP DO J=1,6*ELGP KED(I,J) = 0 - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,ELGP DO J=1,ELGP KED(ID2(3*(I-1) + 1),ID2(3*(J-1) + 1)) = KS(I,J) KED(ID2(3*(I-1) + 2),ID2(3*(J-1) + 2)) = KS(I,J) KED(ID2(3*(I-1) + 3),ID2(3*(J-1) + 3)) = KS(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF - + RETURN @@ -671,9 +671,9 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE QMEM1_RB_STRAIN_ENERGY @@ -793,7 +793,7 @@ SUBROUTINE QMEM1_RB_STRAIN_ENERGY ENDDO WRITE(BUG,*) ENDDO - WRITE(BUG,*) + WRITE(BUG,*) NAME( 1) = 'node 1 x displ' NAME( 2) = 'node 1 y displ' @@ -812,13 +812,13 @@ SUBROUTINE QMEM1_RB_STRAIN_ENERGY ENDDO WRITE(BUG,*) ENDDO - WRITE(BUG,*) + WRITE(BUG,*) - WRITE(BUG,1005) MAX_ABS, ROW, COL + WRITE(BUG,1005) MAX_ABS, ROW, COL DO II=1,6 WRITE(BUG,2004) (RB_STRAIN_ENERGY(II,JJ),JJ=1,6) ENDDO - WRITE(BUG,*) + WRITE(BUG,*) ! ********************************************************************************************************************************** 1000 FORMAT(' Strain energy calculation for membrane portion of ',A,' element number ',I8,/, & @@ -841,22 +841,22 @@ SUBROUTINE QMEM1_RB_STRAIN_ENERGY 1004 FORMAT(' Cols are R.B. motion of element mean plane node 1',/, & - ' x displ y displ z displ x rot y rot z rot') + ' x displ y displ z displ x rot y rot z rot') 1005 FORMAT(' Rigid body strain energy calculated from C(t)*KE*C (max absolute value = ',1ES9.2,' at row',I2,', col',I2,'):',/, & ' --------------------------------------------------------------------------------------------------') - 2001 FORMAT(3X,8(1ES15.6)) + 2001 FORMAT(3X,8(1ES15.6)) - 2002 FORMAT(3X,A,6(1ES15.6)) + 2002 FORMAT(3X,A,6(1ES15.6)) - 2003 FORMAT(3X,A,6(1ES15.6)) + 2003 FORMAT(3X,A,6(1ES15.6)) - 2004 FORMAT(3X,6(1ES15.6)) + 2004 FORMAT(3X,6(1ES15.6)) ! ********************************************************************************************************************************** - - END SUBROUTINE QMEM1_RB_STRAIN_ENERGY + + END SUBROUTINE QMEM1_RB_STRAIN_ENERGY END SUBROUTINE QMEM1 diff --git a/Source/EMG/EMG4/QPLT1.f90 b/Source/EMG/EMG4/QPLT1.f90 index bbef3788..a7ff72e4 100644 --- a/Source/EMG/EMG4/QPLT1.f90 +++ b/Source/EMG/EMG4/QPLT1.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) - + ! DKQ quadrilateral thin (Kirchoff) plate bending element. This element is based on the following work: -! "Evaluation Of A New Quadrilateral Thin Plate Bending Element", by Jean_louis Batoz and Marbrouk Ben Tahar, +! "Evaluation Of A New Quadrilateral Thin Plate Bending Element", by Jean_louis Batoz and Marbrouk Ben Tahar, ! International Journal For Numerical Methods In Engineering, Vol 18 (1982) pp 1655-1677 ! Element matrices calculated are: @@ -38,18 +38,18 @@ SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) ! 3) KE = element linea stiffness matrix , if OPT(4) = 'Y' ! 4) PPE = element pressure load matrix , if OPT(5) = 'Y' ! 5) KED = element differen stiff matrix calc , if OPT(6) = 'Y' = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, MAX_ORDER_GAUSS, NSUB, NTSUB USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, FOUR USE PARAMS, ONLY : IORQ2B USE MODEL_STUF, ONLY : ALPVEC, BE2, DT, EB, EID, KE, PRESS, PPE, PTE, SE2, STE2, SHELL_D, SHELL_DALP - + USE QPLT1_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'QPLT1' CHARACTER(46*BYTE) :: IORD_MSG ! Character name of the integration order (used for debug output) CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -68,16 +68,16 @@ SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) 22, & ! ID(8) = 22 means virgin 12x12 elem DOF 11 is MYSTRAN 24X24 elem DOF 22 23 /) ! ID(8) = 23 means virgin 12x12 elem DOF 12 is MYSTRAN 24X24 elem DOF 23 -! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! Do not change IORD_STRESS_Q4. The algorithm to find Gauss point coords in elem x,y space requires there to be the same number of ! shape functions and Gauss points as elem nodes. INTEGER(LONG), PARAMETER :: IORD_STRESS_Q4 = 2! Gauss integration order for stress/strain recovery matrices -! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - INTEGER(LONG), PARAMETER :: NUM_NODES = 8 ! DKQ element has 8 nodes (4 are internal) ! Indicator of no output of elem data to BUG file - + REAL(DOUBLE) , INTENT(IN) :: AREA ! Element area REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! Diffs in x coords of quad sides in local coords REAL(DOUBLE) , INTENT(IN) :: YSD(4) ! Diffs in y coords of quad sides in local coords @@ -102,7 +102,7 @@ SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) REAL(DOUBLE) :: SSJ ! A particular value of SSS REAL(DOUBLE) :: SSS(MAX_ORDER_GAUSS) ! An output from subr ORDER, called herein. Gauss abscissa's. - + ! ********************************************************************************************************************************** @@ -110,18 +110,18 @@ SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) DO I=1,4 SLN(I) = DSQRT(XSD(I)*XSD(I) + YSD(I)*YSD(I)) - ENDDO - + ENDDO + ! ********************************************************************************************************************************** -! Determine element thermal loads. - +! Determine element thermal loads. + IF (OPT(2) == 'Y') THEN CALL ORDER_GAUSS ( IORQ2B, SSS, HHH ) - + DO I=1,12 DUM3(I) = ZERO - ENDDO + ENDDO GAUSS_PT = 0 IORD_MSG = 'for plate bending strains, IORQ2B = ' @@ -138,39 +138,39 @@ SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) INTFAC = DETJ*HHH(I)*HHH(J) DO K=1,12 DUM3(K) = DUM3(K) + INTFAC*DUM4(K) - ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + ENDDO + DO J=1,NTSUB DO K=1,12 PTE(ID(K),J) = DUM3(K)*DT(5,J) - ENDDO - ENDDO - + ENDDO + ENDDO + ENDIF - + ! ********************************************************************************************************************************** -! Determine element pressure loads. - +! Determine element pressure loads. + IF (OPT(5) == 'Y') THEN DO J=1,NSUB PPE( 3,J) = AREA*PRESS(3,J)/FOUR PPE( 9,J) = AREA*PRESS(3,J)/FOUR PPE(15,J) = AREA*PRESS(3,J)/FOUR PPE(21,J) = AREA*PRESS(3,J)/FOUR - ENDDO + ENDDO ENDIF - + ! ********************************************************************************************************************************** ! Calculate SE matrix (3 x 24) for stress data recovery. ! Note: stress recovery matrices only make sense for individual plies (or whole elem if only 1 "ply") - + IF (OPT(3) == 'Y') THEN - + ! Bending moment terms (calculated at center of element). Note that engineering forces (moments) are determined from ! the SE2 matrices using FCONV, which was set in calling routine and is negative. - + SSI = ZERO ! BE2 at element center SSJ = ZERO GAUSS_PT = 1 @@ -183,33 +183,33 @@ SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) DO I=1,3 DO J=1,12 BE2(I,ID(J),1) = BB(I,J) - ENDDO - ENDDO - + ENDDO + ENDDO + ! SE2, STE2 generated in elem coords. Then, in LINK9 the stresses, calc'd in elem coords, will be transformed to ply coords - CALL MATMULT_FFF ( EB, BB, 3, 3, 12, DUM1 ) ! SE2 at element center + CALL MATMULT_FFF ( EB, BB, 3, 3, 12, DUM1 ) ! SE2 at element center DO I=1,3 DO J=1,12 SE2(I,ID(J),1) = DUM1(I,J) - ENDDO - ENDDO - + ENDDO + ENDDO + ALP(1) = ALPVEC(1,1) ALP(2) = ALPVEC(2,1) ALP(3) = ALPVEC(3,1) - + CALL MATMULT_FFF ( EB, ALP, 3, 3, 1, EALP ) DO J=1,NTSUB DO I=1,3 STE2(I,J,1) = EALP(I)*DT(5,J) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Generate BE2, SE2 at Gauss points CALL ORDER_GAUSS ( IORQ2B, SSS, HHH ) - + GAUSS_PT = 0 DO I=1,IORD_STRESS_Q4 @@ -232,7 +232,7 @@ SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) DO L=1,3 DO M=1,12 SE2(L,ID(M),GAUSS_PT+1) = DUM1(L,M) - ENDDO + ENDDO ENDDO ENDDO @@ -240,14 +240,14 @@ SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) ENDDO ENDIF - + ! ********************************************************************************************************************************** ! Calculate element stiffness matrix KE. - + IF(OPT(4) == 'Y') THEN CALL ORDER_GAUSS ( IORQ2B, SSS, HHH ) - + GAUSS_PT = 0 IORD_MSG = 'for plate bending strains, IORQ2B = ' DO I=1,IORQ2B @@ -265,19 +265,19 @@ SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) DO K=1,12 DO L=K,12 KE(ID(K),ID(L)) = KE(ID(K),ID(L)) + INTFAC*DUM2(K,L) - ENDDO - ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + ENDDO + ENDDO + ! Set lower triangular partition equal to upper partition DO I=2,24 DO J=1,I-1 KE(I,J) = KE(J,I) - ENDDO + ENDDO ENDDO - + ENDIF @@ -285,5 +285,5 @@ SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE QPLT1 diff --git a/Source/EMG/EMG4/QPLT2.f90 b/Source/EMG/EMG4/QPLT2.f90 index bb43dd67..2d0bfdbb 100644 --- a/Source/EMG/EMG4/QPLT2.f90 +++ b/Source/EMG/EMG4/QPLT2.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) - + ! MIN4 quadrilateral thick (Mindlin) plate bending plate element. This element is based on the following work: ! "An Improved Treatment Of Transverse Shear In The Mindlin-Type Four-Node Quadrilateral Element", by Alexander Tessler and -! Thomas J.R. Hughes, Computer Methods In Applied Mechanics And Engineering 39 (1983) pp 311-335 +! Thomas J.R. Hughes, Computer Methods In Applied Mechanics And Engineering 39 (1983) pp 311-335 ! Subroutine calculates: @@ -38,7 +38,7 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) ! 3) KE = element linea stiffness matrix , if OPT(4) = 'Y' ! 4) PPE = element pressure load matrix , if OPT(5) = 'Y' ! 5) KED = element differen stiff matrix calc , if OPT(6) = 'Y' = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, MAX_ORDER_GAUSS, NSUB, NTSUB @@ -49,11 +49,11 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) ERR_SUB_NAM, FCONV, KE, INTL_MID, PCOMP_LAM, PCOMP_PROPS, PHI_SQ, PPE, & PRESS, PTE, SE2, SE3, SHELL_D, SHELL_DALP, SHELL_T, SHRSUM, STE2, TYPE USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE QPLT2_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'QPLT2' CHARACTER(46*BYTE) :: IORD_MSG ! Character name of the integration order (used for debug output) CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -83,17 +83,17 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) INTEGER(LONG) :: IERROR ! Local error indicator INTEGER(LONG) :: I,J,K,L,M ! DO loop indices -! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! Do not change IORD_STRESS_Q4. The algorithm to find Gauss point coords in elem x,y space requires there to be the same number of ! shape functions and Gauss points as elem nodes. INTEGER(LONG), PARAMETER :: IORD_STRESS_Q4 = 2! Gauss integration order for stress/strain recovery matrices -! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - INTEGER(LONG) :: IORDXX ! Gaussian integration order to use when subr ORDER is called INTEGER(LONG), PARAMETER :: NUM_NODES = 4 ! Quad has 4 nodes ! Indicator of no output of elem data to BUG file - + REAL(DOUBLE) , INTENT(IN) :: AREA ! Element area REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! Diffs in x coords of quad sides in local coords REAL(DOUBLE) , INTENT(IN) :: YSD(4) ! Diffs in y coords of quad sides in local coords @@ -129,26 +129,26 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) REAL(DOUBLE) :: NXSH(4) ! Constrained Nx shape functions. Output from subr MIN4SH. REAL(DOUBLE) :: NYSH(4) ! Constrained Ny shape functions. Output from subr MIN4SH. REAL(DOUBLE) :: PSH(4) ! Shape fcn at Gauss pts SSI, SSJ. Output from subr SHP2DQ. - REAL(DOUBLE) :: SDETJ ! Sum of DETJ's when calc BS (to get Gauss weighted BS matrix) + REAL(DOUBLE) :: SDETJ ! Sum of DETJ's when calc BS (to get Gauss weighted BS matrix) REAL(DOUBLE) :: SSI ! A particular value of SSS REAL(DOUBLE) :: SSJ ! A particular value of SSS REAL(DOUBLE) :: SSS(MAX_ORDER_GAUSS) ! Gauss abscissa's. An output from subr ORDER. - + INTRINSIC :: DABS - + ! ********************************************************************************************************************************** -! Determine element thermal loads. - +! Determine element thermal loads. + IF (OPT(2) == 'Y') THEN CALL ORDER_GAUSS ( IORQ2B, SSS, HHH ) - + DO I=1,8 DUM7(I) = ZERO - ENDDO + ENDDO GAUSS_PT = 0 IORD_MSG = 'for plate bending strains, IORQ2B = ' @@ -165,30 +165,30 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) INTFAC = DETJ*HHH(I)*HHH(J) DO K=1,8 DUM7(K) = DUM7(K) + INTFAC*DUM6(K) - ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + ENDDO + DO I=1,8 DO J=1,NTSUB PTE(IDB(I),J) = DUM7(I)*DT(5,J) - ENDDO - ENDDO + ENDDO + ENDDO + + ENDIF - ENDIF - ! ********************************************************************************************************************************** -! Determine element pressure loads - +! Determine element pressure loads + IF (OPT(5) == 'Y') THEN IF (DEBUG(16) == 0) THEN ! Generate PPE as work equilavent loads CALL ORDER_GAUSS ( IORQ2B, SSS, HHH ) - + DO I=1,12 DUM9(I) = ZERO - ENDDO + ENDDO GAUSS_PT = 0 IORD_MSG = 'for plate bending strains, IORQ2B = ' @@ -203,31 +203,31 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) DUM8( 1) = PSH(1) DUM8( 2) = -NXSH(1) DUM8( 3) = NYSH(1) - + DUM8( 4) = PSH(2) DUM8( 5) = -NXSH(2) DUM8( 6) = NYSH(2) - + DUM8( 7) = PSH(3) DUM8( 8) = -NXSH(3) DUM8( 9) = NYSH(3) - + DUM8(10) = PSH(4) DUM8(11) = -NXSH(4) DUM8(12) = NYSH(4) INTFAC = DETJ*HHH(I)*HHH(J) DO K=1,12 DUM9(K) = DUM9(K) + INTFAC*DUM8(K) - ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + ENDDO + DO I=1,12 DO J=1,NSUB PPE(IDS(I),J) = DUM9(I)*PRESS(3,J) - ENDDO + ENDDO ENDDO - + ELSE ! Generate PPE as static equilavent loads DO J=1,NSUB @@ -235,28 +235,28 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) PPE( 9,J) = AREA*PRESS(3,J)/FOUR PPE(15,J) = AREA*PRESS(3,J)/FOUR PPE(21,J) = AREA*PRESS(3,J)/FOUR - ENDDO - + ENDDO + ENDIF - + ENDIF - + ! ********************************************************************************************************************************** ! Calculate element stiffness matrix KE. Note that we need to calc KE if the stress recovery matrices (for OPT(3)) are to be cal'd ! since the BE strain recovery matrices use PHI_SQ - + IF ((OPT(4) == 'Y') .OR. (OPT(3) == 'Y')) THEN - + ! Bending stiffness terms: - + CALL ORDER_GAUSS ( IORQ2B, SSS, HHH ) - + DO I=1,8 DO J=1,8 KB(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + GAUSS_PT = 0 IORD_MSG = 'for plate bending strains, IORQ2B = ' @@ -275,19 +275,19 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) DO K=1,8 DO L=K,8 KB(K,L) = KB(K,L) + INTFAC*DUM2(K,L) - ENDDO - ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + ENDDO + ENDDO + BENSUM = ZERO ! Add all diag terms from KB DO I=1,8 BENSUM = BENSUM + KB(I,I) ENDDO - + ! Shear stiffness terms. If IORQ2T is positive, then normal Gaussian integration of order IORQ2T is performed. ! If IORQ2T is neqative, a Jacobian weighted value for BS is used for all of the Gauss pts. - + IF (IORQ2T > 0) THEN IORDXX = IORQ2T ELSE @@ -298,8 +298,8 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) DO I=1,12 DO J=1,12 KS(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO IF (IORQ2T > 0) THEN GAUSS_PT = 0 @@ -322,9 +322,9 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) DO K=1,12 DO L=K,12 KS(K,L) = KS(K,L) + INTFAC*DUM4(K,L) - ENDDO - ENDDO - ENDDO + ENDDO + ENDDO + ENDDO ENDDO ELSE @@ -332,7 +332,7 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) DO I=1,2 DO J=1,12 BS(I,J) = ZERO - ENDDO + ENDDO ENDDO SDETJ = ZERO GAUSS_PT = 0 @@ -347,22 +347,22 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) CALL JAC2D ( SSI, SSJ, XSD, YSD, 'Y', JAC, JACI, DETJ ) SDETJ = SDETJ + DETJ CALL MATMULT_FFF ( JACI, DPSHG, 2, 2, 4, DPSHX ) - CALL MATMULT_FFF ( JACI, DNXSHG, 2, 2, 4, DNXSHX ) + CALL MATMULT_FFF ( JACI, DNXSHG, 2, 2, 4, DNXSHX ) CALL MATMULT_FFF ( JACI, DNYSHG, 2, 2, 4, DNYSHX ) CALL BSMIN4 ( PSH, DPSHX, DNXSHX, DNYSHX, I, J, 'transverse shear strains', 'Y', DUM3 ) DO K=1,2 DO L=1,12 BS(K,L) = BS(K,L) + DETJ*DUM3(K,L) - ENDDO - ENDDO - ENDDO - ENDDO + ENDDO + ENDDO + ENDDO + ENDDO DO I=1,2 DO J=1,12 BS(I,J) = BS(I,J)/SDETJ - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,IORDXX DO J=1,IORDXX @@ -375,54 +375,54 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) DO K=1,12 DO L=K,12 KS(K,L) = KS(K,L) + INTFAC*DUM4(K,L) - ENDDO - ENDDO - ENDDO - ENDDO + ENDDO + ENDDO + ENDDO + ENDDO ENDIF ! Add all diagonal terms from KS for rotational DOF's to get SHRSUM SHRSUM = KS(2,2) + KS(3,3) + KS(5,5) + KS(6,6) + KS(8,8) + KS(9,9) + KS(11,11) + KS(12,12) -! Now calculate the finite elem shear factor, PHI_SQ +! Now calculate the finite elem shear factor, PHI_SQ CALL CALC_PHI_SQ ( IERROR ) ! Return if IERROR > 0 IF (IERROR > 0) RETURN - + DO I=1,8 DO J=I,8 - KE(IDB(I),IDB(J)) = KE(IDB(I),IDB(J)) + KB(I,J) - ENDDO + KE(IDB(I),IDB(J)) = KE(IDB(I),IDB(J)) + KB(I,J) + ENDDO ENDDO - + DO I=1,12 DO J=I,12 KE(IDS(I),IDS(J)) = KE(IDS(I),IDS(J)) + PHI_SQ*KS(I,J) - ENDDO + ENDDO ENDDO - + ! Set lower triangular partition equal to upper partition DO I=2,24 DO J=1,I-1 KE(I,J) = KE(J,I) - ENDDO + ENDDO ENDDO ENDIF - + ! ********************************************************************************************************************************** ! Calculate BE, SE matrices (3 x 24) for strain/stress data recovery. ! Note: stress recovery matrices only make sense for individual plies (or whole elem if only 1 "ply") - + IF (OPT(3) == 'Y') THEN - + ! Bending moment terms (calculated at center of element). Note that engineering forces (moments) are determined from ! the SE2 matrices using FCONV, which was set in calling routine and is negative. - + SSI = ZERO SSJ = ZERO GAUSS_PT = 1 @@ -435,33 +435,33 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) DO I=1,3 ! Bending strain-displ matrix DO J=1,8 BE2(I,IDB(J),1) = BB(I,J) - ENDDO + ENDDO ENDDO - + ! SE2, STE2 generated in elem coords. Then, in LINK9 the stresses, calc'd in elem coords, will be transformed to ply coords CALL MATMULT_FFF ( EB, BB, 3, 3, 8, DUM1 ) ! Generate SE2 in element coords (at this point EB is elem coords) DO I=1,3 DO J=1,8 SE2(I,IDB(J),1) = DUM1(I,J) - ENDDO - ENDDO - + ENDDO + ENDDO + ALP(1) = ALPVEC(1,1) ALP(2) = ALPVEC(2,1) ALP(3) = ALPVEC(3,1) - + CALL MATMULT_FFF ( EB, ALP, 3, 3, 1, EALP ) DO J=1,NTSUB DO I=1,3 STE2(I,J,1) = EALP(I)*DT(5,J) - ENDDO + ENDDO ENDDO - + ! Generate BE2, SE2 at Gauss points CALL ORDER_GAUSS ( IORQ2B, SSS, HHH ) - + GAUSS_PT = 0 DO I=1,IORD_STRESS_Q4 @@ -484,7 +484,7 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) DO L=1,3 DO M=1,8 SE2(L,IDB(M),GAUSS_PT+1) = DUM1(L,M) - ENDDO + ENDDO ENDDO ENDDO @@ -492,15 +492,15 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) ENDDO ! Transverse shear terms. Calculate one set based on average at four Gauss points and 4 others at the Gauss points. - + IORDXX = 2 CALL ORDER_GAUSS ( IORDXX, SSS, HHH ) - + GAUSS_PT = 0 DO I=1,2 DO J=1,2 - SSI = SSS(I) + SSI = SSS(I) SSJ = SSS(J) GAUSS_PT = GAUSS_PT + 1 IORD_MSG = 'for transverse shear strains, = ' @@ -508,43 +508,43 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) CALL MIN4SH ( SSI, SSJ, XSD, YSD, 'N', NXSH, NYSH, DNXSHG, DNYSHG ) CALL JAC2D ( SSI, SSJ, XSD, YSD, 'N', JAC, JACI, DETJ ) CALL MATMULT_FFF ( JACI, DPSHG, 2, 2, 4, DPSHX ) - CALL MATMULT_FFF ( JACI, DNXSHG, 2, 2, 4, DNXSHX ) - CALL MATMULT_FFF ( JACI, DNYSHG, 2, 2, 4, DNYSHX ) + CALL MATMULT_FFF ( JACI, DNXSHG, 2, 2, 4, DNXSHX ) + CALL MATMULT_FFF ( JACI, DNYSHG, 2, 2, 4, DNYSHX ) CALL BSMIN4 ( PSH, DPSHX, DNXSHX, DNYSHX, I, J, 'transverse shear strains', 'N', BS ) DO K=1,2 ! Transverse shear strain-displ terms - avg of 4 Gauss points DO L=1,12 BE3(K,IDS(L),1) = BE3(K,IDS(L),1) + BS(K,L)/FOUR - ENDDO - ENDDO + ENDDO + ENDDO DO K=1,2 ! Transverse shear strain-displ terms - one for each Gauss point DO L=1,12 BE3(K,IDS(L),GAUSS_PT+1) = BS(K,L) - ENDDO - ENDDO + ENDDO + ENDDO ! SE3 generated in elem coords. Then, in LINK9, the stresses calc'd in elem coords, will be transformed to ply coords CALL MATMULT_FFF ( ET, BS, 2, 2, 12, DUM3 ) ! Transverse shear stress-displ terms - + DO K=1,2 DO L=1,12 SE3(K,IDS(L),1) = SE3(K,IDS(L),1) + PHI_SQ*DUM3(K,L)/FOUR - ENDDO - ENDDO + ENDDO + ENDDO DO K=1,2 DO L=1,12 SE3(K,IDS(L),GAUSS_PT+1) = PHI_SQ*DUM3(K,L) - ENDDO - ENDDO + ENDDO + ENDDO + + ENDDO + ENDDO - ENDDO - ENDDO - ENDIF - + ! ********************************************************************************************************************************** ! If element is a composite and if it is a nonsym layup we need to calc BIG_BB for later use @@ -555,7 +555,7 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) ENDDO ENDDO ENDDO - + IF ((PCOMP_PROPS == 'Y') .AND. (PCOMP_LAM == 'NON')) THEN CALL ORDER_GAUSS ( IORQ2B, SSS, HHH ) GAUSS_PT = 0 @@ -574,9 +574,9 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) BIG_BB(L,IDB(M),GAUSS_PT) = BB(L,M) ENDDO ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + ENDIF @@ -584,5 +584,5 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE QPLT2 diff --git a/Source/EMG/EMG4/QPLT3.f90 b/Source/EMG/EMG4/QPLT3.f90 index 73a6b8df..487a7c41 100644 --- a/Source/EMG/EMG4/QPLT3.f90 +++ b/Source/EMG/EMG4/QPLT3.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) - + ! MIN4T quadrilateral thick (Mindlin) plate bending plate element. This is made of 4 non-overlapping MIN3 trianglau elements with ! the central point reduced out using either Kirchoff restraints or static condensation (user controlled via PARAM MIN4TRED). ! This element is based on the following work: @@ -65,7 +65,7 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) ! 3) KE = element linea stiffness matrix , if OPT(4) = 'Y' ! 4) PPE = element pressure load matrix , if OPT(5) = 'Y' ! 5) KED = element differen stiff matrix calc , if OPT(6) = 'Y' = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MEFE, MIN4T_QUAD4_TRIA_NO, NSUB, NTSUB @@ -76,11 +76,11 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) USE MODEL_STUF, ONLY : BE2, BE3, DT, EID, ELDOF, EMG_IFE, ERR_SUB_NAM,NUM_EMG_FATAL_ERRS, & FCONV, KE, PHI_SQ, PPE, PTE, SE2, SE3, TE, XEB, XEL USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE QPLT3_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'QPLT3' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices. CHARACTER(1*BYTE) :: OPT_MIN4T(6) ! Values of OPT to use in this subr. We need OPT(4) = 'Y' if the @@ -98,7 +98,7 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) 6, & ! IDV( 8) = 6 means tria elem virgin DOF 8 is MYSTRAN elem DOF 6 9 /) ! IDV( 9) = 9 means tria elem virgin DOF 9 is MYSTRAN elem DOF 9 - INTEGER(LONG) :: IDI(4,9) + INTEGER(LONG) :: IDI(4,9) INTEGER(LONG), PARAMETER :: IDM(12) = (/ 3, & ! IDM( 1) = 3 means quad elem DOF 1 is MYSTRAN elem DOF 3 4, & ! IDM( 2) = 4 means quad elem DOF 2 is MYSTRAN elem DOF 4 @@ -123,7 +123,7 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) INTEGER(LONG) :: PROG_ERR = 0 ! Local error indicator INTEGER(LONG) :: TRIA_NUM ! 1, 2, 3, or 4 designator of a subtriangle of the quad - + REAL(DOUBLE) , INTENT(IN) :: AREA_QUAD ! Element area REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! Diffs in x coords of quad sides in local coords REAL(DOUBLE) , INTENT(IN) :: YSD(4) ! Diffs in y coords of quad sides in local coords @@ -197,7 +197,7 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) ! MYSTRAN DOF order: w1, th-x1, th-y1, w2, th-x2, th-y2, w3, th-x3, th-y3 REAL(DOUBLE) :: PPM_TQ(9,NSUB) ! PPM_TT for a triangle transformed to the local elem system for the quad REAL(DOUBLE) :: PPM_QQ(4,15,NSUB) ! PPM_TQ for a tria expanded to 15xNSUB size for the 5 nodes of the quad - REAL(DOUBLE) :: PPM_QQ_5(15,NSUB) ! Sum all PPM_QQi. Press loads for the 5 node quad in local quad coords + REAL(DOUBLE) :: PPM_QQ_5(15,NSUB) ! Sum all PPM_QQi. Press loads for the 5 node quad in local quad coords REAL(DOUBLE) :: PPM_QQ_4(12,NSUB) ! PPM_QQ_5 reduced to 4 nodes REAL(DOUBLE) :: PTV_TT(9,NSUB) ! 9xNTSUB virgin thermal load matrix for one MIN3 in tria local coords @@ -207,7 +207,7 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) REAL(DOUBLE) :: PTM_TQ(9,NTSUB) ! PTM_TT for a triangle transformed to the local elem system for the quad REAL(DOUBLE) :: PTM_QQ(4,15,NTSUB)! PTM_TQ for a tria expanded to 15xNTSUB size for the 5 nodes of the quad REAL(DOUBLE) :: PTM_QQ_5(15,NTSUB)! Sum all PTM_QQi. Therm loads for the 5 node quad in local quad coords - REAL(DOUBLE) :: PTM_QQ_4(12,NTSUB)! PTM_QQ_5 reduced to 4 nodes + REAL(DOUBLE) :: PTM_QQ_4(12,NTSUB)! PTM_QQ_5 reduced to 4 nodes REAL(DOUBLE) :: RAT ! An intermediate variable @@ -256,7 +256,7 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) REAL(DOUBLE) :: X2TL ! x coord of elem node 2 of one of the 4 triangles (in tria local coords) REAL(DOUBLE) :: X3TL ! x coord of elem node 3 of one of the 4 triangles (in tria local coords) REAL(DOUBLE) :: Y3TL ! y coord of elem node 3 of one of the 4 triangles (in tria local coords) - + REAL(DOUBLE) :: V12(2) ! Components of a vector along side 1-2 of a sub-triangle REAL(DOUBLE) :: V13(2) ! Components of a vector along side 1-3 of a sub-triangle @@ -459,7 +459,7 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) ! ********************************************************************************************************************************** ! Expand/transform strain-displ matrices from virgin tria 9 DOF's in tria coords to quad 15 DOF's in quad coords -! Do this indep of OPT since some of the the strain displ matrices are needed for BIG_BB +! Do this indep of OPT since some of the the strain displ matrices are needed for BIG_BB DO I=1,3 ! Reorder B2M from tria virgin DOF to local tria DOF order DO J=1,9 @@ -489,9 +489,9 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) TE_SHEAR(I,J) = ZERO ENDDO ENDDO - TE_SHEAR(1,1) = TE_TRIA(2,2) ; TE_SHEAR(1,2) = TE_TRIA(3,2) + TE_SHEAR(1,1) = TE_TRIA(2,2) ; TE_SHEAR(1,2) = TE_TRIA(3,2) TE_SHEAR(2,1) = TE_TRIA(2,3) ; TE_SHEAR(2,2) = TE_TRIA(3,3) - TE_SHEAR(3,3) = ONE + TE_SHEAR(3,3) = ONE CALL MATMULT_FFF ( TE_SHEAR, B3M_TQ, 3, 3, 9, B3M_QQk ) DO I=1,3 ! Expand to 15 DOF quad (5 nodes/3 DOF each) @@ -506,7 +506,7 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) -! Expand/transform thermal loads from virgin tria 9 DOF's in tria coords to quad 15 DOF's in quad coords +! Expand/transform thermal loads from virgin tria 9 DOF's in tria coords to quad 15 DOF's in quad coords IF (OPT_MIN4T(2) == 'Y') THEN @@ -526,7 +526,7 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) ENDIF -! Expand/transform stress recovery matrices (S2, S3) from virgin tria 9 DOF's in tria coords to quad 15 DOF's in quad coords +! Expand/transform stress recovery matrices (S2, S3) from virgin tria 9 DOF's in tria coords to quad 15 DOF's in quad coords IF (OPT_MIN4T(3) == 'Y') THEN @@ -558,9 +558,9 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) TE_SHEAR(I,J) = ZERO ENDDO ENDDO - TE_SHEAR(1,1) = TE_TRIA(2,2) ; TE_SHEAR(1,2) = TE_TRIA(3,2) + TE_SHEAR(1,1) = TE_TRIA(2,2) ; TE_SHEAR(1,2) = TE_TRIA(3,2) TE_SHEAR(2,1) = TE_TRIA(2,3) ; TE_SHEAR(2,2) = TE_TRIA(3,3) - TE_SHEAR(3,3) = ONE + TE_SHEAR(3,3) = ONE CALL MATMULT_FFF ( TE_SHEAR, S3M_TQ, 3, 3, 9, S3M_QQk ) DO I=1,3 ! Expand to 15 DOF quad (5 nodes/3 DOF each) @@ -571,7 +571,7 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) ENDIF -! Expand/transform stiffness matrices from virgin tria 9 DOF's in tria coords to quad 15 DOF's in quad coords +! Expand/transform stiffness matrices from virgin tria 9 DOF's in tria coords to quad 15 DOF's in quad coords IF (OPT_MIN4T(4) == 'Y') THEN @@ -592,7 +592,7 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) ENDIF -! Expand/transform pressure loads from virgin tria 9 DOF's in tria coords to quad 15 DOF's in quad coords +! Expand/transform pressure loads from virgin tria 9 DOF's in tria coords to quad 15 DOF's in quad coords IF (OPT_MIN4T(5) == 'Y') THEN @@ -1001,27 +1001,27 @@ SUBROUTINE QPLT3_INIT END SUBROUTINE QPLT3_INIT ! ################################################################################################################################## - + SUBROUTINE ELMGM_TRIA ( TRIA, XQB, XQL, V12, V13, L12, L13, ALPHA, BETA, GAMMA, PSI, THETA, X2TL, X3TL, Y3TL, TE_TRIA ) - + ! Generates transformation matrix from one of the sub-triangles of the quad to the quad local coord system ! | T3-tria | | 1 0 0 | | T3-quad | ! | R1-tria | = | 0 cos(THETA) sin(THETA) | | R1-quad | ! | R2-tria | | 0 -sin(THETA cos(THETA) | | R2-quad | - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE IOUNT1, ONLY : ERR, F06 USE CONSTANTS_1, ONLY : ZERO, ONE USE MODEL_STUF, ONLY : NUM_EMG_FATAL_ERRS, XTB, XTL - + IMPLICIT NONE - + INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG), INTENT(IN) :: TRIA ! 1, 2, 3, or 4 designator of a subtriangle of the quad - + REAL(DOUBLE), INTENT(IN) :: XQB(5,3) ! coords of 5 quad nodes in quad basic coords REAL(DOUBLE), INTENT(IN) :: XQL(5,3) ! coords of 5 quad nodes in quad local coords REAL(DOUBLE), INTENT(OUT) :: X2TL ! X coord of this triangle node 2 in this triangle local coords @@ -1224,13 +1224,13 @@ SUBROUTINE ELMGM_TRIA ( TRIA, XQB, XQL, V12, V13, L12, L13, ALPHA, BETA, GAMMA, ! ********************************************************************************************************************************** - + END SUBROUTINE ELMGM_TRIA - + ! ################################################################################################################################## - + SUBROUTINE B54_REDUCTION ( XQL, IERROR ) - + USE CONSTANTS_1, ONLY : ZERO, QUARTER, HALF, ONE USE SCONTR, ONLY : FATAL_ERR USE IOUNT1, ONLY : ERR, F06 @@ -1338,20 +1338,20 @@ SUBROUTINE B54_REDUCTION ( XQL, IERROR ) ENDDO B54(13, 1) = QUARTER - B54(13, 2) =-QUARTER*(B15 + SB5*C(1,1) + SA5*C(2,1)) - B54(13, 3) =+QUARTER*(A15 + SB5*C(1,5) + SA5*C(2,5)) + B54(13, 2) =-QUARTER*(B15 + SB5*C(1,1) + SA5*C(2,1)) + B54(13, 3) =+QUARTER*(A15 + SB5*C(1,5) + SA5*C(2,5)) B54(13, 4) = QUARTER - B54(13, 5) =-QUARTER*(B25 + SB5*C(1,2) + SA5*C(2,2)) - B54(13, 6) =+QUARTER*(A25 + SB5*C(1,6) + SA5*C(2,6)) + B54(13, 5) =-QUARTER*(B25 + SB5*C(1,2) + SA5*C(2,2)) + B54(13, 6) =+QUARTER*(A25 + SB5*C(1,6) + SA5*C(2,6)) B54(13, 7) = QUARTER - B54(13, 8) =-QUARTER*(B35 + SB5*C(1,3) + SA5*C(2,3)) - B54(13, 9) =+QUARTER*(A35 + SB5*C(1,7) + SA5*C(2,7)) + B54(13, 8) =-QUARTER*(B35 + SB5*C(1,3) + SA5*C(2,3)) + B54(13, 9) =+QUARTER*(A35 + SB5*C(1,7) + SA5*C(2,7)) B54(13,10) = QUARTER - B54(13,11) =-QUARTER*(B45 + SB5*C(1,4) + SA5*C(2,4)) - B54(13,12) =+QUARTER*(A45 + SB5*C(1,8) + SA5*C(2,8)) + B54(13,11) =-QUARTER*(B45 + SB5*C(1,4) + SA5*C(2,4)) + B54(13,12) =+QUARTER*(A45 + SB5*C(1,8) + SA5*C(2,8)) B54(14, 2) = C(1,1) B54(14, 3) = C(1,5) @@ -1386,7 +1386,7 @@ SUBROUTINE B54_REDUCTION ( XQL, IERROR ) DO J=1,12 B2M_QQ_4(I,J,K) = DUM312(I,J) ENDDO - ENDDO + ENDDO DO I=1,3 DO J=1,15 @@ -1399,7 +1399,7 @@ SUBROUTINE B54_REDUCTION ( XQL, IERROR ) DO J=1,12 B3M_QQ_4(I,J,K) = DUM312(I,J) ENDDO - ENDDO + ENDDO ENDDO @@ -1428,7 +1428,7 @@ SUBROUTINE B54_REDUCTION ( XQL, IERROR ) DO J=1,12 S2M_QQ_4(I,J,K) = DUM312(I,J) ENDDO - ENDDO + ENDDO DO I=1,3 DO J=1,15 @@ -1441,7 +1441,7 @@ SUBROUTINE B54_REDUCTION ( XQL, IERROR ) DO J=1,12 S3M_QQ_4(I,J,K) = DUM312(I,J) ENDDO - ENDDO + ENDDO ENDDO @@ -1562,7 +1562,7 @@ SUBROUTINE STATIC_CONDENSATION DO J=1,12 B2AB(I,J) = B2M_QQ_5(I,J,K) ENDDO - ENDDO + ENDDO DO I=1,3 DO J=13,15 @@ -1576,13 +1576,13 @@ SUBROUTINE STATIC_CONDENSATION DO J=1,12 B2M_QQ_4(I,J,K) = DUM52(I,J) ENDDO - ENDDO + ENDDO DO I=1,3 ! Reduce B3M_QQ_5's DO J=1,12 B3AB(I,J) = B3M_QQ_5(I,J,K) ENDDO - ENDDO + ENDDO DO I=1,3 DO J=13,15 @@ -1596,7 +1596,7 @@ SUBROUTINE STATIC_CONDENSATION DO J=1,12 B3M_QQ_4(I,J,K) = DUM62(I,J) ENDDO - ENDDO + ENDDO ENDDO @@ -1608,8 +1608,8 @@ SUBROUTINE STATIC_CONDENSATION DO J=1,NTSUB PTAB(I,J) = PTM_QQ_5(I,J) ENDDO - ENDDO - + ENDDO + DO I=13,15 DO J=1,NTSUB PTO(I-12,J) = PTM_QQ_5(I,J) @@ -1617,7 +1617,7 @@ SUBROUTINE STATIC_CONDENSATION ENDDO CALL MATMULT_FFF ( GOAT, PTO, 12, 3, NTSUB, DUM3 ) - CALL MATADD_FFF ( PTAB, DUM3, 12, NTSUB, ONE, -ONE, 0, PTM_QQ_4 ) + CALL MATADD_FFF ( PTAB, DUM3, 12, NTSUB, ONE, -ONE, 0, PTM_QQ_4 ) ENDIF @@ -1631,8 +1631,8 @@ SUBROUTINE STATIC_CONDENSATION DO J=1,12 S2AB(I,J) = S2M_QQ_5(I,J,K) ENDDO - ENDDO - + ENDDO + DO I=1,3 DO J=13,15 S2O(I,J-12) = S2M_QQ_5(I,J,K) @@ -1645,14 +1645,14 @@ SUBROUTINE STATIC_CONDENSATION DO J=1,12 S2M_QQ_4(I,J,K) = DUM52(I,J) ENDDO - ENDDO + ENDDO DO I=1,3 ! Reduce S3M_QQ_5's DO J=1,12 S3AB(I,J) = S3M_QQ_5(I,J,K) ENDDO - ENDDO - + ENDDO + DO I=1,3 DO J=13,15 S3O(I,J-12) = S3M_QQ_5(I,J,K) @@ -1665,7 +1665,7 @@ SUBROUTINE STATIC_CONDENSATION DO J=1,12 S3M_QQ_4(I,J,K) = DUM62(I,J) ENDDO - ENDDO + ENDDO ENDDO @@ -1683,13 +1683,13 @@ SUBROUTINE STATIC_CONDENSATION ! Reduce pressure loads from 5 to 4 nodes by static condensation IF (OPT_MIN4T(5) == 'Y') THEN - + DO I=1,12 DO J=1,NSUB PPAB(I,J) = PPM_QQ_5(I,J) ENDDO - ENDDO - + ENDDO + DO I=13,15 DO J=1,NSUB PPO(I-12,J) = PPM_QQ_5(I,J) @@ -1697,9 +1697,9 @@ SUBROUTINE STATIC_CONDENSATION ENDDO CALL MATMULT_FFF ( GOAT, PPO, 12, 3, NSUB, DUM4 ) - CALL MATADD_FFF ( PPAB, DUM4, 12, NSUB, ONE, -ONE, 0, PPM_QQ_4 ) + CALL MATADD_FFF ( PPAB, DUM4, 12, NSUB, ONE, -ONE, 0, PPM_QQ_4 ) + - ENDIF IF (DEBUG(198) > 0) CALL DEB_QPLT3_2 ( OPT_MIN4T, 6, 'STC', GOAT, DUM2 , KAAB, KOO, KOA, KOOI, & @@ -1760,10 +1760,10 @@ SUBROUTINE INVERT_33_MAT ( MAT_A_NAME, A, AI, SMALL_NUM, DETA, IERR, SUM_DIAGS, SUM_OFF_DIAGS = ZERO DETA = ( A(1,1)*A(2,2)*A(3,3) + A(2,1)*A(3,2)*A(1,3) + A(3,1)*A(2,3)*A(1,2) ) & - -( A(1,3)*A(2,2)*A(3,1) + A(1,2)*A(2,1)*A(3,3) + A(1,1)*A(3,2)*A(2,3) ) + -( A(1,3)*A(2,2)*A(3,1) + A(1,2)*A(2,1)*A(3,3) + A(1,1)*A(3,2)*A(2,3) ) IF (DABS(DETA) <= SMALL_NUM) THEN - + IERR = 1 WRITE(ERR,9000) EID WRITE(ERR,9001) DETA, SMALL_NUM @@ -1795,7 +1795,7 @@ SUBROUTINE INVERT_33_MAT ( MAT_A_NAME, A, AI, SMALL_NUM, DETA, IERR, SUM_DIAGS, AI(3,1) = Z(1,3)/DETA AI(3,2) = -Z(2,3)/DETA AI(3,3) = Z(3,3)/DETA - + IF (DEBUG(199) > 0) THEN CALL CHECK_MAT_INVERSE ( MAT_A_NAME, A, AI, 3 ) ENDIF @@ -2200,7 +2200,7 @@ SUBROUTINE DEB_QPLT3_1 ( OPT_MIN4T, WHICH ) Write(f06,97765) i, j, km_qq_5(i,j),km_qq_5(j,i),(km_qq_5(i,j)-km_qq_5(j,i)) endif enddo - Write(f06,*) + Write(f06,*) enddo ENDIF @@ -2414,7 +2414,7 @@ SUBROUTINE DEB_QPLT3_1 ( OPT_MIN4T, WHICH ) 2101 FORMAT(' The local x axis for the quad splits the angle between the 2 diagonals.', & ' The angle between side 1-2 and the x axis = ',f7.3) - 2102 FORMAT(' The local x axis is along side 1-2 of the quad') + 2102 FORMAT(' The local x axis is along side 1-2 of the quad') 3102 FORMAT(' ::::::::::::::::::::::::::::::::::::::::::::END DEBUG(198) OUTPUT FROM SUBROUTINE QPLT3:::::::::::::::::::::::::::',& ':::::::::::::::::' ,/,& @@ -2553,8 +2553,8 @@ SUBROUTINE DEB_QPLT3_2 ( OPT_MIN4T, WHICH, REDUCTION_METH, Write(f06,*) 'Matrix S2AB:' Write(f06,*) '------------' - do i=1,3 - Write(f06,96001) (s2ab(i,j),j=1,12) + do i=1,3 + Write(f06,96001) (s2ab(i,j),j=1,12) enddo Write(f06,*) @@ -2567,15 +2567,15 @@ SUBROUTINE DEB_QPLT3_2 ( OPT_MIN4T, WHICH, REDUCTION_METH, Write(f06,*) 'Matrix DUM5 = S2O*GOA:' Write(f06,*) '----------------------' - do i=1,3 + do i=1,3 Write(f06,96001) (dum5(i,j),j=1,12) enddo Write(f06,*) Write(f06,*) 'Matrix S3AB:' Write(f06,*) '------------' - do i=1,2 - Write(f06,96001) (s3ab(i,j),j=1,12) + do i=1,2 + Write(f06,96001) (s3ab(i,j),j=1,12) enddo Write(f06,*) @@ -2588,7 +2588,7 @@ SUBROUTINE DEB_QPLT3_2 ( OPT_MIN4T, WHICH, REDUCTION_METH, Write(f06,*) 'Matrix DUM5 = S2O*GOA:' Write(f06,*) '----------------------' - do i=1,2 + do i=1,2 Write(f06,96001) (dum6(i,j),j=1,12) enddo Write(f06,*) diff --git a/Source/EMG/EMG4/QSHEAR.f90 b/Source/EMG/EMG4/QSHEAR.f90 index c9523559..937f7514 100644 --- a/Source/EMG/EMG4/QSHEAR.f90 +++ b/Source/EMG/EMG4/QSHEAR.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) - + ! Isoparametric membrane quadrilateral shear element. Element can be nonplanar. HBAR is the dist that the nodes are away from the ! mean plane (+/-). If HBAR is small, the virgin element has 8 DOF (2 displ DOF's/node) and is expanded to MYSTRAN 24 DOF ! (6 DOF/node) using array ID1. If HBAR is larger than MXWARP, then matrix BMEANT (from subr ELMGM2) is used to acount @@ -37,7 +37,7 @@ SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) ! 2) SEi, STEi = element stress data recovery matrices, if OPT(3) = 'Y' ! 3) KE = element linea stiffness matrix , if OPT(4) = 'Y' ! 4) KED = element differen stiff matrix calc , if OPT(6) = 'Y' = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_GAUSS, MAX_STRESS_POINTS, MEFE, NSUB, NTSUB @@ -47,11 +47,11 @@ SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) NUM_EMG_FATAL_ERRS, PCOMP_LAM, PCOMP_PROPS, PPE, PRESS, PTE, & SE1, STE1, SHELL_AALP, SHELL_A, TREF, TYPE USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE QSHEAR_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'QSHEAR' CHARACTER(1*BYTE) , INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER( 1*BYTE), INTENT(IN) :: RED_INT_SHEAR ! If 'Y', use Gaussian weighted average of B matrices for shear terms @@ -81,11 +81,11 @@ SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) 19, & ! ID2(10)= 19 means expand 12x12 elem DOF 10 is MYSTRAN 24X24 elem DOF 19 20, & ! ID2(11)= 20 means expand 12x12 elem DOF 11 is MYSTRAN 24X24 elem DOF 20 21 /) ! ID2(12)= 21 means expand 12x12 elem DOF 12 is MYSTRAN 24X24 elem DOF 21 - + INTEGER(LONG), PARAMETER :: NUM_NODES = 4 ! Quad has 4 nodes ! Indicator of no output of elem data to BUG file - + REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! Diffs in x coords of quad sides in local coords REAL(DOUBLE) , INTENT(IN) :: YSD(4) ! Diffs in y coords of quad sides in local coords REAL(DOUBLE) :: BI(3,2*ELGP) ! Strain-displ matrix for this element for one Gauss point @@ -96,11 +96,11 @@ SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) REAL(DOUBLE) :: DETJ(IORD*IORD) ! Determinant of JAC for all Gauss points REAL(DOUBLE) :: DPSHG(2,4) ! Output from subr SHP2DQ. Derivatives of PSH wrt elem isopar coords. REAL(DOUBLE) :: DPSHX(2,4) ! Derivatives of PSH wrt elem x, y coords. - REAL(DOUBLE) :: DUM1(3,8) ! Intermediate matrix used in solving for KE stiffness matrix - REAL(DOUBLE) :: DUM2(8,8) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM1(3,8) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM2(8,8) ! Intermediate matrix used in solving for KE stiffness matrix REAL(DOUBLE) :: DUM5(8,8) ! Intermediate matrix used in solving for KE stiffness matrix - REAL(DOUBLE) :: DUM6(12,8) ! Intermediate matrix used in solving for KE stiffness matrix - REAL(DOUBLE) :: DUM7(12,12) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM6(12,8) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM7(12,12) ! Intermediate matrix used in solving for KE stiffness matrix REAL(DOUBLE) :: DUM9(3,8) ! Intermediate matrix used in solving for SEi stress recovery matrices REAL(DOUBLE) :: EMS(3,3) ! In-plane shear portion of membrane material matrix @@ -118,7 +118,7 @@ SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) REAL(DOUBLE) :: SUMB ! An intermediate variable used in calc B matrix for reduced integration REAL(DOUBLE) :: SUMD ! An intermediate variable used in calc B matrix for reduced integration - + ! ********************************************************************************************************************************** @@ -167,19 +167,19 @@ SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) ENDIF ! ********************************************************************************************************************************** -! Calculate element thermal loads. - +! Calculate element thermal loads. + IF (OPT(2) == 'Y') THEN - + ENDIF - + ! ********************************************************************************************************************************** ! Calculate BE1, SE1 matrix (3 x 24) for strain/stress data recovery. All calculated at center of element ! Note: For the SHEAR element only the 3rd row of BE1 should be nonzero - + IF (OPT(3) == 'Y') THEN - + GAUSS_PT = 1 IORD_MSG = 'for in-plane direct strains, = ' CALL SHP2DQ ( 1, 1, NUM_NODES, SUBR_NAME, 'UNITY ', 1, ZERO, ZERO, 'N', PSH, DPSHG ) @@ -190,12 +190,12 @@ SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) DO I=1,3 ! Strain-displ matrix (only 3rd row, for in-plane shear strains, is /= 0 DO J=1,8 BE1(I,ID1(J),1) = ZERO - ENDDO + ENDDO ENDDO DO J=1,8 BE1(3,ID1(J),1) = BI(3,J) - ENDDO - + ENDDO + ! SE1 generated in elem coords @@ -210,24 +210,24 @@ SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) DO I=1,3 DO J=1,8 SE1(I,ID1(J),1) = DUM9(I,J) - ENDDO + ENDDO ENDDO - ENDIF - + ENDIF + ! ********************************************************************************************************************************** ! Calculate portion of element stiffness matrix KE due to in-plane shear. - + IF(OPT(4) == 'Y') THEN - + DO I=1,8 DO J=1,8 DUM5(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + CALL ORDER_GAUSS ( IORD, SSS, HHH ) - + GAUSS_PT = 0 IORD_MSG = 'for in-plane direct strains, IORD = ' DO I=1,IORD @@ -245,10 +245,10 @@ SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) DO K=1,8 DO L=1,8 DUM5(K,L) = DUM5(K,L) + DUM2(K,L)*INTFAC - ENDDO - ENDDO - ENDDO - ENDDO + ENDDO + ENDDO + ENDDO + ENDDO IF ((DABS(HBAR) > MXWARP) .AND. (DEBUG(4) == 0)) THEN CALL MATMULT_FFF_T ( BMEANT, DUM5, 8, 12, 8, DUM6 ) @@ -256,26 +256,26 @@ SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) DO I=1,12 DO J=1,12 KE(ID2(I),ID2(J)) = KE(ID2(I),ID2(J)) + DUM7(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ELSE DO I=1,8 DO J=1,8 KE(ID1(I),ID1(J)) = DUM5(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF - + ! Set lower triangular portion of KE equal to upper portion - + DO I=2,24 DO J=1,I-1 KE(I,J) = KE(J,I) - ENDDO - ENDDO - + ENDDO + ENDDO + ENDIF - + RETURN diff --git a/Source/EMG/EMG4/TMEM1.f90 b/Source/EMG/EMG4/TMEM1.f90 index a1838c38..07cd590f 100644 --- a/Source/EMG/EMG4/TMEM1.f90 +++ b/Source/EMG/EMG4/TMEM1.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) - + ! Constant strain membrane triangle ! Subroutine calculates: @@ -35,7 +35,7 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) ! 3) KE = element linea stiffness matrix , if OPT(4) = 'Y' ! 4) PPE = element pressure load matrix , if OPT(5) = 'Y' ! 5) KED = element differen stiff matrix calc , if OPT(6) = 'Y' = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, BUG, WRT_BUG, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BCHK_BIT, ELDT_BUG_BMAT_BIT, NSUB, NTSUB, FATAL_ERR @@ -46,11 +46,11 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) SHELL_AALP, SHELL_A, SHELL_PROP_ALP, TREF, TYPE, XEB, XEL, ELGP, FCONV, STRESS, KED, & NUM_EMG_FATAL_ERRS USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE TMEM1_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TMEM1' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -58,7 +58,7 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: ID(18) - + REAL(DOUBLE) , INTENT(IN) :: AREA ! Element area REAL(DOUBLE) , INTENT(IN) :: X2E ! x coord of elem node 2 REAL(DOUBLE) , INTENT(IN) :: X3E ! x coord of elem node 3 @@ -74,7 +74,7 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) REAL(DOUBLE) :: BM(3,ELDOF) ! Strain-displ matrix for this elem REAL(DOUBLE) :: AMB(3,ELDOF) ! SHELL_A matrix times strain-displ matrix for this elem REAL(DOUBLE) :: DPSHX(2,ELGP) ! Derivatives of PSH wrt elem x, y coords. - REAL(DOUBLE) :: DUM(ELDOF,ELDOF) ! Needed for calc 18 x 18 KE using MATMULT, since KE is MELDOF x MELDOF + REAL(DOUBLE) :: DUM(ELDOF,ELDOF) ! Needed for calc 18 x 18 KE using MATMULT, since KE is MELDOF x MELDOF REAL(DOUBLE) :: DUM1(ELDOF,1) ! Intermediate matrix used in determining PTE thermal loads REAL(DOUBLE) :: DUM11(2,2) ! Intermediate matrix used in solving for KED matrices REAL(DOUBLE) :: DUM12(ELGP,2) ! Intermediate matrix used in solving for KED matrices @@ -86,12 +86,12 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) REAL(DOUBLE) :: C03 ! Intermediate variable used in calc PTE, SEi, STEi, KE REAL(DOUBLE) :: C04 ! Intermediate variable used in calc PTE, SEi, STEi, KE REAL(DOUBLE) :: CT0 ! Intermediate variable used in calc PTE thermal loads - REAL(DOUBLE) :: TBAR ! Average elem temperature + REAL(DOUBLE) :: TBAR ! Average elem temperature REAL(DOUBLE) :: FORCEx ! Engineering force in the elem x direction REAL(DOUBLE) :: FORCEy ! Engineering force in the elem x direction REAL(DOUBLE) :: FORCExy ! Engineering force in the elem xy direction - + ! ********************************************************************************************************************************** @@ -100,8 +100,8 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) DO I=1,3 DO J=1,ELDOF BM(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO C01 = ONE/X2E C02 = ONE/Y3E @@ -124,7 +124,7 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) DO I=1,18 ID(I) = I ENDDO - + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(8) > 0)) THEN WRITE(BUG,1101) ELDT_BUG_BMAT_BIT, TYPE, EID @@ -132,7 +132,7 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) DO I=1,3 WRITE(BUG,8902) I,(BM(I,J),J=1,ELDOF) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDIF @@ -157,7 +157,7 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) BIG_BM(I,J,1) = ZERO ENDDO ENDDO - + IF ((PCOMP_PROPS == 'Y') .AND. (PCOMP_LAM == 'NON')) THEN DO I=1,3 @@ -169,7 +169,7 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) ENDIF ! ********************************************************************************************************************************** -! Determine element thermal loads. +! Determine element thermal loads. IF (OPT(2) == 'Y') THEN @@ -184,11 +184,11 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) ENDDO ENDIF - + ! ********************************************************************************************************************************** ! Calculate BE1, SE1 matrices (3 x ELDOF) for strain/stress data recovery. ! Note: strain/stress recovery matrices only make sense for individual plies (or whole elem if only 1 "ply") - + IF (OPT(3) == 'Y' .OR. OPT(6) == "Y") THEN DO I=1,3 @@ -219,10 +219,10 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) ENDDO ENDIF - + ! ********************************************************************************************************************************** ! Calculate element stiffness matrix KE. - + IF (OPT(4) == 'Y') THEN CALL MATMULT_FFF ( SHELL_A, BM, 3, 3, ELDOF, AMB ) @@ -232,13 +232,13 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) KE(I,J) = KE(I,J) + AREA*DUM(I,J) ENDDO ENDDO - + ENDIF - + ! ********************************************************************************************************************************** ! Calculate element pressure load matrix PPE. ! NOTE: for this element work equivalent and static equivalent loads are the same - + IF (OPT(5) == 'Y') THEN DO J=1,NSUB @@ -248,13 +248,13 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) PPE( 8,J) = AREA*PRESS(2,J)/THREE PPE(13,J) = AREA*PRESS(1,J)/THREE PPE(14,J) = AREA*PRESS(2,J)/THREE - ENDDO - + ENDDO + ENDIF ! ********************************************************************************************************************************** ! Calculate linear differential stiffness matrix - + IF ((OPT(6) == 'Y') .AND. (LOAD_ISTEP > 1)) THEN IF (PCOMP_PROPS == 'Y') THEN @@ -270,7 +270,7 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) ! Section 14.3 Stress Stiffness Matrix Of A Plate Element ! +1 +1 -! [ ] ⌠ ⌠ [ ]T [ ]-T [ Nx Nxy ] [ ]-1 [ ] +! [ ] ⌠ ⌠ [ ]T [ ]-T [ Nx Nxy ] [ ]-1 [ ] ! [k ] = | | [ G ] [ J ] [ Nxy Ny ] [ J ] [ G ] |J| dξ dη ! [ σ] ⌡ ⌡ [ I] [ ] [ ] [ I] ! -1 -1 @@ -283,20 +283,20 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) ! DPSHX = J^-1 G_I is the 2 x ELGP matrix of shape function derivatives with respect to element coordinates x and y. ! +1 +1 -! [k ] ⌠ ⌠ T [ Nx Nxy ] +! [k ] ⌠ ⌠ T [ Nx Nxy ] ! [ σ] = ⌡ ⌡ DPSHX [ Nxy Ny ] DPSHX |J| dξ dη -! -1 -1 +! -1 -1 CALL ELMDIS DO I=1,ELGP DO J=1,ELGP KS(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO CALL ELEM_STRE_STRN_ARRAYS (1) ! Stress at the Gauss point - + FORCEx = FCONV(1)*STRESS(1) ! Engineering forces at the Gauss point FORCEy = FCONV(1)*STRESS(2) FORCExy = FCONV(1)*STRESS(3) @@ -310,31 +310,31 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) CALL MATMULT_FFF_T ( DPSHX, DUM11, 2, ELGP, 2, DUM12 ) CALL MATMULT_FFF ( DUM12, DPSHX, ELGP, 2, ELGP, DUM13 ) - + ! Accumulate integrand into the result DO I=1,ELGP DO J=1,ELGP KS(I,J) = KS(I,J) + DUM13(I,J) * AREA - ENDDO - ENDDO + ENDDO + ENDDO ! Copy KS into KED for each translational DOF. DO I=1,6*ELGP DO J=1,6*ELGP KED(I,J) = 0 - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,ELGP DO J=1,ELGP KED(6*(I-1) + 1,6*(J-1) + 1) = KS(I,J) KED(6*(I-1) + 2,6*(J-1) + 2) = KS(I,J) KED(6*(I-1) + 3,6*(J-1) + 3) = KS(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF - + RETURN diff --git a/Source/EMG/EMG4/TPLT1.f90 b/Source/EMG/EMG4/TPLT1.f90 index 71cf49da..533d083d 100644 --- a/Source/EMG/EMG4/TPLT1.f90 +++ b/Source/EMG/EMG4/TPLT1.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) - + ! DKT triangular thin (Kirchoff) plate bending element. This element is based on the following work: ! "An Explicit Formulation For An Efficient Triangular Plate-Bending Element", by Jean-Louis Batoz, @@ -38,18 +38,18 @@ SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) ! 3) KE = element linea stiffness matrix , if OPT(4) = 'Y' ! 4) PPE = element pressure load matrix , if OPT(5) = 'Y' ! 5) KED = element differen stiff matrix calc , if OPT(6) = 'Y' = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : f06 USE SCONTR, ONLY : BLNK_SUB_NAM, NSUB, NTSUB USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, TWO, THREE, FOUR, SIX, TWELVE USE MODEL_STUF, ONLY : ALPVEC, BE2, DT, EB, KE, PRESS, PPE, PTE, SHELL_DALP, SHELL_D, SHELL_PROP_ALP, SE2, STE2 - + USE TPLT1_USE_IFs - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TPLT1' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -59,7 +59,7 @@ SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) INTEGER(LONG) :: J1 ! A computed index into array KE INTEGER(LONG) :: K1 ! A computed index into array KE - + REAL(DOUBLE) , INTENT(IN) :: AREA ! Element area REAL(DOUBLE) , INTENT(IN) :: X2E ! x coord of elem node 2 REAL(DOUBLE) , INTENT(IN) :: X3E ! x coord of elem node 3 @@ -100,23 +100,23 @@ SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) REAL(DOUBLE) :: X31 ! Diff in x coords of elem nodes 3 and 1 REAL(DOUBLE) :: Y23 ! Diff in y coords of elem nodes 2 and 3 REAL(DOUBLE) :: Y31 ! Diff in y coords of elem nodes 3 and 1 - + ! ********************************************************************************************************************************** ! Generate element parameters - + AREAF = FOUR*TWELVE*AREA E1 = SHELL_D(1,1)/AREAF E2 = SHELL_D(1,2)/AREAF E4 = SHELL_D(3,3)/AREAF - + X12 = -X2E X31 = X3E X23 = X2E - X3E Y31 = Y3E Y23 = -Y3E - L12S = X12*X12 + L12S = X12*X12 L31S = X31*X31 + Y23*Y23 L23S = X23*X23 + Y23*Y23 P4 = -SIX*X23/L23S @@ -127,11 +127,11 @@ SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) Q4 = THREE*X23*Y23/L23S Q5 = THREE*X3E*Y3E/L31S R4 = THREE*Y23*Y23/L23S - R5 = THREE*Y31*Y31/L31S - + R5 = THREE*Y31*Y31/L31S + ! ********************************************************************************************************************************** -! Determine element thermal loads. - +! Determine element thermal loads. + IF (OPT(2) == 'Y') THEN DO J=1,NTSUB @@ -141,32 +141,32 @@ SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) PTE(10,J) = CT0*X31 PTE(11,J) = CT0*Y31 PTE(16,J) = CT0*X12 - ENDDO + ENDDO ENDIF - + ! ********************************************************************************************************************************** -! Determine element pressure loads. - +! Determine element pressure loads. + IF (OPT(5) == 'Y') THEN DO J=1,NSUB PPE( 3,J) = AREA*PRESS(3,J)/THREE PPE( 9,J) = AREA*PRESS(3,J)/THREE PPE(15,J) = AREA*PRESS(3,J)/THREE - ENDDO + ENDDO ENDIF - + ! ********************************************************************************************************************************** ! Calculate column sums of the ALPHA-ij submatrices of the 4 dimensional array A. These are needed for SE2 ,STE2 and ! KE calculation. The sums are calculated explicitly instead of summing the ALPHA(i,j,k,l) terms calculated later since ! several terms cancel in the summation. - + IF ((OPT(3) == 'Y') .OR. (OPT(4) == 'Y')) THEN S(1,1) = Y3E*P5 ! ALPHA-11 Column sums S(1,2) =-Y3E*Q5 S(1,3) =-Y3E*R5 - S(2,1) =-X3E*T5 ! ALPHA-21 Column sums + S(2,1) =-X3E*T5 ! ALPHA-21 Column sums S(2,2) = X3E*R5 + THREE*X23 S(2,3) =-X3E*Q5 @@ -197,13 +197,13 @@ SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) S(3,7) =-X23*P4 + X3E*P5 - Y3E*(T4 + T5) ! ALPHA-33 Column sums S(3,8) = X23*Q4 + X3E*Q5 + Y3E*(R4 - R5) S(3,9) = X23*R4 + X3E*R5 + Y3E*(Q5 - Q4) - + ENDIF - + ! ********************************************************************************************************************************** ! Calculate SE2, STE2 matrices for stress data recovery. ! Note: stress recovery matrices only make sense for individual plies (or whole elem if only 1 "ply") - + IF (OPT(3) == 'Y') THEN ! Strain recovery matrix BE2 C11 = ONE/(SIX*AREA) @@ -211,7 +211,7 @@ SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) C21 = ONE/(SIX*AREA) C22 = ONE/(SIX*AREA) C33 = ONE/(SIX*AREA) - + BE2(1, 3,1) = (C11*S(1,1) + C12*S(2,1)) BE2(1, 4,1) = (C11*S(1,2) + C12*S(2,2)) BE2(1, 5,1) = (C11*S(1,3) + C12*S(2,3)) @@ -288,134 +288,134 @@ SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) DO J=1,NTSUB DO I=1,3 STE2(I,J,1) = EALP(I)*DT(4,J) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF - + ! ********************************************************************************************************************************** ! Determine ALPHA-ij matrices needed for KE - + IF(OPT(4) == 'Y') THEN ALPHA(1,1,1,1) = Y3E*P6 ! ALPHA-11, Col 1 - ALPHA(2,1,1,1) =-ALPHA(1,1,1,1) + ALPHA(2,1,1,1) =-ALPHA(1,1,1,1) ALPHA(3,1,1,1) = Y3E*P5 ALPHA(1,2,1,1) = ZERO ! " Col 2 ALPHA(2,2,1,1) = ZERO - ALPHA(3,2,1,1) =-Y3E*Q5 + ALPHA(3,2,1,1) =-Y3E*Q5 ALPHA(1,3,1,1) =-FOUR*Y3E ! " Col 3 ALPHA(2,3,1,1) = Y3E + Y3E ALPHA(3,3,1,1) = Y3E*(TWO - R5) - + ALPHA(1,1,2,1) =-X2E*T5 ! ALPHA-21, Col 1 - ALPHA(2,1,2,1) = ZERO - ALPHA(3,1,2,1) = X23*T5 + ALPHA(2,1,2,1) = ZERO + ALPHA(3,1,2,1) = X23*T5 ALPHA(1,2,2,1) = X23 + X2E*R5 ! " Col 2 - ALPHA(2,2,2,1) = X23 - ALPHA(3,2,2,1) = X23*(ONE - R5) + ALPHA(2,2,2,1) = X23 + ALPHA(3,2,2,1) = X23*(ONE - R5) ALPHA(1,3,2,1) =-X2E*Q5 ! " Col 3 - ALPHA(2,3,2,1) = ZERO - ALPHA(3,3,2,1) = X23*Q5 - - ALPHA(1,1,3,1) =-X3E*P6 - X2E*P5 ! ALPHA-31, Col 1 - ALPHA(2,1,3,1) =-X23*P6 - ALPHA(3,1,3,1) = X23*P5 + Y3E*T5 + ALPHA(2,3,2,1) = ZERO + ALPHA(3,3,2,1) = X23*Q5 + + ALPHA(1,1,3,1) =-X3E*P6 - X2E*P5 ! ALPHA-31, Col 1 + ALPHA(2,1,3,1) =-X23*P6 + ALPHA(3,1,3,1) = X23*P5 + Y3E*T5 ALPHA(1,2,3,1) = X2E*Q5 + Y3E ! " Col 2 - ALPHA(2,2,3,1) = Y3E + ALPHA(2,2,3,1) = Y3E ALPHA(3,2,3,1) = -X23*Q5 + (ONE - R5)*Y3E ALPHA(1,3,3,1) = -FOUR*X23 +X2E*R5 ! " Col 2 ALPHA(2,3,3,1) = X23 + X23 ALPHA(3,3,3,1) = (TWO - R5)*X23 + Y3E*Q5 - + ALPHA(1,1,1,2) =-Y3E*P6 ! ALPHA-12, Col 1 ALPHA(2,1,1,2) = Y3E*P6 - ALPHA(3,1,1,2) = Y3E*P4 + ALPHA(3,1,1,2) = Y3E*P4 - ALPHA(1,2,1,2) = ZERO ! " Col 2 - ALPHA(2,2,1,2) = ZERO - ALPHA(3,2,1,2) = Y3E*Q4 + ALPHA(1,2,1,2) = ZERO ! " Col 2 + ALPHA(2,2,1,2) = ZERO + ALPHA(3,2,1,2) = Y3E*Q4 ALPHA(1,3,1,2) =-Y3E - Y3E ! " Col 3 ALPHA(2,3,1,2) = FOUR*Y3E ALPHA(3,3,1,2) = Y3E*(R4 - TWO) - - ALPHA(1,1,2,2) = ZERO ! ALPHA-22, Col 1 - ALPHA(2,1,2,2) = X2E*T4 - ALPHA(3,1,2,2) =-X3E*T4 - ALPHA(1,2,2,2) = X3E ! " Col 2 - ALPHA(2,2,2,2) = X3E + X2E*R4 - ALPHA(3,2,2,2) = X3E*(ONE - R4) + ALPHA(1,1,2,2) = ZERO ! ALPHA-22, Col 1 + ALPHA(2,1,2,2) = X2E*T4 + ALPHA(3,1,2,2) =-X3E*T4 - ALPHA(1,3,2,2) = ZERO ! " Col 3 + ALPHA(1,2,2,2) = X3E ! " Col 2 + ALPHA(2,2,2,2) = X3E + X2E*R4 + ALPHA(3,2,2,2) = X3E*(ONE - R4) + + ALPHA(1,3,2,2) = ZERO ! " Col 3 ALPHA(2,3,2,2) =-X2E*Q4 - ALPHA(3,3,2,2) = X3E*Q4 - - ALPHA(1,1,3,2) = X3E*P6 ! ALPHA-32, Col 1 + ALPHA(3,3,2,2) = X3E*Q4 + + ALPHA(1,1,3,2) = X3E*P6 ! ALPHA-32, Col 1 ALPHA(2,1,3,2) = X23*P6 + X2E*P4 - ALPHA(3,1,3,2) =-X3E*P4 + Y3E*T4 + ALPHA(3,1,3,2) =-X3E*P4 + Y3E*T4 - ALPHA(1,2,3,2) =-Y3E ! " Col 2 + ALPHA(1,2,3,2) =-Y3E ! " Col 2 ALPHA(2,2,3,2) = -Y3E + X2E*Q4 ALPHA(3,2,3,2) = (R4 - ONE)*Y3E - X3E*Q4 - ALPHA(1,3,3,2) = X3E + X3E ! " Col 3 + ALPHA(1,3,3,2) = X3E + X3E ! " Col 3 ALPHA(2,3,3,2) = -FOUR*X3E + X2E*R4 ALPHA(3,3,3,2) = (TWO - R4)*X3E - Y3E*Q4 - + ALPHA(1,1,1,3) = ZERO ! ALPHA-13, Col 1 - ALPHA(2,1,1,3) = ZERO + ALPHA(2,1,1,3) = ZERO ALPHA(3,1,1,3) = -Y3E*(P4 + P5) - ALPHA(1,2,1,3) = ZERO ! " Col 2 - ALPHA(2,2,1,3) = ZERO + ALPHA(1,2,1,3) = ZERO ! " Col 2 + ALPHA(2,2,1,3) = ZERO ALPHA(3,2,1,3) = Y3E*(Q4 - Q5) - ALPHA(1,3,1,3) = ZERO ! " Col 3 - ALPHA(2,3,1,3) = ZERO + ALPHA(1,3,1,3) = ZERO ! " Col 3 + ALPHA(2,3,1,3) = ZERO ALPHA(3,3,1,3) = Y3E*(R4 - R5) - + ALPHA(1,1,2,3) = X2E*T5 ! ALPHA-23, Col 1 ALPHA(2,1,2,3) =-X2E*T4 ALPHA(3,1,2,3) =-X23*T5 + X3E*T4 - ALPHA(1,2,2,3) = X2E*(R5 - ONE) ! " Col 2 - ALPHA(2,2,2,3) = X2E*(R4 - ONE) - ALPHA(3,2,2,3) =-X23*R5 - X3E*R4 - X2E + ALPHA(1,2,2,3) = X2E*(R5 - ONE) ! " Col 2 + ALPHA(2,2,2,3) = X2E*(R4 - ONE) + ALPHA(3,2,2,3) =-X23*R5 - X3E*R4 - X2E ALPHA(1,3,2,3) =-X2E*Q5 ! " Col 3 ALPHA(2,3,2,3) =-X2E*Q4 ALPHA(3,3,2,3) = X3E*Q4 + X23*Q5 - + ALPHA(1,1,3,3) = X2E*P5 ! ALPHA-33, Col 1 - ALPHA(2,1,3,3) =-X2E*P4 + ALPHA(2,1,3,3) =-X2E*P4 ALPHA(3,1,3,3) =-X23*P5 + X3E*P4 - Y3E*(T4 + T5) - ALPHA(1,2,3,3) = X2E*Q5 ! " Col 2 + ALPHA(1,2,3,3) = X2E*Q5 ! " Col 2 ALPHA(2,2,3,3) = X2E*Q4 ALPHA(3,2,3,3) =-X23*Q5 - X3E*Q4 + Y3E*(R4 - R5) - ALPHA(1,3,3,3) = X2E*(R5 - TWO) ! " Col 3 + ALPHA(1,3,3,3) = X2E*(R5 - TWO) ! " Col 3 ALPHA(2,3,3,3) = X2E*(R4 - TWO) ALPHA(3,3,3,3) =-X23*R5 - X3E*R4 + FOUR*X2E + Y3E*(Q5 - Q4) - + ! Calculate the 9 - 3x3 partitions of the element stiffness matrix. Since it is symmetric, only 6 of the 3x3's need to ! be calculated. These 3x3's are put into a global size stiffness matrix for this element which has 18 global DOF. ! The only nonzero's are for DOF's 3,4,5. The resulting 18x18 matrix is in elem coords for the 6 DOF's per grid point. - + ! Each of the 6 - 3x3's has 5 terms in it. Each of these 5 terms has a triple matrix product consisting of: ! T ! (ALPHA-mi) R (ALPHA-kj) - + ! where i,j range over the 3 grid points to which the elem connects and m,k are 1,1 2,1 1,2 2,2 3,3 for the 5 terms ! for each i,j pair. - + DO I=1,3 I1 = 3*I - 2 @@ -426,11 +426,11 @@ SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) J1 = 6*J - 4 ! Calculate the 5 triple matrix products using subroutine ATRA (explicit) CALL ATRA ( ALPHA(1,1,1,I), ALPHA(1,1,1,J), S(1,I1), S(1,I1+1), S(1,I1+2), D1 ) - + CALL ATRA ( ALPHA(1,1,2,I), ALPHA(1,1,1,J), S(2,I1), S(2,I1+1), S(2,I1+2), D2 ) - + CALL ATRA ( ALPHA(1,1,2,I), ALPHA(1,1,2,J), S(2,I1), S(2,I1+1), S(2,I1+2), D4 ) - + CALL ATRA ( ALPHA(1,1,3,I), ALPHA(1,1,3,J), S(3,I1), S(3,I1+1), S(3,I1+2), D5 ) IF(I == J) THEN ! Calculate the 3x3 element stiffness matrix partition for I,J @@ -440,8 +440,8 @@ SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) KE(K1,J1+1) = KE(K1,J1+1) + E1*(D1(K,1)+D4(K,1)) + E2*(D2(K,1)+D2(1,K)) + E4*D5(K,1) KE(K1,J1+2) = KE(K1,J1+2) + E1*(D1(K,2)+D4(K,2)) + E2*(D2(K,2)+D2(2,K)) + E4*D5(K,2) KE(K1,J1+3) = KE(K1,J1+3) + E1*(D1(K,3)+D4(K,3)) + E2*(D2(K,3)+D2(3,K)) + E4*D5(K,3) - ENDDO - + ENDDO + ELSE CALL ATRA ( ALPHA(1,1,1,I), ALPHA(1,1,2,J), S(1,I1), S(1,I1+1), S(1,I1+2), D3 ) @@ -450,20 +450,20 @@ SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) KE(K1,J1+1) = KE(K1,J1+1) + E1*(D1(K,1)+D4(K,1)) + E2*(D2(K,1)+D3(K,1)) + E4*D5(K,1) KE(K1,J1+2) = KE(K1,J1+2) + E1*(D1(K,2)+D4(K,2)) + E2*(D2(K,2)+D3(K,2)) + E4*D5(K,2) KE(K1,J1+3) = KE(K1,J1+3) + E1*(D1(K,3)+D4(K,3)) + E2*(D2(K,3)+D3(K,3)) + E4*D5(K,3) - ENDDO - + ENDDO + ENDIF - ENDDO - - ENDDO + ENDDO + + ENDDO - DO I=2,18 ! Calculate sub-diagonal portion by enforcing symmetry + DO I=2,18 ! Calculate sub-diagonal portion by enforcing symmetry DO J=1,I-1 KE(I,J) = KE(J,I) - ENDDO - ENDDO - + ENDDO + ENDDO + ENDIF @@ -473,13 +473,13 @@ SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) ! ********************************************************************************************************************************** ! ###################################################################### - + CONTAINS - + ! ###################################################################### - + SUBROUTINE ATRA ( A1, A2, SL1, SL2, SL3, D ) - + ! Subroutine to calculate the triple matrix product, below, needed for the DKT elem stiff matrix: ! T @@ -487,12 +487,12 @@ SUBROUTINE ATRA ( A1, A2, SL1, SL2, SL3, D ) ! The product is evaluated explicitly since R is a simple form. R is a 3x3 matrix whose diagonals are all 2.0 and all ! other terms are 1.0 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE TIMDAT, ONLY : TSEC - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ATRA' @@ -512,38 +512,38 @@ SUBROUTINE ATRA ( A1, A2, SL1, SL2, SL3, D ) REAL(DOUBLE) :: W31 ! Intermediate variable used in calculating array D REAL(DOUBLE) :: W32 ! Intermediate variable used in calculating array D REAL(DOUBLE) :: W33 ! Intermediate variable used in calculating array D - + ! ********************************************************************************************************************************** ! Wij are the values in ALPHA-mi (transpose) times R - + W11 = A1(1,1) + SL1 W12 = A1(2,1) + SL1 W13 = A1(3,1) + SL1 - + W21 = A1(1,2) + SL2 W22 = A1(2,2) + SL2 W23 = A1(3,2) + SL2 - + W31 = A1(1,3) + SL3 W32 = A1(2,3) + SL3 W33 = A1(3,3) + SL3 - + ! D is the triple matrix product ALPHA-mi (transp) R ALPHA-kj - + D(1,1) = W11*A2(1,1) + W12*A2(2,1) + W13*A2(3,1) D(1,2) = W11*A2(1,2) + W12*A2(2,2) + W13*A2(3,2) D(1,3) = W11*A2(1,3) + W12*A2(2,3) + W13*A2(3,3) - + D(2,1) = W21*A2(1,1) + W22*A2(2,1) + W23*A2(3,1) D(2,2) = W21*A2(1,2) + W22*A2(2,2) + W23*A2(3,2) D(2,3) = W21*A2(1,3) + W22*A2(2,3) + W23*A2(3,3) - + D(3,1) = W31*A2(1,1) + W32*A2(2,1) + W33*A2(3,1) D(3,2) = W31*A2(1,2) + W32*A2(2,2) + W33*A2(3,2) D(3,3) = W31*A2(1,3) + W32*A2(2,3) + W33*A2(3,3) - + RETURN @@ -551,5 +551,5 @@ SUBROUTINE ATRA ( A1, A2, SL1, SL2, SL3, D ) ! ********************************************************************************************************************************** END SUBROUTINE ATRA - + END SUBROUTINE TPLT1 diff --git a/Source/EMG/EMG4/TPLT2.f90 b/Source/EMG/EMG4/TPLT2.f90 index d35dde4c..6b81f9be 100644 --- a/Source/EMG/EMG4/TPLT2.f90 +++ b/Source/EMG/EMG4/TPLT2.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V, B3V, S2V, S3V, BIG_BB, MN4T_QD,TRIA_NUM,PSI) @@ -38,7 +38,7 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V ! 3) KE = element linea stiffness matrix , if OPT(4) = 'Y' ! 4) PPE = element pressure load matrix , if OPT(5) = 'Y' ! 5) KED = element differen stiff matrix calc , if OPT(6) = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : F06 USE SCONTR, ONLY : BLNK_SUB_NAM, MEMATC, NSUB, NTSUB @@ -52,8 +52,8 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V USE TPLT2_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TPLT2' CHARACTER(1*BYTE), INTENT(IN) :: CALC_EMATS ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -72,7 +72,7 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V 11, & ! ID(8) = 11 means virgin 9x9 elem DOF 8 is MYSTRAN 18x18 elem DOF 11 17 /) ! ID(9) = 17 means virgin 9x9 elem DOF 9 is MYSTRAN 18x18 elem DOF 17 - + REAL(DOUBLE) , INTENT(IN) :: AREA ! Element area REAL(DOUBLE) , INTENT(IN) :: PSI ! Angle to rotate orthotropic mat'l matrix of a sub-tria to align w QUAD REAL(DOUBLE) , INTENT(IN) :: X2E ! x coord of elem node 2 @@ -132,10 +132,10 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V REAL(DOUBLE) :: TF_MB(3,3) ! Portion of TF: transforms 3x3 EM, EB, EBM from material to elem axes REAL(DOUBLE) :: TF_TS(2,2) ! Portion of TF: transforms 3x3 ET from material to elem axes REAL(DOUBLE) :: XI(3) - + ! Following are matl matrices used when sub-trias of a MIN4T QUAD4 need to be transformed to align with orthotropic matl angles - REAL(DOUBLE) :: ALPVEC_TRIA(6,MEMATC) + REAL(DOUBLE) :: ALPVEC_TRIA(6,MEMATC) REAL(DOUBLE) :: EALP_TRIA(3) ! Intermed var used in calc STEi therm stress coeffs REAL(DOUBLE) :: EB0(3,3) ! Plane stress matl matrix for bending before coord transformation REAL(DOUBLE) :: EBM0(3,3) ! Bend/membr coupling matl matrix before coord transformation @@ -182,7 +182,7 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V ! ********************************************************************************************************************************** ! If this subr is being called because the triangular shell element is part of a MIN4T QUAD4 with orthotropic mat'l properties then -! we need to re-orient those ortho material properties to be aligned with the quad. +! we need to re-orient those ortho material properties to be aligned with the quad. ! Set initial values before coord transform (NOTE: Only needed for DEBUG(53) @@ -190,16 +190,16 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V SHELL_DALP0_TRIA(I) = SHELL_DALP(I) DO J=1,3 EB0(I,J) = EB(I,J) - SHELL_D0_TRIA(I,J) = SHELL_D(I,J) + SHELL_D0_TRIA(I,J) = SHELL_D(I,J) EBM0(I,J) = EBM(I,J) - SHELL_B0_TRIA(I,J) = SHELL_B(I,J) + SHELL_B0_TRIA(I,J) = SHELL_B(I,J) ENDDO ENDDO DO I=1,2 DO J=1,2 ET0(I,J) = ET(I,J) - SHELL_T0_TRIA(I,J) = SHELL_T(I,J) + SHELL_T0_TRIA(I,J) = SHELL_T(I,J) ENDDO ENDDO @@ -207,16 +207,16 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V SHELL_DALP_TRIA(I) = SHELL_DALP(I) DO J=1,3 EB_TRIA(I,J) = EB(I,J) - SHELL_D_TRIA(I,J) = SHELL_D(I,J) + SHELL_D_TRIA(I,J) = SHELL_D(I,J) EBM_TRIA(I,J) = EBM(I,J) - SHELL_B_TRIA(I,J) = SHELL_B(I,J) + SHELL_B_TRIA(I,J) = SHELL_B(I,J) ENDDO ENDDO DO I=1,2 DO J=1,2 ET_TRIA(I,J) = ET(I,J) - SHELL_T_TRIA(I,J) = SHELL_T(I,J) + SHELL_T_TRIA(I,J) = SHELL_T(I,J) ENDDO ENDDO @@ -303,7 +303,7 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V B(1) = -Y3E B(2) = Y3E B(3) = ZERO - + A4 = FOUR*AREA A42 = A4*AREA ! BB is used in several places below: @@ -312,73 +312,73 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V ! ********************************************************************************************************************************** ! Determine element thermal loads. Code is only valid for materials with ALPHA-12 = 0. - + IF (OPT(2) == 'Y') THEN - - CALL MATMULT_FFF_T ( BB, SHELL_DALP, 3, 9, 1, DUM0 ) + + CALL MATMULT_FFF_T ( BB, SHELL_DALP, 3, 9, 1, DUM0 ) DO J=1,NTSUB DO I=1,9 PTV(I,J) = AREA*DUM0(I)*DT(4,J) IF (CALC_EMATS == 'Y') THEN PTE(ID(I),J) = PTV(I,J) ENDIF - ENDDO - ENDDO - - ENDIF - + ENDDO + ENDDO + + ENDIF + ! ********************************************************************************************************************************** ! Calculate element stiffness matrix KE. Note that we need to calc KE if the stress recovery matrices (for OPT(3)) are to be cal'd ! since the BE strain recovery matrices use PHI_SQ - + IF ((OPT(4) == 'Y') .OR. (OPT(3) == 'Y')) THEN - + DO I=1,9 DO J=1,9 KB(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + ! Bending stiffness terms (KB) - + DO I=1,3 DO J=1,3 FXX(I,J) = B(I)*B(J)/A42 FYY(I,J) = A(I)*A(J)/A42 FXY(I,J) = B(I)*A(J)/A42 - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,3 DO J=1,3 - KB(I+3,J+3)= AREA*(SHELL_D_TRIA(2,2)*FYY(I,J) + SHELL_D_TRIA(2,3)*(FXY(I,J) + FXY(J,I)) + SHELL_D_TRIA(3,3)*FXX(I,J)) - ENDDO - ENDDO - + KB(I+3,J+3)= AREA*(SHELL_D_TRIA(2,2)*FYY(I,J) + SHELL_D_TRIA(2,3)*(FXY(I,J) + FXY(J,I)) + SHELL_D_TRIA(3,3)*FXX(I,J)) + ENDDO + ENDDO + DO I=1,3 DO J=1,3 KB(I+3,J+6) = -AREA*(SHELL_D_TRIA(1,2)*FXY(J,I) + SHELL_D_TRIA(2,3)*FYY(I,J) + SHELL_D_TRIA(1,3)*FXX(I,J) + & SHELL_D_TRIA(3,3)*FXY(I,J)) KB(J+6,I+3) = KB(I+3,J+6) - ENDDO - ENDDO - + ENDDO + ENDDO + DO I=1,3 DO J=1,3 KB(I+6,J+6)= AREA*(SHELL_D_TRIA(1,1)*FXX(I,J) + SHELL_D_TRIA(1,3)*(FXY(I,J) + FXY(J,I)) + SHELL_D_TRIA(3,3)*FYY(I,J)) - ENDDO - ENDDO - + ENDDO + ENDDO + BENSUM = ZERO DO I=4,9 BENSUM = BENSUM + KB(I,I) - ENDDO + ENDDO ! Shear stress terms (KS) - + DO I=1,9 DO J=1,9 KS(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO B2(1,1) = ZERO B2(2,2) = ZERO @@ -459,8 +459,8 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V S1(I,J) = A2(I,J) S2(I,J) = B1(I,J) ENDIF - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,3 DO J=1,3 @@ -468,14 +468,14 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V T2(I,J) = (SHELL_T_TRIA(1,2)*B2(I,J) + SHELL_T_TRIA(2,2)*S1(I,J)) T3(I,J) = (SHELL_T_TRIA(1,1)*S2(I,J) + SHELL_T_TRIA(1,2)*A1(I,J)) T4(I,J) = (SHELL_T_TRIA(1,2)*S2(I,J) + SHELL_T_TRIA(2,2)*A1(I,J)) - ENDDO + ENDDO ENDDO ! 3x3 KS-11 Partition DO I=1,3 DO J=1,3 - KS(I,J) = AREA*(SHELL_T_TRIA(1,1)*FXX(I,J) + SHELL_T_TRIA(1,2)*(FXY(I,J) + FXY(J,I)) + SHELL_T_TRIA(2,2)*FYY(I,J)) - ENDDO - ENDDO + KS(I,J) = AREA*(SHELL_T_TRIA(1,1)*FXX(I,J) + SHELL_T_TRIA(1,2)*(FXY(I,J) + FXY(J,I)) + SHELL_T_TRIA(2,2)*FYY(I,J)) + ENDDO + ENDDO ! 3x3 KS-12, 21 Partition CALL MATMULT_FFF ( IX0, T1, 3, 3, 3, DUM1 ) CALL MATMULT_FFF ( IY0, T2, 3, 3, 3, DUM2 ) @@ -483,8 +483,8 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V DO J=1,3 KS(I ,J+3) = -DUM1(I,J) - DUM2(I,J) KS(J+3,I ) = KS(I,J+3) - ENDDO - ENDDO + ENDDO + ENDDO ! 3x3 KS-13, 31 Partition CALL MATMULT_FFF ( IX0, T3, 3, 3, 3, DUM1 ) CALL MATMULT_FFF ( IY0, T4, 3, 3, 3, DUM2 ) @@ -492,8 +492,8 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V DO J=1,3 KS(I ,J+6) = DUM1(I,J) + DUM2(I,J) KS(J+6,I ) = KS(I,J+6) - ENDDO - ENDDO + ENDDO + ENDDO ! 3x3 KS-22 Partition CALL MATMULT_FFF ( I00, T1 , 3, 3, 3, DUM3 ) CALL MATMULT_FFF_T ( B2 , DUM3, 3, 3, 3, DUM1 ) @@ -502,8 +502,8 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V DO I=1,3 DO J=1,3 KS(I+3,J+3) = DUM1(I,J) + DUM2(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ! 3x3 KS-23, 32 Partition CALL MATMULT_FFF ( I00, T3 , 3, 3, 3, DUM3 ) CALL MATMULT_FFF_T ( B2 , DUM3, 3, 3, 3, DUM1 ) @@ -513,8 +513,8 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V DO J=1,3 KS(I+3,J+6) = -DUM1(I,J) - DUM2(I,J) KS(J+6,I+3) = KS(I+3,J+6) - ENDDO - ENDDO + ENDDO + ENDDO ! 3x3 KS-33 Partition CALL MATMULT_FFF ( I00, T3 , 3, 3, 3, DUM3 ) CALL MATMULT_FFF_T ( S2 , DUM3, 3, 3, 3, DUM1 ) @@ -523,14 +523,14 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V DO I=1,3 DO J=1,3 KS(I+6,J+6) = DUM1(I,J) + DUM2(I,J) - ENDDO - ENDDO + ENDDO + ENDDO SHRSUM = ZERO DO I=4,9 SHRSUM = SHRSUM + KS(I,I) - ENDDO - ! Now calculate the finite elem shear factor, PHI_SQ + ENDDO + ! Now calculate the finite elem shear factor, PHI_SQ IF (SHRSUM > EPS1) THEN CALL CALC_PHI_SQ ( IERROR ) @@ -540,15 +540,15 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V ! Return if IERROR > 0 IF (IERROR > 0) RETURN - + DO I=1,9 DO J=1,9 KV(I,J) = KB(I,J) + PHI_SQ*KS(I,J) IF (CALC_EMATS == 'Y') THEN KE(ID(I),ID(J)) = KE(ID(I),ID(J)) + KV(I,J) ENDIF - ENDDO - ENDDO + ENDDO + ENDDO IF (DEBUG(54) == 1) THEN IF (MN4T_QD == 'Y') THEN WRITE(F06,'(A,I2,A,A,I8))') ' KV, in TPLT2 for MIN4T QUAD4: tria ', TRIA_NUM, ' of 4 for ',TRIM(TYPE), EID @@ -562,26 +562,26 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V ENDDO WRITE(F06,*) ENDIF - + ! Set lower triangular partition equal to upper partition IF (CALC_EMATS == 'Y') THEN DO I=2,ELDOF DO J=1,I-1 KE(I,J) = KE(J,I) - ENDDO + ENDDO ENDDO - ENDIF - + ENDIF + ENDIF - + ! ********************************************************************************************************************************** ! Calculate BE2, SE2 matrix (3 x 18) for strain/stress data recovery. ! Note: stress recovery matrices only make sense for individual plies (or whole elem if only 1 "ply") - + ! BS (transverse shear strain-displ matrices) is used in several places below: CALL BBMIN3 ( A, B, AREA, '(bending strains)', 'N', BB ) - + XI(1) = ONE/THREE XI(2) = ONE/THREE XI(3) = ONE/THREE @@ -600,16 +600,16 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V DO J=1,9 B2V(I,J) = BB(I,J) BE2(I,ID(J),1) = BB(I,J) - ENDDO + ENDDO ENDDO DO I=1,2 DO J=1,9 B3V(I,J) = BS(I,J) BE3(I,ID(J),1) = BS(I,J) - ENDDO - ENDDO - + ENDDO + ENDDO + ! SE2, STE2 generated in elem coords. Then, in LINK9 the stresses, calc'd in elem coords, will be transformed to ply coords IF (OPT(3) == 'Y') THEN @@ -626,7 +626,7 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V DO J=1,9 S2V(I,J) = DUM5(I,J) SE2(I,ID(J),1) = DUM5(I,J) - ENDDO + ENDDO ENDDO ALP_TRIA(1) = ALPVEC_TRIA(1,1) @@ -638,19 +638,19 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V DO J=1,NTSUB ! Thermal stress terms DO I=1,3 STE2(I,J,1) = EALP_TRIA(I)*DT(4,J) - ENDDO - ENDDO + ENDDO + ENDDO CALL MATMULT_FFF ( ET_TRIA, BS, 2, 2, 9, DUM6 ) DO I=1,2 DO J=1,9 S3V(I,J) = PHI_SQ*DUM6(I,J) SE3(I,ID(J),1) = PHI_SQ*DUM6(I,J) - ENDDO - ENDDO - + ENDDO + ENDDO + ENDIF - + ! ********************************************************************************************************************************** ! If element is a composite and if it is a nonsym layup we need to calc BIG_BB for later use @@ -667,14 +667,14 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V BIG_BB(I,ID(J),1) = BB(I,J) ENDDO ENDDO - + ENDIF ! ********************************************************************************************************************************** -! Determine element pressure loads. - +! Determine element pressure loads. + IF (OPT(5) == 'Y') THEN - + IF (DEBUG(16) == 0) THEN ! Generate PPE as work equilavent loads QCONS = AREA/(TWO*TWELVE) @@ -687,15 +687,15 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V DUM0(7) = QCONS*(-A(3) + A(2)) DUM0(8) = QCONS*( A(3) - A(1)) DUM0(9) = QCONS*( A(1) - A(2)) - + DO J=1,NSUB DO I=1,9 PPV(I,J) = PRESS(3,J)*DUM0(I) IF (CALC_EMATS == 'Y') THEN PPE(ID(I),J) = PPV(I,J) ENDIF - ENDDO - ENDDO + ENDDO + ENDDO ELSE ! Generate PPE as static equilavent loads @@ -708,23 +708,23 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V PPE( 9,J) = AREA*PRESS(3,J)/THREE PPE(15,J) = AREA*PRESS(3,J)/THREE ENDIF - ENDDO - + ENDDO + ENDIF ENDIF - + RETURN ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## - SUBROUTINE DEBUG_ROT_AXES_2 + SUBROUTINE DEBUG_ROT_AXES_2 USE IOUNT1, ONLY : F06 USE MODEL_STUF, ONLY : EID @@ -831,13 +831,13 @@ SUBROUTINE DEBUG_ROT_AXES_2 WRITE(F06,*) WRITE(F06,98799) - + WRITE(F06,*) ! ********************************************************************************************************************************** 55566 FORMAT(1X,'------------------------------------------------------------------------------------------',/) -67549 FORMAT(6(1ES14.6)) +67549 FORMAT(6(1ES14.6)) 99663 FORMAT(1X,A) @@ -845,12 +845,12 @@ SUBROUTINE DEBUG_ROT_AXES_2 99665 FORMAT(16x,'Material matrix ',a12,' before/after TF transformation',/, & 19x,'before',41X,'after',/,' ---------------------------------------- ----------------------------------------') - -99667 FORMAT(3(1ES14.6), 4X,3(1ES14.6)) -99668 FORMAT(3(1ES14.6), 4X,3(1ES14.6)) +99667 FORMAT(3(1ES14.6), 4X,3(1ES14.6)) + +99668 FORMAT(3(1ES14.6), 4X,3(1ES14.6)) -99669 FORMAT(7X,2(1ES14.6),18X,2(1ES14.6)) +99669 FORMAT(7X,2(1ES14.6),18X,2(1ES14.6)) 98720 FORMAT(' __________________________________________________________________________________________________________________',& '_________________' ,//,& diff --git a/Source/EMG/EMG4/TREL1.f90 b/Source/EMG/EMG4/TREL1.f90 index e3533ae3..3bfae894 100644 --- a/Source/EMG/EMG4/TREL1.f90 +++ b/Source/EMG/EMG4/TREL1.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TREL1 ( OPT, WRITE_WARN ) - + ! Calculates, or calls subr's to calculate, triangular element matrices: ! 1) ME = element mass matrix , if OPT(1) = 'Y' @@ -44,11 +44,11 @@ SUBROUTINE TREL1 ( OPT, WRITE_WARN ) USE MODEL_STUF, ONLY : EID, ELDOF, EMG_IWE, EMG_RWE, INTL_MID, KE, MASS_PER_UNIT_AREA, ME, & NUM_EMG_FATAL_ERRS, PCOMP_LAM, PCOMP_PROPS, SHELL_B, TYPE, XEB, XEL USE MODEL_STUF, ONLY : BENSUM, SHRSUM, PHI_SQ, PSI_HAT, XTB, XTL - + USE TREL1_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TREL1' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not @@ -82,7 +82,7 @@ SUBROUTINE TREL1 ( OPT, WRITE_WARN ) REAL(DOUBLE) :: X2E ! x coord of elem node 2 REAL(DOUBLE) :: X3E ! x coord of elem node 3 REAL(DOUBLE) :: Y3E ! y coord of elem node 3 - + ! The following 3 args are needed when subr TPLT2 is called when that triangular shell element is used in a MIN4T QUAD4 which is ! made up of 4 non-overlapping TPLT2 elements. Since TPLT2 can also be a stand-alone element, we need these args when that occurs. ! The only time TPLT2 is called from this subr is when it is a stand-alone element. @@ -105,12 +105,12 @@ SUBROUTINE TREL1 ( OPT, WRITE_WARN ) PHI_SQ = ZERO ! Calculate element geometry parameters from data block XEL - + X2E = XEL(2,1) X3E = XEL(3,1) Y3E = XEL(3,2) AREA = X2E*Y3E/TWO - + ! XTB, XTL may be needed when TPLT2 calls BBMIN3, BSMIN3. Since TPLT2 is also called from QPLT3, which is made up of 4 TPLT2's, ! we cannot use XEB and XEL since, in that case, they are the values for the MIN4T QUAD4 element geometry, not for the 4 triangles ! making up that quad eleent @@ -123,7 +123,7 @@ SUBROUTINE TREL1 ( OPT, WRITE_WARN ) ENDDO ! Calculate and check element aspect ratio, AR. Print warning if AR > 2.0 for TMEM1 - + AR = X2E/Y3E IF(AR < ONE) THEN AR = ONE/AR @@ -143,11 +143,11 @@ SUBROUTINE TREL1 ( OPT, WRITE_WARN ) ENDIF ENDIF ENDIF - + ! ********************************************************************************************************************************** ! Generate the mass matrix for this element. For the pure bending element the mass is based only on the non-structural mass. ! The mass matrix was initialized in subr EMG - + IF (OPT(1) == 'Y') THEN M0 = MASS_PER_UNIT_AREA*AREA/THREE ME( 1 ,1) = M0 @@ -167,26 +167,26 @@ SUBROUTINE TREL1 ( OPT, WRITE_WARN ) IF ((OPT(2) == 'Y') .OR. (OPT(3) == 'Y') .OR. (OPT(4) == 'Y') .OR. (OPT(5) == 'Y') .OR. (OPT(6) == 'Y')) THEN - IF (TYPE(1:5) == 'TRIA3') THEN + IF (TYPE(1:5) == 'TRIA3') THEN IF (INTL_MID(1) /= 0) THEN CALL TMEM1 ( OPT, AREA, X2E, X3E, Y3E, 'Y', BIG_BM ) ENDIF ENDIF - + IF (TYPE == 'TRIA3K ') THEN IF (INTL_MID(2) /= 0) THEN CALL TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) ENDIF ENDIF - + IF (TYPE == 'TRIA3 ') THEN IF (INTL_MID(2) /= 0) THEN CALL TPLT2 (OPT, AREA, X2E, X3E, Y3E, 'Y', IERROR, KV, PTV, PPV, B2V, B3V, S2V, S3V, BIG_BB, MN4T_QD, TRIA_NUM, PSI) ENDIF ENDIF - - ENDIF - + + ENDIF + ! ********************************************************************************************************************************** ! Calc BM'*SHELL_B*BB (and its transpose) and add to KE. Only do this if this is a composite element with nonsym layup @@ -222,8 +222,8 @@ SUBROUTINE TREL1 ( OPT, WRITE_WARN ) DO K=1,ELDOF DO L=1,ELDOF KE(K,L) = KE(K,L) + (DUM2(K,L) + DUM2(L,K)) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF @@ -237,7 +237,7 @@ SUBROUTINE TREL1 ( OPT, WRITE_WARN ) ! ********************************************************************************************************************************** 1924 FORMAT(' *WARNING : ASPECT RATIO OF ',A,' ELEMENT ',I8,' IS:',F7.1,'. IT SHOULD BE < ',F3.0) - + ! ********************************************************************************************************************************** - + END SUBROUTINE TREL1 diff --git a/Source/EMG/EMG5/HEXA.f90 b/Source/EMG/EMG5/HEXA.f90 index e1f85336..6ed6728a 100644 --- a/Source/EMG/EMG5/HEXA.f90 +++ b/Source/EMG/EMG5/HEXA.f90 @@ -145,7 +145,7 @@ SUBROUTINE HEXA ( OPT, INT_ELEM_ID,IORD, RED_INT_SHEAR, WRITE_WARN ) REAL(DOUBLE) :: VOLUME ! 3D element volume REAL(DOUBLE) :: SSI,SSJ,SSK ! Isoparametric coordinates of a point. REAL(DOUBLE) :: M_1DOF(ELGP,ELGP) ! Consistent mass matrix with 1 DOF per node. - + ! ********************************************************************************************************************************** @@ -1062,4 +1062,4 @@ SUBROUTINE PRESS_LOAD_DEBUG ( WHAT ) END SUBROUTINE PRESS_LOAD_DEBUG - END SUBROUTINE HEXA \ No newline at end of file + END SUBROUTINE HEXA diff --git a/Source/EMG/EMG5/PENTA.f90 b/Source/EMG/EMG5/PENTA.f90 index baeae577..c1445797 100644 --- a/Source/EMG/EMG5/PENTA.f90 +++ b/Source/EMG/EMG5/PENTA.f90 @@ -1,32 +1,32 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN ) - -! Isoparametric pentahedron solid element (6 or 15 nodes and with full or reduced gaussian integration) + +! Isoparametric pentahedron solid element (6 or 15 nodes and with full or reduced gaussian integration) ! Subroutine calculates: @@ -35,7 +35,7 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN ! 3) SEi, STEi = element stress data recovery matrices, if OPT(3) = 'Y' ! 4) KE = element linea stiffness matrix , if OPT(4) = 'Y' ! 5) KED = element differen stiff matrix calc , if OPT(6) = 'Y' = 'Y' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_TRIA, MAX_ORDER_GAUSS, NTSUB @@ -46,12 +46,12 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP USE MODEL_STUF, ONLY : ALPVEC, BE1, BE2, DT, EID, ELGP, NUM_EMG_FATAL_ERRS, ES, KE, KED, ME, PTE, RHO, & SE1, SE2, STE1, STRESS, TREF, TYPE - + USE PENTA_USE_IFs USE EXPAND_MASS_DOFS_Interface - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'PENTA' CHARACTER( 1*BYTE), INTENT(IN) :: RED_INT_SHEAR ! If 'Y', use Gaussian weighted avg of B matrices for shear terms CHARACTER( 1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -70,7 +70,7 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN ! 6 DOF/grid of the final element stiffness matrix INTEGER(LONG) :: STR_PT_NUM ! Stress point number. 1 is center, 2+ are element nodes 1+. - + REAL(DOUBLE) :: ALP(6) ! First col of ALPVEC ! Strain-displ matrix for this element for all Gauss points REAL(DOUBLE) :: B(6,3*ELGP,IORD_IJ*IORD_K) @@ -126,7 +126,7 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN REAL(DOUBLE) :: VOLUME ! 3D element volume REAL(DOUBLE) :: SSI,SSJ,SSK ! Isoparametric coordinates of a point. REAL(DOUBLE) :: M_1DOF(ELGP,ELGP) ! Consistent mass matrix with 1 DOF per node. - + ! ********************************************************************************************************************************** @@ -150,7 +150,7 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN VOLUME = VOLUME + HH_IJ(IJ)*HH_K(K)*DETJ(GAUSS_PT) ENDDO ENDDO - + IF (VOLUME < EPS1) THEN ! If VOLUME <= 0, write error and return WRITE(ERR,1925) EID, TYPE, 'VOLUME', VOLUME WRITE(F06,1925) EID, TYPE, 'VOLUME', VOLUME @@ -175,13 +175,13 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN DO I=1,6 ALP(I) = ALPVEC(I,1) ENDDO - + TREF1 = TREF(1) - + ! EALP is needed to calculate both PTE and STE2 - + CALL MATMULT_FFF ( ES, ALP, 6, 6, 1, EALP ) - + ! Calc TBAR (used for PTE, STEi) IF ((OPT(2) == 'Y') .OR. (OPT(3) == 'Y')) THEN @@ -196,7 +196,7 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN ! ********************************************************************************************************************************** ! Generate the mass matrix for this element. - + IF (OPT(1) == 'Y') THEN ! Consistent mass matrix @@ -353,8 +353,8 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN ENDIF opt234 ! ********************************************************************************************************************************** -! Calculate element thermal loads. - +! Calculate element thermal loads. + IF (OPT(2) == 'Y') THEN DO N=1,NTSUB @@ -390,13 +390,13 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN TEMP = TGAUSS(1,N) - TREF1 ELSE ! Use avg element temperature for PTE TEMP = TBAR(N) - ENDIF + ENDIF DO L=1,3*ELGP DUM1(L) = DUM1(L) + DUM0(L)*TEMP*INTFAC ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + DO L=1,3*ELGP PTE(ID(L),N) = DUM1(L) ENDDO @@ -407,11 +407,11 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN ! ********************************************************************************************************************************** ! Calculate SE1, SE2 matrices for stress data recovery. All stresses calculated at center of element - + IF ((OPT(3) == 'Y') .OR. (OPT(6) == 'Y')) THEN - + DO STR_PT_NUM=1,7 - + ! Isoparametric coordinates of the point SELECT CASE (STR_PT_NUM) CASE (1) ! Center @@ -429,7 +429,7 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN CASE (7) ! Node 6 SSI = 0; SSJ = +1; SSK = +1 END SELECT - + DO K=1,6 DO L=1,3*ELGP DUM2(K,L) = ZERO @@ -447,37 +447,37 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN DO J=1,3*ELGP SE1(I,ID(J),STR_PT_NUM) = DUM2(I ,J) SE2(I,ID(J),STR_PT_NUM) = DUM2(I+3,J) - ENDDO - ENDDO + ENDDO + ENDDO DO J=1,NTSUB ! STE thermal stress terms STE1(1,J,STR_PT_NUM) = EALP(1)*TBAR(J) STE1(2,J,STR_PT_NUM) = EALP(2)*TBAR(J) STE1(3,J,STR_PT_NUM) = EALP(3)*TBAR(J) - ENDDO + ENDDO DO I=1,3 ! Strain-displ matrix DO J=1,3*ELGP BE1(I,ID(J),STR_PT_NUM) = BI(I ,J) BE2(I,ID(J),STR_PT_NUM) = BI(I+3,J) - ENDDO - ENDDO + ENDDO + ENDDO ENDDO - ENDIF - + ENDIF + ! ********************************************************************************************************************************** ! Calculate element stiffness matrix KE. - + IF (OPT(4) == 'Y') THEN - + DO I=1,3*ELGP DO J=1,3*ELGP DUM3(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + IORD_MSG = ' ' GAUSS_PT = 0 DO K=1,IORD_K @@ -494,27 +494,27 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN DO L=1,3*ELGP DO M=1,3*ELGP DUM3(L,M) = DUM3(L,M) + DUM5(L,M)*INTFAC - ENDDO + ENDDO ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + DO I=1,3*ELGP DO J=1,3*ELGP KE(ID(I),ID(J)) = DUM3(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ! Set lower triangular portion of KE equal to upper portion - + DO I=2,6*ELGP DO J=1,I-1 KE(I,J) = KE(J,I) - ENDDO - ENDDO - + ENDDO + ENDDO + ENDIF - + ! ********************************************************************************************************************************** ! Calculate linear differential stiffness matrix @@ -567,18 +567,18 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN ENDDO ENDDO ENDDO - + DO I=1,3*ELGP DO J=1,3*ELGP KED(ID(I),ID(J)) = DUM3(I,J) - ENDDO - ENDDO + ENDDO + ENDDO DO I=2,6*ELGP ! Set lower triangular portion of KE equal to upper portion DO J=1,I-1 KED(I,J) = KED(J,I) - ENDDO - ENDDO + ENDDO + ENDDO IF (DEBUG(178) >= 1) THEN WRITE(F06,2001) TRIM(SUBR_NAME), OPT(6), LOAD_ISTEP, TYPE, EID @@ -597,7 +597,7 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN WRITE(F06,*) ENDIF - ENDIF + ENDIF @@ -608,10 +608,10 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN 1935 FORMAT(' *ERROR 1935: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' ELEMENT ',I8,', TYPE ',A,' HAS MATERIAL COUPLING BETWEEN DIRECT AND SHEAR STRESSES. THIS SUBR IS NOT',& - ' PROGRAMMED FOR THIS') + ' PROGRAMMED FOR THIS') 1941 FORMAT(' *ERROR 1941: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' ELEMENT ',I8,', TYPE ',A,' HAS AN INVALID NUMBER OF NODES = ',I8) + ,/,14X,' ELEMENT ',I8,', TYPE ',A,' HAS AN INVALID NUMBER OF NODES = ',I8) 2001 FORMAT(' In ', A, ' with OPT(6) = ', A, ', and LOAD_ISTEP = ', I8, ': KED Differential Stiffness Matrix for ', A, & ' element number ', I8) diff --git a/Source/EMG/EMG5/TETRA.f90 b/Source/EMG/EMG5/TETRA.f90 index 14b3570f..d894666a 100644 --- a/Source/EMG/EMG5/TETRA.f90 +++ b/Source/EMG/EMG5/TETRA.f90 @@ -1,32 +1,32 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) - -! Isoparametric tetrahedron solid element (4 or 10 nodes). Full gaussian integration is the only option (no reduced integration) + +! Isoparametric tetrahedron solid element (4 or 10 nodes). Full gaussian integration is the only option (no reduced integration) ! Subroutine calculates: @@ -46,12 +46,12 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : ALPVEC, BE1, BE2, DT, EID, ELGP, NUM_EMG_FATAL_ERRS, ES, KE, KED, ME, PTE, RHO, & SE1, SE2, STE1, STRESS, TREF, TYPE - + USE TETRA_USE_IFs USE EXPAND_MASS_DOFS_Interface - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TETRA' CHARACTER( 1*BYTE), INTENT(IN) :: RED_INT_SHEAR ! If 'Y', use Gaussian weighted avg of B matrices for shear terms CHARACTER( 1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -68,7 +68,7 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) ! Indicator of no output of elem data to BUG file INTEGER(LONG) :: STR_PT_NUM ! Stress point number. 1 is center, 2+ are element nodes 1+. - + REAL(DOUBLE) :: ALP(6) ! First col of ALPVEC REAL(DOUBLE) :: B(6,3*ELGP,IORD*IORD*IORD) @@ -117,7 +117,7 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) REAL(DOUBLE) :: VOLUME ! 3D element volume REAL(DOUBLE) :: SSI,SSJ,SSK ! Isoparametric coordinates of a point. REAL(DOUBLE) :: M_1DOF(ELGP,ELGP) ! Consistent mass matrix with 1 DOF per node. - + ! ********************************************************************************************************************************** @@ -136,7 +136,7 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) ENDDO ! If VOLUME <= 0, write error and return - + IF (VOLUME < EPS1) THEN WRITE(ERR,1925) EID, TYPE, 'VOLUME', VOLUME WRITE(F06,1925) EID, TYPE, 'VOLUME', VOLUME @@ -161,13 +161,13 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) DO I=1,6 ALP(I) = ALPVEC(I,1) ENDDO - + TREF1 = TREF(1) - + ! EALP is needed to calculate both PTE and STE2 - + CALL MATMULT_FFF ( ES, ALP, 6, 6, 1, EALP ) - + ! Calc TBAR (used for PTE, STEi) IF ((OPT(2) == 'Y') .OR. (OPT(3) == 'Y')) THEN @@ -178,11 +178,11 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) ENDDO TBAR(J) = TBAR(J)/ELGP - TREF1 ENDDO - ENDIF + ENDIF ! ********************************************************************************************************************************** ! Generate the mass matrix for this element. - + IF (OPT(1) == 'Y') THEN ! Consistent mass matrix @@ -209,7 +209,7 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) ENDIF ! ********************************************************************************************************************************** -! Generate B matrices. The B matrix terms for Gauss point k are B(i,j,k) +! Generate B matrices. The B matrix terms for Gauss point k are B(i,j,k) DO I=1,6 DO J=1,3*ELGP @@ -233,8 +233,8 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) ENDDO ! ********************************************************************************************************************************** -! Calculate element thermal loads. - +! Calculate element thermal loads. + IF (OPT(2) == 'Y') THEN DO N=1,NTSUB @@ -267,12 +267,12 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) TEMP = TGAUSS(1,N) - TREF1 ELSE ! Use avg element temperature for PTE TEMP = TBAR(N) - ENDIF + ENDIF DO L=1,3*ELGP DUM1(L) = DUM1(L) + DUM0(L)*TEMP*INTFAC ENDDO - ENDDO - + ENDDO + DO L=1,3*ELGP PTE(ID(L),N) = DUM1(L) ENDDO @@ -283,9 +283,9 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) ! ********************************************************************************************************************************** ! Calculate BEi, SEi matrices for strain, stress data recovery. - + IF ((OPT(3) == 'Y') .OR. (OPT(6) == 'Y')) THEN - + DO STR_PT_NUM=1,9 ! Isoparametric coordinates of the point SELECT CASE (STR_PT_NUM) @@ -319,37 +319,37 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) DO J=1,3*ELGP SE1(I,ID(J),STR_PT_NUM) = DUM2(I ,J) SE2(I,ID(J),STR_PT_NUM) = DUM2(I+3,J) - ENDDO - ENDDO + ENDDO + ENDDO DO J=1,NTSUB ! STE thermal stress terms STE1(1,J,STR_PT_NUM) = EALP(1)*TBAR(J) STE1(2,J,STR_PT_NUM) = EALP(2)*TBAR(J) STE1(3,J,STR_PT_NUM) = EALP(3)*TBAR(J) - ENDDO + ENDDO DO I=1,3 ! Strain-displ matrix DO J=1,3*ELGP BE1(I,ID(J),STR_PT_NUM) = BI(I ,J) BE2(I,ID(J),STR_PT_NUM) = BI(I+3,J) - ENDDO - ENDDO + ENDDO + ENDDO ENDDO - ENDIF - + ENDIF + ! ********************************************************************************************************************************** ! Calculate element stiffness matrix KE. - + IF (OPT(4) == 'Y') THEN - + DO I=1,3*ELGP DO J=1,3*ELGP DUM3(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + IORD_MSG = ' ' DO I=1,IORD @@ -368,27 +368,27 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) DO L=1,3*ELGP DO M=1,3*ELGP DUM3(L,M) = DUM3(L,M) + DUM5(L,M)*INTFAC - ENDDO + ENDDO ENDDO - ENDDO - + ENDDO + DO I=1,3*ELGP DO J=1,3*ELGP KE(ID(I),ID(J)) = DUM3(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ! Set lower triangular portion of KE equal to upper portion - + DO I=2,6*ELGP DO J=1,I-1 KE(I,J) = KE(J,I) - ENDDO - ENDDO - + ENDDO + ENDDO + ENDIF - + ! ********************************************************************************************************************************** ! Calculate linear differential stiffness matrix IF ((OPT(6) == 'Y') .AND. (LOAD_ISTEP > 1)) THEN @@ -413,8 +413,8 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) DO I=1,3*ELGP DO J=1,3*ELGP DUM3(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO ! KED = int( CBAR^T * KWW * CBAR , dV) IORD_MSG = ' ' @@ -435,21 +435,21 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) DO L=1,3*ELGP DO M=1,3*ELGP DUM3(L,M) = DUM3(L,M) + DUM5(L,M)*INTFAC - ENDDO + ENDDO ENDDO - ENDDO - + ENDDO + DO I=1,3*ELGP DO J=1,3*ELGP KED(ID(I),ID(J)) = DUM3(I,J) - ENDDO - ENDDO + ENDDO + ENDDO DO I=2,6*ELGP ! Set lower triangular portion of KE equal to upper portion DO J=1,I-1 KED(I,J) = KED(J,I) - ENDDO - ENDDO + ENDDO + ENDDO IF (DEBUG(178) >= 1) THEN WRITE(F06,2001) TRIM(SUBR_NAME), OPT(6), LOAD_ISTEP, TYPE, EID @@ -468,7 +468,7 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) WRITE(F06,*) ENDIF - ENDIF + ENDIF diff --git a/Source/EMG/EMG6/B3D_ISOPARAMETRIC.f90 b/Source/EMG/EMG6/B3D_ISOPARAMETRIC.f90 index 6b048022..e0436649 100644 --- a/Source/EMG/EMG6/B3D_ISOPARAMETRIC.f90 +++ b/Source/EMG/EMG6/B3D_ISOPARAMETRIC.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE B3D_ISOPARAMETRIC ( DPSHX, GAUSS_PT, IGAUS, JGAUS, KGAUS, MESSAG, WRT_BUG_THIS_TIME, BMAT ) - + ! Generates strain/displ matrix BMAT for solid 3D elements. Called by HEXA, PENTA and TETRA subroutines - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR, BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT @@ -35,11 +35,11 @@ SUBROUTINE B3D_ISOPARAMETRIC ( DPSHX, GAUSS_PT, IGAUS, JGAUS, KGAUS, MESSAG, WRT USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : EID, ELGP, TYPE USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE B3D_ISOPARAMETRIC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'B3D_ISOPARAMETRIC' CHARACTER(LEN=*) , INTENT(IN) :: MESSAG ! Messag to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -53,7 +53,7 @@ SUBROUTINE B3D_ISOPARAMETRIC ( DPSHX, GAUSS_PT, IGAUS, JGAUS, KGAUS, MESSAG, WRT INTEGER(LONG) :: ID(3*ELGP) ! An input to subr BCHECK, called herein INTEGER(LONG), PARAMETER :: NR = 6 ! An input to subr BCHECK, called herein - + REAL(DOUBLE) , INTENT(IN) :: DPSHX(3,ELGP) ! Derivatives of the 4 node bilinear isopar interps wrt elem x and y REAL(DOUBLE) , INTENT(OUT) :: BMAT(6,3*ELGP) ! Output strain-displ matrix for this elem REAL(DOUBLE) :: BW(6,12) ! Output from subr BCHECK (matrix of 3 elem strains for 14 various elem @@ -72,7 +72,7 @@ SUBROUTINE B3D_ISOPARAMETRIC ( DPSHX, GAUSS_PT, IGAUS, JGAUS, KGAUS, MESSAG, WRT JJ = 0 DO J=1,ELGP - + JJ = JJ + 1 BMAT(1,JJ) = DPSHX(1,J) BMAT(2,JJ) = ZERO @@ -97,7 +97,7 @@ SUBROUTINE B3D_ISOPARAMETRIC ( DPSHX, GAUSS_PT, IGAUS, JGAUS, KGAUS, MESSAG, WRT BMAT(5,JJ) = DPSHX(2,J) BMAT(6,JJ) = DPSHX(1,J) - ENDDO + ENDDO IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(8) > 0)) THEN @@ -106,7 +106,7 @@ SUBROUTINE B3D_ISOPARAMETRIC ( DPSHX, GAUSS_PT, IGAUS, JGAUS, KGAUS, MESSAG, WRT DO I=1,6 WRITE(BUG,8902) I,(BMAT(I,J),J=1,3*ELGP) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDIF diff --git a/Source/EMG/EMG6/BBDKQ.f90 b/Source/EMG/EMG6/BBDKQ.f90 index d3826fe8..392c10af 100644 --- a/Source/EMG/EMG6/BBDKQ.f90 +++ b/Source/EMG/EMG6/BBDKQ.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BBDKQ ( DPSHX, XSD, YSD, SLN, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BB ) - + ! Calculate BB strain/displacement matrix for DKQ bending quadrilateral element. Called by subr QPLT1 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT @@ -35,11 +35,11 @@ SUBROUTINE BBDKQ ( DPSHX, XSD, YSD, SLN, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME USE CONSTANTS_1, ONLY : ZERO, TWO, THREE, FOUR USE MODEL_STUF, ONLY : EID, TYPE, XEB, XEL USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE BBDKQ_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BBDKQ' CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Messag to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -51,7 +51,7 @@ SUBROUTINE BBDKQ ( DPSHX, XSD, YSD, SLN, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME INTEGER(LONG), PARAMETER :: NR = 3 ! An input to subr BCHECK, called herein INTEGER(LONG), PARAMETER :: NC = 12 ! An input to subr BCHECK, called herein - + REAL(DOUBLE) , INTENT(IN) :: SLN(4) ! Quad side lengths REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! Array of 4 diffs of X dim. of sides REAL(DOUBLE) , INTENT(IN) :: YSD(4) ! Array of 4 diffs of Y dim. of sides @@ -65,12 +65,12 @@ SUBROUTINE BBDKQ ( DPSHX, XSD, YSD, SLN, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME REAL(DOUBLE) :: C(4) ! Intermediate variables used in calculating outputs REAL(DOUBLE) :: D(4) ! Intermediate variables used in calculating outputs REAL(DOUBLE) :: E(4) ! Intermediate variables used in calculating outputs - REAL(DOUBLE) :: DHXSHX(2,12) ! Derivatives of Hx with respect to x and y (Hx is a fcn of DPSHX) - REAL(DOUBLE) :: DHYSHX(2,12) ! Derivatives of Hy with respect to x and y (Hy is a fcn of DPSHX) + REAL(DOUBLE) :: DHXSHX(2,12) ! Derivatives of Hx with respect to x and y (Hx is a fcn of DPSHX) + REAL(DOUBLE) :: DHYSHX(2,12) ! Derivatives of Hy with respect to x and y (Hy is a fcn of DPSHX) REAL(DOUBLE) :: SL2 ! The squares of elem side lengths REAL(DOUBLE) :: XB(4,3) ! First 4 rows of XEB REAL(DOUBLE) :: XL(4,3) ! First 4 rows of XEL - + ! ********************************************************************************************************************************** ! Initialize outputs @@ -81,7 +81,7 @@ SUBROUTINE BBDKQ ( DPSHX, XSD, YSD, SLN, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME ENDDO ! Calculate parameters needed - + DO I=1,4 SL2 = SLN(I)*SLN(I) A(I) = -XSD(I)/SL2 @@ -89,84 +89,84 @@ SUBROUTINE BBDKQ ( DPSHX, XSD, YSD, SLN, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME C(I) = (XSD(I)*XSD(I)/FOUR - YSD(I)*YSD(I)/TWO)/SL2 D(I) = -YSD(I)/SL2 E(I) = (-XSD(I)*XSD(I)/TWO + YSD(I)*YSD(I)/FOUR)/SL2 - ENDDO - + ENDDO + ! Derivatives of Hx with respect to x - + DHXSHX(1, 1) = C15*(A(1)*DPSHX(1,5) - A(4)*DPSHX(1,8)) DHXSHX(1, 4) = C15*(A(2)*DPSHX(1,6) - A(1)*DPSHX(1,5)) DHXSHX(1, 7) = C15*(A(3)*DPSHX(1,7) - A(2)*DPSHX(1,6)) DHXSHX(1,10) = C15*(A(4)*DPSHX(1,8) - A(3)*DPSHX(1,7)) - + DHXSHX(1, 2) = B(1)*DPSHX(1,5) + B(4)*DPSHX(1,8) DHXSHX(1, 5) = B(2)*DPSHX(1,6) + B(1)*DPSHX(1,5) DHXSHX(1, 8) = B(3)*DPSHX(1,7) + B(2)*DPSHX(1,6) DHXSHX(1,11) = B(4)*DPSHX(1,8) + B(3)*DPSHX(1,7) - + DHXSHX(1, 3) = DPSHX(1,1) - C(1)*DPSHX(1,5) - C(4)*DPSHX(1,8) DHXSHX(1, 6) = DPSHX(1,2) - C(2)*DPSHX(1,6) - C(1)*DPSHX(1,5) DHXSHX(1, 9) = DPSHX(1,3) - C(3)*DPSHX(1,7) - C(2)*DPSHX(1,6) DHXSHX(1,12) = DPSHX(1,4) - C(4)*DPSHX(1,8) - C(3)*DPSHX(1,7) - + ! Derivatives of Hx with respect to y - + DHXSHX(2, 1) = C15*(A(1)*DPSHX(2,5) - A(4)*DPSHX(2,8)) DHXSHX(2, 4) = C15*(A(2)*DPSHX(2,6) - A(1)*DPSHX(2,5)) DHXSHX(2, 7) = C15*(A(3)*DPSHX(2,7) - A(2)*DPSHX(2,6)) DHXSHX(2,10) = C15*(A(4)*DPSHX(2,8) - A(3)*DPSHX(2,7)) - + DHXSHX(2, 2) = B(1)*DPSHX(2,5) + B(4)*DPSHX(2,8) DHXSHX(2, 5) = B(2)*DPSHX(2,6) + B(1)*DPSHX(2,5) DHXSHX(2, 8) = B(3)*DPSHX(2,7) + B(2)*DPSHX(2,6) DHXSHX(2,11) = B(4)*DPSHX(2,8) + B(3)*DPSHX(2,7) - + DHXSHX(2, 3) = DPSHX(2,1) - C(1)*DPSHX(2,5) - C(4)*DPSHX(2,8) DHXSHX(2, 6) = DPSHX(2,2) - C(2)*DPSHX(2,6) - C(1)*DPSHX(2,5) DHXSHX(2, 9) = DPSHX(2,3) - C(3)*DPSHX(2,7) - C(2)*DPSHX(2,6) DHXSHX(2,12) = DPSHX(2,4) - C(4)*DPSHX(2,8) - C(3)*DPSHX(2,7) - + ! Derivatives of Hy with respect to x - + DHYSHX(1, 1) = C15*(D(1)*DPSHX(1,5) - D(4)*DPSHX(1,8)) DHYSHX(1, 4) = C15*(D(2)*DPSHX(1,6) - D(1)*DPSHX(1,5)) DHYSHX(1, 7) = C15*(D(3)*DPSHX(1,7) - D(2)*DPSHX(1,6)) DHYSHX(1,10) = C15*(D(4)*DPSHX(1,8) - D(3)*DPSHX(1,7)) - + DHYSHX(1, 2) = -DPSHX(1,1) + E(1)*DPSHX(1,5) + E(4)*DPSHX(1,8) DHYSHX(1, 5) = -DPSHX(1,2) + E(2)*DPSHX(1,6) + E(1)*DPSHX(1,5) DHYSHX(1, 8) = -DPSHX(1,3) + E(3)*DPSHX(1,7) + E(2)*DPSHX(1,6) DHYSHX(1,11) = -DPSHX(1,4) + E(4)*DPSHX(1,8) + E(3)*DPSHX(1,7) - + DHYSHX(1, 3) = -B(1)*DPSHX(1,5) - B(4)*DPSHX(1,8) DHYSHX(1, 6) = -B(2)*DPSHX(1,6) - B(1)*DPSHX(1,5) DHYSHX(1, 9) = -B(3)*DPSHX(1,7) - B(2)*DPSHX(1,6) DHYSHX(1,12) = -B(4)*DPSHX(1,8) - B(3)*DPSHX(1,7) - + ! Derivatives of Hy with respect to y - + DHYSHX(2, 1) = C15*(D(1)*DPSHX(2,5) - D(4)*DPSHX(2,8)) DHYSHX(2, 4) = C15*(D(2)*DPSHX(2,6) - D(1)*DPSHX(2,5)) DHYSHX(2, 7) = C15*(D(3)*DPSHX(2,7) - D(2)*DPSHX(2,6)) DHYSHX(2,10) = C15*(D(4)*DPSHX(2,8) - D(3)*DPSHX(2,7)) - + DHYSHX(2, 2) = -DPSHX(2,1) + E(1)*DPSHX(2,5) + E(4)*DPSHX(2,8) DHYSHX(2, 5) = -DPSHX(2,2) + E(2)*DPSHX(2,6) + E(1)*DPSHX(2,5) DHYSHX(2, 8) = -DPSHX(2,3) + E(3)*DPSHX(2,7) + E(2)*DPSHX(2,6) DHYSHX(2,11) = -DPSHX(2,4) + E(4)*DPSHX(2,8) + E(3)*DPSHX(2,7) - + DHYSHX(2, 3) = -B(1)*DPSHX(2,5) - B(4)*DPSHX(2,8) DHYSHX(2, 6) = -B(2)*DPSHX(2,6) - B(1)*DPSHX(2,5) DHYSHX(2, 9) = -B(3)*DPSHX(2,7) - B(2)*DPSHX(2,6) DHYSHX(2,12) = -B(4)*DPSHX(2,8) - B(3)*DPSHX(2,7) - + ! Now formulate the BB strain/displacement matrix - + DO J=1,12 BB(1,J) = DHXSHX(1,J) BB(2,J) = DHYSHX(2,J) BB(3,J) = DHXSHX(2,J) + DHYSHX(1,J) - ENDDO - + ENDDO + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(8) > 0)) THEN WRITE(BUG,1101) ELDT_BUG_BMAT_BIT, TYPE, EID @@ -174,7 +174,7 @@ SUBROUTINE BBDKQ ( DPSHX, XSD, YSD, SLN, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME DO I=1,3 WRITE(BUG,8902) I,(BB(I,J),J=1,12) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDIF @@ -193,7 +193,7 @@ SUBROUTINE BBDKQ ( DPSHX, XSD, YSD, SLN, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME ID(10) = 21 ID(11) = 22 ID(12) = 23 - + DO I=1,4 DO J=1,3 XB(I,J) = XEB(I,J) diff --git a/Source/EMG/EMG6/BBMIN3.f90 b/Source/EMG/EMG6/BBMIN3.f90 index 98fac8ff..23903189 100644 --- a/Source/EMG/EMG6/BBMIN3.f90 +++ b/Source/EMG/EMG6/BBMIN3.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BBMIN3 ( A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BB ) - + ! Calculate BB bending strain/displacement matrix for MIN3 triangle. Called by subr TPLT2 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT, MIN4T_QUAD4_TRIA_NO @@ -35,11 +35,11 @@ SUBROUTINE BBMIN3 ( A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BB ) USE CONSTANTS_1, ONLY : ZERO, TWO USE MODEL_STUF, ONLY : EID, TYPE, XTB, XTL USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE BBMIN3_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BBMIN3' CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -50,14 +50,14 @@ SUBROUTINE BBMIN3 ( A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BB ) INTEGER(LONG), PARAMETER :: NR = 3 ! An input to subr BCHECK, called herein if INTEGER(LONG), PARAMETER :: NC = 9 ! An input to subr BCHECK, called herein if - + REAL(DOUBLE) , INTENT(IN) :: A(3) ! Diffs in x coords of elem REAL(DOUBLE) , INTENT(IN) :: B(3) ! Diffs in y coords of elem REAL(DOUBLE) , INTENT(IN) :: AREA ! Elem area REAL(DOUBLE) , INTENT(OUT) :: BB(3,9) ! Output strain-displ matrix for this elem REAL(DOUBLE) :: BW(3,14) ! Output from subr BCHECK (matrix of 3 elem strains for 14 various elem ! rigid body motions/constant strain distortions) - + ! ********************************************************************************************************************************** ! Initialize outputs @@ -75,16 +75,16 @@ SUBROUTINE BBMIN3 ( A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BB ) BB(1,J) = ZERO BB(2,J) = -A(JJ)/(TWO*AREA) BB(3,J) = -B(JJ)/(TWO*AREA) - ENDDO - + ENDDO + JJ = 0 DO J=7,9 JJ = JJ + 1 BB(1,J) = B(JJ)/(TWO*AREA) BB(2,J) = ZERO BB(3,J) = A(JJ)/(TWO*AREA) - ENDDO - + ENDDO + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(8) > 0)) THEN WRITE(BUG,1101) ELDT_BUG_BMAT_BIT, TYPE, EID, MIN4T_QUAD4_TRIA_NO @@ -92,7 +92,7 @@ SUBROUTINE BBMIN3 ( A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BB ) DO I=1,3 WRITE(BUG,8902) I,(BB(I,J),J=1,9) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDIF @@ -112,7 +112,7 @@ SUBROUTINE BBMIN3 ( A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BB ) ID(7) = 5 ID(8) = 11 ID(9) = 17 - + WRITE(BUG,1101) ELDT_BUG_BCHK_BIT, TYPE, EID, MIN4T_QUAD4_TRIA_NO WRITE(BUG,9100) WRITE(BUG,9101) MESSAG @@ -148,5 +148,5 @@ SUBROUTINE BBMIN3 ( A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BB ) 9104 FORMAT(7X,'---------------------------------------') ! ********************************************************************************************************************************** - + END SUBROUTINE BBMIN3 diff --git a/Source/EMG/EMG6/BBMIN4.f90 b/Source/EMG/EMG6/BBMIN4.f90 index 06ce2633..0f4f707d 100644 --- a/Source/EMG/EMG6/BBMIN4.f90 +++ b/Source/EMG/EMG6/BBMIN4.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BBMIN4 ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BB ) - + ! Calculate BB bending strain/displacement matrix for MIN4 quad. Called by subr QPLT2 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT @@ -35,11 +35,11 @@ SUBROUTINE BBMIN4 ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BB ) USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : EID, TYPE, XEB, XEL USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE BBMIN4_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BBMIN4' CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Messag to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -52,7 +52,7 @@ SUBROUTINE BBMIN4 ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BB ) INTEGER(LONG), PARAMETER :: NR = 3 ! An input to subr BCHECK, called herein INTEGER(LONG), PARAMETER :: NC = 8 ! An input to subr BCHECK, called herein - + REAL(DOUBLE) , INTENT(IN) :: DPSHX(2,4) ! Derivatives of the 4 node bilinear isopar interps wrt elem x and y REAL(DOUBLE) , INTENT(OUT) :: BB(3,8) ! Output strain-displ matrix for this elem REAL(DOUBLE) :: BW(3,14) ! Output from subr BCHECK (matrix of 3 elem strains for 14 various elem @@ -74,21 +74,21 @@ SUBROUTINE BBMIN4 ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BB ) ! Calc outputs JJ = 0 - + DO J=1,4 - + JJ = JJ + 1 BB(1,JJ) = ZERO BB(2,JJ) = -DPSHX(2,J) BB(3,JJ) = -DPSHX(1,J) - + JJ = JJ + 1 BB(1,JJ) = DPSHX(1,J) BB(2,JJ) = ZERO BB(3,JJ) = DPSHX(2,J) - - ENDDO - + + ENDDO + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(8) > 0)) THEN WRITE(BUG,1101) ELDT_BUG_BMAT_BIT, TYPE, EID @@ -96,7 +96,7 @@ SUBROUTINE BBMIN4 ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BB ) DO I=1,3 WRITE(BUG,8902) I,(BB(I,J),J=1,8) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDIF @@ -111,7 +111,7 @@ SUBROUTINE BBMIN4 ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BB ) ID( 6) = 17 ID( 7) = 22 ID( 8) = 23 - + DO I=1,4 DO J=1,3 XB(I,J) = XEB(I,J) diff --git a/Source/EMG/EMG6/BCHECK_2D.f90 b/Source/EMG/EMG6/BCHECK_2D.f90 index 1e2e35cf..c940e7c1 100644 --- a/Source/EMG/EMG6/BCHECK_2D.f90 +++ b/Source/EMG/EMG6/BCHECK_2D.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BCHECK_2D ( B, BTYPE, ID, NROWB, NCOLB, NUM_GRIDS, XB, XL, BW ) ! Checks strain-displacement matrices for rigid body motion and constant strain for 2-D shell elements ! (6 DOF per grid point and up to 4 grid points) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG USE SCONTR, ONLY : BLNK_SUB_NAM @@ -36,24 +36,24 @@ SUBROUTINE BCHECK_2D ( B, BTYPE, ID, NROWB, NCOLB, NUM_GRIDS, XB, XL, BW ) USE CONSTANTS_1, ONLY : ZERO, TWO USE MODEL_STUF, ONLY : ELDOF, NELGP, TE USE MODEL_STUF, ONLY : AGRID, ELGP - + USE BCHECK_2D_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BCHECK_2D' CHARACTER(LEN=*), INTENT(IN) :: BTYPE ! Type of B matrix ('M' for membrane, 'B' for bending, 'S' for shear) CHARACTER(45*BYTE) :: MESSAG(14) ! Output messages for the 14 modes of deformation (6 RB + 8 const strain) - + INTEGER(LONG), INTENT(IN) :: NROWB ! Number of rows in the input B matrix INTEGER(LONG), INTENT(IN) :: NCOLB ! Number of cols in the input B matrix INTEGER(LONG), INTENT(IN) :: NUM_GRIDS ! Number of grids for the input B matrix INTEGER(LONG), INTENT(IN) :: ID(NCOLB) ! List of elem DOF's for each of the elem grids (e.g 3,4,5 for each of -! 4 grids for a 4 node plate bending elem +! 4 grids for a 4 node plate bending elem INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: KK ! A computed index into array W - + REAL(DOUBLE) , INTENT(IN) :: B(NROWB,NCOLB) ! Strain-displ matrix REAL(DOUBLE) , INTENT(IN) :: XB(NUM_GRIDS,3) ! Basic coords of elem grids (diff than XEB for TPLT2's in a MIN4T QUAD4) REAL(DOUBLE) , INTENT(IN) :: XL(NUM_GRIDS,3) ! Local coords of elem grids (diff than XEL for TPLT2's in a MIN4T QUAD4) @@ -63,7 +63,7 @@ SUBROUTINE BCHECK_2D ( B, BTYPE, ID, NROWB, NCOLB, NUM_GRIDS, XB, XL, BW ) REAL(DOUBLE) :: REF_COORDS(3) ! 3 coords from XEB for node 1 REAL(DOUBLE) :: RB_DISP(6,6) ! 6 x 6 RB matrix for one grid for this element REAL(DOUBLE) :: W(24,14) ! Displs for the 14 modes of elem deformation (6 RB + 8 constant strain) - + ! ********************************************************************************************************************************** @@ -80,24 +80,24 @@ SUBROUTINE BCHECK_2D ( B, BTYPE, ID, NROWB, NCOLB, NUM_GRIDS, XB, XL, BW ) DO I=1,24 DO J=1,14 W(I,J) = ZERO - ENDDO - ENDDO - - MESSAG( 1) = ' Rigid Body Displacement, T1 = 1.0' - MESSAG( 2) = ' Rigid Body Displacement, T2 = 1.0' - MESSAG( 3) = ' Rigid Body Displacement, T3 = 1.0' - MESSAG( 4) = ' Rigid Body Rotation, R1 = 1.0' - MESSAG( 5) = ' Rigid Body Rotation, R2 = 1.0' - MESSAG( 6) = ' Rigid Body Rotation, R3 = 1.0' - MESSAG( 7) = ' Constant in-plane strain, Exx = 1.0' - MESSAG( 8) = ' Constant in-plane strain, Eyy = 1.0' - MESSAG( 9) = ' Constant in-plane strain, Exy = 1.0' - MESSAG(10) = ' Constant curvature, Cxx = 1.0' - MESSAG(11) = ' Constant curvature, Cyy = 1.0' - MESSAG(12) = ' Constant curvature, Cxy = 1.0' - MESSAG(13) = ' Constant transv shear strain, Gxz = 1.0' - MESSAG(14) = ' Constant transv shear strain, Gyz = 1.0' - + ENDDO + ENDDO + + MESSAG( 1) = ' Rigid Body Displacement, T1 = 1.0' + MESSAG( 2) = ' Rigid Body Displacement, T2 = 1.0' + MESSAG( 3) = ' Rigid Body Displacement, T3 = 1.0' + MESSAG( 4) = ' Rigid Body Rotation, R1 = 1.0' + MESSAG( 5) = ' Rigid Body Rotation, R2 = 1.0' + MESSAG( 6) = ' Rigid Body Rotation, R3 = 1.0' + MESSAG( 7) = ' Constant in-plane strain, Exx = 1.0' + MESSAG( 8) = ' Constant in-plane strain, Eyy = 1.0' + MESSAG( 9) = ' Constant in-plane strain, Exy = 1.0' + MESSAG(10) = ' Constant curvature, Cxx = 1.0' + MESSAG(11) = ' Constant curvature, Cyy = 1.0' + MESSAG(12) = ' Constant curvature, Cxy = 1.0' + MESSAG(13) = ' Constant transv shear strain, Gxz = 1.0' + MESSAG(14) = ' Constant transv shear strain, Gyz = 1.0' + ! Calc RB modes (cols 1-6 of W) DO I=1,NUM_GRIDS @@ -140,7 +140,7 @@ SUBROUTINE BCHECK_2D ( B, BTYPE, ID, NROWB, NCOLB, NUM_GRIDS, XB, XL, BW ) W(KK+3,14) = XL(K,2) ! This gives constant transverse shear strain - ENDDO + ENDDO ! Calc BW = B*W (but B has fewer cols since element has no stiffness for some DOF's) @@ -149,23 +149,23 @@ SUBROUTINE BCHECK_2D ( B, BTYPE, ID, NROWB, NCOLB, NUM_GRIDS, XB, XL, BW ) BW(I,J) = ZERO DO K=1,NCOLB BW(I,J) = BW(I,J) + B(I,K)*W(ID(K),J) - ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + ENDDO + ! Write results IF ((BTYPE == 'B') .OR. (BTYPE == 'M')) THEN DO J=1,6 WRITE(BUG,9101) MESSAG(J),(BW(I,J),I=1,NROWB) ENDDO - ELSE IF (BTYPE == 'S') THEN + ELSE IF (BTYPE == 'S') THEN DO J=1,6 WRITE(BUG,9201) MESSAG(J),(BW(I,J),I=1,NROWB) ENDDO ENDIF - WRITE(BUG,*) - + WRITE(BUG,*) + IF (BTYPE == 'B') THEN DO J=7,9 WRITE(BUG,9101) MESSAG(J),(BW(I,J),I=1,NROWB) @@ -179,7 +179,7 @@ SUBROUTINE BCHECK_2D ( B, BTYPE, ID, NROWB, NCOLB, NUM_GRIDS, XB, XL, BW ) WRITE(BUG,9201) MESSAG(J),(BW(I,J),I=1,NROWB) ENDDO ENDIF - WRITE(BUG,*) + WRITE(BUG,*) IF (BTYPE == 'B') THEN WRITE(BUG,9102) MESSAG(10),(BW(I,10),I=1,NROWB) @@ -194,18 +194,18 @@ SUBROUTINE BCHECK_2D ( B, BTYPE, ID, NROWB, NCOLB, NUM_GRIDS, XB, XL, BW ) WRITE(BUG,9201) MESSAG(J),(BW(I,J),I=1,NROWB) ENDDO ENDIF - WRITE(BUG,*) + WRITE(BUG,*) IF ((BTYPE == 'B') .OR. (BTYPE == 'M')) THEN DO J=13,14 WRITE(BUG,9101) MESSAG(J),(BW(I,J),I=1,NROWB) ENDDO - ELSE IF (BTYPE == 'S') THEN + ELSE IF (BTYPE == 'S') THEN WRITE(BUG,9202) MESSAG(13),(BW(I,13),I=1,NROWB) WRITE(BUG,9203) MESSAG(14),(BW(I,14),I=1,NROWB) ENDIF - WRITE(BUG,*) - + WRITE(BUG,*) + RETURN @@ -227,5 +227,5 @@ SUBROUTINE BCHECK_2D ( B, BTYPE, ID, NROWB, NCOLB, NUM_GRIDS, XB, XL, BW ) ! ********************************************************************************************************************************** - + END SUBROUTINE BCHECK_2D diff --git a/Source/EMG/EMG6/BCHECK_3D.f90 b/Source/EMG/EMG6/BCHECK_3D.f90 index 255231ef..8e3d2842 100644 --- a/Source/EMG/EMG6/BCHECK_3D.f90 +++ b/Source/EMG/EMG6/BCHECK_3D.f90 @@ -1,57 +1,57 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BCHECK_3D ( B, NUM_GRIDS, ID, NROWB, NCOLB, BW ) - + ! Checks strain-displacement matrices for rigid body motion and constant strain for 3-D solid elements - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, BUG USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, TWO USE MODEL_STUF, ONLY : AGRID, TE, XEB, XEL - + USE BCHECK_3D_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BCHECK_3D' CHARACTER(41*BYTE) :: MESSAG(12) ! Output messages for the 14 modes of deformation (6 RB + 8 const strain) CHARACTER( 3*BYTE) :: NOTE(12) ! Output message - + INTEGER(LONG), INTENT(IN) :: NCOLB ! Number of cols in the input B matrix INTEGER(LONG), INTENT(IN) :: NROWB ! Number of rows in the input B matrix INTEGER(LONG), INTENT(IN) :: NUM_GRIDS ! Number of grids that this solid element has. INTEGER(LONG), INTENT(IN) :: ID(NCOLB) ! List of elem DOF's for each of the elem grids (e.g 3,4,5 for each of -! 4 grids for a 4 node plate bending elem +! 4 grids for a 4 node plate bending elem INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: KK ! A computed index into array W - + REAL(DOUBLE) , INTENT(IN) :: B(NROWB,NCOLB) ! Strain-displ matrix REAL(DOUBLE) , INTENT(OUT) :: BW(NROWB,12) ! Output from subr BCHECK_3D (matrix of NROWB elem strains for various ! elem rigid body motions/constant strain distortions) @@ -93,8 +93,8 @@ SUBROUTINE BCHECK_3D ( B, NUM_GRIDS, ID, NROWB, NCOLB, BW ) DO I=1,6*NUM_GRIDS DO J=1,12 W(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO MESSAG( 1) = ' Rigid Body Displacement, T1 = 1.0:' MESSAG( 2) = ' Rigid Body Displacement, T2 = 1.0:' @@ -109,19 +109,19 @@ SUBROUTINE BCHECK_3D ( B, NUM_GRIDS, ID, NROWB, NCOLB, BW ) MESSAG(11) = ' Constant shear yz strain, Gxy = 1.0:' MESSAG(12) = ' Constant shear zx strain, Gxy = 1.0:' - NOTE( 1) = '(a)' - NOTE( 2) = '(a)' - NOTE( 3) = '(a)' - NOTE( 4) = '(a)' - NOTE( 5) = '(a)' - NOTE( 6) = '(a)' - NOTE( 7) = '(b)' - NOTE( 8) = '(c)' - NOTE( 9) = '(d)' - NOTE(10) = '(e)' - NOTE(11) = '(f)' - NOTE(12) = '(g)' - + NOTE( 1) = '(a)' + NOTE( 2) = '(a)' + NOTE( 3) = '(a)' + NOTE( 4) = '(a)' + NOTE( 5) = '(a)' + NOTE( 6) = '(a)' + NOTE( 7) = '(b)' + NOTE( 8) = '(c)' + NOTE( 9) = '(d)' + NOTE(10) = '(e)' + NOTE(11) = '(f)' + NOTE(12) = '(g)' + ! Calc RB modes (cols 1-6 of W) DO I=1,NUM_GRIDS @@ -159,7 +159,7 @@ SUBROUTINE BCHECK_3D ( B, NUM_GRIDS, ID, NROWB, NCOLB, BW ) W(KK+3,12) = XEL(K,1)/TWO ! The next 2 give constant shear zx strain W(KK+1,12) = XEL(K,3)/TWO - ENDDO + ENDDO ! Calc BW = B*W (but B has fewer cols since element has no stiffness for 4,5,6 DOF's) @@ -168,31 +168,31 @@ SUBROUTINE BCHECK_3D ( B, NUM_GRIDS, ID, NROWB, NCOLB, BW ) BW(I,J) = ZERO DO K=1,NCOLB BW(I,J) = BW(I,J) + B(I,K)*W(ID(K),J) - ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + ENDDO + ! Write results DO J=1,3 WRITE(BUG,9101) MESSAG(J),(BW(I,J),I=1,NROWB), NOTE(J) ENDDO - WRITE(BUG,*) + WRITE(BUG,*) DO J=4,6 WRITE(BUG,9101) MESSAG(J),(BW(I,J),I=1,NROWB), NOTE(J) ENDDO - WRITE(BUG,*) + WRITE(BUG,*) DO J=7,9 WRITE(BUG,9101) MESSAG(J),(BW(I,J),I=1,NROWB), NOTE(J) ENDDO - WRITE(BUG,*) + WRITE(BUG,*) DO J=10,12 WRITE(BUG,9101) MESSAG(J),(BW(I,J),I=1,NROWB), NOTE(J) ENDDO - WRITE(BUG,*) + WRITE(BUG,*) WRITE(BUG,*) WRITE(BUG,9901) @@ -213,5 +213,5 @@ SUBROUTINE BCHECK_3D ( B, NUM_GRIDS, ID, NROWB, NCOLB, BW ) ' (g) Gzx should be 1.0, others 0',/) ! ********************************************************************************************************************************** - + END SUBROUTINE BCHECK_3D diff --git a/Source/EMG/EMG6/BMQMEM.f90 b/Source/EMG/EMG6/BMQMEM.f90 index 5033dd99..ac1e9462 100644 --- a/Source/EMG/EMG6/BMQMEM.f90 +++ b/Source/EMG/EMG6/BMQMEM.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BMQMEM ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BM ) - + ! Calculate BM strain/displ matrix for 4 node membrane isoparametric element (quadratic). Called by subrs QMEM1, QSHEAR - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT @@ -35,11 +35,11 @@ SUBROUTINE BMQMEM ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BM ) USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG USE MODEL_STUF, ONLY : BMEANT, EID, HBAR, MXWARP, TYPE, XEB, XEL - + USE BMQMEM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BMQMEM' CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Messag to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -70,7 +70,7 @@ SUBROUTINE BMQMEM ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BM ) 20, & ! ID2(11)= 20 21 /) ! ID2(12)= 21 - + REAL(DOUBLE) , INTENT(IN) :: DPSHX(2,4) ! Derivatives of the 4 node bilinear isopar interps wrt elem x and y REAL(DOUBLE) , INTENT(OUT) :: BM(3,8) ! Output strain-displ matrix for this elem REAL(DOUBLE) :: BM_BMEANT(3,12) ! Product of BM and BMEANT to be sent to subr BCHECK_2D @@ -94,19 +94,19 @@ SUBROUTINE BMQMEM ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BM ) JJ = 0 DO J=1,4 - + JJ = JJ + 1 BM(1,JJ) = DPSHX(1,J) BM(2,JJ) = ZERO BM(3,JJ) = DPSHX(2,J) - + JJ = JJ + 1 BM(1,JJ) = ZERO BM(2,JJ) = DPSHX(2,J) BM(3,JJ) = DPSHX(1,J) - - ENDDO - + + ENDDO + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(8) > 0)) THEN WRITE(BUG,1101) ELDT_BUG_BMAT_BIT, TYPE, EID @@ -114,7 +114,7 @@ SUBROUTINE BMQMEM ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BM ) DO I=1,3 WRITE(BUG,8902) I,(BM(I,J),J=1,8) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDIF diff --git a/Source/EMG/EMG6/BSMIN3.f90 b/Source/EMG/EMG6/BSMIN3.f90 index 3fb65466..cd8c0551 100644 --- a/Source/EMG/EMG6/BSMIN3.f90 +++ b/Source/EMG/EMG6/BSMIN3.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BSMIN3 ( XI, A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BS ) - + ! Calculate BS shear strain/displacement matrix for MIN3 triangle. Called by subr TPLT2 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT, MIN4T_QUAD4_TRIA_NO @@ -39,7 +39,7 @@ SUBROUTINE BSMIN3 ( XI, A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BS ) USE BSMIN3_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BSMIN3' CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -49,7 +49,7 @@ SUBROUTINE BSMIN3 ( XI, A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BS ) INTEGER(LONG), PARAMETER :: NR = 2 ! An input to subr BCHECK, called herein INTEGER(LONG), PARAMETER :: NC = 9 ! An input to subr BCHECK, called herein - + REAL(DOUBLE) , INTENT(IN) :: A(3) ! Vector of x coord differences REAL(DOUBLE) , INTENT(IN) :: AREA ! Elem area REAL(DOUBLE) , INTENT(IN) :: B(3) ! Vector of y coord differences @@ -75,24 +75,24 @@ SUBROUTINE BSMIN3 ( XI, A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BS ) DO J=1,3 BS(1,J) = B(J)/(TWO*AREA) BS(2,J) = A(J)/(TWO*AREA) - ENDDO - + ENDDO + BS(1,4) = -(B(1)*( XI(2)*B(3) - XI(3)*B(2))/A4) BS(1,5) = -(B(2)*(-XI(1)*B(3) + XI(3)*B(1))/A4) BS(1,6) = -(B(3)*( XI(1)*B(2) - XI(2)*B(1))/A4) - + BS(1,7) = (XI(1)*(A4 - B(2)*A(3) + B(3)*A(2)) + B(1)*(-XI(2)*A(3) + XI(3)*A(2)))/A4 BS(1,8) = (XI(2)*(A4 + B(1)*A(3) - B(3)*A(1)) + B(2)*( XI(1)*A(3) - XI(3)*A(1)))/A4 BS(1,9) = (XI(3)*(A4 + B(2)*A(1) - B(1)*A(2)) + B(3)*(-XI(1)*A(2) + XI(2)*A(1)))/A4 - + BS(2,4) = -(XI(1)*(A4 + A(2)*B(3) - A(3)*B(2)) + A(1)*( XI(2)*B(3) - XI(3)*B(2)))/A4 BS(2,5) = -(XI(2)*(A4 - A(1)*B(3) + A(3)*B(1)) + A(2)*(-XI(1)*B(3) + XI(3)*B(1)))/A4 BS(2,6) = -(XI(3)*(A4 - A(2)*B(1) + A(1)*B(2)) + A(3)*( XI(1)*B(2) - XI(2)*B(1)))/A4 - + BS(2,7) = A(1)*(-XI(2)*A(3) + XI(3)*A(2))/A4 BS(2,8) = A(2)*( XI(1)*A(3) - XI(3)*A(1))/A4 BS(2,9) = A(3)*(-XI(1)*A(2) + XI(2)*A(1))/A4 - + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(8) > 0)) THEN WRITE(BUG,1101) ELDT_BUG_BMAT_BIT, TYPE, EID, MIN4T_QUAD4_TRIA_NO @@ -100,7 +100,7 @@ SUBROUTINE BSMIN3 ( XI, A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BS ) DO I=1,2 WRITE(BUG,8902) I,(BS(I,J),J=1,9) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDIF diff --git a/Source/EMG/EMG6/BSMIN4.f90 b/Source/EMG/EMG6/BSMIN4.f90 index ea15b308..aac402cb 100644 --- a/Source/EMG/EMG6/BSMIN4.f90 +++ b/Source/EMG/EMG6/BSMIN4.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BSMIN4 ( PSH, DPSHX, DNXSHX, DNYSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BS ) - + ! Calculate BS shear starin/displacement matrix for MIN4 quad. Called by subr QPLT2 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT @@ -35,11 +35,11 @@ SUBROUTINE BSMIN4 ( PSH, DPSHX, DNXSHX, DNYSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_TH USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : EID, TYPE, XEB, XEL USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE BSMIN4_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BSMIN4' CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Messag to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -52,7 +52,7 @@ SUBROUTINE BSMIN4 ( PSH, DPSHX, DNXSHX, DNYSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_TH INTEGER(LONG), PARAMETER :: NR = 2 ! An input to subr BCHECK, called herein INTEGER(LONG), PARAMETER :: NC = 12 ! An input to subr BCHECK, called herein - + REAL(DOUBLE) , INTENT(IN) :: PSH(4) ! 4 node bilinear isopar interp functions (used for bending) REAL(DOUBLE) , INTENT(IN) :: DPSHX(2,4) ! Derivatives of PSH shape functions wrt x and y REAL(DOUBLE) , INTENT(IN) :: DNXSHX(2,4) ! Derivatives of constrained interpolations NX wrt x, y @@ -75,23 +75,23 @@ SUBROUTINE BSMIN4 ( PSH, DPSHX, DNXSHX, DNYSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_TH ! Calc outputs JJ = 0 - + DO J=1,4 - + JJ = JJ + 1 BS(1,JJ) = DPSHX(1,J) BS(2,JJ) = DPSHX(2,J) - + JJ = JJ + 1 BS(1,JJ) = -DNXSHX(1,J) BS(2,JJ) = -DNXSHX(2,J) - PSH(J) - + JJ = JJ + 1 BS(1,JJ) = DNYSHX(1,J) + PSH(J) BS(2,JJ) = DNYSHX(2,J) - - ENDDO - + + ENDDO + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(8) > 0)) THEN WRITE(BUG,1101) ELDT_BUG_BMAT_BIT, TYPE, EID @@ -99,7 +99,7 @@ SUBROUTINE BSMIN4 ( PSH, DPSHX, DNXSHX, DNYSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_TH DO I=1,2 WRITE(BUG,8902) I,(BS(I,J),J=1,12) WRITE(BUG,*) - ENDDO + ENDDO WRITE(BUG,*) ENDIF @@ -118,7 +118,7 @@ SUBROUTINE BSMIN4 ( PSH, DPSHX, DNXSHX, DNYSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_TH ID(10) = 21 ID(11) = 22 ID(12) = 23 - + DO I=1,4 DO J=1,3 XB(I,J) = XEB(I,J) diff --git a/Source/EMG/EMG7/MIN4SH.f90 b/Source/EMG/EMG7/MIN4SH.f90 index 7fba490d..699b658a 100644 --- a/Source/EMG/EMG7/MIN4SH.f90 +++ b/Source/EMG/EMG7/MIN4SH.f90 @@ -1,51 +1,51 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MIN4SH ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, NXSH, NYSH, DNXSHG, DNYSHG ) - + ! Generates constrained shapes for use with MIN4 plate element for transverse shear. This is based on the paper referenced in subr ! QPLT2. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, F06, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, TWO, EIGHT - + USE MIN4SH_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MIN4SH' CHARACTER(17*BYTE) :: NAME(2) ! Used for BUG output annotation CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to INTEGER(LONG) :: I,J ! DO loop indices - + REAL(DOUBLE) , INTENT(IN) :: SSI ! Gauss point coordinate REAL(DOUBLE) , INTENT(IN) :: SSJ ! Gauss point coordinate REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! 1-D arrays of differences in x side dimensions (local) @@ -72,7 +72,7 @@ SUBROUTINE MIN4SH ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, NXSH, NYSH, DNXSHG, D REAL(DOUBLE) :: YM ! Intermediate variable used in calculating outputs REAL(DOUBLE) :: YP ! Intermediate variable used in calculating outputs REAL(DOUBLE) :: Y2M ! Intermediate variable used in calculating outputs - + ! ********************************************************************************************************************************** ! Initialize outputs @@ -91,82 +91,82 @@ SUBROUTINE MIN4SH ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, NXSH, NYSH, DNXSHG, D ! Get constants needed from local G.P. geometry. Xij = Xi - Xj and Yij = Yi - Yj where Xi, Yi, etc., are element ! node coords in local element coord system - + X12 = XSD(1) X23 = XSD(2) X34 = XSD(3) X41 = XSD(4) - + Y12 = YSD(1) Y23 = YSD(2) Y34 = YSD(3) Y41 = YSD(4) - + XM = ONE - SSI XP = ONE + SSI YM = ONE - SSJ YP = ONE + SSJ X2M = ONE - SSI*SSI Y2M = ONE - SSJ*SSJ - + ! N5 thru N8 are the virgin shape functions used in finding the constrained shape functions (NXSH, NYSH) - + N5 = X2M*YM/TWO N6 = Y2M*XP/TWO N7 = X2M*YP/TWO N8 = Y2M*XM/TWO - + ! N5X thru N8Y are derivatives of N5 thru N8 wrt xi, eta - + N5X = -SSI*YM N6X = Y2M/TWO N7X = -SSI*YP N8X = -Y2M/TWO - + N5Y = -X2M/TWO N6Y = -SSJ*XP N7Y = X2M/TWO N8Y = -SSJ*XM - + ! Constrained shapes: - + NXSH(1) = (-Y41*N8 + Y12*N5)/EIGHT NXSH(2) = (-Y12*N5 + Y23*N6)/EIGHT NXSH(3) = (-Y23*N6 + Y34*N7)/EIGHT NXSH(4) = (-Y34*N7 + Y41*N8)/EIGHT - + NYSH(1) = (-X41*N8 + X12*N5)/EIGHT NYSH(2) = (-X12*N5 + X23*N6)/EIGHT NYSH(3) = (-X23*N6 + X34*N7)/EIGHT NYSH(4) = (-X34*N7 + X41*N8)/EIGHT - + ! Derivatives of NXSH wrt xi, eta: - + DNXSHG(1,1) = (-Y41*N8X + Y12*N5X)/EIGHT DNXSHG(1,2) = (-Y12*N5X + Y23*N6X)/EIGHT DNXSHG(1,3) = (-Y23*N6X + Y34*N7X)/EIGHT DNXSHG(1,4) = (-Y34*N7X + Y41*N8X)/EIGHT - + DNXSHG(2,1) = (-Y41*N8Y + Y12*N5Y)/EIGHT DNXSHG(2,2) = (-Y12*N5Y + Y23*N6Y)/EIGHT DNXSHG(2,3) = (-Y23*N6Y + Y34*N7Y)/EIGHT DNXSHG(2,4) = (-Y34*N7Y + Y41*N8Y)/EIGHT - + ! Derivatives of NYSH wrt xi, eta: - + DNYSHG(1,1) = (-X41*N8X + X12*N5X)/EIGHT DNYSHG(1,2) = (-X12*N5X + X23*N6X)/EIGHT DNYSHG(1,3) = (-X23*N6X + X34*N7X)/EIGHT DNYSHG(1,4) = (-X34*N7X + X41*N8X)/EIGHT - + DNYSHG(2,1) = (-X41*N8Y + X12*N5Y)/EIGHT DNYSHG(2,2) = (-X12*N5Y + X23*N6Y)/EIGHT DNYSHG(2,3) = (-X23*N6Y + X34*N7Y)/EIGHT DNYSHG(2,4) = (-X34*N7Y + X41*N8Y)/EIGHT - + ! ********************************************************************************************************************************** ! Debug output: - + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(7) > 0)) THEN NAME(1) = 'Nodes 1 thru 4:' @@ -212,7 +212,7 @@ SUBROUTINE MIN4SH ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, NXSH, NYSH, DNXSHG, D WRITE(BUG,*) ENDIF - + RETURN @@ -239,5 +239,5 @@ SUBROUTINE MIN4SH ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, NXSH, NYSH, DNXSHG, D 1305 FORMAT(36X,'Derivatives of constrained shape functions with respect to ET') ! ********************************************************************************************************************************** - + END SUBROUTINE MIN4SH diff --git a/Source/EMG/EMG7/ORDER_GAUSS.f90 b/Source/EMG/EMG7/ORDER_GAUSS.f90 index cbf392fa..88f9bc5d 100644 --- a/Source/EMG/EMG7/ORDER_GAUSS.f90 +++ b/Source/EMG/EMG7/ORDER_GAUSS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ORDER_GAUSS ( KORDER, SSS, HHH ) - + ! Calculates abscissa and weight coefficients for Gaussian integration of order KORDER = 1 to 10. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_GAUSS, MEFE @@ -35,7 +35,7 @@ SUBROUTINE ORDER_GAUSS ( KORDER, SSS, HHH ) USE CONSTANTS_1, ONLY : ZERO, TWO USE CONSTANTS_GAUSS, ONLY : HHV, SSV USE MODEL_STUF, ONLY : EMG_IFE, ERR_SUB_NAM, NUM_EMG_FATAL_ERRS - + USE ORDER_GAUSS_USE_IFs IMPLICIT NONE @@ -52,12 +52,12 @@ SUBROUTINE ORDER_GAUSS ( KORDER, SSS, HHH ) INTEGER(LONG) :: NN ! A term in a computed index into SSS, HHH arrays INTEGER(LONG) :: IBEGIN(11) = (/0, 1, 2, 4, 6, 9,12,16,20,25,30/) - + REAL(DOUBLE) ,INTENT(OUT) :: SSS(MAX_ORDER_GAUSS) ! Gauss abscissa's REAL(DOUBLE) ,INTENT(OUT) :: HHH(MAX_ORDER_GAUSS) ! Gauss weight coeffs - + INTRINSIC MOD - + ! ********************************************************************************************************************************** @@ -73,7 +73,7 @@ SUBROUTINE ORDER_GAUSS ( KORDER, SSS, HHH ) IF ((KORDER >= 1) .AND. (KORDER <= MAX_ORDER_GAUSS)) THEN ! Abscissa and weight coefficients for Gaussian integ. of order KORDER - + IF (KORDER == 1) THEN SSS(1) = ZERO HHH(1) = TWO @@ -97,9 +97,9 @@ SUBROUTINE ORDER_GAUSS ( KORDER, SSS, HHH ) HHH(KK) = HHV(LL) ENDDO ENDIF - + ELSE - + NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 FATAL_ERR = FATAL_ERR + 1 IF (WRT_ERR > 0) THEN @@ -113,7 +113,7 @@ SUBROUTINE ORDER_GAUSS ( KORDER, SSS, HHH ) ENDIF ENDIF CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit - + ENDIF @@ -125,5 +125,5 @@ SUBROUTINE ORDER_GAUSS ( KORDER, SSS, HHH ) ! ********************************************************************************************************************************** - + END SUBROUTINE ORDER_GAUSS diff --git a/Source/EMG/EMG7/ORDER_TETRA.f90 b/Source/EMG/EMG7/ORDER_TETRA.f90 index a05a2020..b7108075 100644 --- a/Source/EMG/EMG7/ORDER_TETRA.f90 +++ b/Source/EMG/EMG7/ORDER_TETRA.f90 @@ -1,55 +1,55 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ORDER_TETRA ( KORDER, SSS_I, SSS_J, SSS_K, HHH_IJK ) - + ! Calculates abscissa and weight coefficients for triangular integration for the TETRA element - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_TETRA USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, SIXTH, QUARTER, HALF, ONE, TWO, TWELVE - + USE ORDER_TETRA_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ORDER_TETRA' INTEGER(LONG), INTENT(IN) :: KORDER ! Triangular integration order to use INTEGER(LONG) :: I ! DO loop index - + REAL(DOUBLE) , INTENT(OUT) :: SSS_I (MAX_ORDER_TETRA) ! Gauss abscissa's REAL(DOUBLE) , INTENT(OUT) :: SSS_J (MAX_ORDER_TETRA) ! Gauss abscissa's REAL(DOUBLE) , INTENT(OUT) :: SSS_K (MAX_ORDER_TETRA) ! Gauss abscissa's REAL(DOUBLE) , INTENT(OUT) :: HHH_IJK(MAX_ORDER_TETRA) ! Gauss weight coeffs REAL(DOUBLE) , PARAMETER :: ALPHA = .58541020D0 ! Intermediate constant REAL(DOUBLE) , PARAMETER :: BETA = .13819660D0 ! Intermediate constant - + ! ********************************************************************************************************************************** @@ -79,7 +79,7 @@ SUBROUTINE ORDER_TETRA ( KORDER, SSS_I, SSS_J, SSS_K, HHH_IJK ) CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit ENDIF - + RETURN @@ -89,5 +89,5 @@ SUBROUTINE ORDER_TETRA ( KORDER, SSS_I, SSS_J, SSS_K, HHH_IJK ) ,/,14X,' TETRAHEDRAL INTEGRATION ORDER MUST BE EITHER 1 OR 4 BUT VALUE IS ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE ORDER_TETRA diff --git a/Source/EMG/EMG7/ORDER_TRIA.f90 b/Source/EMG/EMG7/ORDER_TRIA.f90 index 8e7b574b..452238f6 100644 --- a/Source/EMG/EMG7/ORDER_TRIA.f90 +++ b/Source/EMG/EMG7/ORDER_TRIA.f90 @@ -1,48 +1,48 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ORDER_TRIA ( KORDER, SS_I, SS_J, HH_IJ ) - + ! Calculates abscissa and weight coefficients for triangular integration for the PENTA element - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_TRIA USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, SIXTH, THIRD, HALF, TWO - + USE ORDER_TRIA_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ORDER_TRIA' INTEGER(LONG), INTENT(IN) :: KORDER ! Triangular integration order to use INTEGER(LONG) :: I ! DO loop index - + REAL(DOUBLE) ,INTENT(OUT) :: SS_I(MAX_ORDER_TRIA) ! Triangular integration abscissa's REAL(DOUBLE) ,INTENT(OUT) :: SS_J(MAX_ORDER_TRIA) ! Triangular integration abscissa's REAL(DOUBLE) ,INTENT(OUT) :: HH_IJ(MAX_ORDER_TRIA) ! Triangular integration weight coeffs @@ -53,7 +53,7 @@ SUBROUTINE ORDER_TRIA ( KORDER, SS_I, SS_J, HH_IJ ) REAL(DOUBLE) , PARAMETER :: W1 = .1125D0 ! Intermediate constant REAL(DOUBLE) , PARAMETER :: W2 = .0661970763D0 ! Intermediate constant REAL(DOUBLE) , PARAMETER :: W3 = .0629695902D0 ! Intermediate constant - + ! ********************************************************************************************************************************** @@ -82,16 +82,16 @@ SUBROUTINE ORDER_TRIA ( KORDER, SS_I, SS_J, HH_IJ ) SS_I(5) = A2 ; SS_J(5) = B2 ; HH_IJ(5) = W3 SS_I(6) = B2 ; SS_J(6) = A2 ; HH_IJ(6) = W3 SS_I(7) = B2 ; SS_J(7) = B2 ; HH_IJ(7) = W3 - + ELSE - + WRITE(ERR,1931) SUBR_NAME, KORDER WRITE(F06,1931) SUBR_NAME, KORDER FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit - + ENDIF - + RETURN @@ -101,5 +101,5 @@ SUBROUTINE ORDER_TRIA ( KORDER, SS_I, SS_J, HH_IJ ) ,/,14X,' TRIANGULAR INTEGRATION ORDER MUST BE EITHER 1, 3 OR 7 BUT VALUE IS ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE ORDER_TRIA diff --git a/Source/EMG/EMG7/SHP2DQ.f90 b/Source/EMG/EMG7/SHP2DQ.f90 index 57fc3f1d..c675b18b 100644 --- a/Source/EMG/EMG7/SHP2DQ.f90 +++ b/Source/EMG/EMG7/SHP2DQ.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SSJ, WRT_BUG_THIS_TIME, PSH, DPSHG ) ! Generates shape functions for 2D elements. - + ! The node numbering and axes convention are shown below with XI and ETA ranging from -1 to +1 - + ! ETA ! | ! | @@ -43,14 +43,14 @@ SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI ! . . ! . . ! 1 . . . . . 5 . . . . . 2 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, ERR, F06, WRT_BUG, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_SHPJ_BIT, MEFE, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, TWO, FOUR USE MODEL_STUF, ONLY : EID, EMG_IFE, ERR_SUB_NAM, NUM_EMG_FATAL_ERRS, TYPE - + USE SHP2DQ_USE_IFs IMPLICIT NONE @@ -69,7 +69,7 @@ SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI INTEGER(LONG) :: NODES_4 = 4 ! Number of nodes for one type of element INTEGER(LONG) :: NODES_8 = 8 ! Number of nodes for one type of element - + REAL(DOUBLE) , INTENT(IN) :: SSI ! Gauss point location component REAL(DOUBLE) , INTENT(IN) :: SSJ ! Gauss point location component REAL(DOUBLE) , INTENT(OUT) :: PSH(NUM_NODES) ! Shape functions for all grid points for this Gauss point @@ -79,7 +79,7 @@ SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI REAL(DOUBLE) :: B1,B2,B3 ! Intermediate variables used in calculating outputs REAL(DOUBLE) :: XI2 ! Squares of xi coords REAL(DOUBLE) :: ET2 ! Squares of eta coords - + ! ********************************************************************************************************************************** ! Initialize outputs @@ -95,29 +95,29 @@ SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI ENDDO ! Generate shape functions for 2D element with 4 grid points - + IF (NUM_NODES == NODES_4) THEN - + XI(1) = -ONE XI(2) = ONE XI(3) = ONE XI(4) = -ONE - + ET(1) = -ONE ET(2) = -ONE ET(3) = ONE ET(4) = ONE - + DO I=1,4 PSH(I) = (ONE + SSI*XI(I))*(ONE + SSJ*ET(I))/FOUR DPSHG(1,I) = XI(I)*(ONE + SSJ*ET(I))/FOUR DPSHG(2,I) = ET(I)*(ONE + SSI*XI(I))/FOUR - ENDDO - + ENDDO + ! Generate shape functions and derivatives for 8 node serendipity elem - + ELSE IF (NUM_NODES == NODES_8) THEN - + XI(1) = -ONE XI(2) = ONE XI(3) = ONE @@ -126,7 +126,7 @@ SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI XI(6) = ONE XI(7) = ZERO XI(8) = -ONE - + ET(1) = -ONE ET(2) = -ONE ET(3) = ONE @@ -135,7 +135,7 @@ SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI ET(6) = ZERO ET(7) = ONE ET(8) = ZERO - + DO I=1,8 XI2 = XI(I)*XI(I) ET2 = ET(I)*ET(I) @@ -146,16 +146,16 @@ SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI A3 = ONE - XI2 B3 = ONE - ET2 PSH(I) = ((A1 - A2)*B1 - B2*A1)*XI2*ET2/FOUR + A2*B1*A3*ET2/TWO + B2*A1*B3*XI2/TWO - + DPSHG(1,I) = ((TWO*SSI + XI(I))*B1 - XI(I)*B2)*XI2*ET2/FOUR - SSI*B1*A3*ET2 + XI(I)*B2*B3*XI2/TWO - + DPSHG(2,I) = ((TWO*SSJ + ET(I))*A1 - ET(I)*A2)*XI2*ET2/FOUR - SSJ*A1*B3*XI2 + ET(I)*A2*A3*ET2/TWO - ENDDO - + ENDDO + ! Error: NUM_NODES is not 4 or 8 - + ELSE - + NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 FATAL_ERR = FATAL_ERR + 1 IF (WRT_ERR > 0) THEN @@ -169,12 +169,12 @@ SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI ENDIF ENDIF CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit - + ENDIF - + ! ********************************************************************************************************************************** ! ELDATA output: - + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(7) > 0)) THEN NAME(1) = 'Nodes 1 thru 4:' @@ -210,7 +210,7 @@ SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI ENDDO WRITE(BUG,*) WRITE(BUG,*) - + J = 0 WRITE(BUG,1125) DO I=1,NUM_NODES,4 @@ -219,9 +219,9 @@ SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI ENDDO WRITE(BUG,*) WRITE(BUG,*) - + ENDIF - + RETURN @@ -254,5 +254,5 @@ SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI 1125 FORMAT(42X,'Derivatives of shape functions with respect to ET') ! ********************************************************************************************************************************** - + END SUBROUTINE SHP2DQ diff --git a/Source/EMG/EMG7/SHP3DH.f90 b/Source/EMG/EMG7/SHP3DH.f90 index 4f8c7033..3c1a4d5d 100644 --- a/Source/EMG/EMG7/SHP3DH.f90 +++ b/Source/EMG/EMG7/SHP3DH.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SSJ, SSK, WRT_BUG_THIS_TIME, & PSH, DPSHG ) ! Generates shape functions for 3D HEXA (8 node and 20 node) elements. - + ! The node numbering and axes convention are shown below with XI, ETA, ZI ranging from -1 to +1 - + ! In plane ZI = -1 ! ETA @@ -46,7 +46,7 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ ! . . ! . . ! 1 . . . . . 9 . . . . . 2 - + ! In plane ZI = 0 @@ -64,7 +64,7 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ ! . . ! . . ! 13 . . . . . . . . . . . 14 - + ! In plane ZI = 1 @@ -81,8 +81,8 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ ! . . ----- ! . . ! . . -! 5 . . . . .17 . . . . . 6 - +! 5 . . . . .17 . . . . . 6 + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -91,11 +91,11 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, TWO, FOUR, EIGHT USE MODEL_STUF, ONLY : EID, TYPE - + USE SHP3DH_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SHP3DH' CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR ! Subr that called this subr (used for debug output) CHARACTER(LEN=*) , INTENT(IN) :: IORD_MSG ! Character name of the integration order (used for debug output) @@ -112,7 +112,7 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ INTEGER(LONG) :: NODES_8 = 8 ! Number of nodes for one type of element INTEGER(LONG) :: NODES_20 = 20 ! Number of nodes for one type of element - + REAL(DOUBLE) , INTENT(IN) :: SSI ! Gauss point location component 1 REAL(DOUBLE) , INTENT(IN) :: SSJ ! Gauss point location component 2 REAL(DOUBLE) , INTENT(IN) :: SSK ! Gauss point location component 3 @@ -121,7 +121,7 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ REAL(DOUBLE) :: XI(NUM_NODES) ! Elem node location in isoparametric coord direction 1 REAL(DOUBLE) :: ET(NUM_NODES) ! Elem node location in isoparametric coord direction 2 REAL(DOUBLE) :: ZI(NUM_NODES) ! Elem node location in isoparametric coord direction 3 - + ! ********************************************************************************************************************************** ! Initialize outputs @@ -137,9 +137,9 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ ENDDO ! Generate shape functions and derivatives for 3D element with 8 nodes - + IF (NUM_NODES == NODES_8) THEN - + XI(1) = -ONE ! 1st coord direction XI(2) = ONE XI(3) = ONE @@ -177,13 +177,13 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ DPSHG(1,I) = XI(I)*(ONE + SSJ*ET(I))*(ONE + SSK*ZI(I))/EIGHT DPSHG(2,I) = ET(I)*(ONE + SSI*XI(I))*(ONE + SSK*ZI(I))/EIGHT DPSHG(3,I) = ZI(I)*(ONE + SSI*XI(I))*(ONE + SSJ*ET(I))/EIGHT - ENDDO + ENDDO ! ********************************************************************************************************************************** ! Generate shape functions and derivatives for 3D element with 20 nodes - + ELSE IF (NUM_NODES == NODES_20) THEN - + XI( 1) = -ONE ! 1st coord direction XI( 2) = ONE XI( 3) = ONE @@ -317,19 +317,19 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ ! ********************************************************************************************************************************** ! Error: NUM_NODES is not 8 or 20 - + ELSE - + WRITE(F06,1932) SUBR_NAME, NUM_NODES, EID, TYPE, NODES_8, NODES_20 WRITE(ERR,1932) SUBR_NAME, NUM_NODES, EID, TYPE, NODES_8, NODES_20 FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit - + ENDIF - + ! ********************************************************************************************************************************** ! ELDATA output: - + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(7) > 0)) THEN NAME(1) = 'Nodes 1 thru 4:' @@ -361,7 +361,7 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ ENDDO WRITE(BUG,*) WRITE(BUG,*) - + J = 0 WRITE(BUG,1125) DO I=1,NUM_NODES,4 @@ -370,7 +370,7 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ ENDDO WRITE(BUG,*) WRITE(BUG,*) - + J = 0 WRITE(BUG,1135) DO I=1,NUM_NODES,4 @@ -379,9 +379,9 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ ENDDO WRITE(BUG,*) WRITE(BUG,*) - + ENDIF - + RETURN @@ -414,5 +414,5 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ 1201 FORMAT(22X,A,1X,4(1ES16.6)) ! ********************************************************************************************************************************** - + END SUBROUTINE SHP3DH diff --git a/Source/EMG/EMG7/SHP3DP.f90 b/Source/EMG/EMG7/SHP3DP.f90 index 39f31c34..1f4ce197 100644 --- a/Source/EMG/EMG7/SHP3DP.f90 +++ b/Source/EMG/EMG7/SHP3DP.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ORD_IJ, INT_ORD_K, SSI, SSJ, SSK, & WRT_BUG_THIS_TIME, PSH, DPSHG ) ! Generates shape functions for 3D PENTA (6 node and 15 node) elements. - + ! The node numbering and axes convention are shown below with XI, ET ranging from 0 to 1 and ZI ranging from -1 to 1 @@ -37,20 +37,20 @@ SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ ! | ! | ! 4| -! . | . -! . | . -! . | . -! . | . -! . | . -! 13 | 15. +! . | . +! . | . +! . | . +! . | . +! . | . +! 13 | 15. ! . | . ! . | . ! . | . -! . 10| . -! 5. . . . . . . . . . . .| . 14 . . . . . . . . . . . . .6 -! | . | . | -! | . | . | -! | . | . | +! . 10| . +! 5. . . . . . . . . . . .| . 14 . . . . . . . . . . . . .6 +! | . | . | +! | . | . | +! | . | . | ! | . | . | ! | . | . | ! | . 1| . | @@ -64,12 +64,12 @@ SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ ! . | . . | ET ! . | . . | ! XI | . . | -! 2| . . . . . . . . . . . . . 8 . . . . . . . . . . . . | 3 - - - - - +! 2| . . . . . . . . . . . . . 8 . . . . . . . . . . . . | 3 + + + + + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -78,11 +78,11 @@ SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, TWO, HALF USE MODEL_STUF, ONLY : EID, TYPE - + USE SHP3DP_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SHP3DP' CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR ! Subr that called this subr (used for debug output) CHARACTER(LEN=*) , INTENT(IN) :: IORD_MSG ! Character name of the integration order (used for debug output) @@ -99,14 +99,14 @@ SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ INTEGER(LONG) :: NODES_6 = 6 ! Number of nodes for one type of element INTEGER(LONG) :: NODES_15 = 15 ! Number of nodes for one type of element - + REAL(DOUBLE) , INTENT(IN) :: SSI ! Gauss point location component 1 REAL(DOUBLE) , INTENT(IN) :: SSJ ! Gauss point location component 2 REAL(DOUBLE) , INTENT(IN) :: SSK ! Gauss point location component 3 REAL(DOUBLE) , INTENT(OUT) :: PSH(NUM_NODES) ! Shape functions for all grid points for this Gauss point REAL(DOUBLE) , INTENT(OUT) :: DPSHG(3,NUM_NODES)! Derivatives of PSH with respect to xi, eta, zi. REAL(DOUBLE) :: PHI ! Intermediate variable in calculating DPSHG - + ! ********************************************************************************************************************************** ! Initialize outputs @@ -122,11 +122,11 @@ SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ ENDDO ! Generate shape functions and derivatives for 3D element with 4 nodes - + IF (NUM_NODES == NODES_6) THEN PHI = ONE - SSI - SSJ - + PSH(1) = HALF*PHI*(ONE - SSK) ; PSH(4) = HALF*PHI*(ONE + SSK) PSH(2) = HALF*SSI*(ONE - SSK) ; PSH(5) = HALF*SSI*(ONE + SSK) PSH(3) = HALF*SSJ*(ONE - SSK) ; PSH(6) = HALF*SSJ*(ONE + SSK) @@ -145,9 +145,9 @@ SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ ! ********************************************************************************************************************************** ! Generate shape functions and derivatives for 3D element with 20 nodes - + ELSE IF (NUM_NODES == NODES_15) THEN - + PHI = ONE - SSI - SSJ PSH( 1) = PHI*(ONE - SSK)*(PHI - ONE - HALF*SSK) ; PSH( 4) = PHI*(ONE + SSK)*(PHI - ONE + HALF*SSK) @@ -199,19 +199,19 @@ SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ ! ********************************************************************************************************************************** ! Error: NUM_NODES is not 6 or 15 - + ELSE - + WRITE(ERR,1932) SUBR_NAME, NUM_NODES, EID, TYPE, NODES_6, NODES_15 WRITE(F06,1932) SUBR_NAME, NUM_NODES, EID, TYPE, NODES_6, NODES_15 FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit - + ENDIF - + ! ********************************************************************************************************************************** ! ELDATA output: - + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(7) > 0)) THEN NAME(1) = 'Nodes 1 thru 3:' @@ -243,7 +243,7 @@ SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ ENDDO WRITE(BUG,*) WRITE(BUG,*) - + J = 0 WRITE(BUG,1125) DO I=1,NUM_NODES,3 @@ -252,7 +252,7 @@ SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ ENDDO WRITE(BUG,*) WRITE(BUG,*) - + J = 0 WRITE(BUG,1135) DO I=1,NUM_NODES,3 @@ -263,7 +263,7 @@ SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ WRITE(BUG,*) ENDIF - + RETURN @@ -296,5 +296,5 @@ SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ 1201 FORMAT(30X,A,1X,3(1ES16.6)) ! ********************************************************************************************************************************** - + END SUBROUTINE SHP3DP diff --git a/Source/EMG/EMG7/SHP3DT.f90 b/Source/EMG/EMG7/SHP3DT.f90 index c944e89a..1a3761ac 100644 --- a/Source/EMG/EMG7/SHP3DT.f90 +++ b/Source/EMG/EMG7/SHP3DT.f90 @@ -1,48 +1,48 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SHP3DT ( GAUSS_PT, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SSJ, SSK, WRT_BUG_THIS_TIME, PSH, & DPSHG ) ! Generates shape functions for 3D TETRA (4 node and 10 node) elements. - + ! The node numbering and axes convention are shown below with XI, ET, ZI ranging from 0 to 1 - + ! ZI -! . +! . ! . ! . ! .4 ! . . -! . . . -! . . . -! . . . -! . . . -! . . . +! . . . +! . . . +! . . . +! . . . +! . . . ! . .8 . ! . . . ! . . . @@ -56,13 +56,13 @@ SUBROUTINE SHP3DT ( GAUSS_PT, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SS ! . . . . ! . .5 7. . ! . . . . -! . . . . -! . . . . -! . . . . +! . . . . +! . . . . +! . . . . ! . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .ET -! . 2 6 3 -! . -! . +! . 2 6 3 +! . +! . ! . ! XI @@ -73,11 +73,11 @@ SUBROUTINE SHP3DT ( GAUSS_PT, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SS USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, TWO, FOUR USE MODEL_STUF, ONLY : EID, TYPE - + USE SHP3DT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SHP3DT' CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR ! Subr that called this subr (used for debug output) CHARACTER(LEN=*) , INTENT(IN) :: IORD_MSG ! Character name of the integration order (used for debug output) @@ -91,14 +91,14 @@ SUBROUTINE SHP3DT ( GAUSS_PT, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SS INTEGER(LONG) :: NODES_4 = 4 ! Number of nodes for one type of element INTEGER(LONG) :: NODES_10 = 10 ! Number of nodes for one type of element - + REAL(DOUBLE) , INTENT(IN) :: SSI ! Gauss point location component 1 REAL(DOUBLE) , INTENT(IN) :: SSJ ! Gauss point location component 2 REAL(DOUBLE) , INTENT(IN) :: SSK ! Gauss point location component 3 REAL(DOUBLE) , INTENT(OUT) :: PSH(NUM_NODES) ! Shape functions for all grid points for this Gauss point REAL(DOUBLE) , INTENT(OUT) :: DPSHG(3,NUM_NODES)! Derivatives of PSH with respect to xi, eta, zi. REAL(DOUBLE) :: PHI ! Intermediate variable in calculating DPSHG - + ! ********************************************************************************************************************************** ! Initialize outputs @@ -114,9 +114,9 @@ SUBROUTINE SHP3DT ( GAUSS_PT, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SS ENDDO ! Generate shape functions and derivatives for 3D element with 4 nodes - + IF (NUM_NODES == NODES_4) THEN - + PSH(1) = 1 - SSI - SSJ - SSK PSH(2) = SSI PSH(3) = SSJ @@ -129,9 +129,9 @@ SUBROUTINE SHP3DT ( GAUSS_PT, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SS ! ********************************************************************************************************************************** ! Generate shape functions and derivatives for 3D element with 10 nodes - + ELSE IF (NUM_NODES == NODES_10) THEN - + PHI = ONE - SSI - SSJ - SSK PSH( 1) = PHI*(TWO*PHI - ONE) @@ -164,19 +164,19 @@ SUBROUTINE SHP3DT ( GAUSS_PT, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SS ! ********************************************************************************************************************************** ! Error: NUM_NODES is not 4 or 10 - + ELSE - + WRITE(ERR,1932) SUBR_NAME, NUM_NODES, EID, TYPE, NODES_4, NODES_10 WRITE(F06,1932) SUBR_NAME, NUM_NODES, EID, TYPE, NODES_4, NODES_10 FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit - + ENDIF - + ! ********************************************************************************************************************************** ! ELDATA output: - + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(7) > 0)) THEN WRITE(BUG,1101) ELDT_BUG_SHPJ_BIT, TYPE, EID, CALLING_SUBR @@ -223,7 +223,7 @@ SUBROUTINE SHP3DT ( GAUSS_PT, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SS ENDDO WRITE(BUG,*) WRITE(BUG,*) - + J = 0 WRITE(BUG,1125) DO I=1,NUM_NODES,5 @@ -232,7 +232,7 @@ SUBROUTINE SHP3DT ( GAUSS_PT, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SS ENDDO WRITE(BUG,*) WRITE(BUG,*) - + J = 0 WRITE(BUG,1135) DO I=1,NUM_NODES,5 @@ -245,7 +245,7 @@ SUBROUTINE SHP3DT ( GAUSS_PT, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SS ENDIF ENDIF - + RETURN @@ -280,5 +280,5 @@ SUBROUTINE SHP3DT ( GAUSS_PT, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SS 1202 FORMAT(22X,A,1X,5(1ES16.6)) ! ********************************************************************************************************************************** - + END SUBROUTINE SHP3DT diff --git a/Source/EMG/EMG8/JAC2D.f90 b/Source/EMG/EMG8/JAC2D.f90 index 1400a4f9..a375670f 100644 --- a/Source/EMG/EMG8/JAC2D.f90 +++ b/Source/EMG/EMG8/JAC2D.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE JAC2D ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) - + ! Computes Jacobian for 2D elements with 4 grid points and quadratic serendipity shape functions. Also used for an 8 ! nodel element when the 4 mid side nodes are assumed to be at the middle of the sides (as with the DKQ element which ! uses mid side nodes for intermediate calculations) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, ERR, F06, WRT_BUG, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_SHPJ_BIT, MEFE @@ -37,17 +37,17 @@ SUBROUTINE JAC2D ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) USE CONSTANTS_1, ONLY : ZERO, ONE, FOUR USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : EID, EMG_IFE, EMG_RFE, ERR_SUB_NAM, NUM_EMG_FATAL_ERRS, TYPE - + USE JAC2D_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'JAC2D' CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to INTEGER(LONG) :: I,J ! DO loop indices - + REAL(DOUBLE) , INTENT(IN) :: SSI ! A Gauss point coord. REAL(DOUBLE) , INTENT(IN) :: SSJ ! A Gauss point coord. REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! 1-D arrays of differences in x side dimensions (local) @@ -56,7 +56,7 @@ SUBROUTINE JAC2D ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) REAL(DOUBLE) , INTENT(OUT) :: JAC(2,2) ! 2 x 2 Jacobian matrix REAL(DOUBLE) , INTENT(OUT) :: JACI(2,2) ! 2 x 2 inverse of JAC REAL(DOUBLE) :: EPS1 ! A small number to compare real zero - + ! ********************************************************************************************************************************** ! Initialize outputs @@ -71,21 +71,21 @@ SUBROUTINE JAC2D ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) ENDDO EPS1 = EPSIL(1) - + JAC(1,1) = (-(ONE - SSJ)*XSD(1) + (ONE + SSJ)*XSD(3))/FOUR JAC(1,2) = (-(ONE - SSJ)*YSD(1) + (ONE + SSJ)*YSD(3))/FOUR JAC(2,1) = ( (ONE - SSI)*XSD(4) - (ONE + SSI)*XSD(2))/FOUR JAC(2,2) = ( (ONE - SSI)*YSD(4) - (ONE + SSI)*YSD(2))/FOUR DETJ = JAC(1,1)*JAC(2,2) - JAC(1,2)*JAC(2,1) - + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(7) > 0)) THEN WRITE(BUG,1100) ELDT_BUG_SHPJ_BIT, TYPE, EID WRITE(BUG,1101) SSI, SSJ WRITE(BUG,1102) DO I=1,2 WRITE(BUG,1103) (JAC(I,J),J=1,2) - ENDDO + ENDDO WRITE(BUG,*) WRITE(BUG,*) WRITE(BUG,1104) DETJ @@ -94,19 +94,19 @@ SUBROUTINE JAC2D ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) ENDIF ! If DETJ is not zero, continue. Else, write error and stop: - + IF (DETJ > EPS1) THEN - + JACI(1,1) = JAC(2,2)/DETJ JACI(1,2) = -JAC(1,2)/DETJ JACI(2,1) = -JAC(2,1)/DETJ JACI(2,2) = JAC(1,1)/DETJ - + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(7) > 0)) THEN WRITE(BUG,1105) DO I=1,2 WRITE(BUG,1103) (JACI(I,J),J=1,2) - ENDDO + ENDDO WRITE(BUG,*) ENDIF @@ -126,7 +126,7 @@ SUBROUTINE JAC2D ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) RETURN ENDIF - + RETURN @@ -149,8 +149,8 @@ SUBROUTINE JAC2D ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) 1104 FORMAT(52X,'Determinant of the Jacobian:',/,56X,1ES16.6) 1105 FORMAT(51X,'Inverse of the Jacobian matrix:') - + ! ********************************************************************************************************************************** - + END SUBROUTINE JAC2D diff --git a/Source/EMG/EMG8/JAC3D.f90 b/Source/EMG/EMG8/JAC3D.f90 index ae7504db..0211e0b6 100644 --- a/Source/EMG/EMG8/JAC3D.f90 +++ b/Source/EMG/EMG8/JAC3D.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE JAC3D ( SSI, SSJ, SSK, DPSHG, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) - + ! Computes Jacobian for 3D elements. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR, BUG, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR @@ -36,17 +36,17 @@ SUBROUTINE JAC3D ( SSI, SSJ, SSK, DPSHG, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : EID, ELGP, NUM_EMG_FATAL_ERRS, TYPE, XEL USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE JAC3D_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'JAC3D' CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to INTEGER(LONG) :: I,J ! DO loop indices - + REAL(DOUBLE) , INTENT(IN) :: SSI ! A Gauss point coord. REAL(DOUBLE) , INTENT(IN) :: SSJ ! A Gauss point coord. REAL(DOUBLE) , INTENT(IN) :: SSK ! A Gauss point coord. @@ -59,7 +59,7 @@ SUBROUTINE JAC3D ( SSI, SSJ, SSK, DPSHG, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) REAL(DOUBLE) :: EPS1 ! A small number to compare real zero REAL(DOUBLE) :: XL(ELGP,3) ! Array of local element coords for the element (note: cannot use XEL ! directly since it is dimensioned MELGP x 3, not ELGP x 3) - + ! ********************************************************************************************************************************** ! Initialize outputs @@ -74,7 +74,7 @@ SUBROUTINE JAC3D ( SSI, SSJ, SSK, DPSHG, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) ENDDO EPS1 = EPSIL(1) - + DO I=1,ELGP ! Use XL array since XEL is dimensioned MELGP x 3, not ELGP x 3 DO J=1,3 XL(I,J) = XEL(I,J) @@ -98,13 +98,13 @@ SUBROUTINE JAC3D ( SSI, SSJ, SSK, DPSHG, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) DETJ = JAC(1,1)*(JAC(2,2)*JAC(3,3) - JAC(2,3)*JAC(3,2)) & - JAC(1,2)*(JAC(2,1)*JAC(3,3) - JAC(2,3)*JAC(3,1)) & + JAC(1,3)*(JAC(2,1)*JAC(3,2) - JAC(2,2)*JAC(3,1)) - + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(7) > 0)) THEN WRITE(BUG,1101) SSI, SSJ, SSK WRITE(BUG,1102) DO I=1,3 WRITE(BUG,1103) (JAC(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) WRITE(BUG,*) WRITE(BUG,1104) DETJ @@ -113,9 +113,9 @@ SUBROUTINE JAC3D ( SSI, SSJ, SSK, DPSHG, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) ENDIF ! If DETJ is not zero, continue. Else, write error and return: - + IF (DETJ > EPS1) THEN - + JACI(1,1) = B(1,1)/DETJ JACI(1,2) = -B(2,1)/DETJ JACI(1,3) = B(3,1)/DETJ @@ -127,12 +127,12 @@ SUBROUTINE JAC3D ( SSI, SSJ, SSK, DPSHG, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) JACI(3,1) = B(1,3)/DETJ JACI(3,2) = -B(2,3)/DETJ JACI(3,3) = B(3,3)/DETJ - + IF ((WRT_BUG_THIS_TIME == 'Y') .AND. (WRT_BUG(7) > 0)) THEN WRITE(BUG,1105) DO I=1,3 WRITE(BUG,1103) (JACI(I,J),J=1,3) - ENDDO + ENDDO WRITE(BUG,*) WRITE(BUG,*) WRITE(BUG,1106) @@ -147,7 +147,7 @@ SUBROUTINE JAC3D ( SSI, SSJ, SSK, DPSHG, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) RETURN ENDIF - + RETURN @@ -178,5 +178,5 @@ SUBROUTINE JAC3D ( SSI, SSJ, SSK, DPSHG, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) ! ********************************************************************************************************************************** - + END SUBROUTINE JAC3D diff --git a/Source/EMG/EMG8/MATERIAL_PROPS_2D.f90 b/Source/EMG/EMG8/MATERIAL_PROPS_2D.f90 index a13af07d..9bc26f16 100644 --- a/Source/EMG/EMG8/MATERIAL_PROPS_2D.f90 +++ b/Source/EMG/EMG8/MATERIAL_PROPS_2D.f90 @@ -1,57 +1,57 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) - + ! Calculates stress/strain material matrices for isotropic and orthotropic plane stress shell elements with 3 different material ! properties (membrane, bending, transverse shear, bending/membrane coupling) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, WRT_ERR - USE SCONTR, ONLY : BLNK_SUB_NAM, MEFE, MEMATC + USE SCONTR, ONLY : BLNK_SUB_NAM, MEFE, MEMATC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE USE PARAMS, ONLY : EPSIL, QUAD4TYP USE MODEL_STUF, ONLY : ALPVEC, EID, EMG_IFE, EMG_RFE, ERR_SUB_NAM, EB, EBM, EM, ET, NUM_EMG_FATAL_ERRS, EMAT, & MTRL_TYPE, QUAD_DELTA, RHO, ULT_STRE, ULT_STRN, THETAM, TREF, TYPE use debug_parameters - + USE MATERIAL_PROPS_2D_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MATERIAL_PROPS_2D' CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not CHARACTER(16*BYTE) :: MESSAG ! Part of message printed if material type is invalid INTEGER(LONG) :: IERROR = 0 ! Local error indicator meaning some calcs cannot be done INTEGER(LONG) :: PROG_ERR = 0 ! Coding error indicator for invalid material type - INTEGER(LONG) :: I,j ! DO loop index + INTEGER(LONG) :: I,j ! DO loop index + - REAL(DOUBLE) :: ALPHA ! Isotropic coefficient of thermal expansion REAL(DOUBLE) :: ALPHA1 ! Orthotropic/Anisotropic coeff of thermal expansion in direction 1 REAL(DOUBLE) :: ALPHA2 ! Orthotropic/Anisotropic coeff of thermal expansion in direction 2 @@ -75,7 +75,7 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ! ********************************************************************************************************************************** EPS1 = EPSIL(1) - + ! ********************************************************************************************************************************** ! Initialize arrays @@ -85,13 +85,13 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) EM(I,J) = ZERO EB(I,J) = ZERO ENDDO - ENDDO + ENDDO DO I=1,2 ! Material transverse shear matrix DO J=1,2 ET(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,6 ! Vector of CTE's DO J=1,MEMATC @@ -100,7 +100,7 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ENDDO ! ********************************************************************************************************************************** -! In-plane stress material props. +! In-plane stress material props. mem: IF (MTRL_TYPE(1) /= 0) THEN @@ -124,7 +124,7 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ULT_STRN(3,1) = ZERO ULT_STRN(4,1) = ZERO ULT_STRN(7,1) = ZERO - + IF (DABS(E) > EPS1) THEN ULT_STRN(1,1) = ULT_STRE(1,1)/E ULT_STRN(2,1) = ULT_STRE(2,1)/E @@ -195,7 +195,7 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ULT_STRN(3,1) = ZERO ULT_STRN(4,1) = ZERO ULT_STRN(7,1) = ZERO - + IF (DABS(EM(1,1)) > EPS1) THEN ULT_STRN(1,1) = ULT_STRE(1,1)/EM(1,1) ULT_STRN(2,1) = ULT_STRE(2,1)/EM(1,1) @@ -211,8 +211,8 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ENDIF ALPVEC(1,1) = ALPHA1 - ALPVEC(2,1) = ALPHA2 - ALPVEC(3,1) = ALPHA3 + ALPVEC(2,1) = ALPHA2 + ALPVEC(3,1) = ALPHA3 ELSE IF (MTRL_TYPE(1) == 8) THEN ! Orthotropic properties ! ---------------------- ! Remove the following l.c. code when MIN4T prob w/ ortho mat'l is fixed @@ -227,7 +227,7 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ALPHA1 = EMAT( 8,1) ALPHA2 = EMAT( 9,1) TREF(1) = EMAT(10,1) - + IF (EMAT(18,1) == 0) THEN ! This indicates allowables on the MAT8 entry were stress allowables ULT_STRE(1,1) = EMAT(11,1) ! Dir 1 tension allowable @@ -349,7 +349,7 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ! ********************************************************************************************************************************** ! Bending stress material props. - + bend: IF (MTRL_TYPE(2) /= 0) THEN IF (MTRL_TYPE(2) == 1) THEN ! Isotropic properties @@ -372,7 +372,7 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ULT_STRN(3,2) = ZERO ULT_STRN(4,2) = ZERO ULT_STRN(7,2) = ZERO - + IF (DABS(E) > EPS1) THEN ULT_STRN(1,2) = ULT_STRE(1,2)/E ULT_STRN(2,2) = ULT_STRE(2,2)/E @@ -386,19 +386,19 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) DEN1 = ONE - NU*NU IF (DABS(DEN1) > EPS1) THEN ! If 1-NU^2 = 0, error and stop. - + E0 = E/DEN1 EB(1,1) = E0 EB(2,2) = EB(1,1) EB(3,3) = G EB(1,2) = E0*NU EB(2,1) = EB(1,2) - + ALPVEC(1,2) = ALPHA ALPVEC(2,2) = ALPHA - + ELSE - + NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 IERROR = IERROR + 1 IF (WRT_ERR > 0) THEN @@ -443,7 +443,7 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ULT_STRN(3,2) = ZERO ULT_STRN(4,2) = ZERO ULT_STRN(7,2) = ZERO - + IF (DABS(EM(1,1)) > EPS1) THEN ULT_STRN(1,2) = ULT_STRE(1,2)/EM(1,1) ULT_STRN(2,2) = ULT_STRE(2,2)/EM(1,1) @@ -459,8 +459,8 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ENDIF ALPVEC(1,2) = ALPHA1 - ALPVEC(2,2) = ALPHA2 - ALPVEC(3,2) = ALPHA3 + ALPVEC(2,2) = ALPHA2 + ALPVEC(3,2) = ALPHA3 ELSE IF (MTRL_TYPE(2) == 8) THEN ! Orthotropic properties ! ---------------------- @@ -607,11 +607,11 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ET(1,1) = G ET(2,2) = ET(1,1) - + ALPVEC(1,3) = ALPHA ALPVEC(2,3) = ALPHA - ULT_STRE(8,3) = EMAT(19,3) ! EMAT(19,3) is either same as EMAT(10,3) or SB (if PCOMP) + ULT_STRE(8,3) = EMAT(19,3) ! EMAT(19,3) is either same as EMAT(10,3) or SB (if PCOMP) ULT_STRE(9,3) = ULT_STRE(8,3) IF (DABS(G) > EPS1) THEN @@ -626,7 +626,7 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ET(2,2) = EMAT( 4,3) ET(2,1) = ET(1,2) - ULT_STRE(8,3) = EMAT(19,3) ! EMAT(19,3) is either same as EMAT(10,3) or SB (if PCOMP) + ULT_STRE(8,3) = EMAT(19,3) ! EMAT(19,3) is either same as EMAT(10,3) or SB (if PCOMP) ULT_STRE(9,3) = ULT_STRE(8,3) IF (DABS(ET(1,1)) > EPS1) THEN @@ -646,9 +646,9 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) IF (EMAT(18,3) == 0) THEN - ULT_STRE(8,3) = EMAT(19,3) ! EMAT(19,3) is either same as EMAT(10,3) or SB (if PCOMP) + ULT_STRE(8,3) = EMAT(19,3) ! EMAT(19,3) is either same as EMAT(10,3) or SB (if PCOMP) ULT_STRE(9,3) = ULT_STRE(8,3) - + ULT_STRN(8,3) = ZERO ULT_STRN(9,3) = ZERO @@ -658,7 +658,7 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) IF (DABS(G2Z) > EPS1) THEN ULT_STRN(9,3) = ULT_STRE(9,3)/G2Z - ENDIF + ENDIF ELSE @@ -686,7 +686,7 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ! ********************************************************************************************************************************** ! Bending/membrane coupling stress material props. - + coup: IF (MTRL_TYPE(4) /= 0) THEN IF (MTRL_TYPE(4) == 1) THEN ! Isotropic properties @@ -709,7 +709,7 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ULT_STRN(3,2) = ZERO ULT_STRN(4,2) = ZERO ULT_STRN(7,2) = ZERO - + IF (DABS(E) > EPS1) THEN ULT_STRN(1,4) = ULT_STRE(1,4)/E ULT_STRN(2,4) = ULT_STRE(2,4)/E @@ -723,19 +723,19 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) DEN1 = ONE - NU*NU IF (DABS(DEN1) > EPS1) THEN ! If 1-NU^2 = 0, error and stop. - + E0 = E/DEN1 EBM(1,1) = E0 EBM(2,2) = EBM(1,1) EBM(3,3) = G EBM(1,2) = E0*NU EBM(2,1) = EBM(1,2) - + ALPVEC(1,4) = ALPHA ALPVEC(2,4) = ALPHA - + ELSE - + NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 IERROR = IERROR + 1 IF (WRT_ERR > 0) THEN @@ -780,7 +780,7 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ULT_STRN(3,4) = ZERO ULT_STRN(4,4) = ZERO ULT_STRN(7,4) = ZERO - + IF (DABS(EM(1,1)) > EPS1) THEN ULT_STRN(1,4) = ULT_STRE(1,4)/EM(1,1) ULT_STRN(2,4) = ULT_STRE(2,4)/EM(1,1) @@ -796,8 +796,8 @@ SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) ENDIF ALPVEC(1,4) = ALPHA1 - ALPVEC(2,4) = ALPHA2 - ALPVEC(3,4) = ALPHA3 + ALPVEC(2,4) = ALPHA2 + ALPVEC(3,4) = ALPHA3 ELSE IF (MTRL_TYPE(4) == 8) THEN ! Orthotropic properties ! ---------------------- diff --git a/Source/EMG/EMG8/MATERIAL_PROPS_3D.f90 b/Source/EMG/EMG8/MATERIAL_PROPS_3D.f90 index eb099070..a608d06d 100644 --- a/Source/EMG/EMG8/MATERIAL_PROPS_3D.f90 +++ b/Source/EMG/EMG8/MATERIAL_PROPS_3D.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATERIAL_PROPS_3D ( WRITE_WARN ) - + ! Calculates material stress/strain matrices for isotropic or anisotropic 3-D solid elements - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR @@ -35,19 +35,19 @@ SUBROUTINE MATERIAL_PROPS_3D ( WRITE_WARN ) USE CONSTANTS_1, ONLY : ZERO, ONE, TWO USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : ALPVEC, EID, ES, EMAT, NUM_EMG_FATAL_ERRS, MTRL_TYPE, RHO, ULT_STRE, ULT_STRN, TREF, TYPE - + USE MATERIAL_PROPS_3D_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MATERIAL_PROPS_3D' CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not INTEGER(LONG) :: IERROR = 0 ! Local error indicator - INTEGER(LONG) :: I,J ! DO loop indices + INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: K ! Counter - + REAL(DOUBLE) :: ALPHA ! Isotropic coefficient of thermal expansion REAL(DOUBLE) :: DEN1 ! An intermaediate variable in calculating outputs REAL(DOUBLE) :: DEN2 ! An intermaediate variable in calculating outputs @@ -64,7 +64,7 @@ SUBROUTINE MATERIAL_PROPS_3D ( WRITE_WARN ) ! ********************************************************************************************************************************** EPS1 = EPSIL(1) - + DO I=1,6 ! 3D material matrix DO J=1,6 ES(I,J) = ZERO @@ -180,7 +180,7 @@ SUBROUTINE MATERIAL_PROPS_3D ( WRITE_WARN ) ALPVEC(6,1) = EMAT(28,1) TREF(1) = EMAT(29,1) - + DO I=1,9 ULT_STRE(I,1) = ZERO ULT_STRN(I,1) = ZERO diff --git a/Source/EMG/EMG8/MATGET.f90 b/Source/EMG/EMG8/MATGET.f90 index 08a17efa..8d9765f6 100644 --- a/Source/EMG/EMG8/MATGET.f90 +++ b/Source/EMG/EMG8/MATGET.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATGET ( A, NROWA, NCOLA, BEG_ROW, BEG_COL, NROW, NCOL, B ) - + ! Gets a NROW x NCOL partition of a matrix starting at row BEG_ROW and column BEG_COL - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + USE MATGET_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MATGET' INTEGER(LONG), INTENT(IN) :: BEG_COL ! Beginning row of input matrix to get partition from @@ -50,10 +50,10 @@ SUBROUTINE MATGET ( A, NROWA, NCOLA, BEG_ROW, BEG_COL, NROW, NCOL, B ) INTEGER(LONG) :: ICNT0 ! Part of ICNT INTEGER(LONG) :: II ! Counter - + REAL(DOUBLE) , INTENT(IN) :: A(NROWA*NCOLA) ! Input matrix from which a partition will be extracted REAL(DOUBLE) , INTENT(OUT) :: B(NROW*NCOL) ! Output matrix, which is the partition extracted from A - + ! ********************************************************************************************************************************** @@ -71,13 +71,13 @@ SUBROUTINE MATGET ( A, NROWA, NCOLA, BEG_ROW, BEG_COL, NROW, NCOL, B ) ICNT = ICNT0 + I II = II + 1 B(II) = A(ICNT) - ENDDO - ENDDO - + ENDDO + ENDDO + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE MATGET diff --git a/Source/EMG/EMG8/MATL_TRANSFORM_MATRIX.f90 b/Source/EMG/EMG8/MATL_TRANSFORM_MATRIX.f90 index 2b968dbc..5044a61d 100644 --- a/Source/EMG/EMG8/MATL_TRANSFORM_MATRIX.f90 +++ b/Source/EMG/EMG8/MATL_TRANSFORM_MATRIX.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MATL_TRANSFORM_MATRIX ( T21, TS ) @@ -39,7 +39,7 @@ SUBROUTINE MATL_TRANSFORM_MATRIX ( T21, TS ) ! | cos(THETA) sin(THETA) 0 | ! T21 = | -sin(THETA) cos(THETA) 0 | (2) ! | 0 0 1 | - + ! The stresses in any coord sys is a tensor (call it S) that is written as: ! ~ ! | Sxx Sxy Sxz | @@ -56,7 +56,7 @@ SUBROUTINE MATL_TRANSFORM_MATRIX ( T21, TS ) ! The terms in this triple matrix product can be used to rewrite the stress transformation with the 6 independent stresses ! in a vector (instead of as the 3x3 stress tensor). To this end, define the vector: -! | Sxx | +! | Sxx | ! | Syy | ! S = | Szz | (5) ! | Sxy | @@ -76,7 +76,7 @@ SUBROUTINE MATL_TRANSFORM_MATRIX ( T21, TS ) ! matrix product (symbolically) in eqn (4) and then rewriting the 6 independent of the resulting 9 equations in the 6x6 ! matrix form of (6). -! Matrix TS can also be used to rotate the material matrices from coord sys 1 to coord sys 2 as follows. +! Matrix TS can also be used to rotate the material matrices from coord sys 1 to coord sys 2 as follows. ! The stress-strain relations in coord sys 1 and 2 are: ! S1 = E1*e1 @@ -100,10 +100,10 @@ SUBROUTINE MATL_TRANSFORM_MATRIX ( T21, TS ) ! ------------------ ! | | -! | E2 = TS*E1*TS' | (11) +! | E2 = TS*E1*TS' | (11) ! | | ! ------------------ - + ! ---------------------------------------------------------------------------------------------------------------------------------- USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE @@ -136,32 +136,32 @@ SUBROUTINE MATL_TRANSFORM_MATRIX ( T21, TS ) ! Row 1 of TS: - TS(1,1)= A11*A11 ; TS(1,2)= A21*A21 ; TS(1,3)= A31*A31; + TS(1,1)= A11*A11 ; TS(1,2)= A21*A21 ; TS(1,3)= A31*A31; TS(1,4)= 2*A11*A21 ; TS(1,5)= 2*A21*A31 ; TS(1,6)= 2*A11*A31 ! Row 2 of TS: - TS(2,1)= A12*A12 ; TS(2,2)= A22*A22 ; TS(2,3)= A32*A32; + TS(2,1)= A12*A12 ; TS(2,2)= A22*A22 ; TS(2,3)= A32*A32; TS(2,4)= 2*A12*A22 ; TS(2,5)= 2*A22*A32 ; TS(2,6)= 2*A12*A32 ! Row 3 of TS: - TS(3,1)= A13*A13 ; TS(3,2)= A23*A23 ; TS(3,3)= A33*A33; + TS(3,1)= A13*A13 ; TS(3,2)= A23*A23 ; TS(3,3)= A33*A33; TS(3,4)= 2*A13*A23 ; TS(3,5)= 2*A23*A33 ; TS(3,6)= 2*A13*A33 ! Row 4 of TS: - TS(4,1)= A11*A12 ; TS(4,2)= A21*A22 ; TS(4,3)= A31*A32; + TS(4,1)= A11*A12 ; TS(4,2)= A21*A22 ; TS(4,3)= A31*A32; TS(4,4)= A11*A22+A21*A12 ; TS(4,5)= A21*A32+A31*A22 ; TS(4,6)= A11*A32+A31*A12 ! Row 5 of TS: - TS(5,1)= A12*A13 ; TS(5,2)= A22*A23 ; TS(5,3)= A32*A33; + TS(5,1)= A12*A13 ; TS(5,2)= A22*A23 ; TS(5,3)= A32*A33; TS(5,4)= A12*A23+A22*A13 ; TS(5,5)= A22*A33+A32*A23 ; TS(5,6)= A12*A33+A32*A13 ! Row 6 of TS: - TS(6,1)= A13*A11 ; TS(6,2)= A23*A21 ; TS(6,3)= A33*A31; + TS(6,1)= A13*A11 ; TS(6,2)= A23*A21 ; TS(6,3)= A33*A31; TS(6,4)= A13*A21+A23*A11 ; TS(6,5)= A23*A31+A33*A21 ; TS(6,6)= A13*A31+A33*A11 @@ -171,9 +171,9 @@ SUBROUTINE MATL_TRANSFORM_MATRIX ( T21, TS ) ! ********************************************************************************************************************************** 99664 format(' Transformation matrix TS: transforms 6 stress and 6x6 matl matrices from matl to elem axes') -99667 format(3(1es14.6),4x,3(1es14.6)) +99667 format(3(1es14.6),4x,3(1es14.6)) ! ********************************************************************************************************************************** - + END SUBROUTINE MATL_TRANSFORM_MATRIX diff --git a/Source/EMG/EMG8/MATPUT.f90 b/Source/EMG/EMG8/MATPUT.f90 index 1b8ef889..e28ab77a 100644 --- a/Source/EMG/EMG8/MATPUT.f90 +++ b/Source/EMG/EMG8/MATPUT.f90 @@ -1,41 +1,41 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATPUT ( B, NROWA, NCOLA, BEG_ROW, BEG_COL, NROW, NCOL, A ) - + ! Puts a NROW x NCOL partition of a matrix into another matrix starting at row BEG_ROW and column BEG_COL - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + USE MATPUT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MATPUT' INTEGER(LONG), INTENT(IN) :: BEG_COL ! Beginning row of input matrix to get partition from @@ -49,10 +49,10 @@ SUBROUTINE MATPUT ( B, NROWA, NCOLA, BEG_ROW, BEG_COL, NROW, NCOL, A ) INTEGER(LONG) :: ICNT0 ! Part of ICNT INTEGER(LONG) :: II ! Counter - + REAL(DOUBLE) , INTENT(IN) :: B(NROW*NCOL) ! Input matrix that will be put into A REAL(DOUBLE) , INTENT(INOUT) :: A(NROWA*NCOLA) ! Output matrix, containing inserted terms from B - + ! ********************************************************************************************************************************** @@ -64,9 +64,9 @@ SUBROUTINE MATPUT ( B, NROWA, NCOLA, BEG_ROW, BEG_COL, NROW, NCOL, A ) ICNT = ICNT0 + I II = II + 1 A(ICNT) = B(II) - ENDDO - ENDDO - + ENDDO + ENDDO + RETURN diff --git a/Source/EMG/EMG8/ROT_AXES_MATL_TO_LOC.f90 b/Source/EMG/EMG8/ROT_AXES_MATL_TO_LOC.f90 index 64c67524..15ef1dd7 100644 --- a/Source/EMG/EMG8/ROT_AXES_MATL_TO_LOC.f90 +++ b/Source/EMG/EMG8/ROT_AXES_MATL_TO_LOC.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ROT_AXES_MATL_TO_LOC ( WRITE_WARN ) @@ -120,7 +120,7 @@ SUBROUTINE ROT_AXES_MATL_TO_LOC ( WRITE_WARN ) CALL PLANE_COORD_TRANS_21 ( MATL_AXES_ROTATE, TME, SUBR_NAME ) CALL MATL_TRANSFORM_MATRIX ( TME, T1 ) T1 = TRANSPOSE(T1) - + ! T1_MB is for Sxx, Syy, Sxy which are rows and cols 1,2,4 from T1 T1_MB(1,1) = T1(1,1) ; T1_MB(1,2) = T1(1,2) ; T1_MB(1,3) = T1(1,4) T1_MB(2,1) = T1(2,1) ; T1_MB(2,2) = T1(2,2) ; T1_MB(2,3) = T1(2,4) @@ -182,7 +182,7 @@ SUBROUTINE ROT_AXES_MATL_TO_LOC ( WRITE_WARN ) FOUND = 'Y' EXIT ENDIF - ENDDO + ENDDO IF (FOUND == 'Y') THEN DO I=1,3 @@ -205,7 +205,7 @@ SUBROUTINE ROT_AXES_MATL_TO_LOC ( WRITE_WARN ) CALL MATL_TRANSFORM_MATRIX ( TME, T1 ) T1 = TRANSPOSE(T1) - + CALL MATMULT_FFF ( ES , T1 , 6, 6, 6, DUM66 ) CALL MATMULT_FFF_T ( T1 , DUM66, 6, 6, 6, ES ) @@ -225,12 +225,12 @@ SUBROUTINE ROT_AXES_MATL_TO_LOC ( WRITE_WARN ) 1822 FORMAT(' *ERROR 1822: ',A,I8,' ON ',A,I8,' IS UNDEFINED') ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## - SUBROUTINE DEBUG_ROT_AXES_1 + SUBROUTINE DEBUG_ROT_AXES_1 IMPLICIT NONE @@ -256,7 +256,7 @@ SUBROUTINE DEBUG_ROT_AXES_1 WRITE(F06,99667) (T1(I,J),J=1,6) ENDDO WRITE(F06,*) - + MI(2) = ' Portion of T1: transforms 3x3 EM, EB, EBM from matl to elem axes' WRITE(F06,99664) 'T1_MB', MI(2) DO I=1,3 @@ -332,7 +332,7 @@ SUBROUTINE DEBUG_ROT_AXES_1 WRITE(F06,*) IF (ISOLID(3) /= -1) THEN ! If -1 ES already in elem coords, else transf ES from basic to elem axes - WRITE(F06,'()') 'MATL MATRIX ES BEFORE COORD TRANSFORMATION = ' + WRITE(F06,'()') 'MATL MATRIX ES BEFORE COORD TRANSFORMATION = ' DO I=1,6 WRITE(F06,67549) (ES(I,J),J=1,6) ENDDO @@ -344,11 +344,11 @@ SUBROUTINE DEBUG_ROT_AXES_1 WRITE(F06,*) WRITE(F06,98799) - + WRITE(F06,*) ! ********************************************************************************************************************************** -67549 format(6(1es14.6)) +67549 format(6(1es14.6)) 99663 format(1x,a) @@ -356,12 +356,12 @@ SUBROUTINE DEBUG_ROT_AXES_1 99665 format(20x,'Material matrix ',a3,' before/after T1 transformation',/, & 19x,'before',40x,'after',/,' ---------------------------------------- ----------------------------------------') - -99667 format(3(1es14.6), 4x,3(1es14.6)) -99668 format(3(1es14.6), 4x,3(1es14.6)) +99667 format(3(1es14.6), 4x,3(1es14.6)) + +99668 format(3(1es14.6), 4x,3(1es14.6)) -99669 format(7x,2(1es14.6),18x,2(1es14.6)) +99669 format(7x,2(1es14.6),18x,2(1es14.6)) 98720 FORMAT(' __________________________________________________________________________________________________________________',& '_________________' ,//,& diff --git a/Source/EMG/EXPAND_MASS_DOFS.f90 b/Source/EMG/EXPAND_MASS_DOFS.f90 index 26daeb80..25f72c6b 100644 --- a/Source/EMG/EXPAND_MASS_DOFS.f90 +++ b/Source/EMG/EXPAND_MASS_DOFS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE EXPAND_MASS_DOFS ( M_1DOF ) ! Copies per-node mass values to all 3 of each node's translational DOFs in the element mass matrix ME. @@ -32,7 +32,7 @@ SUBROUTINE EXPAND_MASS_DOFS ( M_1DOF ) USE CONSTANTS_1, ONLY : ZERO USE SCONTR, ONLY : SOL_NAME - IMPLICIT NONE + IMPLICIT NONE INTEGER(LONG) :: I,J,L INTEGER(LONG) :: KI, KJ ! For converting grid point number to element DOF number @@ -46,7 +46,7 @@ SUBROUTINE EXPAND_MASS_DOFS ( M_1DOF ) ! SOL 103 should use consistent mass matrix because quadratic elements won't solve with this row sum mass lumping. They ! will solve with equal-mass-per-node lumping but with slightly worse results. IF ( SOL_NAME(1:5) /= 'MODES') THEN - + ! Row sum to convert consistent to lumped mass matrix DO I=1,ELGP ROW_SUM = ZERO @@ -76,5 +76,5 @@ SUBROUTINE EXPAND_MASS_DOFS ( M_1DOF ) ! ********************************************************************************************************************************** - + END SUBROUTINE EXPAND_MASS_DOFS diff --git a/Source/INCLUDE/debug.h b/Source/INCLUDE/debug.h index 5eb0bb1b..57d16b1e 100644 --- a/Source/INCLUDE/debug.h +++ b/Source/INCLUDE/debug.h @@ -1,6 +1,6 @@ c -c\SCCS Information: @(#) -c FILE: debug.h SID: 2.3 DATE OF SID: 11/16/95 RELEASE: 2 +c\SCCS Information: @(#) +c FILE: debug.h SID: 2.3 DATE OF SID: 11/16/95 RELEASE: 2 c c %---------------------------------% c | See debug.doc for documentation | @@ -9,7 +9,7 @@ c %---------------------------------% & msaupd, msaup2, msaitr, mseigt, msapps, msgets, mseupd, & mnaupd, mnaup2, mnaitr, mneigh, mnapps, mngets, mneupd, & mcaupd, mcaup2, mcaitr, mceigh, mcapps, mcgets, mceupd - common /debug/ + common /debug/ & logfil, ndigit, mgetv0, & msaupd, msaup2, msaitr, mseigt, msapps, msgets, mseupd, & mnaupd, mnaup2, mnaitr, mneigh, mnapps, mngets, mneupd, diff --git a/Source/INCLUDE/stat.h b/Source/INCLUDE/stat.h index 66a8e9f8..ad53c7df 100644 --- a/Source/INCLUDE/stat.h +++ b/Source/INCLUDE/stat.h @@ -2,8 +2,8 @@ c %--------------------------------% c | See stat.doc for documentation | c %--------------------------------% c -c\SCCS Information: @(#) -c FILE: stat.h SID: 2.2 DATE OF SID: 11/16/95 RELEASE: 2 +c\SCCS Information: @(#) +c FILE: stat.h SID: 2.2 DATE OF SID: 11/16/95 RELEASE: 2 c real t0, t1, t2, t3, t4, t5 save t0, t1, t2, t3, t4, t5 @@ -13,7 +13,7 @@ c & tnaupd, tnaup2, tnaitr, tneigh, tngets, tnapps, tnconv, & tcaupd, tcaup2, tcaitr, tceigh, tcgets, tcapps, tcconv, & tmvopx, tmvbx, tgetv0, titref, trvec - common /timing/ + common /timing/ & nopx, nbx, nrorth, nitref, nrstrt, & tsaupd, tsaup2, tsaitr, tseigt, tsgets, tsapps, tsconv, & tnaupd, tnaup2, tnaitr, tneigh, tngets, tnapps, tnconv, diff --git a/Source/Interfaces/ALLOCATED_MEMORY_Interface.f90 b/Source/Interfaces/ALLOCATED_MEMORY_Interface.f90 index ac865570..72a7c333 100644 --- a/Source/Interfaces/ALLOCATED_MEMORY_Interface.f90 +++ b/Source/Interfaces/ALLOCATED_MEMORY_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATED_MEMORY_Interface diff --git a/Source/Interfaces/ALLOCATE_CB_ELM_OTM_Interface.f90 b/Source/Interfaces/ALLOCATE_CB_ELM_OTM_Interface.f90 index 84e12faa..22238759 100644 --- a/Source/Interfaces/ALLOCATE_CB_ELM_OTM_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_CB_ELM_OTM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_CB_ELM_OTM_Interface diff --git a/Source/Interfaces/ALLOCATE_CB_GRD_OTM_Interface.f90 b/Source/Interfaces/ALLOCATE_CB_GRD_OTM_Interface.f90 index cff0a187..f72b4a67 100644 --- a/Source/Interfaces/ALLOCATE_CB_GRD_OTM_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_CB_GRD_OTM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_CB_GRD_OTM_Interface diff --git a/Source/Interfaces/ALLOCATE_COL_VEC_Interface.f90 b/Source/Interfaces/ALLOCATE_COL_VEC_Interface.f90 index b7003855..c773ca29 100644 --- a/Source/Interfaces/ALLOCATE_COL_VEC_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_COL_VEC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_COL_VEC_Interface @@ -30,11 +30,11 @@ MODULE ALLOCATE_COL_VEC_Interface SUBROUTINE ALLOCATE_COL_VEC ( NAME, NROWS, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE OUTPUT4_MATRICES, ONLY : OU4_MAT_COL_GRD_COMP, OU4_MAT_ROW_GRD_COMP @@ -46,10 +46,10 @@ SUBROUTINE ALLOCATE_COL_VEC ( NAME, NROWS, CALLING_SUBR ) USE COL_VECS, ONLY : PHIXG_COL, PHIXL_COL, PHIXN_COL, PHIXGP_COL, PHIXLP_COL, PHIXNP_COL IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this one CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows for matrix NAME INTEGER(LONG), PARAMETER :: NCOLS = 1 ! Number of cols in array diff --git a/Source/Interfaces/ALLOCATE_DOF_TABLES_Interface.f90 b/Source/Interfaces/ALLOCATE_DOF_TABLES_Interface.f90 index 4b5a713f..4217e587 100644 --- a/Source/Interfaces/ALLOCATE_DOF_TABLES_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_DOF_TABLES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_DOF_TABLES_Interface @@ -30,7 +30,7 @@ MODULE ALLOCATE_DOF_TABLES_Interface SUBROUTINE ALLOCATE_DOF_TABLES ( NAME, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, SIX, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -38,14 +38,14 @@ SUBROUTINE ALLOCATE_DOF_TABLES ( NAME, CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START, TDOFI, TSET, USET - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format - - + + END SUBROUTINE ALLOCATE_DOF_TABLES END INTERFACE diff --git a/Source/Interfaces/ALLOCATE_EIGEN1_MAT_Interface.f90 b/Source/Interfaces/ALLOCATE_EIGEN1_MAT_Interface.f90 index 3f570944..3d7bc9e5 100644 --- a/Source/Interfaces/ALLOCATE_EIGEN1_MAT_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_EIGEN1_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_EIGEN1_MAT_Interface @@ -30,7 +30,7 @@ MODULE ALLOCATE_EIGEN1_MAT_Interface SUBROUTINE ALLOCATE_EIGEN1_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFA, TOT_MB_MEM_ALLOC @@ -38,16 +38,16 @@ SUBROUTINE ALLOCATE_EIGEN1_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE EIGEN_MATRICES_1 , ONLY : EIGEN_VAL, EIGEN_VEC, GEN_MASS, MODE_NUM, MEFFMASS, MPFACTOR_N6, MPFACTOR_NR - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows to allocate to matrix NAME INTEGER(LONG), INTENT(IN) :: NCOLS ! Number of cols to allocate to matrix NAME - + END SUBROUTINE ALLOCATE_EIGEN1_MAT END INTERFACE diff --git a/Source/Interfaces/ALLOCATE_EMS_ARRAYS_Interface.f90 b/Source/Interfaces/ALLOCATE_EMS_ARRAYS_Interface.f90 index a6f438c1..9cf4f89f 100644 --- a/Source/Interfaces/ALLOCATE_EMS_ARRAYS_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_EMS_ARRAYS_Interface.f90 @@ -1,49 +1,49 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_EMS_ARRAYS_Interface INTERFACE - SUBROUTINE ALLOCATE_EMS_ARRAYS ( CALLING_SUBR ) + SUBROUTINE ALLOCATE_EMS_ARRAYS ( CALLING_SUBR ) + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, TWO, ONEPP6 USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LINKNO, LTERM_MGGE, NDOFG, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : YEAR, MONTH, DAY, HOUR, MINUTE, SEC, SFRAC, STIME, TSEC USE EMS_ARRAYS, ONLY : EMS, EMSCOL, EMSKEY, EMSPNT - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER( 6*BYTE) :: NAME ! Array name (used for output error message) - + END SUBROUTINE ALLOCATE_EMS_ARRAYS diff --git a/Source/Interfaces/ALLOCATE_FEMAP_DATA_Interface.f90 b/Source/Interfaces/ALLOCATE_FEMAP_DATA_Interface.f90 index 7c3a3a1b..5c4ebb15 100644 --- a/Source/Interfaces/ALLOCATE_FEMAP_DATA_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_FEMAP_DATA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_FEMAP_DATA_Interface @@ -30,23 +30,23 @@ MODULE ALLOCATE_FEMAP_DATA_Interface SUBROUTINE ALLOCATE_FEMAP_DATA ( NAME_IN, NROWS, NCOLS, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_FEMAP_COLS, TOT_MB_MEM_ALLOC USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE TIMDAT, ONLY : TSEC USE FEMAP_ARRAYS, ONLY : FEMAP_EL_VECS, FEMAP_EL_NUMS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Name CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this one - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in array INTEGER(LONG), INTENT(IN) :: NCOLS ! Number of cols in array FEMAP_EL_VECS - + END SUBROUTINE ALLOCATE_FEMAP_DATA END INTERFACE diff --git a/Source/Interfaces/ALLOCATE_FULL_MAT_Interface.f90 b/Source/Interfaces/ALLOCATE_FULL_MAT_Interface.f90 index 1c3b65d9..0ad58676 100644 --- a/Source/Interfaces/ALLOCATE_FULL_MAT_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_FULL_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_FULL_MAT_Interface @@ -30,7 +30,7 @@ MODULE ALLOCATE_FULL_MAT_Interface SUBROUTINE ALLOCATE_FULL_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -45,14 +45,14 @@ SUBROUTINE ALLOCATE_FULL_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) DUM1, DUM2, DUM3 IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG), INTENT(IN) :: NROWS ! Nunber of rows in array NAME being allocated INTEGER(LONG), INTENT(IN) :: NCOLS ! Nunber of cols in array NAME being allocated - + END SUBROUTINE ALLOCATE_FULL_MAT END INTERFACE diff --git a/Source/Interfaces/ALLOCATE_IN4_FILES_Interface.f90 b/Source/Interfaces/ALLOCATE_IN4_FILES_Interface.f90 index 18d54007..5c123c7f 100644 --- a/Source/Interfaces/ALLOCATE_IN4_FILES_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_IN4_FILES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_IN4_FILES_Interface @@ -30,20 +30,20 @@ MODULE ALLOCATE_IN4_FILES_Interface SUBROUTINE ALLOCATE_IN4_FILES ( NAME_IN, NROWS, NCOLS, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN4FIL, IN4FIL_NUM, LNUM_IN4_FILES, WRT_ERR - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE INPUTT4_MATRICES, ONLY : IN4_COL_MAP, IN4_MAT - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Array name (used for output error message) CHARACTER(LEN=LEN(NAME_IN)) :: NAME ! Specific array name used for output error message - + INTEGER(LONG), INTENT(IN) :: NROWS ! Nunber of rows in array NAME_IN being allocated INTEGER(LONG), INTENT(IN) :: NCOLS ! Nunber of cols in array NAME_IN being allocated diff --git a/Source/Interfaces/ALLOCATE_L1_MGG_Interface.f90 b/Source/Interfaces/ALLOCATE_L1_MGG_Interface.f90 index ce37ee29..6a9a5139 100644 --- a/Source/Interfaces/ALLOCATE_L1_MGG_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_L1_MGG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_L1_MGG_Interface @@ -30,7 +30,7 @@ MODULE ALLOCATE_L1_MGG_Interface SUBROUTINE ALLOCATE_L1_MGG ( NAME, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -38,9 +38,9 @@ SUBROUTINE ALLOCATE_L1_MGG ( NAME, CALLING_SUBR ) TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE SPARSE_MATRICES, ONLY : I_MGG, I2_MGG, J_MGG, MGG, I_MGGC, J_MGGC, MGGC, I_MGGE, J_MGGE, MGGE, I_MGGS, J_MGGS, MGGS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Name of matrix to be allocated CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(6*BYTE) :: NAMEO ! Array name (used for output error message) diff --git a/Source/Interfaces/ALLOCATE_L2_GMN_2_Interface.f90 b/Source/Interfaces/ALLOCATE_L2_GMN_2_Interface.f90 index 4903ede7..472f831e 100644 --- a/Source/Interfaces/ALLOCATE_L2_GMN_2_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_L2_GMN_2_Interface.f90 @@ -1,36 +1,36 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_L2_GMN_2_Interface INTERFACE - SUBROUTINE ALLOCATE_L2_GMN_2 ( CALLING_SUBR ) + SUBROUTINE ALLOCATE_L2_GMN_2 ( CALLING_SUBR ) + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -38,12 +38,12 @@ SUBROUTINE ALLOCATE_L2_GMN_2 ( CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE SPARSE_MATRICES, ONLY : I2_GMN - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + INTEGER(LONG), PARAMETER :: NCOLS = 1 ! Number of cols in array diff --git a/Source/Interfaces/ALLOCATE_L2_GOA_2_Interface.f90 b/Source/Interfaces/ALLOCATE_L2_GOA_2_Interface.f90 index 3e2b5250..d24f3690 100644 --- a/Source/Interfaces/ALLOCATE_L2_GOA_2_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_L2_GOA_2_Interface.f90 @@ -1,36 +1,36 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_L2_GOA_2_Interface INTERFACE - SUBROUTINE ALLOCATE_L2_GOA_2 ( CALLING_SUBR ) + SUBROUTINE ALLOCATE_L2_GOA_2 ( CALLING_SUBR ) + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -38,15 +38,15 @@ SUBROUTINE ALLOCATE_L2_GOA_2 ( CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE SPARSE_MATRICES, ONLY : I2_GOA - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + INTEGER(LONG), PARAMETER :: NCOLS = 1 ! Number of cols in array - + END SUBROUTINE ALLOCATE_L2_GOA_2 END INTERFACE diff --git a/Source/Interfaces/ALLOCATE_L6_2_Interface.f90 b/Source/Interfaces/ALLOCATE_L6_2_Interface.f90 index 11fb4437..3e14b07e 100644 --- a/Source/Interfaces/ALLOCATE_L6_2_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_L6_2_Interface.f90 @@ -1,52 +1,52 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_L6_2_Interface INTERFACE - SUBROUTINE ALLOCATE_L6_2 ( NAME, CALLING_SUBR ) + SUBROUTINE ALLOCATE_L6_2 ( NAME, CALLING_SUBR ) + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NTERM_DLR, NTERM_PHIZL1, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG - USE SPARSE_MATRICES, ONLY : I2_DLR, I2_DLRt, I2_PHIZL1, I2_PHIZL1t - + USE SPARSE_MATRICES, ONLY : I2_DLR, I2_DLRt, I2_PHIZL1, I2_PHIZL1t + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - + INTEGER(LONG), PARAMETER :: NCOLS = 1 ! Number of cols in array - + END SUBROUTINE ALLOCATE_L6_2 END INTERFACE diff --git a/Source/Interfaces/ALLOCATE_LAPACK_MAT_Interface.f90 b/Source/Interfaces/ALLOCATE_LAPACK_MAT_Interface.f90 index cb627642..d374b505 100644 --- a/Source/Interfaces/ALLOCATE_LAPACK_MAT_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_LAPACK_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_LAPACK_MAT_Interface @@ -50,7 +50,7 @@ SUBROUTINE ALLOCATE_LAPACK_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in array to be allocated INTEGER(LONG), INTENT(IN) :: NCOLS ! Number of cols in array to be allocated - + END SUBROUTINE ALLOCATE_LAPACK_MAT END INTERFACE diff --git a/Source/Interfaces/ALLOCATE_LINK9_STUF_Interface.f90 b/Source/Interfaces/ALLOCATE_LINK9_STUF_Interface.f90 index 7db1b04c..2f0265b5 100644 --- a/Source/Interfaces/ALLOCATE_LINK9_STUF_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_LINK9_STUF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_LINK9_STUF_Interface @@ -30,7 +30,7 @@ MODULE ALLOCATE_LINK9_STUF_Interface SUBROUTINE ALLOCATE_LINK9_STUF ( CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, TWO, ONEPP6 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MELGP, MMSPRNT, MOGEL, TOT_MB_MEM_ALLOC @@ -38,14 +38,14 @@ SUBROUTINE ALLOCATE_LINK9_STUF ( CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE LINK9_STUFF, ONLY : GID_OUT_ARRAY, EID_OUT_ARRAY, FTNAME, MAXREQ, MSPRNT, OGEL, POLY_FIT_ERR, & POLY_FIT_ERR_INDEX - + IMPLICIT NONE - + CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format - - + + END SUBROUTINE ALLOCATE_LINK9_STUF END INTERFACE diff --git a/Source/Interfaces/ALLOCATE_MISC_MAT_Interface.f90 b/Source/Interfaces/ALLOCATE_MISC_MAT_Interface.f90 index 51f4c397..a41cf971 100644 --- a/Source/Interfaces/ALLOCATE_MISC_MAT_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_MISC_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_MISC_MAT_Interface @@ -30,7 +30,7 @@ MODULE ALLOCATE_MISC_MAT_Interface SUBROUTINE ALLOCATE_MISC_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFA, TOT_MB_MEM_ALLOC @@ -38,16 +38,16 @@ SUBROUTINE ALLOCATE_MISC_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE MISC_MATRICES, ONLY : UG_T123_MAT - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows to allocate to matrix NAME INTEGER(LONG), INTENT(IN) :: NCOLS ! Number of cols to allocate to matrix NAME - + END SUBROUTINE ALLOCATE_MISC_MAT END INTERFACE diff --git a/Source/Interfaces/ALLOCATE_MODEL_STUF_Interface.f90 b/Source/Interfaces/ALLOCATE_MODEL_STUF_Interface.f90 index 196139e2..70d042b8 100644 --- a/Source/Interfaces/ALLOCATE_MODEL_STUF_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_MODEL_STUF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_MODEL_STUF_Interface @@ -30,11 +30,11 @@ MODULE ALLOCATE_MODEL_STUF_Interface SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, TWO, THREE, SIX, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE SCONTR, ONLY : LBAROFF, LBUSHOFF, LCMASS, LCONM2, LCORD, LEDAT, LELE, LFORCE, LGRAV, LGRID, & LIND_GRDS_MPCS, LLOADC, LLOADR, LMATANGLE, LMATL, LMPC, LMPCADDC, LMPCADDR, LPBAR, LPBEAM,& LPBUSH, LPCOMP, LPCOMP_PLIES, LPDAT, LPELAS, LPLATEOFF, LPLATETHICK, LPLOAD, LPMASS, & @@ -65,11 +65,11 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) USE MODEL_STUF, ONLY : GRID_ID, GRID_SEQ, INV_GRID_SEQ, MPC_IND_GRIDS USE MODEL_STUF, ONLY : MATL, RMATL, PBAR, RPBAR, PBEAM, RPBEAM, PBUSH, RPBUSH, PCOMP, RPCOMP, PELAS, RPELAS, & PROD, RPROD, PSHEAR, RPSHEAR, PSHEL, RPSHEL, PSOLID, PUSER1, RPUSER1, PUSERIN, & - USERIN_ACT_COMPS, USERIN_ACT_GRIDS, USERIN_MAT_NAMES + USERIN_ACT_COMPS, USERIN_ACT_GRIDS, USERIN_MAT_NAMES USE MODEL_STUF, ONLY : MPC_SIDS, MPCSIDS, MPCADD_SIDS USE MODEL_STUF, ONLY : SPC_SIDS, SPC1_SIDS, SPCSIDS, SPCADD_SIDS USE MODEL_STUF, ONLY : ALL_SETS_ARRAY, ONE_SET_ARRAY, SETS_IDS, SC_ACCE, SC_DISP, SC_ELFN, SC_ELFE, SC_GPFO, & - SC_MPCF, SC_OLOA, SC_SPCF, SC_STRE, SC_STRN, LOAD_SIDS, LOAD_FACS + SC_MPCF, SC_OLOA, SC_SPCF, SC_STRE, SC_STRN, LOAD_SIDS, LOAD_FACS USE MODEL_STUF, ONLY : ELDT, ELOUT, GROUT, OELOUT, OGROUT, LABEL, SCNUM, STITLE, SUBLOD, TITLE USE MODEL_STUF, ONLY : SYS_LOAD USE MODEL_STUF, ONLY : CETEMP, CETEMP_ERR, CGTEMP, CGTEMP_ERR, ETEMP, ETEMP_INIT, GTEMP, GTEMP_INIT, TDATA, TPNT @@ -79,13 +79,13 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) USE MODEL_STUF, ONLY : GRID_ELEM_CONN_ARRAY IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Name of group of arrays to allocate CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(31*BYTE) :: NAME ! Specific array name used for output error message - - + + END SUBROUTINE ALLOCATE_MODEL_STUF END INTERFACE diff --git a/Source/Interfaces/ALLOCATE_NL_PARAMS_Interface.f90 b/Source/Interfaces/ALLOCATE_NL_PARAMS_Interface.f90 index 500d4f5f..7b998b5f 100644 --- a/Source/Interfaces/ALLOCATE_NL_PARAMS_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_NL_PARAMS_Interface.f90 @@ -1,36 +1,36 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_NL_PARAMS_Interface INTERFACE - SUBROUTINE ALLOCATE_NL_PARAMS ( CALLING_SUBR ) + SUBROUTINE ALLOCATE_NL_PARAMS ( CALLING_SUBR ) + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LSUB, TOT_MB_MEM_ALLOC @@ -38,12 +38,12 @@ SUBROUTINE ALLOCATE_NL_PARAMS ( CALLING_SUBR ) USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE DEBUG_PARAMETERS, ONLY : DEBUG USE NONLINEAR_PARAMS, ONLY : NL_SID - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + INTEGER(LONG), PARAMETER :: NCOLS = 1 ! Number of cols in array diff --git a/Source/Interfaces/ALLOCATE_RBGLOBAL_Interface.f90 b/Source/Interfaces/ALLOCATE_RBGLOBAL_Interface.f90 index 988cc310..c91e5c3f 100644 --- a/Source/Interfaces/ALLOCATE_RBGLOBAL_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_RBGLOBAL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_RBGLOBAL_Interface @@ -30,22 +30,22 @@ MODULE ALLOCATE_RBGLOBAL_Interface SUBROUTINE ALLOCATE_RBGLOBAL ( SET, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : NDOFG, NDOFN, NDOFF, NDOFA, NDOFL, NDOFR, BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : NDOFG, NDOFN, NDOFF, NDOFA, NDOFL, NDOFR, BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET, RBGLOBAL_NSET, RBGLOBAL_FSET, RBGLOBAL_ASET, RBGLOBAL_LSET, & TR6_CG, TR6_MEFM, TR6_0 IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: SET ! Set name of the displ matrix CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(14*BYTE) :: NAME ! Specific array name used for output error message - + INTEGER(LONG), PARAMETER :: NCOLS = 6 ! Number of cols in array diff --git a/Source/Interfaces/ALLOCATE_SCR_CCS_MAT_Interface.f90 b/Source/Interfaces/ALLOCATE_SCR_CCS_MAT_Interface.f90 index 872dc666..6f5ced57 100644 --- a/Source/Interfaces/ALLOCATE_SCR_CCS_MAT_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_SCR_CCS_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_SCR_CCS_MAT_Interface @@ -30,7 +30,7 @@ MODULE ALLOCATE_SCR_CCS_MAT_Interface SUBROUTINE ALLOCATE_SCR_CCS_MAT ( NAME, NCOLS, NTERMS, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -40,11 +40,11 @@ SUBROUTINE ALLOCATE_SCR_CCS_MAT ( NAME, NCOLS, NTERMS, CALLING_SUBR ) USE SCRATCH_MATRICES , ONLY : I_CCS1, J_CCS1, CCS1, I_CCS2, J_CCS2, CCS2, I_CCS3, J_CCS3, CCS3 IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(6*BYTE) :: NAMEO ! Array name (used for output error message) - + INTEGER(LONG), INTENT(IN) :: NCOLS ! Number of cols for matrix CCSi INTEGER(LONG), INTENT(IN) :: NTERMS ! Number of nonzero terms that will be in matrix CCSi diff --git a/Source/Interfaces/ALLOCATE_SCR_CRS_MAT_Interface.f90 b/Source/Interfaces/ALLOCATE_SCR_CRS_MAT_Interface.f90 index da69cbdd..7e488670 100644 --- a/Source/Interfaces/ALLOCATE_SCR_CRS_MAT_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_SCR_CRS_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_SCR_CRS_MAT_Interface @@ -30,7 +30,7 @@ MODULE ALLOCATE_SCR_CRS_MAT_Interface SUBROUTINE ALLOCATE_SCR_CRS_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -40,11 +40,11 @@ SUBROUTINE ALLOCATE_SCR_CRS_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) USE SCRATCH_MATRICES , ONLY : I_CRS1, J_CRS1, CRS1, I_CRS2, J_CRS2, CRS2, I_CRS3, J_CRS3, CRS3 IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(6*BYTE) :: NAMEO ! Array name (used for output error message) - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows for matrix CRSi INTEGER(LONG), INTENT(IN) :: NTERMS ! Number of nonzero terms that will be in matrix CRSi diff --git a/Source/Interfaces/ALLOCATE_SPARSE_ALG_Interface.f90 b/Source/Interfaces/ALLOCATE_SPARSE_ALG_Interface.f90 index 96f1fb27..7a10dcf5 100644 --- a/Source/Interfaces/ALLOCATE_SPARSE_ALG_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_SPARSE_ALG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_SPARSE_ALG_Interface @@ -30,7 +30,7 @@ MODULE ALLOCATE_SPARSE_ALG_Interface SUBROUTINE ALLOCATE_SPARSE_ALG ( NAME, NROW1, NROW2, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC @@ -38,17 +38,17 @@ SUBROUTINE ALLOCATE_SPARSE_ALG ( NAME, NROW1, NROW2, CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE SPARSE_ALG_ARRAYS, ONLY : ALG, AROW, J_AROW, LOGICAL_VEC, REAL_VEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG), INTENT(IN) :: NROW1 ! Number of rows, or starting row num, to allocate to matrix NAME INTEGER(LONG), INTENT(IN) :: NROW2 ! End row number in allocation INTEGER(LONG), PARAMETER :: NCOLS = 1 ! Number of cols in array - + END SUBROUTINE ALLOCATE_SPARSE_ALG END INTERFACE diff --git a/Source/Interfaces/ALLOCATE_SPARSE_MAT_Interface.f90 b/Source/Interfaces/ALLOCATE_SPARSE_MAT_Interface.f90 index f0f51340..af8caf66 100644 --- a/Source/Interfaces/ALLOCATE_SPARSE_MAT_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_SPARSE_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_SPARSE_MAT_Interface @@ -30,7 +30,7 @@ MODULE ALLOCATE_SPARSE_MAT_Interface SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR @@ -86,13 +86,13 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) I_PHIZL2, J_PHIZL2, PHIZL2, I_PL , J_PL , PL , I_PR , J_PR , PR IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(6*BYTE) :: NAME1 ! Array name (used for output error message) CHARACTER(6*BYTE) :: NAME2 ! Array name (used for output error message) - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows for matrix NAME INTEGER(LONG), INTENT(IN) :: NTERMS ! Number of nonzero terms that will be in matrix NAME diff --git a/Source/Interfaces/ALLOCATE_STF_ARRAYS_Interface.f90 b/Source/Interfaces/ALLOCATE_STF_ARRAYS_Interface.f90 index f1555947..0a393ed3 100644 --- a/Source/Interfaces/ALLOCATE_STF_ARRAYS_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_STF_ARRAYS_Interface.f90 @@ -1,36 +1,36 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_STF_ARRAYS_Interface INTERFACE - SUBROUTINE ALLOCATE_STF_ARRAYS ( NAME, CALLING_SUBR ) + SUBROUTINE ALLOCATE_STF_ARRAYS ( NAME, CALLING_SUBR ) + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, TWO, ONEPP6 USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR @@ -40,13 +40,13 @@ SUBROUTINE ALLOCATE_STF_ARRAYS ( NAME, CALLING_SUBR ) USE PARAMS, ONLY : MEMAFAC, MXALLOCA, SUPINFO, WINAMEM USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP USE STF_ARRAYS, ONLY : STF, STFCOL, STFKEY, STFPNT, STF3 - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - + END SUBROUTINE ALLOCATE_STF_ARRAYS diff --git a/Source/Interfaces/ALLOCATE_TEMPLATE_Interface.f90 b/Source/Interfaces/ALLOCATE_TEMPLATE_Interface.f90 index 0d1de7d5..68f7b405 100644 --- a/Source/Interfaces/ALLOCATE_TEMPLATE_Interface.f90 +++ b/Source/Interfaces/ALLOCATE_TEMPLATE_Interface.f90 @@ -1,48 +1,48 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_TEMPLATE_Interface INTERFACE - SUBROUTINE ALLOCATE_TEMPLATE ( CALLING_SUBR ) + SUBROUTINE ALLOCATE_TEMPLATE ( CALLING_SUBR ) + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE STF_TEMPLATE_ARRAYS, ONLY : CROW, TEMPLATE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + END SUBROUTINE ALLOCATE_TEMPLATE diff --git a/Source/Interfaces/ARPACK_INFO_MSG_Interface.f90 b/Source/Interfaces/ARPACK_INFO_MSG_Interface.f90 index 1f5ccd3a..20710ede 100644 --- a/Source/Interfaces/ARPACK_INFO_MSG_Interface.f90 +++ b/Source/Interfaces/ARPACK_INFO_MSG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ARPACK_INFO_MSG_Interface diff --git a/Source/Interfaces/ARRAY_SIZE_ERROR_1_Interface.f90 b/Source/Interfaces/ARRAY_SIZE_ERROR_1_Interface.f90 index e0ef72a9..ef9228c2 100644 --- a/Source/Interfaces/ARRAY_SIZE_ERROR_1_Interface.f90 +++ b/Source/Interfaces/ARRAY_SIZE_ERROR_1_Interface.f90 @@ -1,43 +1,43 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ARRAY_SIZE_ERROR_1_Interface INTERFACE - SUBROUTINE ARRAY_SIZE_ERROR_1 ( INP_SUBR_NAME, NTERM_VAL, MATIN_NAME ) + SUBROUTINE ARRAY_SIZE_ERROR_1 ( INP_SUBR_NAME, NTERM_VAL, MATIN_NAME ) + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: INP_SUBR_NAME ! Subroutine in which the error was detected CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of matrix (for output message purposes) diff --git a/Source/Interfaces/AUTOSPC_SUMMARY_MSGS_Interface.f90 b/Source/Interfaces/AUTOSPC_SUMMARY_MSGS_Interface.f90 index b36335d4..5cb3dfa5 100644 --- a/Source/Interfaces/AUTOSPC_SUMMARY_MSGS_Interface.f90 +++ b/Source/Interfaces/AUTOSPC_SUMMARY_MSGS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE AUTOSPC_SUMMARY_MSGS_Interface diff --git a/Source/Interfaces/B3D_ISOPARAMETRIC_Interface.f90 b/Source/Interfaces/B3D_ISOPARAMETRIC_Interface.f90 index 80618b72..06e67e62 100644 --- a/Source/Interfaces/B3D_ISOPARAMETRIC_Interface.f90 +++ b/Source/Interfaces/B3D_ISOPARAMETRIC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE B3D_ISOPARAMETRIC_Interface @@ -30,7 +30,7 @@ MODULE B3D_ISOPARAMETRIC_Interface SUBROUTINE B3D_ISOPARAMETRIC ( DPSHX, GAUSS_PT, IGAUS, JGAUS, KGAUS, MESSAG, WRT_BUG_THIS_TIME, BMAT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR, BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT @@ -38,9 +38,9 @@ SUBROUTINE B3D_ISOPARAMETRIC ( DPSHX, GAUSS_PT, IGAUS, JGAUS, KGAUS, MESSAG, WRT USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : EID, ELGP, TYPE USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*) , INTENT(IN) :: MESSAG ! Messag to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -50,7 +50,7 @@ SUBROUTINE B3D_ISOPARAMETRIC ( DPSHX, GAUSS_PT, IGAUS, JGAUS, KGAUS, MESSAG, WRT INTEGER(LONG), INTENT(IN) :: KGAUS ! K index of Gaus point (needed for some optional output) INTEGER(LONG), PARAMETER :: NR = 6 ! An input to subr BCHECK, called herein - + REAL(DOUBLE) , INTENT(IN) :: DPSHX(3,ELGP) ! Derivatives of the 4 node bilinear isopar interps wrt elem x and y REAL(DOUBLE) , INTENT(OUT) :: BMAT(6,3*ELGP) ! Output strain-displ matrix for this elem END SUBROUTINE B3D_ISOPARAMETRIC diff --git a/Source/Interfaces/BAILOUT_CHECK_Interface.f90 b/Source/Interfaces/BAILOUT_CHECK_Interface.f90 index 37618515..b937bdfd 100644 --- a/Source/Interfaces/BAILOUT_CHECK_Interface.f90 +++ b/Source/Interfaces/BAILOUT_CHECK_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BAILOUT_CHECK_Interface diff --git a/Source/Interfaces/BANDGEN_LAPACK_DGB_Interface.f90 b/Source/Interfaces/BANDGEN_LAPACK_DGB_Interface.f90 index 19ab4816..8225ff1e 100644 --- a/Source/Interfaces/BANDGEN_LAPACK_DGB_Interface.f90 +++ b/Source/Interfaces/BANDGEN_LAPACK_DGB_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BANDGEN_LAPACK_DGB_Interface @@ -45,7 +45,7 @@ SUBROUTINE BANDGEN_LAPACK_DGB ( MATIN_NAME, N, KD, NTERM_MATIN, I_MATIN, J_MATIN CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of matrix input INTEGER(LONG), INTENT(IN) :: N ! Number of cols (or rows) of symmetric matrix MATIN - INTEGER(LONG), INTENT(IN) :: NTERM_MATIN ! No. of terms in sparse matrix + INTEGER(LONG), INTENT(IN) :: NTERM_MATIN ! No. of terms in sparse matrix INTEGER(LONG), INTENT(IN) :: I_MATIN(N+1) ! Array of row no's for terms in matrix MATIN INTEGER(LONG), INTENT(IN) :: J_MATIN(NTERM_MATIN) ! Array of col no's for terms in matrix MATIN INTEGER(LONG), INTENT(IN) :: KD ! Number of sub (or super) diagonals in matrix MATIN. diff --git a/Source/Interfaces/BANDGEN_LAPACK_DPB_Interface.f90 b/Source/Interfaces/BANDGEN_LAPACK_DPB_Interface.f90 index f8c2b9c4..824da37c 100644 --- a/Source/Interfaces/BANDGEN_LAPACK_DPB_Interface.f90 +++ b/Source/Interfaces/BANDGEN_LAPACK_DPB_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BANDGEN_LAPACK_DPB_Interface @@ -45,12 +45,12 @@ SUBROUTINE BANDGEN_LAPACK_DPB ( MATIN_NAME, N, KD, NTERM_MATIN, I_MATIN, J_MATIN CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of matrix input INTEGER(LONG), INTENT(IN) :: N ! Number of cols (or rows) of symmetric matrix MATIN - INTEGER(LONG), INTENT(IN) :: NTERM_MATIN ! No. of terms in sparse matrix + INTEGER(LONG), INTENT(IN) :: NTERM_MATIN ! No. of terms in sparse matrix INTEGER(LONG), INTENT(IN) :: I_MATIN(N+1) ! Array of row no's for terms in matrix MATIN INTEGER(LONG), INTENT(IN) :: J_MATIN(NTERM_MATIN) ! Array of col no's for terms in matrix MATIN INTEGER(LONG), INTENT(IN) :: KD ! Number of sub (or super) diagonals in matrix MATIN. - + REAL(DOUBLE) , INTENT(IN) :: MATIN(NTERM_MATIN) ! Array of terms in sparse matrix MATIN REAL(DOUBLE) , INTENT(INOUT) :: MATOUT(KD+1,N) ! Array of terms in band matrix MATOUT diff --git a/Source/Interfaces/BANDIT_FILES_Interface.f90 b/Source/Interfaces/BANDIT_FILES_Interface.f90 index d4511133..a7166553 100644 --- a/Source/Interfaces/BANDIT_FILES_Interface.f90 +++ b/Source/Interfaces/BANDIT_FILES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BANDIT_FILES_Interface @@ -30,12 +30,12 @@ MODULE BANDIT_FILES_Interface SUBROUTINE BANDIT_FILES ( IOU6, IOU7, IOU8, IOU9, IOU11, IOU12, IOU13, IOU14, IOU15, IOU16, IOU17 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : FILE_NAM_MAXLEN, F06, SC1 IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: IOU6 ! Bandit file unit number INTEGER(LONG), INTENT(IN) :: IOU7 ! Bandit file unit number INTEGER(LONG), INTENT(IN) :: IOU8 ! Bandit file unit number diff --git a/Source/Interfaces/BANDSIZ_Interface.f90 b/Source/Interfaces/BANDSIZ_Interface.f90 index e3cbf168..6659e4fd 100644 --- a/Source/Interfaces/BANDSIZ_Interface.f90 +++ b/Source/Interfaces/BANDSIZ_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BANDSIZ_Interface @@ -39,7 +39,7 @@ SUBROUTINE BANDSIZ ( N, NTERM_MATIN, I_MATIN, J_MATIN, KD ) IMPLICIT NONE INTEGER(LONG), INTENT(IN) :: N ! Col or row size of matrix MATIN (no. of A-set DOF's) - INTEGER(LONG), INTENT(IN) :: NTERM_MATIN ! No. of terms in sparse matrix + INTEGER(LONG), INTENT(IN) :: NTERM_MATIN ! No. of terms in sparse matrix INTEGER(LONG), INTENT(IN) :: I_MATIN(N+1) ! Array of row no's for terms in matrix MATIN INTEGER(LONG), INTENT(IN) :: J_MATIN(NTERM_MATIN) ! Array of col no's for terms in matrix MATIN INTEGER(LONG), INTENT(OUT) :: KD ! Number of sub (or super) diagonals in matrix MATIN. diff --git a/Source/Interfaces/BAR1_Interface.f90 b/Source/Interfaces/BAR1_Interface.f90 index aa5e629c..7b673d73 100644 --- a/Source/Interfaces/BAR1_Interface.f90 +++ b/Source/Interfaces/BAR1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BAR1_Interface @@ -30,7 +30,7 @@ MODULE BAR1_Interface SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, TREF ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, NTSUB, BLNK_SUB_NAM, SOL_NAME @@ -42,13 +42,13 @@ SUBROUTINE BAR1 ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, USE MODEL_STUF, ONLY : ELDOF, DOFPIN, DT, EID, NUM_EMG_FATAL_ERRS, KE, KED, PEL, PTE, SE1, SE2, STE1, STE2, TYPE,& UEL USE DEBUG_PARAMETERS, ONLY : DEBUG - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices - + REAL(DOUBLE) , INTENT(IN) :: ALPHA ! Coefficient of thermal expansion REAL(DOUBLE) , INTENT(IN) :: AREA ! Cross-sectional area REAL(DOUBLE) , INTENT(IN) :: E ! Youngs modulus diff --git a/Source/Interfaces/BART_Interface.f90 b/Source/Interfaces/BART_Interface.f90 index 71b1d70f..bdfa83d4 100644 --- a/Source/Interfaces/BART_Interface.f90 +++ b/Source/Interfaces/BART_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BART_Interface @@ -30,7 +30,7 @@ MODULE BART_Interface SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, TREF ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, NTSUB, BLNK_SUB_NAM, SOL_NAME @@ -42,13 +42,13 @@ SUBROUTINE BART ( OPT, L, AREA, I1, I2, JTOR, SCOEFF, K1, K2, I12, E, G, ALPHA, USE MODEL_STUF, ONLY : ELDOF, DOFPIN, DT, EID, NUM_EMG_FATAL_ERRS, KE, KED, PEL, PTE, SE1, SE2, STE1, STE2, TYPE,& UEL USE DEBUG_PARAMETERS, ONLY : DEBUG - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices - + REAL(DOUBLE) , INTENT(IN) :: ALPHA ! Coefficient of thermal expansion REAL(DOUBLE) , INTENT(IN) :: AREA ! Cross-sectional area REAL(DOUBLE) , INTENT(IN) :: E ! Youngs modulus diff --git a/Source/Interfaces/BAR_MARGIN_Interface.f90 b/Source/Interfaces/BAR_MARGIN_Interface.f90 index 131669f0..9836a151 100644 --- a/Source/Interfaces/BAR_MARGIN_Interface.f90 +++ b/Source/Interfaces/BAR_MARGIN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BAR_MARGIN_Interface @@ -30,24 +30,24 @@ MODULE BAR_MARGIN_Interface SUBROUTINE BAR_MARGIN ( ICOL, S1, S2, S3, S4, S5, MS1, MS2, MS3, MSP1, MSP2, MSP3 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, ONEPM6, ONEPM15, ONEPP10 - USE PARAMS, ONLY : EPSIL + USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : ULT_STRE IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(OUT) :: MSP1 ! If '1', print margins in F06 file. If '0', do not print. CHARACTER(LEN=*), INTENT(OUT) :: MSP2 ! If '1', print margins in F06 file. If '0', do not print. CHARACTER(LEN=*), INTENT(OUT) :: MSP3 ! If '1', print margins in F06 file. If '0', do not print. - + INTEGER(LONG), INTENT(IN) :: ICOL ! Column no. from ULT_STRE to get max allow. stresses - + REAL(DOUBLE), INTENT(OUT) :: MS1 ! Calculated margin of safety REAL(DOUBLE), INTENT(OUT) :: MS2 ! Calculated margin of safety REAL(DOUBLE), INTENT(OUT) :: MS3 ! Calculated margin of safety @@ -56,7 +56,7 @@ SUBROUTINE BAR_MARGIN ( ICOL, S1, S2, S3, S4, S5, MS1, MS2, MS3, MSP1, MSP2, MSP REAL(DOUBLE), INTENT(IN) :: S3 ! An input stress for which margins are calculated REAL(DOUBLE), INTENT(IN) :: S4 ! An input stress for which margins are calculated REAL(DOUBLE), INTENT(IN) :: S5 ! An input stress for which margins are calculated - + END SUBROUTINE BAR_MARGIN END INTERFACE diff --git a/Source/Interfaces/BBDKQ_Interface.f90 b/Source/Interfaces/BBDKQ_Interface.f90 index 88baced8..8b6f50ba 100644 --- a/Source/Interfaces/BBDKQ_Interface.f90 +++ b/Source/Interfaces/BBDKQ_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BBDKQ_Interface @@ -30,7 +30,7 @@ MODULE BBDKQ_Interface SUBROUTINE BBDKQ ( DPSHX, XSD, YSD, SLN, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BB ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT @@ -38,9 +38,9 @@ SUBROUTINE BBDKQ ( DPSHX, XSD, YSD, SLN, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME USE CONSTANTS_1, ONLY : ZERO, TWO, THREE, FOUR USE MODEL_STUF, ONLY : EID, TYPE, XEB, XEL USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Messag to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -49,7 +49,7 @@ SUBROUTINE BBDKQ ( DPSHX, XSD, YSD, SLN, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME INTEGER(LONG), PARAMETER :: NR = 3 ! An input to subr BCHECK, called herein INTEGER(LONG), PARAMETER :: NC = 12 ! An input to subr BCHECK, called herein - + REAL(DOUBLE) , INTENT(IN) :: SLN(4) ! Quad side lengths REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! Array of 4 diffs of X dim. of sides REAL(DOUBLE) , INTENT(IN) :: YSD(4) ! Array of 4 diffs of Y dim. of sides @@ -61,7 +61,7 @@ SUBROUTINE BBDKQ ( DPSHX, XSD, YSD, SLN, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME REAL(DOUBLE) :: C(4) ! Intermediate variables used in calculating outputs REAL(DOUBLE) :: D(4) ! Intermediate variables used in calculating outputs REAL(DOUBLE) :: E(4) ! Intermediate variables used in calculating outputs - + END SUBROUTINE BBDKQ END INTERFACE diff --git a/Source/Interfaces/BBMIN3_Interface.f90 b/Source/Interfaces/BBMIN3_Interface.f90 index 3f8ea47f..5448903b 100644 --- a/Source/Interfaces/BBMIN3_Interface.f90 +++ b/Source/Interfaces/BBMIN3_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BBMIN3_Interface @@ -30,7 +30,7 @@ MODULE BBMIN3_Interface SUBROUTINE BBMIN3 ( A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BB ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT, MIN4T_QUAD4_TRIA_NO @@ -38,16 +38,16 @@ SUBROUTINE BBMIN3 ( A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BB ) USE CONSTANTS_1, ONLY : ZERO, TWO USE MODEL_STUF, ONLY : EID, TYPE, XTB, XTL USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to INTEGER(LONG), PARAMETER :: NR = 3 ! An input to subr BCHECK, called herein if INTEGER(LONG), PARAMETER :: NC = 9 ! An input to subr BCHECK, called herein if - + REAL(DOUBLE) , INTENT(IN) :: A(3) ! Diffs in x coords of elem REAL(DOUBLE) , INTENT(IN) :: B(3) ! Diffs in y coords of elem REAL(DOUBLE) , INTENT(IN) :: AREA ! Elem area diff --git a/Source/Interfaces/BBMIN4_Interface.f90 b/Source/Interfaces/BBMIN4_Interface.f90 index 5e4aef91..d978214b 100644 --- a/Source/Interfaces/BBMIN4_Interface.f90 +++ b/Source/Interfaces/BBMIN4_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BBMIN4_Interface @@ -30,7 +30,7 @@ MODULE BBMIN4_Interface SUBROUTINE BBMIN4 ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BB ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT @@ -38,9 +38,9 @@ SUBROUTINE BBMIN4 ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BB ) USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : EID, TYPE, XEB, XEL USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Messag to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -49,7 +49,7 @@ SUBROUTINE BBMIN4 ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BB ) INTEGER(LONG), PARAMETER :: NR = 3 ! An input to subr BCHECK, called herein INTEGER(LONG), PARAMETER :: NC = 8 ! An input to subr BCHECK, called herein - + REAL(DOUBLE) , INTENT(IN) :: DPSHX(2,4) ! Derivatives of the 4 node bilinear isopar interps wrt elem x and y REAL(DOUBLE) , INTENT(OUT) :: BB(3,8) ! Output strain-displ matrix for this elem diff --git a/Source/Interfaces/BCHECK_2D_Interface.f90 b/Source/Interfaces/BCHECK_2D_Interface.f90 index f32de0b0..cae94f4a 100644 --- a/Source/Interfaces/BCHECK_2D_Interface.f90 +++ b/Source/Interfaces/BCHECK_2D_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BCHECK_2D_Interface @@ -38,17 +38,17 @@ SUBROUTINE BCHECK_2D ( B, BTYPE, ID, NROWB, NCOLB, NUM_GRIDS, XB, XL, BW ) USE CONSTANTS_1, ONLY : ZERO, TWO USE MODEL_STUF, ONLY : ELDOF, NELGP, TE USE MODEL_STUF, ONLY : AGRID, ELGP - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: BTYPE ! Type of B matrix ('M' for membrane, 'B' for bending, 'S' for shear) - + INTEGER(LONG), INTENT(IN) :: NROWB ! Number of rows in the input B matrix INTEGER(LONG), INTENT(IN) :: NCOLB ! Number of cols in the input B matrix INTEGER(LONG), INTENT(IN) :: NUM_GRIDS ! Number of grids for the input B matrix INTEGER(LONG), INTENT(IN) :: ID(NCOLB) ! List of elem DOF's for each of the elem grids (e.g 3,4,5 for each of - + REAL(DOUBLE) , INTENT(IN) :: B(NROWB,NCOLB) ! Strain-displ matrix REAL(DOUBLE) , INTENT(IN) :: XB(NUM_GRIDS,3) ! Basic coords of elem grids (diff than XEB for TPLT2's in a MIN4T QUAD4) REAL(DOUBLE) , INTENT(IN) :: XL(NUM_GRIDS,3) ! Local coords of elem grids (diff than XEL for TPLT2's in a MIN4T QUAD4) diff --git a/Source/Interfaces/BCHECK_3D_Interface.f90 b/Source/Interfaces/BCHECK_3D_Interface.f90 index 85191534..76b2f5e6 100644 --- a/Source/Interfaces/BCHECK_3D_Interface.f90 +++ b/Source/Interfaces/BCHECK_3D_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BCHECK_3D_Interface @@ -30,22 +30,22 @@ MODULE BCHECK_3D_Interface SUBROUTINE BCHECK_3D ( B, NUM_GRIDS, ID, NROWB, NCOLB, BW ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, BUG USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, TWO USE MODEL_STUF, ONLY : AGRID, TE, XEB, XEL - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: NCOLB ! Number of cols in the input B matrix INTEGER(LONG), INTENT(IN) :: NROWB ! Number of rows in the input B matrix INTEGER(LONG), INTENT(IN) :: NUM_GRIDS ! Number of grids that this solid element has. INTEGER(LONG), INTENT(IN) :: ID(NCOLB) ! List of elem DOF's for each of the elem grids (e.g 3,4,5 for each of - + REAL(DOUBLE) , INTENT(IN) :: B(NROWB,NCOLB) ! Strain-displ matrix REAL(DOUBLE) , INTENT(OUT) :: BW(NROWB,12) ! Output from subr BCHECK_3D (matrix of NROWB elem strains for various END SUBROUTINE BCHECK_3D diff --git a/Source/Interfaces/BD_ASET1_Interface.f90 b/Source/Interfaces/BD_ASET1_Interface.f90 index cfd3af46..6795dff3 100644 --- a/Source/Interfaces/BD_ASET1_Interface.f90 +++ b/Source/Interfaces/BD_ASET1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_ASET1_Interface @@ -30,21 +30,21 @@ MODULE BD_ASET1_Interface SUBROUTINE BD_ASET1 ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1N USE SCONTR, ONLY : FATAL_ERR, IERRFL, JCARD_LEN, JF, NAOCARD, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TSET_CHR_LEN - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein - + END SUBROUTINE BD_ASET1 END INTERFACE diff --git a/Source/Interfaces/BD_ASET_Interface.f90 b/Source/Interfaces/BD_ASET_Interface.f90 index b5cc738b..75749957 100644 --- a/Source/Interfaces/BD_ASET_Interface.f90 +++ b/Source/Interfaces/BD_ASET_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_ASET_Interface @@ -30,20 +30,20 @@ MODULE BD_ASET_Interface SUBROUTINE BD_ASET ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1N USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NAOCARD USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TSET_CHR_LEN - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein - + END SUBROUTINE BD_ASET END INTERFACE diff --git a/Source/Interfaces/BD_BAROR0_Interface.f90 b/Source/Interfaces/BD_BAROR0_Interface.f90 index 9ea2d61e..ee9cd2c0 100644 --- a/Source/Interfaces/BD_BAROR0_Interface.f90 +++ b/Source/Interfaces/BD_BAROR0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_BAROR0_Interface @@ -30,19 +30,19 @@ MODULE BD_BAROR0_Interface SUBROUTINE BD_BAROR0 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF, LVVEC, NBAROR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : BAROR_PID, BAROR_G0, BAROR_VV, BAROR_VVEC_TYPE, JBAROR - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_BAROR0 END INTERFACE diff --git a/Source/Interfaces/BD_BAROR_Interface.f90 b/Source/Interfaces/BD_BAROR_Interface.f90 index 55cf570c..aaf55c34 100644 --- a/Source/Interfaces/BD_BAROR_Interface.f90 +++ b/Source/Interfaces/BD_BAROR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_BAROR_Interface @@ -30,20 +30,20 @@ MODULE BD_BAROR_Interface SUBROUTINE BD_BAROR ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LVVEC, NBAROR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : BAROR_VVEC_TYPE, BAROR_G0, BAROR_VV, BAROR_PID - + IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_BAROR END INTERFACE diff --git a/Source/Interfaces/BD_BEAMOR0_Interface.f90 b/Source/Interfaces/BD_BEAMOR0_Interface.f90 index e421c853..b26be1e5 100644 --- a/Source/Interfaces/BD_BEAMOR0_Interface.f90 +++ b/Source/Interfaces/BD_BEAMOR0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_BEAMOR0_Interface @@ -30,19 +30,19 @@ MODULE BD_BEAMOR0_Interface SUBROUTINE BD_BEAMOR0 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF, LVVEC, NBEAMOR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : BEAMOR_PID, BEAMOR_G0, BEAMOR_VV, BEAMOR_VVEC_TYPE, JBEAMOR - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_BEAMOR0 END INTERFACE diff --git a/Source/Interfaces/BD_BEAMOR_Interface.f90 b/Source/Interfaces/BD_BEAMOR_Interface.f90 index dd73de2c..2f5e1f1f 100644 --- a/Source/Interfaces/BD_BEAMOR_Interface.f90 +++ b/Source/Interfaces/BD_BEAMOR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_BEAMOR_Interface @@ -30,20 +30,20 @@ MODULE BD_BEAMOR_Interface SUBROUTINE BD_BEAMOR ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LVVEC, NBEAMOR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : BEAMOR_VVEC_TYPE, BEAMOR_G0, BEAMOR_VV, BEAMOR_PID - + IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_BEAMOR END INTERFACE diff --git a/Source/Interfaces/BD_CBAR0_Interface.f90 b/Source/Interfaces/BD_CBAR0_Interface.f90 index 9b55644d..857b5c67 100644 --- a/Source/Interfaces/BD_CBAR0_Interface.f90 +++ b/Source/Interfaces/BD_CBAR0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CBAR0_Interface @@ -30,18 +30,18 @@ MODULE BD_CBAR0_Interface SUBROUTINE BD_CBAR0 ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, LBAROFF, LVVEC USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_CBAR0 END INTERFACE diff --git a/Source/Interfaces/BD_CBAR_Interface.f90 b/Source/Interfaces/BD_CBAR_Interface.f90 index 2adba512..d671a3e7 100644 --- a/Source/Interfaces/BD_CBAR_Interface.f90 +++ b/Source/Interfaces/BD_CBAR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CBAR_Interface @@ -30,7 +30,7 @@ MODULE BD_CBAR_Interface SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LBAROFF, LVVEC, MEDAT_CBAR, & @@ -42,13 +42,13 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) BAROR_VV, BEAMOR_VV, EDAT, ETYPE, JBAROR, JBEAMOR, VVEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein - + END SUBROUTINE BD_CBAR END INTERFACE diff --git a/Source/Interfaces/BD_CBUSH0_Interface.f90 b/Source/Interfaces/BD_CBUSH0_Interface.f90 index 8d9bc567..cdae144e 100644 --- a/Source/Interfaces/BD_CBUSH0_Interface.f90 +++ b/Source/Interfaces/BD_CBUSH0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CBUSH0_Interface @@ -30,18 +30,18 @@ MODULE BD_CBUSH0_Interface SUBROUTINE BD_CBUSH0 ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, LBUSHOFF, LVVEC USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_CBUSH0 END INTERFACE diff --git a/Source/Interfaces/BD_CBUSH_Interface.f90 b/Source/Interfaces/BD_CBUSH_Interface.f90 index 22494a15..e7a0d372 100644 --- a/Source/Interfaces/BD_CBUSH_Interface.f90 +++ b/Source/Interfaces/BD_CBUSH_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CBUSH_Interface diff --git a/Source/Interfaces/BD_CELAS1_Interface.f90 b/Source/Interfaces/BD_CELAS1_Interface.f90 index 3e1c651a..61e682cb 100644 --- a/Source/Interfaces/BD_CELAS1_Interface.f90 +++ b/Source/Interfaces/BD_CELAS1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CELAS1_Interface @@ -30,19 +30,19 @@ MODULE BD_CELAS1_Interface SUBROUTINE BD_CELAS1 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, MEDAT_CELAS1, NCELAS1, NELE, NEDAT USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_CELAS1 END INTERFACE diff --git a/Source/Interfaces/BD_CELAS2_Interface.f90 b/Source/Interfaces/BD_CELAS2_Interface.f90 index 9364e46a..aadce660 100644 --- a/Source/Interfaces/BD_CELAS2_Interface.f90 +++ b/Source/Interfaces/BD_CELAS2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CELAS2_Interface @@ -30,19 +30,19 @@ MODULE BD_CELAS2_Interface SUBROUTINE BD_CELAS2 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, MEDAT_CELAS2, NCELAS2, NELE, NEDAT, NPELAS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE, PELAS, RPELAS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_CELAS2 END INTERFACE diff --git a/Source/Interfaces/BD_CELAS3_Interface.f90 b/Source/Interfaces/BD_CELAS3_Interface.f90 index 4ef5a272..94fda4b0 100644 --- a/Source/Interfaces/BD_CELAS3_Interface.f90 +++ b/Source/Interfaces/BD_CELAS3_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CELAS3_Interface @@ -30,19 +30,19 @@ MODULE BD_CELAS3_Interface SUBROUTINE BD_CELAS3 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, MEDAT_CELAS3, NCELAS3, NELE, NEDAT USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_CELAS3 END INTERFACE diff --git a/Source/Interfaces/BD_CELAS4_Interface.f90 b/Source/Interfaces/BD_CELAS4_Interface.f90 index 2f34cda0..78b725b9 100644 --- a/Source/Interfaces/BD_CELAS4_Interface.f90 +++ b/Source/Interfaces/BD_CELAS4_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CELAS4_Interface @@ -30,19 +30,19 @@ MODULE BD_CELAS4_Interface SUBROUTINE BD_CELAS4 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, MEDAT_CELAS4, NCELAS4, NELE, NEDAT, NPELAS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE, PELAS, RPELAS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_CELAS4 END INTERFACE diff --git a/Source/Interfaces/BD_CHEXA0_Interface.f90 b/Source/Interfaces/BD_CHEXA0_Interface.f90 index 72a0066e..ab5aab5a 100644 --- a/Source/Interfaces/BD_CHEXA0_Interface.f90 +++ b/Source/Interfaces/BD_CHEXA0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CHEXA0_Interface @@ -30,20 +30,20 @@ MODULE BD_CHEXA0_Interface SUBROUTINE BD_CHEXA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, MEDAT_CHEXA8, MEDAT_CHEXA20 USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format INTEGER(LONG), INTENT(OUT) :: DELTA_LEDAT ! Delta number of words to add to LEDAT for this element - + END SUBROUTINE BD_CHEXA0 END INTERFACE diff --git a/Source/Interfaces/BD_CHEXA_Interface.f90 b/Source/Interfaces/BD_CHEXA_Interface.f90 index e2a447fd..dfd014ac 100644 --- a/Source/Interfaces/BD_CHEXA_Interface.f90 +++ b/Source/Interfaces/BD_CHEXA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CHEXA_Interface @@ -30,21 +30,21 @@ MODULE BD_CHEXA_Interface SUBROUTINE BD_CHEXA ( CARD, LARGE_FLD_INP, NUM_GRD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, JCARD_LEN, NCHEXA8, NCHEXA20, NEDAT, NELE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ETYPE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: NUM_GRD ! Number of GRID's + SPOINT's for the elem - + END SUBROUTINE BD_CHEXA END INTERFACE diff --git a/Source/Interfaces/BD_CMASS1_Interface.f90 b/Source/Interfaces/BD_CMASS1_Interface.f90 index ea8a58ea..c51c80c0 100644 --- a/Source/Interfaces/BD_CMASS1_Interface.f90 +++ b/Source/Interfaces/BD_CMASS1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CMASS1_Interface @@ -30,19 +30,19 @@ MODULE BD_CMASS1_Interface SUBROUTINE BD_CMASS1 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NCMASS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CMASS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_CMASS1 END INTERFACE diff --git a/Source/Interfaces/BD_CMASS2_Interface.f90 b/Source/Interfaces/BD_CMASS2_Interface.f90 index 6a27db45..968cb569 100644 --- a/Source/Interfaces/BD_CMASS2_Interface.f90 +++ b/Source/Interfaces/BD_CMASS2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CMASS2_Interface @@ -30,19 +30,19 @@ MODULE BD_CMASS2_Interface SUBROUTINE BD_CMASS2 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NCMASS, NPMASS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CMASS, PMASS, RPMASS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_CMASS2 END INTERFACE diff --git a/Source/Interfaces/BD_CMASS3_Interface.f90 b/Source/Interfaces/BD_CMASS3_Interface.f90 index cf9246d5..1b8d0c9d 100644 --- a/Source/Interfaces/BD_CMASS3_Interface.f90 +++ b/Source/Interfaces/BD_CMASS3_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CMASS3_Interface @@ -30,19 +30,19 @@ MODULE BD_CMASS3_Interface SUBROUTINE BD_CMASS3 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NCMASS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CMASS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_CMASS3 END INTERFACE diff --git a/Source/Interfaces/BD_CMASS4_Interface.f90 b/Source/Interfaces/BD_CMASS4_Interface.f90 index 5b683178..1823c881 100644 --- a/Source/Interfaces/BD_CMASS4_Interface.f90 +++ b/Source/Interfaces/BD_CMASS4_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CMASS4_Interface @@ -30,19 +30,19 @@ MODULE BD_CMASS4_Interface SUBROUTINE BD_CMASS4 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NCMASS, NPMASS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CMASS, PMASS, RPMASS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_CMASS4 END INTERFACE diff --git a/Source/Interfaces/BD_CONM2_Interface.f90 b/Source/Interfaces/BD_CONM2_Interface.f90 index 71fdbd1c..bbf29094 100644 --- a/Source/Interfaces/BD_CONM2_Interface.f90 +++ b/Source/Interfaces/BD_CONM2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CONM2_Interface @@ -30,7 +30,7 @@ MODULE BD_CONM2_Interface SUBROUTINE BD_CONM2 ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, LCONM2, NCONM2, WARN_ERR @@ -38,14 +38,14 @@ SUBROUTINE BD_CONM2 ( CARD, LARGE_FLD_INP ) USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : CONM2, RCONM2 - + IMPLICIT NONE CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_CONM2 END INTERFACE diff --git a/Source/Interfaces/BD_CONROD_Interface.f90 b/Source/Interfaces/BD_CONROD_Interface.f90 index cc98d7c6..9fc29a8f 100644 --- a/Source/Interfaces/BD_CONROD_Interface.f90 +++ b/Source/Interfaces/BD_CONROD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CONROD_Interface @@ -30,19 +30,19 @@ MODULE BD_CONROD_Interface SUBROUTINE BD_CONROD ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF, MEDAT_CROD, NCROD, NELE, NEDAT, NPROD USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE, PROD, RPROD - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_CONROD END INTERFACE diff --git a/Source/Interfaces/BD_CORD_Interface.f90 b/Source/Interfaces/BD_CORD_Interface.f90 index 05b598f1..8c05bc6e 100644 --- a/Source/Interfaces/BD_CORD_Interface.f90 +++ b/Source/Interfaces/BD_CORD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CORD_Interface @@ -30,20 +30,20 @@ MODULE BD_CORD_Interface SUBROUTINE BD_CORD ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, IERRFL, JCARD_LEN, JF, LCORD, NCORD, NCORD1, NCORD2, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CORD, RCORD - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_CORD END INTERFACE diff --git a/Source/Interfaces/BD_CPENTA0_Interface.f90 b/Source/Interfaces/BD_CPENTA0_Interface.f90 index e5cc33f8..fe7eed88 100644 --- a/Source/Interfaces/BD_CPENTA0_Interface.f90 +++ b/Source/Interfaces/BD_CPENTA0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CPENTA0_Interface @@ -30,20 +30,20 @@ MODULE BD_CPENTA0_Interface SUBROUTINE BD_CPENTA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, MEDAT_CPENTA6, MEDAT_CPENTA15 USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format INTEGER(LONG), INTENT(OUT) :: DELTA_LEDAT ! Delta number of words to add to LEDAT for this element - + END SUBROUTINE BD_CPENTA0 END INTERFACE diff --git a/Source/Interfaces/BD_CPENTA_Interface.f90 b/Source/Interfaces/BD_CPENTA_Interface.f90 index 46ddcaaf..1071c7f5 100644 --- a/Source/Interfaces/BD_CPENTA_Interface.f90 +++ b/Source/Interfaces/BD_CPENTA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CPENTA_Interface @@ -30,21 +30,21 @@ MODULE BD_CPENTA_Interface SUBROUTINE BD_CPENTA ( CARD, LARGE_FLD_INP, NUM_GRD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, JCARD_LEN, NCPENTA6, NCPENTA15, NEDAT, NELE, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ETYPE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: NUM_GRD ! Number of GRID's + SPOINT's for the elem - + END SUBROUTINE BD_CPENTA END INTERFACE diff --git a/Source/Interfaces/BD_CQUAD0_Interface.f90 b/Source/Interfaces/BD_CQUAD0_Interface.f90 index c75ee643..5d2d30bf 100644 --- a/Source/Interfaces/BD_CQUAD0_Interface.f90 +++ b/Source/Interfaces/BD_CQUAD0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CQUAD0_Interface @@ -30,19 +30,19 @@ MODULE BD_CQUAD0_Interface SUBROUTINE BD_CQUAD0 ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, LMATANGLE, LPLATEOFF, LPLATETHICK USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_CQUAD0 END INTERFACE diff --git a/Source/Interfaces/BD_CQUAD80_Interface.f90 b/Source/Interfaces/BD_CQUAD80_Interface.f90 index 2b0245d7..bfec2b8f 100644 --- a/Source/Interfaces/BD_CQUAD80_Interface.f90 +++ b/Source/Interfaces/BD_CQUAD80_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CQUAD80_Interface @@ -38,15 +38,15 @@ SUBROUTINE BD_CQUAD80 ( CARD, LARGE_FLD_INP ) USE NEXTC20_Interface IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + END SUBROUTINE BD_CQUAD80 END INTERFACE diff --git a/Source/Interfaces/BD_CQUAD8_Interface.f90 b/Source/Interfaces/BD_CQUAD8_Interface.f90 index e8fe63fc..5ce2460b 100644 --- a/Source/Interfaces/BD_CQUAD8_Interface.f90 +++ b/Source/Interfaces/BD_CQUAD8_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CQUAD8_Interface @@ -36,7 +36,7 @@ SUBROUTINE BD_CQUAD8 ( CARD, LARGE_FLD_INP, NUM_GRD ) MEDAT_CQUAD8, NCQUAD8, NEDAT, NELE, NMATANGLE, NPLATEOFF, NPLATETHICK USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : EDAT, ETYPE, MATANGLE, PLATEOFF, PLATETHICK - + USE MKJCARD_Interface USE ELEPRO_Interface USE TOKCHK_Interface @@ -50,7 +50,7 @@ SUBROUTINE BD_CQUAD8 ( CARD, LARGE_FLD_INP, NUM_GRD ) USE CARD_FLDS_NOT_BLANK_Interface IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CQUAD8' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -68,9 +68,9 @@ SUBROUTINE BD_CQUAD8 ( CARD, LARGE_FLD_INP, NUM_GRD ) INTEGER(LONG) :: INT41,INT42 ! An integer used in getting MATANGLE INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + REAL(DOUBLE) :: R8INP = ZERO ! A value read from input file that should be a real value - + END SUBROUTINE BD_CQUAD8 END INTERFACE diff --git a/Source/Interfaces/BD_CQUAD_Interface.f90 b/Source/Interfaces/BD_CQUAD_Interface.f90 index 7d42b58b..67c890ad 100644 --- a/Source/Interfaces/BD_CQUAD_Interface.f90 +++ b/Source/Interfaces/BD_CQUAD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CQUAD_Interface @@ -30,7 +30,7 @@ MODULE BD_CQUAD_Interface SUBROUTINE BD_CQUAD ( CARD, LARGE_FLD_INP, NUM_GRD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, FATAL_ERR, JCARD_LEN, JF, LMATANGLE, LPLATEOFF, LPLATETHICK, & @@ -38,16 +38,16 @@ SUBROUTINE BD_CQUAD ( CARD, LARGE_FLD_INP, NUM_GRD ) USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : EDAT, ETYPE, MATANGLE, PLATEOFF, PLATETHICK - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format INTEGER(LONG), INTENT(OUT) :: NUM_GRD ! Number of GRID's + SPOINT's for the elem INTEGER(LONG) :: INT41,INT42 ! An integer used in getting MATANGLE - + END SUBROUTINE BD_CQUAD END INTERFACE diff --git a/Source/Interfaces/BD_CROD_Interface.f90 b/Source/Interfaces/BD_CROD_Interface.f90 index 09271c27..6c4b0980 100644 --- a/Source/Interfaces/BD_CROD_Interface.f90 +++ b/Source/Interfaces/BD_CROD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CROD_Interface @@ -30,19 +30,19 @@ MODULE BD_CROD_Interface SUBROUTINE BD_CROD ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, MEDAT_CROD, NCROD, NEDAT, NELE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ETYPE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_CROD END INTERFACE diff --git a/Source/Interfaces/BD_CSHEAR_Interface.f90 b/Source/Interfaces/BD_CSHEAR_Interface.f90 index 48e46ed5..b60ff3fd 100644 --- a/Source/Interfaces/BD_CSHEAR_Interface.f90 +++ b/Source/Interfaces/BD_CSHEAR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CSHEAR_Interface @@ -30,15 +30,15 @@ MODULE BD_CSHEAR_Interface SUBROUTINE BD_CSHEAR ( CARD, NUM_GRD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF, MEDAT_CSHEAR, NCSHEAR, NELE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card INTEGER(LONG), INTENT(OUT) :: NUM_GRD ! Number of GRID's + SPOINT's for the elem diff --git a/Source/Interfaces/BD_CTETRA0_Interface.f90 b/Source/Interfaces/BD_CTETRA0_Interface.f90 index 17189c5a..aea9d20c 100644 --- a/Source/Interfaces/BD_CTETRA0_Interface.f90 +++ b/Source/Interfaces/BD_CTETRA0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CTETRA0_Interface @@ -30,20 +30,20 @@ MODULE BD_CTETRA0_Interface SUBROUTINE BD_CTETRA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, MEDAT_CTETRA4, MEDAT_CTETRA10 USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: DELTA_LEDAT ! Delta number of words to add to LEDAT for this element - + END SUBROUTINE BD_CTETRA0 END INTERFACE diff --git a/Source/Interfaces/BD_CTETRA_Interface.f90 b/Source/Interfaces/BD_CTETRA_Interface.f90 index 7d6338ca..9e85a22c 100644 --- a/Source/Interfaces/BD_CTETRA_Interface.f90 +++ b/Source/Interfaces/BD_CTETRA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CTETRA_Interface @@ -30,21 +30,21 @@ MODULE BD_CTETRA_Interface SUBROUTINE BD_CTETRA ( CARD, LARGE_FLD_INP, NUM_GRD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, FATAL_ERR, NCTETRA4, NCTETRA10, NEDAT, NELE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ETYPE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: NUM_GRD ! Number of GRID's + SPOINT's for the elem - + END SUBROUTINE BD_CTETRA END INTERFACE diff --git a/Source/Interfaces/BD_CTRIA0_Interface.f90 b/Source/Interfaces/BD_CTRIA0_Interface.f90 index 65a06b4b..9ece0729 100644 --- a/Source/Interfaces/BD_CTRIA0_Interface.f90 +++ b/Source/Interfaces/BD_CTRIA0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CTRIA0_Interface @@ -30,19 +30,19 @@ MODULE BD_CTRIA0_Interface SUBROUTINE BD_CTRIA0 ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, LMATANGLE, LPLATEOFF, LPLATETHICK USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_CTRIA0 END INTERFACE diff --git a/Source/Interfaces/BD_CTRIA_Interface.f90 b/Source/Interfaces/BD_CTRIA_Interface.f90 index 6d9e623a..b169b626 100644 --- a/Source/Interfaces/BD_CTRIA_Interface.f90 +++ b/Source/Interfaces/BD_CTRIA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CTRIA_Interface @@ -30,7 +30,7 @@ MODULE BD_CTRIA_Interface SUBROUTINE BD_CTRIA ( CARD, LARGE_FLD_INP, NUM_GRD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, FATAL_ERR, JCARD_LEN, JF, LMATANGLE, LPLATEOFF, LPLATETHICK, & @@ -38,16 +38,16 @@ SUBROUTINE BD_CTRIA ( CARD, LARGE_FLD_INP, NUM_GRD ) USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : EDAT, ETYPE, MATANGLE, PLATEOFF, PLATETHICK - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: NUM_GRD ! Number of GRID's + SPOINT's for the elem INTEGER(LONG) :: INT41,INT42 ! An integer used in getting MATANGLE - + END SUBROUTINE BD_CTRIA END INTERFACE diff --git a/Source/Interfaces/BD_CUSER1_Interface.f90 b/Source/Interfaces/BD_CUSER1_Interface.f90 index c44afb08..b290f678 100644 --- a/Source/Interfaces/BD_CUSER1_Interface.f90 +++ b/Source/Interfaces/BD_CUSER1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CUSER1_Interface @@ -30,22 +30,22 @@ MODULE BD_CUSER1_Interface SUBROUTINE BD_CUSER1 ( CARD, LARGE_FLD_INP, NUM_GRD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, JF, MEDAT_CUSER1, NCUSER1, NEDAT, NELE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CUSER1' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: NUM_GRD ! Number of GRID's + SPOINT's for the elem - + END SUBROUTINE BD_CUSER1 END INTERFACE diff --git a/Source/Interfaces/BD_CUSERIN0_Interface.f90 b/Source/Interfaces/BD_CUSERIN0_Interface.f90 index 3ae4b3dc..8001376c 100644 --- a/Source/Interfaces/BD_CUSERIN0_Interface.f90 +++ b/Source/Interfaces/BD_CUSERIN0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CUSERIN0_Interface @@ -30,20 +30,20 @@ MODULE BD_CUSERIN0_Interface SUBROUTINE BD_CUSERIN0 ( CARD, NG, NS ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CUSERIN' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG), INTENT(OUT) :: NG ! Number of GRID's INTEGER(LONG), INTENT(OUT) :: NS ! Number of SPOINT's - + END SUBROUTINE BD_CUSERIN0 END INTERFACE diff --git a/Source/Interfaces/BD_CUSERIN_Interface.f90 b/Source/Interfaces/BD_CUSERIN_Interface.f90 index a08d62e1..e8a8a21b 100644 --- a/Source/Interfaces/BD_CUSERIN_Interface.f90 +++ b/Source/Interfaces/BD_CUSERIN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CUSERIN_Interface @@ -30,21 +30,21 @@ MODULE BD_CUSERIN_Interface SUBROUTINE BD_CUSERIN ( CARD, LARGE_FLD_INP, NG, NS ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LGUSERIN, LSUSERIN, MEDAT0_CUSERIN, & - NCUSERIN, NEDAT, NELE, WARN_ERR + NCUSERIN, NEDAT, NELE, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : EDAT, ETYPE - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CUSERIN' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: NG ! Number of GRID's for the elem as defined on parent card field 5 INTEGER(LONG), INTENT(OUT) :: NS ! Number of SPOINT's for the elem as defined on parent card field 5 @@ -58,7 +58,7 @@ SUBROUTINE BD_CUSERIN ( CARD, LARGE_FLD_INP, NG, NS ) INTEGER(LONG) :: USERIN_COMPS(LGUSERIN) - + END SUBROUTINE BD_CUSERIN END INTERFACE diff --git a/Source/Interfaces/BD_DEBUG0_Interface.f90 b/Source/Interfaces/BD_DEBUG0_Interface.f90 index edc593fe..7af20559 100644 --- a/Source/Interfaces/BD_DEBUG0_Interface.f90 +++ b/Source/Interfaces/BD_DEBUG0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_DEBUG0_Interface @@ -30,21 +30,21 @@ MODULE BD_DEBUG0_Interface SUBROUTINE BD_DEBUG0 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, IERRFL, JCARD_LEN, JF, WARN_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, IERRFL, JCARD_LEN, JF, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE DEBUG_PARAMETERS, ONLY : DEBUG, NDEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG), PARAMETER :: LOWER = 1 ! Lower allowable value for an integer parameter INTEGER(LONG) :: UPPER = NDEBUG ! Upper allowable value for an integer parameter - + END SUBROUTINE BD_DEBUG0 END INTERFACE diff --git a/Source/Interfaces/BD_DEBUG_Interface.f90 b/Source/Interfaces/BD_DEBUG_Interface.f90 index 1e8f6e96..e96a72d9 100644 --- a/Source/Interfaces/BD_DEBUG_Interface.f90 +++ b/Source/Interfaces/BD_DEBUG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_DEBUG_Interface @@ -30,22 +30,22 @@ MODULE BD_DEBUG_Interface SUBROUTINE BD_DEBUG ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, IERRFL, JCARD_LEN, JF, WARN_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, IERRFL, JCARD_LEN, JF, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE DEBUG_PARAMETERS, ONLY : DEBUG, NDEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG), PARAMETER :: LOWER = 1 ! Lower allowable value for an integer parameter INTEGER(LONG) :: UPPER = NDEBUG ! Upper allowable value for an integer parameter - + END SUBROUTINE BD_DEBUG END INTERFACE diff --git a/Source/Interfaces/BD_EIGRL_Interface.f90 b/Source/Interfaces/BD_EIGRL_Interface.f90 index a24ad574..305f1baf 100644 --- a/Source/Interfaces/BD_EIGRL_Interface.f90 +++ b/Source/Interfaces/BD_EIGRL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_EIGRL_Interface @@ -30,7 +30,7 @@ MODULE BD_EIGRL_Interface SUBROUTINE BD_EIGRL ( CARD, LARGE_FLD_INP, EIGFND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1M USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF diff --git a/Source/Interfaces/BD_EIGR_Interface.f90 b/Source/Interfaces/BD_EIGR_Interface.f90 index 3c626385..46a82881 100644 --- a/Source/Interfaces/BD_EIGR_Interface.f90 +++ b/Source/Interfaces/BD_EIGR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_EIGR_Interface @@ -30,7 +30,7 @@ MODULE BD_EIGR_Interface SUBROUTINE BD_EIGR ( CARD, LARGE_FLD_INP, EIGFND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1M USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF diff --git a/Source/Interfaces/BD_FORMOM_Interface.f90 b/Source/Interfaces/BD_FORMOM_Interface.f90 index b33ff1e3..54200276 100644 --- a/Source/Interfaces/BD_FORMOM_Interface.f90 +++ b/Source/Interfaces/BD_FORMOM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_FORMOM_Interface @@ -30,7 +30,7 @@ MODULE BD_FORMOM_Interface SUBROUTINE BD_FORMOM ( CARD, CC_LOAD_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1I USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, LFORCE, LSUB, NFORCE, NSUB, WARN_ERR @@ -38,14 +38,14 @@ SUBROUTINE BD_FORMOM ( CARD, CC_LOAD_FND ) USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : EPSIL, SUPWARN USE MODEL_STUF, ONLY : FORMOM_SIDS, SUBLOD - + IMPLICIT NONE - + CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2) ! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID - - + + END SUBROUTINE BD_FORMOM END INTERFACE diff --git a/Source/Interfaces/BD_GRAV_Interface.f90 b/Source/Interfaces/BD_GRAV_Interface.f90 index 8a09ff18..563ff017 100644 --- a/Source/Interfaces/BD_GRAV_Interface.f90 +++ b/Source/Interfaces/BD_GRAV_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_GRAV_Interface @@ -30,22 +30,22 @@ MODULE BD_GRAV_Interface SUBROUTINE BD_GRAV ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1P USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LGRAV, LSUB, NGRAV, NSUB USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : GRAV_SIDS, SUBLOD - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2)! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID - - + + END SUBROUTINE BD_GRAV END INTERFACE diff --git a/Source/Interfaces/BD_GRDSET0_Interface.f90 b/Source/Interfaces/BD_GRDSET0_Interface.f90 index 4e5df3cb..dabe76f0 100644 --- a/Source/Interfaces/BD_GRDSET0_Interface.f90 +++ b/Source/Interfaces/BD_GRDSET0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_GRDSET0_Interface @@ -30,20 +30,20 @@ MODULE BD_GRDSET0_Interface SUBROUTINE BD_GRDSET0 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, JF, IERRFL, NGRDSET USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRDSET3, GRDSET7, GRDSET8 - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein - + END SUBROUTINE BD_GRDSET0 END INTERFACE diff --git a/Source/Interfaces/BD_GRDSET_Interface.f90 b/Source/Interfaces/BD_GRDSET_Interface.f90 index 3ff2b477..198342b8 100644 --- a/Source/Interfaces/BD_GRDSET_Interface.f90 +++ b/Source/Interfaces/BD_GRDSET_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_GRDSET_Interface @@ -30,20 +30,20 @@ MODULE BD_GRDSET_Interface SUBROUTINE BD_GRDSET ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NGRDSET USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRDSET3, GRDSET7, GRDSET8 - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein - + END SUBROUTINE BD_GRDSET END INTERFACE diff --git a/Source/Interfaces/BD_GRID_Interface.f90 b/Source/Interfaces/BD_GRID_Interface.f90 index 3e558935..75663fbf 100644 --- a/Source/Interfaces/BD_GRID_Interface.f90 +++ b/Source/Interfaces/BD_GRID_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_GRID_Interface @@ -30,20 +30,20 @@ MODULE BD_GRID_Interface SUBROUTINE BD_GRID ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LGRID, NGRID, NGRDSET USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRID, RGRID, GRDSET3, GRDSET7, GRDSET8 - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein - + END SUBROUTINE BD_GRID END INTERFACE diff --git a/Source/Interfaces/BD_IMBEDDED_BLANK_Interface.f90 b/Source/Interfaces/BD_IMBEDDED_BLANK_Interface.f90 index 8be13dcd..7a346b5f 100644 --- a/Source/Interfaces/BD_IMBEDDED_BLANK_Interface.f90 +++ b/Source/Interfaces/BD_IMBEDDED_BLANK_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_IMBEDDED_BLANK_Interface @@ -30,16 +30,16 @@ MODULE BD_IMBEDDED_BLANK_Interface SUBROUTINE BD_IMBEDDED_BLANK ( JCARD, CF2, CF3, CF4, CF5, CF6, CF7, CF8, CF9 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, BLNK_SUB_NAM, JCARD_LEN USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG), INTENT(IN) :: CF2 ! = 2 if field 2 is to be checked, or 0 otherwise INTEGER(LONG), INTENT(IN) :: CF3 ! = 3 if field 3 is to be checked, or 0 otherwise INTEGER(LONG), INTENT(IN) :: CF4 ! = 4 if field 4 is to be checked, or 0 otherwise @@ -49,7 +49,7 @@ SUBROUTINE BD_IMBEDDED_BLANK ( JCARD, CF2, CF3, CF4, CF5, CF6, CF7, CF8, CF9 ) INTEGER(LONG), INTENT(IN) :: CF8 ! = 8 if field 8 is to be checked, or 0 otherwise INTEGER(LONG), INTENT(IN) :: CF9 ! = 9 if field 9 is to be checked, or 0 otherwise - + END SUBROUTINE BD_IMBEDDED_BLANK END INTERFACE diff --git a/Source/Interfaces/BD_LOAD0_Interface.f90 b/Source/Interfaces/BD_LOAD0_Interface.f90 index 1b878205..41f02ebd 100644 --- a/Source/Interfaces/BD_LOAD0_Interface.f90 +++ b/Source/Interfaces/BD_LOAD0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_LOAD0_Interface @@ -30,20 +30,20 @@ MODULE BD_LOAD0_Interface SUBROUTINE BD_LOAD0 ( CARD, LARGE_FLD_INP, ILOAD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: ILOAD ! Count of no. real load factors on this card. Starts with 1 - + END SUBROUTINE BD_LOAD0 END INTERFACE diff --git a/Source/Interfaces/BD_LOAD_Interface.f90 b/Source/Interfaces/BD_LOAD_Interface.f90 index f4f683a7..e8430055 100644 --- a/Source/Interfaces/BD_LOAD_Interface.f90 +++ b/Source/Interfaces/BD_LOAD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_LOAD_Interface @@ -30,21 +30,21 @@ MODULE BD_LOAD_Interface SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LLOADR, LSUB, NLOAD, LLOADC, NSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : LOAD_SIDS, LOAD_FACS, SUBLOD - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2) ! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_LOAD END INTERFACE diff --git a/Source/Interfaces/BD_MAT1_Interface.f90 b/Source/Interfaces/BD_MAT1_Interface.f90 index 6cdef9f7..1402ca6a 100644 --- a/Source/Interfaces/BD_MAT1_Interface.f90 +++ b/Source/Interfaces/BD_MAT1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MAT1_Interface @@ -43,7 +43,7 @@ SUBROUTINE BD_MAT1 ( CARD, LARGE_FLD_INP ) CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + END SUBROUTINE BD_MAT1 diff --git a/Source/Interfaces/BD_MAT2_Interface.f90 b/Source/Interfaces/BD_MAT2_Interface.f90 index 3de4bb94..2da428ab 100644 --- a/Source/Interfaces/BD_MAT2_Interface.f90 +++ b/Source/Interfaces/BD_MAT2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MAT2_Interface @@ -43,7 +43,7 @@ SUBROUTINE BD_MAT2 ( CARD, LARGE_FLD_INP ) CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + END SUBROUTINE BD_MAT2 diff --git a/Source/Interfaces/BD_MAT8_Interface.f90 b/Source/Interfaces/BD_MAT8_Interface.f90 index ff938405..de2d4465 100644 --- a/Source/Interfaces/BD_MAT8_Interface.f90 +++ b/Source/Interfaces/BD_MAT8_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MAT8_Interface @@ -43,7 +43,7 @@ SUBROUTINE BD_MAT8 ( CARD, LARGE_FLD_INP ) CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + END SUBROUTINE BD_MAT8 diff --git a/Source/Interfaces/BD_MAT9_Interface.f90 b/Source/Interfaces/BD_MAT9_Interface.f90 index f26650bb..825507a1 100644 --- a/Source/Interfaces/BD_MAT9_Interface.f90 +++ b/Source/Interfaces/BD_MAT9_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MAT9_Interface @@ -43,7 +43,7 @@ SUBROUTINE BD_MAT9 ( CARD, LARGE_FLD_INP ) CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + END SUBROUTINE BD_MAT9 diff --git a/Source/Interfaces/BD_MPC0_Interface.f90 b/Source/Interfaces/BD_MPC0_Interface.f90 index c4129013..e2e5aa3f 100644 --- a/Source/Interfaces/BD_MPC0_Interface.f90 +++ b/Source/Interfaces/BD_MPC0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MPC0_Interface @@ -30,20 +30,20 @@ MODULE BD_MPC0_Interface SUBROUTINE BD_MPC0 ( CARD, LARGE_FLD_INP, IMPC ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: IMPC ! Count of number of grid/comp/coeff triplets on this MPC logical card - + END SUBROUTINE BD_MPC0 END INTERFACE diff --git a/Source/Interfaces/BD_MPCADD0_Interface.f90 b/Source/Interfaces/BD_MPCADD0_Interface.f90 index d7f29efc..e1a1dddc 100644 --- a/Source/Interfaces/BD_MPCADD0_Interface.f90 +++ b/Source/Interfaces/BD_MPCADD0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MPCADD0_Interface @@ -30,17 +30,17 @@ MODULE BD_MPCADD0_Interface SUBROUTINE BD_MPCADD0 ( CARD, LARGE_FLD_INP, IMPCADD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: IMPCADD ! Count of number of MPC set ID's defined on the MPCADD diff --git a/Source/Interfaces/BD_MPCADD_Interface.f90 b/Source/Interfaces/BD_MPCADD_Interface.f90 index 6f20fbd7..7399221c 100644 --- a/Source/Interfaces/BD_MPCADD_Interface.f90 +++ b/Source/Interfaces/BD_MPCADD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MPCADD_Interface @@ -30,23 +30,23 @@ MODULE BD_MPCADD_Interface SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LMPCADDR, LSUB, NMPCADD, LMPCADDC, NSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : MPCADD_SIDS, MPCSET, SUBLOD - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_MPC_FND ! 'Y' if B.D card w/ same set ID as C.C. MPC = SID CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER( 3*BYTE) :: NAME1 = 'MPC' ! Name for output error message use CHARACTER( 6*BYTE) :: NAME2 = 'MPCADD'! Name for output error message use - - + + END SUBROUTINE BD_MPCADD END INTERFACE diff --git a/Source/Interfaces/BD_MPC_Interface.f90 b/Source/Interfaces/BD_MPC_Interface.f90 index 07c22c3f..f3bdf9fc 100644 --- a/Source/Interfaces/BD_MPC_Interface.f90 +++ b/Source/Interfaces/BD_MPC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MPC_Interface @@ -30,22 +30,22 @@ MODULE BD_MPC_Interface SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1S USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LMPC, LSUB, MMPC, NMPC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : MPCSET, MPC_SIDS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_MPC_FND ! ='Y' if this MPC is a set requested in Case Control CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_MPC END INTERFACE diff --git a/Source/Interfaces/BD_NLPARM_Interface.f90 b/Source/Interfaces/BD_NLPARM_Interface.f90 index 53e65e3e..a8fbd5f6 100644 --- a/Source/Interfaces/BD_NLPARM_Interface.f90 +++ b/Source/Interfaces/BD_NLPARM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_NLPARM_Interface @@ -30,18 +30,18 @@ MODULE BD_NLPARM_Interface SUBROUTINE BD_NLPARM ( CARD, CC_NLSID_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LSUB USE TIMDAT, ONLY : TSEC USE NONLINEAR_PARAMS, ONLY : NL_MAXITER, NL_NUM_LOAD_STEPS, NL_SID - + IMPLICIT NONE - + CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_NLSID_FND(LSUB)! 'Y' if B.D NLPARM card w/ same set ID (SID) as C.C. NLPARM = SID - + END SUBROUTINE BD_NLPARM diff --git a/Source/Interfaces/BD_PARAM0_Interface.f90 b/Source/Interfaces/BD_PARAM0_Interface.f90 index 267fc254..c1ede54f 100644 --- a/Source/Interfaces/BD_PARAM0_Interface.f90 +++ b/Source/Interfaces/BD_PARAM0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PARAM0_Interface @@ -30,17 +30,17 @@ MODULE BD_PARAM0_Interface SUBROUTINE BD_PARAM0 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, EPSIL1_SET, IERRFL, JCARD_LEN, JF, MEPSIL, MPBARLU USE IOUNT1, ONLY : WRT_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : EPSIL, GRIDSEQ, PBARLDEC, PBARLSHR - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + END SUBROUTINE BD_PARAM0 diff --git a/Source/Interfaces/BD_PARVEC1_Interface.f90 b/Source/Interfaces/BD_PARVEC1_Interface.f90 index f80df47d..b6e5425e 100644 --- a/Source/Interfaces/BD_PARVEC1_Interface.f90 +++ b/Source/Interfaces/BD_PARVEC1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PARVEC1_Interface diff --git a/Source/Interfaces/BD_PARVEC_Interface.f90 b/Source/Interfaces/BD_PARVEC_Interface.f90 index edee9d3d..aab1180a 100644 --- a/Source/Interfaces/BD_PARVEC_Interface.f90 +++ b/Source/Interfaces/BD_PARVEC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PARVEC_Interface @@ -30,7 +30,7 @@ MODULE BD_PARVEC_Interface SUBROUTINE BD_PARVEC ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1V USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, NUM_PARTVEC_RECORDS, WARN_ERR @@ -41,12 +41,12 @@ SUBROUTINE BD_PARVEC ( CARD ) USE DOF_TABLES, ONLY : TSET_CHR_LEN IMPLICIT NONE - + CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card INTEGER(LONG) :: IDUM ! Dummy arg in subr IP6CHK not used herein - + END SUBROUTINE BD_PARVEC END INTERFACE diff --git a/Source/Interfaces/BD_PBARL_Interface.f90 b/Source/Interfaces/BD_PBARL_Interface.f90 index cb121ceb..34249885 100644 --- a/Source/Interfaces/BD_PBARL_Interface.f90 +++ b/Source/Interfaces/BD_PBARL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PBARL_Interface @@ -30,7 +30,7 @@ MODULE BD_PBARL_Interface SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE DERIVED_DATA_TYPES, ONLY : CHAR1_INT1 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -41,17 +41,17 @@ SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PBAR, RPBAR - + IMPLICIT NONE - + INTEGER(LONG), PARAMETER :: NS = 25 ! Dimension of array BAR_SHAPE CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(OUT) :: PBARL_TYPE ! Name of the cross-section (e.g. I, BAR, etc) CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_PBARL END INTERFACE diff --git a/Source/Interfaces/BD_PBAR_Interface.f90 b/Source/Interfaces/BD_PBAR_Interface.f90 index f41e6878..c300c1e0 100644 --- a/Source/Interfaces/BD_PBAR_Interface.f90 +++ b/Source/Interfaces/BD_PBAR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PBAR_Interface @@ -30,7 +30,7 @@ MODULE BD_PBAR_Interface SUBROUTINE BD_PBAR ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE PARAMS, ONLY : EPSIL, SUPINFO @@ -38,14 +38,14 @@ SUBROUTINE BD_PBAR ( CARD, LARGE_FLD_INP ) USE CONSTANTS_1, ONLY : ZERO USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PBAR, RPBAR - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_PBAR END INTERFACE diff --git a/Source/Interfaces/BD_PBEAM_Interface.f90 b/Source/Interfaces/BD_PBEAM_Interface.f90 index 8b12c98a..649fa2ba 100644 --- a/Source/Interfaces/BD_PBEAM_Interface.f90 +++ b/Source/Interfaces/BD_PBEAM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PBEAM_Interface @@ -30,7 +30,7 @@ MODULE BD_PBEAM_Interface SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE PARAMS, ONLY : EPSIL @@ -39,12 +39,12 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PBEAM, RPBEAM USE PARAMS, ONLY : SUPINFO - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + END SUBROUTINE BD_PBEAM diff --git a/Source/Interfaces/BD_PBUSH_Interface.f90 b/Source/Interfaces/BD_PBUSH_Interface.f90 index ce6684f1..83ed1f20 100644 --- a/Source/Interfaces/BD_PBUSH_Interface.f90 +++ b/Source/Interfaces/BD_PBUSH_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PBUSH_Interface @@ -30,7 +30,7 @@ MODULE BD_PBUSH_Interface SUBROUTINE BD_PBUSH ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE PARAMS, ONLY : EPSIL @@ -38,14 +38,14 @@ SUBROUTINE BD_PBUSH ( CARD, LARGE_FLD_INP ) USE CONSTANTS_1, ONLY : ZERO, ONE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PBUSH, RPBUSH - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_PBUSH END INTERFACE diff --git a/Source/Interfaces/BD_PCOMP0_Interface.f90 b/Source/Interfaces/BD_PCOMP0_Interface.f90 index 192d5d61..7eead55a 100644 --- a/Source/Interfaces/BD_PCOMP0_Interface.f90 +++ b/Source/Interfaces/BD_PCOMP0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PCOMP0_Interface @@ -30,20 +30,20 @@ MODULE BD_PCOMP0_Interface SUBROUTINE BD_PCOMP0 ( CARD, LARGE_FLD_INP, IPLIES ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : f06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: IPLIES ! Count of number of plies defined by this PCOMP - + END SUBROUTINE BD_PCOMP0 END INTERFACE diff --git a/Source/Interfaces/BD_PCOMP10_Interface.f90 b/Source/Interfaces/BD_PCOMP10_Interface.f90 index c457cf07..96206e46 100644 --- a/Source/Interfaces/BD_PCOMP10_Interface.f90 +++ b/Source/Interfaces/BD_PCOMP10_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PCOMP10_Interface @@ -30,20 +30,20 @@ MODULE BD_PCOMP10_Interface SUBROUTINE BD_PCOMP10 ( CARD, LARGE_FLD_INP, IPLIES ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : f06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: IPLIES ! Count of number of plies defined by this PCOMP1 - + END SUBROUTINE BD_PCOMP10 END INTERFACE diff --git a/Source/Interfaces/BD_PCOMP1_Interface.f90 b/Source/Interfaces/BD_PCOMP1_Interface.f90 index 2306be7f..b0124595 100644 --- a/Source/Interfaces/BD_PCOMP1_Interface.f90 +++ b/Source/Interfaces/BD_PCOMP1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PCOMP1_Interface @@ -30,7 +30,7 @@ MODULE BD_PCOMP1_Interface SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPCOMP_PLIES, LPCOMP, MPCOMP0, MRPCOMP0, & @@ -42,12 +42,12 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) USE PARAMS, ONLY : EPSIL IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_PCOMP1 END INTERFACE diff --git a/Source/Interfaces/BD_PCOMP_Interface.f90 b/Source/Interfaces/BD_PCOMP_Interface.f90 index d4797edd..9efe93a3 100644 --- a/Source/Interfaces/BD_PCOMP_Interface.f90 +++ b/Source/Interfaces/BD_PCOMP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PCOMP_Interface @@ -30,7 +30,7 @@ MODULE BD_PCOMP_Interface SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPCOMP, MPCOMP0, MRPCOMP0, MPCOMP_PLIES, & @@ -42,12 +42,12 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) USE PARAMS, ONLY : EPSIL IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_PCOMP END INTERFACE diff --git a/Source/Interfaces/BD_PELAS_Interface.f90 b/Source/Interfaces/BD_PELAS_Interface.f90 index ed231a5f..f8d987a7 100644 --- a/Source/Interfaces/BD_PELAS_Interface.f90 +++ b/Source/Interfaces/BD_PELAS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PELAS_Interface @@ -30,19 +30,19 @@ MODULE BD_PELAS_Interface SUBROUTINE BD_PELAS ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPELAS, NPELAS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PELAS, RPELAS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_PELAS END INTERFACE diff --git a/Source/Interfaces/BD_PLOAD2_Interface.f90 b/Source/Interfaces/BD_PLOAD2_Interface.f90 index 9275203b..a14c12c8 100644 --- a/Source/Interfaces/BD_PLOAD2_Interface.f90 +++ b/Source/Interfaces/BD_PLOAD2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PLOAD2_Interface @@ -30,7 +30,7 @@ MODULE BD_PLOAD2_Interface SUBROUTINE BD_PLOAD2 ( CARD, CC_LOAD_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1Q USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPLOAD, LSUB, NPCARD, NPLOAD, NSUB @@ -41,10 +41,10 @@ SUBROUTINE BD_PLOAD2 ( CARD, CC_LOAD_FND ) CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2)! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID - + INTEGER(LONG) :: PLOAD_ELID(6) ! Elem ID's on parent card if "THRU" not used for input - + END SUBROUTINE BD_PLOAD2 END INTERFACE diff --git a/Source/Interfaces/BD_PLOAD4_Interface.f90 b/Source/Interfaces/BD_PLOAD4_Interface.f90 index cc5ea867..9da61d5b 100644 --- a/Source/Interfaces/BD_PLOAD4_Interface.f90 +++ b/Source/Interfaces/BD_PLOAD4_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PLOAD4_Interface @@ -30,7 +30,7 @@ MODULE BD_PLOAD4_Interface SUBROUTINE BD_PLOAD4 ( CARD, CC_LOAD_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1Q USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPLOAD, LSUB, NPCARD, NPLOAD, & @@ -42,9 +42,9 @@ SUBROUTINE BD_PLOAD4 ( CARD, CC_LOAD_FND ) CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2)! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID - - + + END SUBROUTINE BD_PLOAD4 END INTERFACE diff --git a/Source/Interfaces/BD_PLOTEL_Interface.f90 b/Source/Interfaces/BD_PLOTEL_Interface.f90 index 27be2f59..9809bc0f 100644 --- a/Source/Interfaces/BD_PLOTEL_Interface.f90 +++ b/Source/Interfaces/BD_PLOTEL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PLOTEL_Interface @@ -30,15 +30,15 @@ MODULE BD_PLOTEL_Interface SUBROUTINE BD_PLOTEL ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : F06 USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF, MEDAT_PLOTEL, NELE, NPLOTEL USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card diff --git a/Source/Interfaces/BD_PMASS_Interface.f90 b/Source/Interfaces/BD_PMASS_Interface.f90 index 5306aa05..90cc308d 100644 --- a/Source/Interfaces/BD_PMASS_Interface.f90 +++ b/Source/Interfaces/BD_PMASS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PMASS_Interface @@ -30,19 +30,19 @@ MODULE BD_PMASS_Interface SUBROUTINE BD_PMASS ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NPMASS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PMASS, RPMASS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_PMASS END INTERFACE diff --git a/Source/Interfaces/BD_PROD_Interface.f90 b/Source/Interfaces/BD_PROD_Interface.f90 index 8500d208..d6633850 100644 --- a/Source/Interfaces/BD_PROD_Interface.f90 +++ b/Source/Interfaces/BD_PROD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PROD_Interface @@ -30,7 +30,7 @@ MODULE BD_PROD_Interface SUBROUTINE BD_PROD ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPROD, NPROD @@ -38,11 +38,11 @@ SUBROUTINE BD_PROD ( CARD ) USE MODEL_STUF, ONLY : PROD, RPROD IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_PROD END INTERFACE diff --git a/Source/Interfaces/BD_PSHEAR_Interface.f90 b/Source/Interfaces/BD_PSHEAR_Interface.f90 index a5329f0e..ce35a0d5 100644 --- a/Source/Interfaces/BD_PSHEAR_Interface.f90 +++ b/Source/Interfaces/BD_PSHEAR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PSHEAR_Interface @@ -30,15 +30,15 @@ MODULE BD_PSHEAR_Interface SUBROUTINE BD_PSHEAR ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, MPSHEAR, MRPSHEAR, NPSHEAR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PSHEAR, RPSHEAR - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card diff --git a/Source/Interfaces/BD_PSHEL_Interface.f90 b/Source/Interfaces/BD_PSHEL_Interface.f90 index b71f2060..0031d31a 100644 --- a/Source/Interfaces/BD_PSHEL_Interface.f90 +++ b/Source/Interfaces/BD_PSHEL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PSHEL_Interface @@ -30,7 +30,7 @@ MODULE BD_PSHEL_Interface SUBROUTINE BD_PSHEL ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : IERRFL, FATAL_ERR, JCARD_LEN, JF, LPSHEL, NPSHEL, BLNK_SUB_NAM @@ -38,14 +38,14 @@ SUBROUTINE BD_PSHEL ( CARD, LARGE_FLD_INP ) USE CONSTANTS_1, ONLY : ZERO, ONE, TWO USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : PSHEL, RPSHEL - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - - + + END SUBROUTINE BD_PSHEL END INTERFACE diff --git a/Source/Interfaces/BD_PSOLID_Interface.f90 b/Source/Interfaces/BD_PSOLID_Interface.f90 index 87d013d9..5568ebe3 100644 --- a/Source/Interfaces/BD_PSOLID_Interface.f90 +++ b/Source/Interfaces/BD_PSOLID_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PSOLID_Interface @@ -30,7 +30,7 @@ MODULE BD_PSOLID_Interface SUBROUTINE BD_PSOLID ( CARD, IOR3D ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPSOLID, NPSOLID, WARN_ERR @@ -39,12 +39,12 @@ SUBROUTINE BD_PSOLID ( CARD, IOR3D ) USE MODEL_STUF, ONLY : PSOLID IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG), INTENT(OUT) :: IOR3D ! Integration order for this PSOLID entry - + END SUBROUTINE BD_PSOLID END INTERFACE diff --git a/Source/Interfaces/BD_PUSER1_Interface.f90 b/Source/Interfaces/BD_PUSER1_Interface.f90 index 0b78aba7..f6e07095 100644 --- a/Source/Interfaces/BD_PUSER1_Interface.f90 +++ b/Source/Interfaces/BD_PUSER1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PUSER1_Interface @@ -30,19 +30,19 @@ MODULE BD_PUSER1_Interface SUBROUTINE BD_PUSER1 ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPUSER1, NPUSER1 USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PUSER1, RPUSER1 - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PUSER1' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + END SUBROUTINE BD_PUSER1 diff --git a/Source/Interfaces/BD_PUSERIN_Interface.f90 b/Source/Interfaces/BD_PUSERIN_Interface.f90 index a128f0ad..4db958f0 100644 --- a/Source/Interfaces/BD_PUSERIN_Interface.f90 +++ b/Source/Interfaces/BD_PUSERIN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PUSERIN_Interface @@ -30,18 +30,18 @@ MODULE BD_PUSERIN_Interface SUBROUTINE BD_PUSERIN ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, NUM_IN4_FILES USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPUSERIN, NPUSERIN USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PUSERIN, USERIN_MAT_NAMES - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PUSERIN' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG) :: IN4_NUM ! IN4 file number read from field 3 of RPUSERIN entry diff --git a/Source/Interfaces/BD_RBAR_Interface.f90 b/Source/Interfaces/BD_RBAR_Interface.f90 index 59949a56..a2d14370 100644 --- a/Source/Interfaces/BD_RBAR_Interface.f90 +++ b/Source/Interfaces/BD_RBAR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RBAR_Interface @@ -30,21 +30,21 @@ MODULE BD_RBAR_Interface SUBROUTINE BD_RBAR ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1F USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LRIGEL, NRBAR, NRIGEL, NRECARD USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : RIGID_ELEM_IDS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 8*BYTE), PARAMETER :: RTYPE = 'RBAR '! Rigid element type - + INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein - + END SUBROUTINE BD_RBAR END INTERFACE diff --git a/Source/Interfaces/BD_RBE1_Interface.f90 b/Source/Interfaces/BD_RBE1_Interface.f90 index 4a66f891..f3e0a3c6 100644 --- a/Source/Interfaces/BD_RBE1_Interface.f90 +++ b/Source/Interfaces/BD_RBE1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RBE1_Interface @@ -30,22 +30,22 @@ MODULE BD_RBE1_Interface SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1F USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LRIGEL, NRBE1, NRIGEL, NRECARD USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : RIGID_ELEM_IDS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER( 8*BYTE), PARAMETER :: RTYPE = 'RBE1 '! Rigid element type - + INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein - + END SUBROUTINE BD_RBE1 END INTERFACE diff --git a/Source/Interfaces/BD_RBE2_Interface.f90 b/Source/Interfaces/BD_RBE2_Interface.f90 index 5313dfb0..444cef3b 100644 --- a/Source/Interfaces/BD_RBE2_Interface.f90 +++ b/Source/Interfaces/BD_RBE2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RBE2_Interface @@ -30,22 +30,22 @@ MODULE BD_RBE2_Interface SUBROUTINE BD_RBE2 ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1F USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LRIGEL, NRBE2, NRIGEL, NRECARD, NTERM_RMG USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : RIGID_ELEM_IDS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER( 8*BYTE), PARAMETER :: RTYPE = 'RBE2 '! Rigid element type - + INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein - + END SUBROUTINE BD_RBE2 END INTERFACE diff --git a/Source/Interfaces/BD_RBE30_Interface.f90 b/Source/Interfaces/BD_RBE30_Interface.f90 index 01881993..1f788495 100644 --- a/Source/Interfaces/BD_RBE30_Interface.f90 +++ b/Source/Interfaces/BD_RBE30_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RBE30_Interface @@ -30,20 +30,20 @@ MODULE BD_RBE30_Interface SUBROUTINE BD_RBE30 ( CARD, LARGE_FLD_INP, IRBE3 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: IRBE3 ! Count of number of grid/comp/coeff triplets on this RBE3 logical card - + END SUBROUTINE BD_RBE30 END INTERFACE diff --git a/Source/Interfaces/BD_RBE3_Interface.f90 b/Source/Interfaces/BD_RBE3_Interface.f90 index 3a6854b3..383207b9 100644 --- a/Source/Interfaces/BD_RBE3_Interface.f90 +++ b/Source/Interfaces/BD_RBE3_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RBE3_Interface @@ -30,22 +30,22 @@ MODULE BD_RBE3_Interface SUBROUTINE BD_RBE3 ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1F USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LRIGEL, MRBE3, NRECARD, NRIGEL USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : RIGID_ELEM_IDS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER( 8*BYTE), PARAMETER :: RTYPE = 'RBE3 '! Rigid element type - - + + END SUBROUTINE BD_RBE3 END INTERFACE diff --git a/Source/Interfaces/BD_RFORCE_Interface.f90 b/Source/Interfaces/BD_RFORCE_Interface.f90 index 3b677735..4307e47d 100644 --- a/Source/Interfaces/BD_RFORCE_Interface.f90 +++ b/Source/Interfaces/BD_RFORCE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RFORCE_Interface @@ -30,22 +30,22 @@ MODULE BD_RFORCE_Interface SUBROUTINE BD_RFORCE ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1U USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LRFORCE, LSUB, NRFORCE, NSUB USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : RFORCE_SIDS, SUBLOD - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2)! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID - - + + END SUBROUTINE BD_RFORCE END INTERFACE diff --git a/Source/Interfaces/BD_RSPLINE0_Interface.f90 b/Source/Interfaces/BD_RSPLINE0_Interface.f90 index 910159cc..7aeea275 100644 --- a/Source/Interfaces/BD_RSPLINE0_Interface.f90 +++ b/Source/Interfaces/BD_RSPLINE0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RSPLINE0_Interface @@ -30,20 +30,20 @@ MODULE BD_RSPLINE0_Interface SUBROUTINE BD_RSPLINE0 ( CARD, LARGE_FLD_INP, IRSPLINE ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: IRSPLINE ! Count of number of grid/comp doublets on this RSPLINE logical card - + END SUBROUTINE BD_RSPLINE0 END INTERFACE diff --git a/Source/Interfaces/BD_RSPLINE_Interface.f90 b/Source/Interfaces/BD_RSPLINE_Interface.f90 index 6e04f31d..2baa92c1 100644 --- a/Source/Interfaces/BD_RSPLINE_Interface.f90 +++ b/Source/Interfaces/BD_RSPLINE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RSPLINE_Interface @@ -30,22 +30,22 @@ MODULE BD_RSPLINE_Interface SUBROUTINE BD_RSPLINE ( CARD, LARGE_FLD_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1F USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, MRSPLINE, NRSPLINE, NRECARD, NRIGEL USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : RIGID_ELEM_IDS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER( 8*BYTE), PARAMETER :: RTYPE = 'RSPLINE '! Rigid element type - - + + END SUBROUTINE BD_RSPLINE END INTERFACE diff --git a/Source/Interfaces/BD_SEQGP_Interface.f90 b/Source/Interfaces/BD_SEQGP_Interface.f90 index d8eef3c5..4f3e32a6 100644 --- a/Source/Interfaces/BD_SEQGP_Interface.f90 +++ b/Source/Interfaces/BD_SEQGP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SEQGP_Interface @@ -30,7 +30,7 @@ MODULE BD_SEQGP_Interface SUBROUTINE BD_SEQGP ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, JCARD_LEN, JF, LSEQ, NSEQ @@ -39,11 +39,11 @@ SUBROUTINE BD_SEQGP ( CARD ) USE MODEL_STUF, ONLY : SEQ1, SEQ2 IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_SEQGP END INTERFACE diff --git a/Source/Interfaces/BD_SLOAD0_Interface.f90 b/Source/Interfaces/BD_SLOAD0_Interface.f90 index 0bac28c4..a25d96e2 100644 --- a/Source/Interfaces/BD_SLOAD0_Interface.f90 +++ b/Source/Interfaces/BD_SLOAD0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SLOAD0_Interface @@ -30,18 +30,18 @@ MODULE BD_SLOAD0_Interface SUBROUTINE BD_SLOAD0 ( CARD, NUM_PAIRS ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG), INTENT(OUT) :: NUM_PAIRS ! Number of pairs of SPOINT/force MAG on a SLOAD entry (can be up to 3) - + END SUBROUTINE BD_SLOAD0 END INTERFACE diff --git a/Source/Interfaces/BD_SLOAD_Interface.f90 b/Source/Interfaces/BD_SLOAD_Interface.f90 index 4687d7a2..fae33cc2 100644 --- a/Source/Interfaces/BD_SLOAD_Interface.f90 +++ b/Source/Interfaces/BD_SLOAD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SLOAD_Interface @@ -30,7 +30,7 @@ MODULE BD_SLOAD_Interface SUBROUTINE BD_SLOAD ( CARD, CC_LOAD_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1W USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, LFORCE, LSUB, NFORCE, NSLOAD, NSUB @@ -38,14 +38,14 @@ SUBROUTINE BD_SLOAD ( CARD, CC_LOAD_FND ) USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : EPSIL, SUPWARN USE MODEL_STUF, ONLY : SLOAD_SIDS, SUBLOD - + IMPLICIT NONE - + CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2) ! 'Y' if B.D SLOAD card w/ same set ID (SID) as C.C. LOAD = SID - - + + END SUBROUTINE BD_SLOAD END INTERFACE diff --git a/Source/Interfaces/BD_SNORM_Interface.f90 b/Source/Interfaces/BD_SNORM_Interface.f90 index 9243ac3e..434c0833 100644 --- a/Source/Interfaces/BD_SNORM_Interface.f90 +++ b/Source/Interfaces/BD_SNORM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SNORM_Interface @@ -42,9 +42,9 @@ SUBROUTINE BD_SNORM ( CARD ) USE CARD_FLDS_NOT_BLANK_Interface IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card - + END SUBROUTINE BD_SNORM END INTERFACE diff --git a/Source/Interfaces/BD_SPC1_Interface.f90 b/Source/Interfaces/BD_SPC1_Interface.f90 index 45df5dc7..b7935b1d 100644 --- a/Source/Interfaces/BD_SPC1_Interface.f90 +++ b/Source/Interfaces/BD_SPC1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SPC1_Interface diff --git a/Source/Interfaces/BD_SPCADD0_Interface.f90 b/Source/Interfaces/BD_SPCADD0_Interface.f90 index 215b4dcd..530783a5 100644 --- a/Source/Interfaces/BD_SPCADD0_Interface.f90 +++ b/Source/Interfaces/BD_SPCADD0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SPCADD0_Interface @@ -30,7 +30,7 @@ MODULE BD_SPCADD0_Interface SUBROUTINE BD_SPCADD0 ( CARD, LARGE_FLD_INP, ISPCADD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN @@ -38,13 +38,13 @@ SUBROUTINE BD_SPCADD0 ( CARD, LARGE_FLD_INP, ISPCADD ) USE MODEL_STUF, ONLY : SPCADD_SIDS IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG), INTENT(OUT) :: ISPCADD ! Count of number of SPC or SPC1 set ID's defined on the SPCADD - + END SUBROUTINE BD_SPCADD0 END INTERFACE diff --git a/Source/Interfaces/BD_SPCADD_Interface.f90 b/Source/Interfaces/BD_SPCADD_Interface.f90 index 2245e5ca..c36ba7a9 100644 --- a/Source/Interfaces/BD_SPCADD_Interface.f90 +++ b/Source/Interfaces/BD_SPCADD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SPCADD_Interface @@ -30,21 +30,21 @@ MODULE BD_SPCADD_Interface SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LSPCADDR, LSUB, NSPCADD, LSPCADDC, NSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : SPCADD_SIDS, SPCSET, SUBLOD - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER( 1*BYTE),INTENT(INOUT):: CC_SPC_FND ! 'Y' if B.D card w/ same set ID as C.C. SPC = SID - - + + END SUBROUTINE BD_SPCADD END INTERFACE diff --git a/Source/Interfaces/BD_SPC_Interface.f90 b/Source/Interfaces/BD_SPC_Interface.f90 index 1b0392d7..3e0fecf8 100644 --- a/Source/Interfaces/BD_SPC_Interface.f90 +++ b/Source/Interfaces/BD_SPC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SPC_Interface @@ -30,7 +30,7 @@ MODULE BD_SPC_Interface SUBROUTINE BD_SPC ( CARD, CC_SPC_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1O USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, LSPC, NSPC, NUM_SPC_RECORDS, WARN_ERR @@ -41,13 +41,13 @@ SUBROUTINE BD_SPC ( CARD, CC_SPC_FND ) USE MODEL_STUF, ONLY : SPC_SIDS, SPCSET IMPLICIT NONE - + CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_SPC_FND ! ='Y' if this SPC is a set requested in Case Control - + INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein - + END SUBROUTINE BD_SPC END INTERFACE diff --git a/Source/Interfaces/BD_SPOINT0_Interface.f90 b/Source/Interfaces/BD_SPOINT0_Interface.f90 index e9febf97..0d0d99dc 100644 --- a/Source/Interfaces/BD_SPOINT0_Interface.f90 +++ b/Source/Interfaces/BD_SPOINT0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SPOINT0_Interface @@ -30,18 +30,18 @@ MODULE BD_SPOINT0_Interface SUBROUTINE BD_SPOINT0 ( CARD, DELTA_SPOINT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG), INTENT(OUT) :: DELTA_SPOINT ! Number of SPOINT's defined on this B.D. SPOINT entry - + END SUBROUTINE BD_SPOINT0 END INTERFACE diff --git a/Source/Interfaces/BD_SPOINT_Interface.f90 b/Source/Interfaces/BD_SPOINT_Interface.f90 index 7fa4f60b..c6150649 100644 --- a/Source/Interfaces/BD_SPOINT_Interface.f90 +++ b/Source/Interfaces/BD_SPOINT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SPOINT_Interface @@ -30,19 +30,19 @@ MODULE BD_SPOINT_Interface SUBROUTINE BD_SPOINT ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NGRID USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRID - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE BD_SPOINT END INTERFACE diff --git a/Source/Interfaces/BD_SUPORT_Interface.f90 b/Source/Interfaces/BD_SUPORT_Interface.f90 index 9641283d..5885e4ba 100644 --- a/Source/Interfaces/BD_SUPORT_Interface.f90 +++ b/Source/Interfaces/BD_SUPORT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SUPORT_Interface @@ -30,19 +30,19 @@ MODULE BD_SUPORT_Interface SUBROUTINE BD_SUPORT ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1T USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NUM_SUPT_CARDS USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein - + END SUBROUTINE BD_SUPORT END INTERFACE diff --git a/Source/Interfaces/BD_TEMPD_Interface.f90 b/Source/Interfaces/BD_TEMPD_Interface.f90 index 8ba2986c..83a9a32e 100644 --- a/Source/Interfaces/BD_TEMPD_Interface.f90 +++ b/Source/Interfaces/BD_TEMPD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_TEMPD_Interface @@ -30,20 +30,20 @@ MODULE BD_TEMPD_Interface SUBROUTINE BD_TEMPD ( CARD, CC_LOAD_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1K USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LSUB, NSUB, NTCARD USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : SUBLOD - + IMPLICIT NONE - + CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2) ! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID - + END SUBROUTINE BD_TEMPD END INTERFACE diff --git a/Source/Interfaces/BD_TEMPRP_Interface.f90 b/Source/Interfaces/BD_TEMPRP_Interface.f90 index ffea1611..8a2d67a1 100644 --- a/Source/Interfaces/BD_TEMPRP_Interface.f90 +++ b/Source/Interfaces/BD_TEMPRP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_TEMPRP_Interface @@ -30,23 +30,23 @@ MODULE BD_TEMPRP_Interface SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1K USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LSUB, MTDAT_TEMPRB, MTDAT_TEMPP1, NSUB, & NTCARD USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : SUBLOD - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2) ! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG) :: CONT_CARD_NUM = 0 ! Count of continuation cards (used for output error messages) - + END SUBROUTINE BD_TEMPRP END INTERFACE diff --git a/Source/Interfaces/BD_TEMP_Interface.f90 b/Source/Interfaces/BD_TEMP_Interface.f90 index 34c16295..f2601dbd 100644 --- a/Source/Interfaces/BD_TEMP_Interface.f90 +++ b/Source/Interfaces/BD_TEMP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_TEMP_Interface @@ -30,21 +30,21 @@ MODULE BD_TEMP_Interface SUBROUTINE BD_TEMP ( CARD, CC_LOAD_FND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1K USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LSUB, NSUB, NTCARD USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : SUBLOD - + IMPLICIT NONE - + CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2) ! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID - - + + END SUBROUTINE BD_TEMP END INTERFACE diff --git a/Source/Interfaces/BD_USET1_Interface.f90 b/Source/Interfaces/BD_USET1_Interface.f90 index 3e4da6c5..668478e5 100644 --- a/Source/Interfaces/BD_USET1_Interface.f90 +++ b/Source/Interfaces/BD_USET1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_USET1_Interface diff --git a/Source/Interfaces/BD_USET_Interface.f90 b/Source/Interfaces/BD_USET_Interface.f90 index 40051a1f..b0a4c450 100644 --- a/Source/Interfaces/BD_USET_Interface.f90 +++ b/Source/Interfaces/BD_USET_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_USET_Interface @@ -30,7 +30,7 @@ MODULE BD_USET_Interface SUBROUTINE BD_USET ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1X USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, NUM_USET_RECORDS, WARN_ERR @@ -40,15 +40,15 @@ SUBROUTINE BD_USET ( CARD ) USE DOF_TABLES, ONLY : TSET_CHR_LEN IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_USET' CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 2*BYTE) :: USET_NAME ! Name in field 2 of the USET entry - + INTEGER(LONG) :: GRIDJ = 0 ! Grid ID on USET card INTEGER(LONG) :: IDUM ! Dummy arg in subr IP6CHK not used herein - + END SUBROUTINE BD_USET END INTERFACE diff --git a/Source/Interfaces/BEAM_Interface.f90 b/Source/Interfaces/BEAM_Interface.f90 index a6320da9..dbe9ab62 100644 --- a/Source/Interfaces/BEAM_Interface.f90 +++ b/Source/Interfaces/BEAM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BEAM_Interface @@ -30,17 +30,17 @@ MODULE BEAM_Interface SUBROUTINE BEAM - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : NUM_EMG_FATAL_ERRS - - IMPLICIT NONE - - + IMPLICIT NONE + + + END SUBROUTINE BEAM END INTERFACE diff --git a/Source/Interfaces/BMQMEM_Interface.f90 b/Source/Interfaces/BMQMEM_Interface.f90 index e33e1456..e8a92748 100644 --- a/Source/Interfaces/BMQMEM_Interface.f90 +++ b/Source/Interfaces/BMQMEM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BMQMEM_Interface @@ -30,7 +30,7 @@ MODULE BMQMEM_Interface SUBROUTINE BMQMEM ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BM ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT @@ -38,9 +38,9 @@ SUBROUTINE BMQMEM ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BM ) USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG USE MODEL_STUF, ONLY : BMEANT, EID, HBAR, MXWARP, TYPE, XEB, XEL - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Messag to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -68,7 +68,7 @@ SUBROUTINE BMQMEM ( DPSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BM ) 20, & ! ID2(11)= 20 21 /) ! ID2(12)= 21 - + REAL(DOUBLE) , INTENT(IN) :: DPSHX(2,4) ! Derivatives of the 4 node bilinear isopar interps wrt elem x and y REAL(DOUBLE) , INTENT(OUT) :: BM(3,8) ! Output strain-displ matrix for this elem END SUBROUTINE BMQMEM diff --git a/Source/Interfaces/BREL1_Interface.f90 b/Source/Interfaces/BREL1_Interface.f90 index f79f898d..54ccd697 100644 --- a/Source/Interfaces/BREL1_Interface.f90 +++ b/Source/Interfaces/BREL1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BREL1_Interface @@ -30,7 +30,7 @@ MODULE BREL1_Interface SUBROUTINE BREL1 ( OPT, WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR @@ -40,9 +40,9 @@ SUBROUTINE BREL1 ( OPT, WRITE_WARN ) USE DEBUG_PARAMETERS USE MODEL_STUF, ONLY : EID, ELEM_LEN_AB, EMAT, NUM_EMG_FATAL_ERRS, EPROP, FCONV, ME, ULT_STRE, ULT_STRN, & TYPE, ZS - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not @@ -50,7 +50,7 @@ SUBROUTINE BREL1 ( OPT, WRITE_WARN ) REAL(DOUBLE) :: K1 ! Shear constant for plane 1 (used in K1*AREA*G) REAL(DOUBLE) :: K2 ! Shear constant for plane 2 (used in K1*AREA*G) - + END SUBROUTINE BREL1 END INTERFACE diff --git a/Source/Interfaces/BSMIN3_Interface.f90 b/Source/Interfaces/BSMIN3_Interface.f90 index b0aceaac..bed17ab9 100644 --- a/Source/Interfaces/BSMIN3_Interface.f90 +++ b/Source/Interfaces/BSMIN3_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BSMIN3_Interface @@ -30,7 +30,7 @@ MODULE BSMIN3_Interface SUBROUTINE BSMIN3 ( XI, A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BS ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT, MIN4T_QUAD4_TRIA_NO @@ -40,14 +40,14 @@ SUBROUTINE BSMIN3 ( XI, A, B, AREA, MESSAG, WRT_BUG_THIS_TIME, BS ) USE DEBUG_PARAMETERS, ONLY : DEBUG IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to INTEGER(LONG), PARAMETER :: NR = 2 ! An input to subr BCHECK, called herein INTEGER(LONG), PARAMETER :: NC = 9 ! An input to subr BCHECK, called herein - + REAL(DOUBLE) , INTENT(IN) :: A(3) ! Vector of x coord differences REAL(DOUBLE) , INTENT(IN) :: AREA ! Elem area REAL(DOUBLE) , INTENT(IN) :: B(3) ! Vector of y coord differences diff --git a/Source/Interfaces/BSMIN4_Interface.f90 b/Source/Interfaces/BSMIN4_Interface.f90 index cbd66a7f..22b7f2ad 100644 --- a/Source/Interfaces/BSMIN4_Interface.f90 +++ b/Source/Interfaces/BSMIN4_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BSMIN4_Interface @@ -30,7 +30,7 @@ MODULE BSMIN4_Interface SUBROUTINE BSMIN4 ( PSH, DPSHX, DNXSHX, DNYSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_THIS_TIME, BS ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BMAT_BIT, ELDT_BUG_BCHK_BIT @@ -38,9 +38,9 @@ SUBROUTINE BSMIN4 ( PSH, DPSHX, DNXSHX, DNYSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_TH USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : EID, TYPE, XEB, XEL USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Messag to print out if BCHECK is run CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -49,7 +49,7 @@ SUBROUTINE BSMIN4 ( PSH, DPSHX, DNXSHX, DNYSHX, IGAUS, JGAUS, MESSAG, WRT_BUG_TH INTEGER(LONG), PARAMETER :: NR = 2 ! An input to subr BCHECK, called herein INTEGER(LONG), PARAMETER :: NC = 12 ! An input to subr BCHECK, called herein - + REAL(DOUBLE) , INTENT(IN) :: PSH(4) ! 4 node bilinear isopar interp functions (used for bending) REAL(DOUBLE) , INTENT(IN) :: DPSHX(2,4) ! Derivatives of PSH shape functions wrt x and y REAL(DOUBLE) , INTENT(IN) :: DNXSHX(2,4) ! Derivatives of constrained interpolations NX wrt x, y diff --git a/Source/Interfaces/BUILD_A_LR_Interface.f90 b/Source/Interfaces/BUILD_A_LR_Interface.f90 index 459eae52..6dcf2b98 100644 --- a/Source/Interfaces/BUILD_A_LR_Interface.f90 +++ b/Source/Interfaces/BUILD_A_LR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BUILD_A_LR_Interface @@ -30,7 +30,7 @@ MODULE BUILD_A_LR_Interface SUBROUTINE BUILD_A_LR ( COL_NUM ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, NDOFL, NDOFA, NDOFR, NVEC, SOL_NAME @@ -38,9 +38,9 @@ SUBROUTINE BUILD_A_LR ( COL_NUM ) USE CONSTANTS_1, ONLY : ZERO, ONE USE PARAMS, ONLY : PRTDISP USE COL_VECS, ONLY : UL_COL, UA_COL, UR_COL - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: COL_NUM diff --git a/Source/Interfaces/BUILD_F_AO_Interface.f90 b/Source/Interfaces/BUILD_F_AO_Interface.f90 index a6bccbd5..6e6a348a 100644 --- a/Source/Interfaces/BUILD_F_AO_Interface.f90 +++ b/Source/Interfaces/BUILD_F_AO_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BUILD_F_AO_Interface @@ -30,7 +30,7 @@ MODULE BUILD_F_AO_Interface SUBROUTINE BUILD_F_AO - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, NDOFA, NDOFF, NDOFO, NTERM_GOA, SOL_NAME USE TIMDAT, ONLY : TSEC @@ -39,12 +39,12 @@ SUBROUTINE BUILD_F_AO USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP USE SPARSE_MATRICES, ONLY : I_GOA, J_GOA, GOA, SYM_GOA USE COL_VECS, ONLY : UA_COL, UF_COL, UO_COL, UO0_COL - + IMPLICIT NONE - + INTEGER(LONG), PARAMETER :: NUMCOLS = 1 ! Variable for number of cols of an array - + END SUBROUTINE BUILD_F_AO END INTERFACE diff --git a/Source/Interfaces/BUILD_G_NM_Interface.f90 b/Source/Interfaces/BUILD_G_NM_Interface.f90 index 8bc84cf5..1aef2bce 100644 --- a/Source/Interfaces/BUILD_G_NM_Interface.f90 +++ b/Source/Interfaces/BUILD_G_NM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BUILD_G_NM_Interface @@ -30,7 +30,7 @@ MODULE BUILD_G_NM_Interface SUBROUTINE BUILD_G_NM - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : NDOFG, NDOFM, NDOFN, NTERM_GMN, BLNK_SUB_NAM @@ -38,13 +38,13 @@ SUBROUTINE BUILD_G_NM USE CONSTANTS_1, ONLY : ONE USE PARAMS, ONLY : PRTDISP USE SPARSE_MATRICES, ONLY : I_GMN, J_GMN, GMN, SYM_GMN - USE COL_VECS, ONLY : UG_COL, UM_COL, UN_COL - + USE COL_VECS, ONLY : UG_COL, UM_COL, UN_COL + IMPLICIT NONE - + INTEGER(LONG), PARAMETER :: NUMCOLS = 1 ! Variable for number of cols of an array - + END SUBROUTINE BUILD_G_NM END INTERFACE diff --git a/Source/Interfaces/BUILD_N_FS_Interface.f90 b/Source/Interfaces/BUILD_N_FS_Interface.f90 index 2628c41e..38b45f5b 100644 --- a/Source/Interfaces/BUILD_N_FS_Interface.f90 +++ b/Source/Interfaces/BUILD_N_FS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BUILD_N_FS_Interface @@ -30,7 +30,7 @@ MODULE BUILD_N_FS_Interface SUBROUTINE BUILD_N_FS - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : NDOFF, NDOFN, NDOFS, NDOFSE, NDOFSZ, BLNK_SUB_NAM @@ -38,9 +38,9 @@ SUBROUTINE BUILD_N_FS USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : PRTDISP USE COL_VECS, ONLY : UF_COL, UN_COL, US_COL, YSe - + IMPLICIT NONE - + END SUBROUTINE BUILD_N_FS diff --git a/Source/Interfaces/BUSH_Interface.f90 b/Source/Interfaces/BUSH_Interface.f90 index f47009b6..c34db9a2 100644 --- a/Source/Interfaces/BUSH_Interface.f90 +++ b/Source/Interfaces/BUSH_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BUSH_Interface @@ -30,7 +30,7 @@ MODULE BUSH_Interface SUBROUTINE BUSH ( INT_ELEM_ID, OPT, WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, NCORD @@ -40,8 +40,8 @@ SUBROUTINE BUSH ( INT_ELEM_ID, OPT, WRITE_WARN ) USE MODEL_STUF, ONLY : BE1, BE2, BUSH_OCID, BUSHOFF, BUSH_DXA, BUSH_DXB, BUSH_DY, BUSH_DZ, CORD, EOFF, EPROP, KE,& ELEM_LEN_12, OFFDIS_B, RCORD, SE1, SE2, TE, XEB - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=*) , INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices diff --git a/Source/Interfaces/CALC_CB_MEFM_MPF_Interface.f90 b/Source/Interfaces/CALC_CB_MEFM_MPF_Interface.f90 index 50f0558e..9608e219 100644 --- a/Source/Interfaces/CALC_CB_MEFM_MPF_Interface.f90 +++ b/Source/Interfaces/CALC_CB_MEFM_MPF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_CB_MEFM_MPF_Interface @@ -30,7 +30,7 @@ MODULE CALC_CB_MEFM_MPF_Interface SUBROUTINE CALC_CB_MEFM_MPF - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, & @@ -44,7 +44,7 @@ SUBROUTINE CALC_CB_MEFM_MPF USE EIGEN_MATRICES_1, ONLY : EIGEN_VEC, GEN_MASS, MEFFMASS, MPFACTOR_NR, MPFACTOR_N6 IMPLICIT NONE - + END SUBROUTINE CALC_CB_MEFM_MPF diff --git a/Source/Interfaces/CALC_ELEM_NODE_FORCES_Interface.f90 b/Source/Interfaces/CALC_ELEM_NODE_FORCES_Interface.f90 index 4003ff46..41d6af2a 100644 --- a/Source/Interfaces/CALC_ELEM_NODE_FORCES_Interface.f90 +++ b/Source/Interfaces/CALC_ELEM_NODE_FORCES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_ELEM_NODE_FORCES_Interface @@ -30,18 +30,18 @@ MODULE CALC_ELEM_NODE_FORCES_Interface SUBROUTINE CALC_ELEM_NODE_FORCES - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, INT_SC_NUM, JTSUB, NGRID, WARN_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : AGRID, ELAS_COMP, ELDOF, KE, PEL, PTE, UEL, TYPE, SUBLOD - + IMPLICIT NONE - - + + END SUBROUTINE CALC_ELEM_NODE_FORCES END INTERFACE diff --git a/Source/Interfaces/CALC_ELEM_STRAINS_Interface.f90 b/Source/Interfaces/CALC_ELEM_STRAINS_Interface.f90 index fd1f939d..2e40b4bf 100644 --- a/Source/Interfaces/CALC_ELEM_STRAINS_Interface.f90 +++ b/Source/Interfaces/CALC_ELEM_STRAINS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_ELEM_STRAINS_Interface @@ -30,24 +30,24 @@ MODULE CALC_ELEM_STRAINS_Interface SUBROUTINE CALC_ELEM_STRAINS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : TYPE USE CONSTANTS_1, ONLY : ZERO - + IMPLICIT NONE CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP arrays - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to in a subr INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr - + END SUBROUTINE CALC_ELEM_STRAINS END INTERFACE diff --git a/Source/Interfaces/CALC_ELEM_STRESSES_Interface.f90 b/Source/Interfaces/CALC_ELEM_STRESSES_Interface.f90 index d5a7565a..58e52bf7 100644 --- a/Source/Interfaces/CALC_ELEM_STRESSES_Interface.f90 +++ b/Source/Interfaces/CALC_ELEM_STRESSES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_ELEM_STRESSES_Interface @@ -30,24 +30,24 @@ MODULE CALC_ELEM_STRESSES_Interface SUBROUTINE CALC_ELEM_STRESSES ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : TYPE USE CONSTANTS_1, ONLY : ZERO - + IMPLICIT NONE CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP arrays - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to in a subr INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr - + END SUBROUTINE CALC_ELEM_STRESSES END INTERFACE diff --git a/Source/Interfaces/CALC_GEN_MASS_Interface.f90 b/Source/Interfaces/CALC_GEN_MASS_Interface.f90 index f92de6e5..a3d6eeb9 100644 --- a/Source/Interfaces/CALC_GEN_MASS_Interface.f90 +++ b/Source/Interfaces/CALC_GEN_MASS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_GEN_MASS_Interface diff --git a/Source/Interfaces/CALC_KRRcb_Interface.f90 b/Source/Interfaces/CALC_KRRcb_Interface.f90 index 573467f7..0965e2b3 100644 --- a/Source/Interfaces/CALC_KRRcb_Interface.f90 +++ b/Source/Interfaces/CALC_KRRcb_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_KRRcb_Interface @@ -30,7 +30,7 @@ MODULE CALC_KRRcb_Interface SUBROUTINE CALC_KRRcb - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FACTORED_MATRIX, FATAL_ERR, KRRcb_SDIA, & @@ -46,7 +46,7 @@ SUBROUTINE CALC_KRRcb USE LAPACK_DPB_MATRICES, ONLY : ABAND IMPLICIT NONE - + END SUBROUTINE CALC_KRRcb diff --git a/Source/Interfaces/CALC_MRN_Interface.f90 b/Source/Interfaces/CALC_MRN_Interface.f90 index 218aae5f..89dd035b 100644 --- a/Source/Interfaces/CALC_MRN_Interface.f90 +++ b/Source/Interfaces/CALC_MRN_Interface.f90 @@ -1,36 +1,36 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_MRN_Interface INTERFACE - SUBROUTINE CALC_MRN + SUBROUTINE CALC_MRN + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, & @@ -41,16 +41,16 @@ SUBROUTINE CALC_MRN USE DEBUG_PARAMETERS, ONLY : DEBUG USE PARAMS, ONLY : SPARSTOR USE EIGEN_MATRICES_1, ONLY : EIGEN_VEC - USE SPARSE_MATRICES , ONLY : SYM_DLR, SYM_MLL, SYM_MLLn, SYM_MRL, SYM_MRL, SYM_MRN + USE SPARSE_MATRICES , ONLY : SYM_DLR, SYM_MLL, SYM_MLLn, SYM_MRL, SYM_MRL, SYM_MRN USE SPARSE_MATRICES , ONLY : I_MLL , J_MLL , MLL , I_MLLn, J_MLLn, MLLn, I_MRL , J_MRL , MRL , & I_DLR , J_DLR , DLR , I_DLRt, J_DLRt, DLRt, I_MRN, J_MRN, MRN, & - I_MPF0, J_MPF0, MPF0 - + I_MPF0, J_MPF0, MPF0 + USE SCRATCH_MATRICES, ONLY : I_CCS1, J_CCS1, CCS1, I_CRS1, J_CRS1, CRS1, I_CRS2, J_CRS2, CRS2, I_CRS3, J_CRS3, CRS3 IMPLICIT NONE - + END SUBROUTINE CALC_MRN diff --git a/Source/Interfaces/CALC_MRRcb_Interface.f90 b/Source/Interfaces/CALC_MRRcb_Interface.f90 index ed6857d5..99f8e64c 100644 --- a/Source/Interfaces/CALC_MRRcb_Interface.f90 +++ b/Source/Interfaces/CALC_MRRcb_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_MRRcb_Interface @@ -30,7 +30,7 @@ MODULE CALC_MRRcb_Interface SUBROUTINE CALC_MRRcb - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFL, NDOFR, NTERM_DLR, NTERM_MLL, NTERM_MRL, NTERM_MRR, & @@ -49,7 +49,7 @@ SUBROUTINE CALC_MRRcb USE SCRATCH_MATRICES IMPLICIT NONE - + END SUBROUTINE CALC_MRRcb diff --git a/Source/Interfaces/CALC_PHIZL_Interface.f90 b/Source/Interfaces/CALC_PHIZL_Interface.f90 index 35ff540e..de55e9be 100644 --- a/Source/Interfaces/CALC_PHIZL_Interface.f90 +++ b/Source/Interfaces/CALC_PHIZL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_PHIZL_Interface @@ -30,7 +30,7 @@ MODULE CALC_PHIZL_Interface SUBROUTINE CALC_PHIZL - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFL, NDOFR, & @@ -40,17 +40,17 @@ SUBROUTINE CALC_PHIZL USE PARAMS, ONLY : PRTPHIZL, SPARSTOR USE TIMDAT, ONLY : TSEC USE EIGEN_MATRICES_1, ONLY : EIGEN_VEC, EIGEN_VAL - USE SPARSE_MATRICES, ONLY : SYM_MLL, SYM_MLR, SYM_MRL, SYM_KLL, SYM_DLR, SYM_PHIZL , SYM_PHIZL1 , SYM_PHIZL2 + USE SPARSE_MATRICES, ONLY : SYM_MLL, SYM_MLR, SYM_MRL, SYM_KLL, SYM_DLR, SYM_PHIZL , SYM_PHIZL1 , SYM_PHIZL2 USE SPARSE_MATRICES, ONLY : I_MLL , J_MLL , MLL , I_MLR , J_MLR , MLR , I_MRL , J_MRL , MRL, & I_KLL , J_KLL , KLL , I_DLR , J_DLR , DLR , & I_PHIZL , J_PHIZL , PHIZL , I_PHIZL1, J_PHIZL1, PHIZL1, I_PHIZL2, J_PHIZL2, PHIZL2 - USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1, I_CRS2, J_CRS2, CRS2, I_CRS3, J_CRS3, CRS3, I_CCS1, J_CCS1, CCS1 + USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1, I_CRS2, J_CRS2, CRS2, I_CRS3, J_CRS3, CRS3, I_CCS1, J_CCS1, CCS1 IMPLICIT NONE - + REAL(DOUBLE) :: SMALL ! A number used in filtering out small numbers from a full matrix diff --git a/Source/Interfaces/CALC_PHI_SQ_Interface.f90 b/Source/Interfaces/CALC_PHI_SQ_Interface.f90 index ec5d2b0f..444aa961 100644 --- a/Source/Interfaces/CALC_PHI_SQ_Interface.f90 +++ b/Source/Interfaces/CALC_PHI_SQ_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_PHI_SQ_Interface @@ -39,7 +39,7 @@ SUBROUTINE CALC_PHI_SQ ( IERROR ) USE PARAMS, ONLY : CBMIN3, CBMIN4, CBMIN4T, EPSIL, PCMPTSTM, QUAD4TYP USE MODEL_STUF, ONLY : BENSUM, EID, EMG_IFE, EMG_RFE, ERR_SUB_NAM, NUM_EMG_FATAL_ERRS, INTL_MID, PHI_SQ, & PCOMP_PROPS, PLY_NUM, PSI_HAT, SHRSUM, TPLY, TYPE - IMPLICIT NONE + IMPLICIT NONE INTEGER(LONG), INTENT(OUT) :: IERROR ! Local error indicator diff --git a/Source/Interfaces/CALC_TDOF_ROW_START_Interface.f90 b/Source/Interfaces/CALC_TDOF_ROW_START_Interface.f90 index d8f0764f..47bb6bd4 100644 --- a/Source/Interfaces/CALC_TDOF_ROW_START_Interface.f90 +++ b/Source/Interfaces/CALC_TDOF_ROW_START_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_TDOF_ROW_START_Interface @@ -30,7 +30,7 @@ MODULE CALC_TDOF_ROW_START_Interface SUBROUTINE CALC_TDOF_ROW_START ( PRTDEB ) - + USE PENTIUM_II_KIND, ONLY : LONG USE SCONTR, ONLY : BLNK_SUB_NAM, NGRID USE IOUNT1, ONLY : ERR, F06 diff --git a/Source/Interfaces/CALC_VEC_SORT_ORDER_Interface.f90 b/Source/Interfaces/CALC_VEC_SORT_ORDER_Interface.f90 index a3a4966e..2df0c6b8 100644 --- a/Source/Interfaces/CALC_VEC_SORT_ORDER_Interface.f90 +++ b/Source/Interfaces/CALC_VEC_SORT_ORDER_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_VEC_SORT_ORDER_Interface diff --git a/Source/Interfaces/CARD_FLDS_NOT_BLANK_Interface.f90 b/Source/Interfaces/CARD_FLDS_NOT_BLANK_Interface.f90 index aa8684ee..3e632b61 100644 --- a/Source/Interfaces/CARD_FLDS_NOT_BLANK_Interface.f90 +++ b/Source/Interfaces/CARD_FLDS_NOT_BLANK_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CARD_FLDS_NOT_BLANK_Interface @@ -30,18 +30,18 @@ MODULE CARD_FLDS_NOT_BLANK_Interface SUBROUTINE CARD_FLDS_NOT_BLANK ( JCARD, FLD2, FLD3, FLD4, FLD5, FLD6, FLD7, FLD8, FLD9 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN - + IMPLICIT NONE - + CHARACTER(LEN=JCARD_LEN), INTENT(IN):: JCARD(10) ! The 10 fields of 8 characters making up CARD - - INTEGER(LONG), INTENT(IN) :: FLD2 ! Refers to field 2 of a B.D. card. If /= 0, then check this field + + INTEGER(LONG), INTENT(IN) :: FLD2 ! Refers to field 2 of a B.D. card. If /= 0, then check this field INTEGER(LONG), INTENT(IN) :: FLD3 ! Refers to field 3 of a B.D. card. If /= 0, then check this field INTEGER(LONG), INTENT(IN) :: FLD4 ! Refers to field 4 of a B.D. card. If /= 0, then check this field INTEGER(LONG), INTENT(IN) :: FLD5 ! Refers to field 5 of a B.D. card. If /= 0, then check this field @@ -50,7 +50,7 @@ SUBROUTINE CARD_FLDS_NOT_BLANK ( JCARD, FLD2, FLD3, FLD4, FLD5, FLD6, FLD7, FLD8 INTEGER(LONG), INTENT(IN) :: FLD8 ! Refers to field 8 of a B.D. card. If /= 0, then check this field INTEGER(LONG), INTENT(IN) :: FLD9 ! Refers to field 9 of a B.D. card. If /= 0, then check this field - + END SUBROUTINE CARD_FLDS_NOT_BLANK END INTERFACE diff --git a/Source/Interfaces/CC_ACCE_Interface.f90 b/Source/Interfaces/CC_ACCE_Interface.f90 index 80493a37..62cdb37e 100644 --- a/Source/Interfaces/CC_ACCE_Interface.f90 +++ b/Source/Interfaces/CC_ACCE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_ACCE_Interface @@ -30,20 +30,20 @@ MODULE CC_ACCE_Interface SUBROUTINE CC_ACCE ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : PCHSTAT - USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD + USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : ACCE_OUT USE MODEL_STUF, ONLY : SC_ACCE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_ACCE END INTERFACE diff --git a/Source/Interfaces/CC_DISP_Interface.f90 b/Source/Interfaces/CC_DISP_Interface.f90 index da73aed2..7b513133 100644 --- a/Source/Interfaces/CC_DISP_Interface.f90 +++ b/Source/Interfaces/CC_DISP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_DISP_Interface @@ -30,20 +30,20 @@ MODULE CC_DISP_Interface SUBROUTINE CC_DISP ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : PCHSTAT - USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD + USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : DISP_OUT USE MODEL_STUF, ONLY : SC_DISP - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_DISP END INTERFACE diff --git a/Source/Interfaces/CC_ECHO_Interface.f90 b/Source/Interfaces/CC_ECHO_Interface.f90 index 9d44269d..615129a9 100644 --- a/Source/Interfaces/CC_ECHO_Interface.f90 +++ b/Source/Interfaces/CC_ECHO_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_ECHO_Interface @@ -30,19 +30,19 @@ MODULE CC_ECHO_Interface SUBROUTINE CC_ECHO ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_ECHO END INTERFACE diff --git a/Source/Interfaces/CC_ELDA_Interface.f90 b/Source/Interfaces/CC_ELDA_Interface.f90 index 7e26c9a8..fd6e9d7d 100644 --- a/Source/Interfaces/CC_ELDA_Interface.f90 +++ b/Source/Interfaces/CC_ELDA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_ELDA_Interface @@ -30,24 +30,24 @@ MODULE CC_ELDA_Interface SUBROUTINE CC_ELDA ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, WARN_ERR, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : CCELDT - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG), PARAMETER :: IOUTMIN_BUG = 0 ! Min val of IOUT (=1,2,3,4,5,6,7,8,9 are the ELDATA print options) INTEGER(LONG), PARAMETER :: IOUTMAX_BUG = 9 ! Max val of IOUT (=1,2,3,4,5,6,7,8,9 are the ELDATA print options) INTEGER(LONG), PARAMETER :: IOUTMIN_FIJ = 2 ! Min val of IOUT (=1,2,3,4,5,6,7,8,9 are the ELDATA file options) INTEGER(LONG), PARAMETER :: IOUTMAX_FIJ = 6 ! Max val of IOUT (=1,2,3,4,5,6,7,8,9 are the ELDATA file options) - + END SUBROUTINE CC_ELDA END INTERFACE diff --git a/Source/Interfaces/CC_ELFO_Interface.f90 b/Source/Interfaces/CC_ELFO_Interface.f90 index 99df487b..89354314 100644 --- a/Source/Interfaces/CC_ELFO_Interface.f90 +++ b/Source/Interfaces/CC_ELFO_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_ELFO_Interface @@ -30,19 +30,19 @@ MODULE CC_ELFO_Interface SUBROUTINE CC_ELFO ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : err - USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NCCCD, NSUB + USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NCCCD, NSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : SC_ELFE, SC_ELFN - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_ELFO END INTERFACE diff --git a/Source/Interfaces/CC_ENFO_Interface.f90 b/Source/Interfaces/CC_ENFO_Interface.f90 index ab310e18..d4e5e1b9 100644 --- a/Source/Interfaces/CC_ENFO_Interface.f90 +++ b/Source/Interfaces/CC_ENFO_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_ENFO_Interface @@ -30,19 +30,19 @@ MODULE CC_ENFO_Interface SUBROUTINE CC_ENFO ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ENFFIL, ERR, F06 USE SCONTR, ONLY : WARN_ERR, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_ENFO END INTERFACE diff --git a/Source/Interfaces/CC_GPFO_Interface.f90 b/Source/Interfaces/CC_GPFO_Interface.f90 index 285f0baf..6fbb8de1 100644 --- a/Source/Interfaces/CC_GPFO_Interface.f90 +++ b/Source/Interfaces/CC_GPFO_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_GPFO_Interface @@ -30,18 +30,18 @@ MODULE CC_GPFO_Interface SUBROUTINE CC_GPFO ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - USE SCONTR, ONLY : BLNK_SUB_NAM, LSUB, NSUB + USE SCONTR, ONLY : BLNK_SUB_NAM, LSUB, NSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : SC_GPFO - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_GPFO END INTERFACE diff --git a/Source/Interfaces/CC_LABE_Interface.f90 b/Source/Interfaces/CC_LABE_Interface.f90 index 9a57a440..49815c45 100644 --- a/Source/Interfaces/CC_LABE_Interface.f90 +++ b/Source/Interfaces/CC_LABE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_LABE_Interface @@ -30,20 +30,20 @@ MODULE CC_LABE_Interface SUBROUTINE CC_LABE ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : WARN_ERR, LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : LABEL - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_LABE END INTERFACE diff --git a/Source/Interfaces/CC_LOAD_Interface.f90 b/Source/Interfaces/CC_LOAD_Interface.f90 index fb5b0c71..b16d744b 100644 --- a/Source/Interfaces/CC_LOAD_Interface.f90 +++ b/Source/Interfaces/CC_LOAD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_LOAD_Interface @@ -30,19 +30,19 @@ MODULE CC_LOAD_Interface SUBROUTINE CC_LOAD ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : SUBLOD - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_LOAD END INTERFACE diff --git a/Source/Interfaces/CC_METH_Interface.f90 b/Source/Interfaces/CC_METH_Interface.f90 index 87e83116..16aeaa8b 100644 --- a/Source/Interfaces/CC_METH_Interface.f90 +++ b/Source/Interfaces/CC_METH_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_METH_Interface @@ -30,20 +30,20 @@ MODULE CC_METH_Interface SUBROUTINE CC_METH ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : WARN_ERR, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : CC_EIGR_SID - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_METH END INTERFACE diff --git a/Source/Interfaces/CC_MPCF_Interface.f90 b/Source/Interfaces/CC_MPCF_Interface.f90 index f5e6aa75..8ad03b9a 100644 --- a/Source/Interfaces/CC_MPCF_Interface.f90 +++ b/Source/Interfaces/CC_MPCF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_MPCF_Interface @@ -30,20 +30,20 @@ MODULE CC_MPCF_Interface SUBROUTINE CC_MPCF ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : PCHSTAT - USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD + USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : MPCF_OUT USE MODEL_STUF, ONLY : SC_MPCF - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_MPCF END INTERFACE diff --git a/Source/Interfaces/CC_MPC_Interface.f90 b/Source/Interfaces/CC_MPC_Interface.f90 index b9af85f3..bb91b78f 100644 --- a/Source/Interfaces/CC_MPC_Interface.f90 +++ b/Source/Interfaces/CC_MPC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_MPC_Interface @@ -30,19 +30,19 @@ MODULE CC_MPC_Interface SUBROUTINE CC_MPC ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : MPCSETS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_MPC END INTERFACE diff --git a/Source/Interfaces/CC_NLPARM_Interface.f90 b/Source/Interfaces/CC_NLPARM_Interface.f90 index 3944e145..681d110a 100644 --- a/Source/Interfaces/CC_NLPARM_Interface.f90 +++ b/Source/Interfaces/CC_NLPARM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_NLPARM_Interface @@ -30,19 +30,19 @@ MODULE CC_NLPARM_Interface SUBROUTINE CC_NLPARM ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LSUB, NSUB, SOL_NAME USE TIMDAT, ONLY : TSEC USE NONLINEAR_PARAMS, ONLY : NL_SID - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_NLPARM END INTERFACE diff --git a/Source/Interfaces/CC_OLOA_Interface.f90 b/Source/Interfaces/CC_OLOA_Interface.f90 index 0d9f23fb..9fa8abcb 100644 --- a/Source/Interfaces/CC_OLOA_Interface.f90 +++ b/Source/Interfaces/CC_OLOA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_OLOA_Interface @@ -30,20 +30,20 @@ MODULE CC_OLOA_Interface SUBROUTINE CC_OLOA ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : PCHSTAT - USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD + USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : OLOA_OUT USE MODEL_STUF, ONLY : SC_OLOA - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_OLOA END INTERFACE diff --git a/Source/Interfaces/CC_OUTPUTS_Interface.f90 b/Source/Interfaces/CC_OUTPUTS_Interface.f90 index b1dc0958..b21565a4 100644 --- a/Source/Interfaces/CC_OUTPUTS_Interface.f90 +++ b/Source/Interfaces/CC_OUTPUTS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_OUTPUTS_Interface @@ -30,20 +30,20 @@ MODULE CC_OUTPUTS_Interface SUBROUTINE CC_OUTPUTS ( CARD, WHAT, SETID ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR - USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NCCCD, NSUB + USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NCCCD, NSUB USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: WHAT ! Which CC type output to process (e.g., DISP, SPCF, etc) - + INTEGER(LONG), INTENT(OUT) :: SETID ! Set ID on this Case Control card - + END SUBROUTINE CC_OUTPUTS END INTERFACE diff --git a/Source/Interfaces/CC_SET0_Interface.f90 b/Source/Interfaces/CC_SET0_Interface.f90 index 629ec902..f6fdff4c 100644 --- a/Source/Interfaces/CC_SET0_Interface.f90 +++ b/Source/Interfaces/CC_SET0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_SET0_Interface @@ -30,18 +30,18 @@ MODULE CC_SET0_Interface SUBROUTINE CC_SET0 ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, IN1 USE SCONTR, ONLY : BLNK_SUB_NAM, CC_ENTRY_LEN, LSETLN USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_SET0 END INTERFACE diff --git a/Source/Interfaces/CC_SET_Interface.f90 b/Source/Interfaces/CC_SET_Interface.f90 index c7b7c344..4b69720c 100644 --- a/Source/Interfaces/CC_SET_Interface.f90 +++ b/Source/Interfaces/CC_SET_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_SET_Interface @@ -30,21 +30,21 @@ MODULE CC_SET_Interface SUBROUTINE CC_SET ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, IN1 USE IOUNT1, ONLY : WRT_ERR USE SCONTR, ONLY : CC_ENTRY_LEN, FATAL_ERR, LSETS, LSETLN, MAX_TOKEN_LEN, NSETS, SETLEN, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ALL_SETS_ARRAY, SETS_IDS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 3*BYTE), PARAMETER :: CARD_NAME = 'SET' ! Name of the C.C. card - - + + END SUBROUTINE CC_SET END INTERFACE diff --git a/Source/Interfaces/CC_SPCF_Interface.f90 b/Source/Interfaces/CC_SPCF_Interface.f90 index 75c320e8..a36226c5 100644 --- a/Source/Interfaces/CC_SPCF_Interface.f90 +++ b/Source/Interfaces/CC_SPCF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_SPCF_Interface @@ -30,20 +30,20 @@ MODULE CC_SPCF_Interface SUBROUTINE CC_SPCF ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : PCHSTAT - USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD + USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : SPCF_OUT USE MODEL_STUF, ONLY : SC_SPCF - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_SPCF END INTERFACE diff --git a/Source/Interfaces/CC_SPC_Interface.f90 b/Source/Interfaces/CC_SPC_Interface.f90 index 8c2bf40e..19ac327d 100644 --- a/Source/Interfaces/CC_SPC_Interface.f90 +++ b/Source/Interfaces/CC_SPC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_SPC_Interface @@ -30,20 +30,20 @@ MODULE CC_SPC_Interface SUBROUTINE CC_SPC ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : SPCSETS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_SPC END INTERFACE diff --git a/Source/Interfaces/CC_STRE_Interface.f90 b/Source/Interfaces/CC_STRE_Interface.f90 index d6571016..a4bcf102 100644 --- a/Source/Interfaces/CC_STRE_Interface.f90 +++ b/Source/Interfaces/CC_STRE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_STRE_Interface @@ -30,18 +30,18 @@ MODULE CC_STRE_Interface SUBROUTINE CC_STRE ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - USE SCONTR, ONLY : BLNK_SUB_NAM, LSUB, NSUB + USE SCONTR, ONLY : BLNK_SUB_NAM, LSUB, NSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : SC_STRE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_STRE END INTERFACE diff --git a/Source/Interfaces/CC_STRN_Interface.f90 b/Source/Interfaces/CC_STRN_Interface.f90 index ba62cb9f..68f81306 100644 --- a/Source/Interfaces/CC_STRN_Interface.f90 +++ b/Source/Interfaces/CC_STRN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_STRN_Interface @@ -30,18 +30,18 @@ MODULE CC_STRN_Interface SUBROUTINE CC_STRN ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - USE SCONTR, ONLY : BLNK_SUB_NAM, LSUB, NSUB + USE SCONTR, ONLY : BLNK_SUB_NAM, LSUB, NSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : SC_STRN - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_STRN END INTERFACE diff --git a/Source/Interfaces/CC_SUBC_Interface.f90 b/Source/Interfaces/CC_SUBC_Interface.f90 index e4c0b544..457cd2ad 100644 --- a/Source/Interfaces/CC_SUBC_Interface.f90 +++ b/Source/Interfaces/CC_SUBC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_SUBC_Interface @@ -30,19 +30,19 @@ MODULE CC_SUBC_Interface SUBROUTINE CC_SUBC ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : CC_ENTRY_LEN, FATAL_ERR, LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : SCNUM - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_SUBC END INTERFACE diff --git a/Source/Interfaces/CC_SUBT_Interface.f90 b/Source/Interfaces/CC_SUBT_Interface.f90 index 493c6c3f..cd117006 100644 --- a/Source/Interfaces/CC_SUBT_Interface.f90 +++ b/Source/Interfaces/CC_SUBT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_SUBT_Interface @@ -30,20 +30,20 @@ MODULE CC_SUBT_Interface SUBROUTINE CC_SUBT ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : WARN_ERR, LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : STITLE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_SUBT END INTERFACE diff --git a/Source/Interfaces/CC_TEMP_Interface.f90 b/Source/Interfaces/CC_TEMP_Interface.f90 index 67d8436d..dd66866b 100644 --- a/Source/Interfaces/CC_TEMP_Interface.f90 +++ b/Source/Interfaces/CC_TEMP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_TEMP_Interface @@ -30,7 +30,7 @@ MODULE CC_TEMP_Interface SUBROUTINE CC_TEMP ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : LSUB, NSUB, NTSUB, BLNK_SUB_NAM @@ -38,11 +38,11 @@ SUBROUTINE CC_TEMP ( CARD ) USE MODEL_STUF, ONLY : SUBLOD IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_TEMP END INTERFACE diff --git a/Source/Interfaces/CC_TITL_Interface.f90 b/Source/Interfaces/CC_TITL_Interface.f90 index 44d8637d..aa322b92 100644 --- a/Source/Interfaces/CC_TITL_Interface.f90 +++ b/Source/Interfaces/CC_TITL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_TITL_Interface @@ -30,20 +30,20 @@ MODULE CC_TITL_Interface SUBROUTINE CC_TITL ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : WARN_ERR, LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : TITLE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CC_TITL END INTERFACE diff --git a/Source/Interfaces/CHAR_FLD_Interface.f90 b/Source/Interfaces/CHAR_FLD_Interface.f90 index cd54a4e9..171f36f6 100644 --- a/Source/Interfaces/CHAR_FLD_Interface.f90 +++ b/Source/Interfaces/CHAR_FLD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHAR_FLD_Interface @@ -30,18 +30,18 @@ MODULE CHAR_FLD_Interface SUBROUTINE CHAR_FLD ( JCARDI, IFLD, CHAR_INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : IERRFL, FATAL_ERR - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: JCARDI ! The field of characters to read CHARACTER(LEN(JCARDI)), INTENT(OUT):: CHAR_INP ! The character variable to read - + INTEGER(LONG), INTENT(IN) :: IFLD ! Field (2 - 9) of a Bulk Data card to read - + END SUBROUTINE CHAR_FLD END INTERFACE diff --git a/Source/Interfaces/CHECK_BAR_MOIs_Interface.f90 b/Source/Interfaces/CHECK_BAR_MOIs_Interface.f90 index a7ec4861..ea603fbe 100644 --- a/Source/Interfaces/CHECK_BAR_MOIs_Interface.f90 +++ b/Source/Interfaces/CHECK_BAR_MOIs_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHECK_BAR_MOIs_Interface @@ -30,22 +30,22 @@ MODULE CHECK_BAR_MOIs_Interface SUBROUTINE CHECK_BAR_MOIs ( NAME, ID, I1, I2, I12, IERR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : EPSIL, SUPINFO USE CONSTANTS_1, ONLY : ZERO IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Either PBAR, PBARL or PBEAM CHARACTER(LEN=*), INTENT(IN) :: ID ! Character value of the bar's ID INTEGER(LONG), INTENT(OUT) :: IERR ! Error indicator - + REAL(DOUBLE), INTENT(INOUT) :: I1 ! MOI of the bar or beam REAL(DOUBLE), INTENT(INOUT) :: I2 ! MOI of the bar or beam REAL(DOUBLE), INTENT(INOUT) :: I12 ! MOI of the bar or beam diff --git a/Source/Interfaces/CHECK_MAT_INVERSE_Interface.f90 b/Source/Interfaces/CHECK_MAT_INVERSE_Interface.f90 index 946a1eb0..00085cc7 100644 --- a/Source/Interfaces/CHECK_MAT_INVERSE_Interface.f90 +++ b/Source/Interfaces/CHECK_MAT_INVERSE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHECK_MAT_INVERSE_Interface diff --git a/Source/Interfaces/CHECK_TE_MATRIX_Interface.f90 b/Source/Interfaces/CHECK_TE_MATRIX_Interface.f90 index d08888c0..92e43784 100644 --- a/Source/Interfaces/CHECK_TE_MATRIX_Interface.f90 +++ b/Source/Interfaces/CHECK_TE_MATRIX_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHECK_TE_MATRIX_Interface diff --git a/Source/Interfaces/CHK_ARRAY_ALLOC_STAT_Interface.f90 b/Source/Interfaces/CHK_ARRAY_ALLOC_STAT_Interface.f90 index 2a48602c..d3b05fef 100644 --- a/Source/Interfaces/CHK_ARRAY_ALLOC_STAT_Interface.f90 +++ b/Source/Interfaces/CHK_ARRAY_ALLOC_STAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHK_ARRAY_ALLOC_STAT_Interface diff --git a/Source/Interfaces/CHK_CC_CMD_DESCRIBERS_Interface.f90 b/Source/Interfaces/CHK_CC_CMD_DESCRIBERS_Interface.f90 index 062c75c1..b62823b3 100644 --- a/Source/Interfaces/CHK_CC_CMD_DESCRIBERS_Interface.f90 +++ b/Source/Interfaces/CHK_CC_CMD_DESCRIBERS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHK_CC_CMD_DESCRIBERS_Interface @@ -30,16 +30,16 @@ MODULE CHK_CC_CMD_DESCRIBERS_Interface SUBROUTINE CHK_CC_CMD_DESCRIBERS ( WHAT, NUM_WORDS ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, ECHO, FATAL_ERR, WARN_ERR USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_LOC, STRN_OPT, STRE_LOC, STRE_OPT - USE PARAMS, ONLY : SUPWARN + USE PARAMS, ONLY : SUPWARN IMPLICIT NONE - + INTEGER(LONG), PARAMETER :: NUM_POSS_CCD = 31 ! Number of possible CC command describers (incl all MSC ones as well) INTEGER(LONG), PARAMETER :: NUM_OUT_TYP = 9 ! Number of OUTPUT_TYPE's @@ -47,7 +47,7 @@ SUBROUTINE CHK_CC_CMD_DESCRIBERS ( WHAT, NUM_WORDS ) INTEGER(LONG), INTENT(IN) :: NUM_WORDS ! Number of words we need to check in CC_CMD_DESCRIBERS - + END SUBROUTINE CHK_CC_CMD_DESCRIBERS END INTERFACE diff --git a/Source/Interfaces/CHK_OGEL_ZEROS_Interface.f90 b/Source/Interfaces/CHK_OGEL_ZEROS_Interface.f90 index 77641f21..bcc597b0 100644 --- a/Source/Interfaces/CHK_OGEL_ZEROS_Interface.f90 +++ b/Source/Interfaces/CHK_OGEL_ZEROS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHK_OGEL_ZEROS_Interface @@ -30,16 +30,16 @@ MODULE CHK_OGEL_ZEROS_Interface SUBROUTINE CHK_OGEL_ZEROS ( NUM ) - + USE PENTIUM_II_KIND, ONLY : LONG USE SCONTR, ONLY : MOGEL USE CONSTANTS_1, ONLY : ZERO USE LINK9_STUFF, ONLY : OGEL IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: NUM ! The number of rows in OGEL to check - + END SUBROUTINE CHK_OGEL_ZEROS END INTERFACE diff --git a/Source/Interfaces/CLOSE_LIJFILES_Interface.f90 b/Source/Interfaces/CLOSE_LIJFILES_Interface.f90 index 6aef68e0..1c08817e 100644 --- a/Source/Interfaces/CLOSE_LIJFILES_Interface.f90 +++ b/Source/Interfaces/CLOSE_LIJFILES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CLOSE_LIJFILES_Interface @@ -30,7 +30,7 @@ MODULE CLOSE_LIJFILES_Interface SUBROUTINE CLOSE_LIJFILES ( CLOSE_STAT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, RESTART USE IOUNT1, ONLY : MOU4, WRT_ERR, ERR, F06, & @@ -60,7 +60,7 @@ SUBROUTINE CLOSE_LIJFILES ( CLOSE_STAT ) USE TIMDAT, ONLY : STIME, TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CLOSE_STAT ! Indicator of what to do with file when it is closed END SUBROUTINE CLOSE_LIJFILES diff --git a/Source/Interfaces/CLOSE_OUTFILES_Interface.f90 b/Source/Interfaces/CLOSE_OUTFILES_Interface.f90 index a5e28124..bb62f3b6 100644 --- a/Source/Interfaces/CLOSE_OUTFILES_Interface.f90 +++ b/Source/Interfaces/CLOSE_OUTFILES_Interface.f90 @@ -1,36 +1,36 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CLOSE_OUTFILES_Interface INTERFACE - SUBROUTINE CLOSE_OUTFILES ( BUG_CLOSE_STAT, ERR_CLOSE_STAT, OP2_CLOSE_STAT, PCH_CLOSE_STAT ) + SUBROUTINE CLOSE_OUTFILES ( BUG_CLOSE_STAT, ERR_CLOSE_STAT, OP2_CLOSE_STAT, PCH_CLOSE_STAT ) + - USE PENTIUM_II_KIND, ONLY : BYTE USE IOUNT1, ONLY : BUG , ERR , F06 , OP2 , PCH ,SC1, & BUGFIL, ERRFIL, F06FIL, OP2FIL, PCHFIL diff --git a/Source/Interfaces/CNT_NONZ_IN_FULL_MAT_Interface.f90 b/Source/Interfaces/CNT_NONZ_IN_FULL_MAT_Interface.f90 index 3d4b68a3..d54046b2 100644 --- a/Source/Interfaces/CNT_NONZ_IN_FULL_MAT_Interface.f90 +++ b/Source/Interfaces/CNT_NONZ_IN_FULL_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CNT_NONZ_IN_FULL_MAT_Interface @@ -30,16 +30,16 @@ MODULE CNT_NONZ_IN_FULL_MAT_Interface SUBROUTINE CNT_NONZ_IN_FULL_MAT ( MATIN_NAME, MATIN, NROWS, NCOLS, SYM, NTERM_NONZERO, SMALL ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : EPSIL, SUPINFO, TINY - USE DEBUG_PARAMETERS, ONLY : DEBUG + USE DEBUG_PARAMETERS, ONLY : DEBUG IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of the matrix CHARACTER(LEN=*), INTENT(IN) :: SYM ! See above ('ALL' or 'UTR') @@ -47,7 +47,7 @@ SUBROUTINE CNT_NONZ_IN_FULL_MAT ( MATIN_NAME, MATIN, NROWS, NCOLS, SYM, NTERM_NO INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in the matrix INTEGER(LONG), INTENT(OUT) :: NTERM_NONZERO ! Number of nonzero (or significant) values in the matrix - + REAL(DOUBLE) , INTENT(IN) :: MATIN(NROWS,NCOLS)! Input full matrix REAL(DOUBLE) , INTENT(OUT) :: SMALL ! Filter for small terms diff --git a/Source/Interfaces/COND_NUM_Interface.f90 b/Source/Interfaces/COND_NUM_Interface.f90 index 98b42b0b..7da68a16 100644 --- a/Source/Interfaces/COND_NUM_Interface.f90 +++ b/Source/Interfaces/COND_NUM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE COND_NUM_Interface @@ -49,7 +49,7 @@ SUBROUTINE COND_NUM ( MATIN_NAME, N, KD, K_INORM, MATIN_FAC, RCOND ) - REAL(DOUBLE), INTENT(IN) :: K_INORM ! The infinity-norm of the matrix whose name is MATIN_NAME + REAL(DOUBLE), INTENT(IN) :: K_INORM ! The infinity-norm of the matrix whose name is MATIN_NAME REAL(DOUBLE), INTENT(IN) :: MATIN_FAC(KD+1,N) ! The upper triangular factor of the matrix whose name is MATIN_NAME REAL(DOUBLE), INTENT(OUT) :: RCOND ! The recip of the condition number of matrix whose name is MATIN_NAME diff --git a/Source/Interfaces/CONM2_PROC_1_Interface.f90 b/Source/Interfaces/CONM2_PROC_1_Interface.f90 index c0a40f37..e1766311 100644 --- a/Source/Interfaces/CONM2_PROC_1_Interface.f90 +++ b/Source/Interfaces/CONM2_PROC_1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CONM2_PROC_1_Interface @@ -30,7 +30,7 @@ MODULE CONM2_PROC_1_Interface SUBROUTINE CONM2_PROC_1 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1Y USE SCONTR, ONLY : BLNK_SUB_NAM, DATA_NAM_LEN, FATAL_ERR, MCMASS, MCONM2, MPMASS, MRCONM2, MRPMASS, NCMASS, & @@ -42,12 +42,12 @@ SUBROUTINE CONM2_PROC_1 USE DEBUG_PARAMETERS, ONLY : DEBUG IMPLICIT NONE - + CHARACTER(8*BYTE), PARAMETER :: NAME = 'CONM2 ' - + INTEGER(LONG) :: NUM_RCONM2_RESET ! No. RCONM2's reset to zero because they are connected to SPOINT's - + END SUBROUTINE CONM2_PROC_1 END INTERFACE diff --git a/Source/Interfaces/CONM2_PROC_2_Interface.f90 b/Source/Interfaces/CONM2_PROC_2_Interface.f90 index fdd4b8a3..49a4eb2f 100644 --- a/Source/Interfaces/CONM2_PROC_2_Interface.f90 +++ b/Source/Interfaces/CONM2_PROC_2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CONM2_PROC_2_Interface @@ -30,20 +30,20 @@ MODULE CONM2_PROC_2_Interface SUBROUTINE CONM2_PROC_2 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NCONM2, NCORD, NGRID USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CONM2, RCONM2, GRID, GRID_ID, CORD USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(8*BYTE), PARAMETER :: NAME = 'CONM2 ' - - + + END SUBROUTINE CONM2_PROC_2 END INTERFACE diff --git a/Source/Interfaces/CONVERT_INT_TO_CHAR_Interface.f90 b/Source/Interfaces/CONVERT_INT_TO_CHAR_Interface.f90 index 401d3b85..2f7691b4 100644 --- a/Source/Interfaces/CONVERT_INT_TO_CHAR_Interface.f90 +++ b/Source/Interfaces/CONVERT_INT_TO_CHAR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CONVERT_INT_TO_CHAR_Interface @@ -30,19 +30,19 @@ MODULE CONVERT_INT_TO_CHAR_Interface SUBROUTINE CONVERT_INT_TO_CHAR ( INT_NUM, CHAR_VALUE ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(1*BYTE), INTENT(OUT) :: CHAR_VALUE ! If INT_NUM = 1, then CHAR_VALUE = '1', etc - + INTEGER(LONG), INTENT(IN) :: INT_NUM ! Integer 1, 2, 3, 4, 5 O5 6 - + END SUBROUTINE CONVERT_INT_TO_CHAR END INTERFACE diff --git a/Source/Interfaces/CONVERT_VEC_COORD_SYS_Interface.f90 b/Source/Interfaces/CONVERT_VEC_COORD_SYS_Interface.f90 index cefa674d..a9fe0bc5 100644 --- a/Source/Interfaces/CONVERT_VEC_COORD_SYS_Interface.f90 +++ b/Source/Interfaces/CONVERT_VEC_COORD_SYS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CONVERT_VEC_COORD_SYS_Interface diff --git a/Source/Interfaces/CORD_PROC_Interface.f90 b/Source/Interfaces/CORD_PROC_Interface.f90 index 9ee7e2dd..48b5b62d 100644 --- a/Source/Interfaces/CORD_PROC_Interface.f90 +++ b/Source/Interfaces/CORD_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CORD_PROC_Interface @@ -30,7 +30,7 @@ MODULE CORD_PROC_Interface SUBROUTINE CORD_PROC - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONE80, PI, CONV_DEG_RAD USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -40,9 +40,9 @@ SUBROUTINE CORD_PROC USE MODEL_STUF, ONLY : CORD, GRID, RCORD, RGRID, TN IMPLICIT NONE - - + + END SUBROUTINE CORD_PROC END INTERFACE diff --git a/Source/Interfaces/COUNTER_INIT_Interface.f90 b/Source/Interfaces/COUNTER_INIT_Interface.f90 index e3a464e8..da9564f2 100644 --- a/Source/Interfaces/COUNTER_INIT_Interface.f90 +++ b/Source/Interfaces/COUNTER_INIT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE COUNTER_INIT_Interface @@ -34,9 +34,9 @@ SUBROUTINE COUNTER_INIT(PREFIX, TOTAL) USE SCONTR, ONLY : COUNTER_VALUE, COUNTER_PERC, COUNTER_TOTAL, & COUNTER_STARTED, COUNTER_PREFIX, FATAL_ERR USE IOUNT1, ONLY: ERR, F06 - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: PREFIX INTEGER(LONG), INTENT(IN) :: TOTAL diff --git a/Source/Interfaces/COUNTER_PROGRESS_Interface.f90 b/Source/Interfaces/COUNTER_PROGRESS_Interface.f90 index e6155ecc..66752c09 100644 --- a/Source/Interfaces/COUNTER_PROGRESS_Interface.f90 +++ b/Source/Interfaces/COUNTER_PROGRESS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE COUNTER_PROGRESS_Interface @@ -35,9 +35,9 @@ SUBROUTINE COUNTER_PROGRESS(NEW_VALUE) COUNTER_STARTED, COUNTER_PREFIX USE IOUNT1, ONLY : SC1 USE CONSTANTS_1, ONLY : ZERO - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: NEW_VALUE INTEGER(LONG) :: NEW_PERC, ETA, NEW_TIME, ELAPSED, & ETA_HOURS, ETA_MINS, ETA_SECS, & diff --git a/Source/Interfaces/CRDERR_Interface.f90 b/Source/Interfaces/CRDERR_Interface.f90 index 0303bc29..f464ccc0 100644 --- a/Source/Interfaces/CRDERR_Interface.f90 +++ b/Source/Interfaces/CRDERR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CRDERR_Interface @@ -30,18 +30,18 @@ MODULE CRDERR_Interface SUBROUTINE CRDERR ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, IERRFL + USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, IERRFL USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE CRDERR END INTERFACE diff --git a/Source/Interfaces/CROSS_Interface.f90 b/Source/Interfaces/CROSS_Interface.f90 index 5fedb212..5982fc71 100644 --- a/Source/Interfaces/CROSS_Interface.f90 +++ b/Source/Interfaces/CROSS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CROSS_Interface @@ -30,19 +30,19 @@ MODULE CROSS_Interface SUBROUTINE CROSS ( A, B, C ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + REAL(DOUBLE), INTENT(IN) :: A(3) ! Components of input vector A REAL(DOUBLE), INTENT(IN) :: B(3) ! Components of input vector B REAL(DOUBLE), INTENT(OUT) :: C(3) ! Components of output vector C - + END SUBROUTINE CROSS END INTERFACE diff --git a/Source/Interfaces/CRS_NONSYM_TO_CRS_SYM_Interface.f90 b/Source/Interfaces/CRS_NONSYM_TO_CRS_SYM_Interface.f90 index 9254de8c..1232bb6c 100644 --- a/Source/Interfaces/CRS_NONSYM_TO_CRS_SYM_Interface.f90 +++ b/Source/Interfaces/CRS_NONSYM_TO_CRS_SYM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CRS_NONSYM_TO_CRS_SYM_Interface @@ -36,12 +36,12 @@ SUBROUTINE CRS_NONSYM_TO_CRS_SYM ( NAME_A, NROW_A, NTERM_A, I_A, J_A, A, NAME_B, USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME_A ! Name of input matrix CHARACTER(LEN=*), INTENT(IN) :: NAME_B ! Name of output matrix - + INTEGER(LONG), INTENT(IN) :: NROW_A ! Number of rows in input matrix, A INTEGER(LONG), INTENT(IN) :: NTERM_A ! Number of nonzero terms in input matrix, A INTEGER(LONG), INTENT(IN) :: NTERM_B ! Number of nonzero terms in output matrix, B diff --git a/Source/Interfaces/CRS_SYM_TO_CRS_NONSYM_Interface.f90 b/Source/Interfaces/CRS_SYM_TO_CRS_NONSYM_Interface.f90 index f1aa904a..c0ddcf38 100644 --- a/Source/Interfaces/CRS_SYM_TO_CRS_NONSYM_Interface.f90 +++ b/Source/Interfaces/CRS_SYM_TO_CRS_NONSYM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CRS_SYM_TO_CRS_NONSYM_Interface @@ -36,14 +36,14 @@ SUBROUTINE CRS_SYM_TO_CRS_NONSYM ( NAME_A, NROW_A, NTERM_A, I_A, J_A, A, NAME_B, USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=*), INTENT(IN) :: NAME_A ! Name of input matrix CHARACTER(LEN=*), INTENT(IN) :: NAME_B ! Name of output matrix CHARACTER(LEN=*), INTENT(IN) :: WRT_SCREEN ! If 'Y' then write msgs to screen - + INTEGER(LONG), INTENT(IN) :: NROW_A ! Number of rows in input matrix, A INTEGER(LONG), INTENT(IN) :: NTERM_A ! Number of nonzero terms in input matrix, A INTEGER(LONG), INTENT(IN) :: NTERM_B ! Number of nonzero terms in output matrix, B diff --git a/Source/Interfaces/CSHIFT_Interface.f90 b/Source/Interfaces/CSHIFT_Interface.f90 index 06b38abd..c77236b9 100644 --- a/Source/Interfaces/CSHIFT_Interface.f90 +++ b/Source/Interfaces/CSHIFT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CSHIFT_Interface @@ -30,18 +30,18 @@ MODULE CSHIFT_Interface SUBROUTINE CSHIFT ( CARD_IN, CHAR, CARD_SHIFTED, CHAR_COL, IERR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*) , INTENT(IN) :: CARD_IN ! Input Case Control card CHARACTER(LEN=LEN(CARD_IN)) , INTENT(OUT):: CARD_SHIFTED ! C.C. card shifted to begin in 1st nonblank col after CHAR_COL CHARACTER(1*BYTE), INTENT(IN) :: CHAR ! Character to find in CARD - + INTEGER(LONG), INTENT(OUT) :: IERR ! Error indicator. If CHAR not found, IERR set to 1 INTEGER(LONG), INTENT(OUT) :: CHAR_COL ! Column number on CARD where character CHAR is found diff --git a/Source/Interfaces/DATA_SET_NAME_ERROR_Interface.f90 b/Source/Interfaces/DATA_SET_NAME_ERROR_Interface.f90 index d0235a76..cdae25f8 100644 --- a/Source/Interfaces/DATA_SET_NAME_ERROR_Interface.f90 +++ b/Source/Interfaces/DATA_SET_NAME_ERROR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DATA_SET_NAME_ERROR_Interface diff --git a/Source/Interfaces/DATA_SET_SIZE_ERROR_Interface.f90 b/Source/Interfaces/DATA_SET_SIZE_ERROR_Interface.f90 index 1a324981..866d5d96 100644 --- a/Source/Interfaces/DATA_SET_SIZE_ERROR_Interface.f90 +++ b/Source/Interfaces/DATA_SET_SIZE_ERROR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DATA_SET_SIZE_ERROR_Interface diff --git a/Source/Interfaces/DEALLOCATE_CB_ELM_OTM_Interface.f90 b/Source/Interfaces/DEALLOCATE_CB_ELM_OTM_Interface.f90 index 07a06b1c..cedd3f76 100644 --- a/Source/Interfaces/DEALLOCATE_CB_ELM_OTM_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_CB_ELM_OTM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_CB_ELM_OTM_Interface @@ -30,21 +30,21 @@ MODULE DEALLOCATE_CB_ELM_OTM_Interface SUBROUTINE DEALLOCATE_CB_ELM_OTM ( NAME ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO - USE OUTPUT4_MATRICES + USE OUTPUT4_MATRICES IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - - + + END SUBROUTINE DEALLOCATE_CB_ELM_OTM END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_CB_GRD_OTM_Interface.f90 b/Source/Interfaces/DEALLOCATE_CB_GRD_OTM_Interface.f90 index a763d784..958dc5db 100644 --- a/Source/Interfaces/DEALLOCATE_CB_GRD_OTM_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_CB_GRD_OTM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_CB_GRD_OTM_Interface @@ -30,7 +30,7 @@ MODULE DEALLOCATE_CB_GRD_OTM_Interface SUBROUTINE DEALLOCATE_CB_GRD_OTM ( NAME ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC @@ -40,11 +40,11 @@ SUBROUTINE DEALLOCATE_CB_GRD_OTM ( NAME ) USE OUTPUT4_MATRICES, ONLY : OTM_ACCE, OTM_DISP, OTM_MPCF, OTM_SPCF IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - - + + END SUBROUTINE DEALLOCATE_CB_GRD_OTM END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_COL_VEC_Interface.f90 b/Source/Interfaces/DEALLOCATE_COL_VEC_Interface.f90 index 78a64702..6b3e09ea 100644 --- a/Source/Interfaces/DEALLOCATE_COL_VEC_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_COL_VEC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_COL_VEC_Interface @@ -30,7 +30,7 @@ MODULE DEALLOCATE_COL_VEC_Interface SUBROUTINE DEALLOCATE_COL_VEC ( NAME ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC @@ -46,11 +46,11 @@ SUBROUTINE DEALLOCATE_COL_VEC ( NAME ) USE COL_VECS, ONLY : PHIXG_COL, PHIXL_COL, PHIXN_COL, PHIXGP_COL, PHIXLP_COL, PHIXNP_COL IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - - + + END SUBROUTINE DEALLOCATE_COL_VEC END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_DOF_TABLES_Interface.f90 b/Source/Interfaces/DEALLOCATE_DOF_TABLES_Interface.f90 index 8f27378f..4ef6f2f4 100644 --- a/Source/Interfaces/DEALLOCATE_DOF_TABLES_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_DOF_TABLES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_DOF_TABLES_Interface @@ -30,21 +30,21 @@ MODULE DEALLOCATE_DOF_TABLES_Interface SUBROUTINE DEALLOCATE_DOF_TABLES ( NAME ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO USE DOF_TABLES, ONLY : TDOFI, TDOF_ROW_START, TDOF, TSET - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format - - + + END SUBROUTINE DEALLOCATE_DOF_TABLES END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_EIGEN1_MAT_Interface.f90 b/Source/Interfaces/DEALLOCATE_EIGEN1_MAT_Interface.f90 index 2174c8ed..72576e4d 100644 --- a/Source/Interfaces/DEALLOCATE_EIGEN1_MAT_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_EIGEN1_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_EIGEN1_MAT_Interface @@ -30,7 +30,7 @@ MODULE DEALLOCATE_EIGEN1_MAT_Interface SUBROUTINE DEALLOCATE_EIGEN1_MAT ( NAME ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -38,13 +38,13 @@ SUBROUTINE DEALLOCATE_EIGEN1_MAT ( NAME ) USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO USE EIGEN_MATRICES_1 , ONLY : EIGEN_VAL, EIGEN_VEC, GEN_MASS, MODE_NUM, MEFFMASS, MPFACTOR_N6, MPFACTOR_NR - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format - - + + END SUBROUTINE DEALLOCATE_EIGEN1_MAT END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_EMS_ARRAYS_Interface.f90 b/Source/Interfaces/DEALLOCATE_EMS_ARRAYS_Interface.f90 index 1a3d607d..1c441235 100644 --- a/Source/Interfaces/DEALLOCATE_EMS_ARRAYS_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_EMS_ARRAYS_Interface.f90 @@ -1,47 +1,47 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_EMS_ARRAYS_Interface INTERFACE - SUBROUTINE DEALLOCATE_EMS_ARRAYS + SUBROUTINE DEALLOCATE_EMS_ARRAYS + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE EMS_ARRAYS, ONLY : EMSCOL, EMSKEY, EMSPNT, EMS - + IMPLICIT NONE - + CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + END SUBROUTINE DEALLOCATE_EMS_ARRAYS diff --git a/Source/Interfaces/DEALLOCATE_FEMAP_DATA_Interface.f90 b/Source/Interfaces/DEALLOCATE_FEMAP_DATA_Interface.f90 index c64c1d7d..6495c64d 100644 --- a/Source/Interfaces/DEALLOCATE_FEMAP_DATA_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_FEMAP_DATA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_FEMAP_DATA_Interface @@ -30,20 +30,20 @@ MODULE DEALLOCATE_FEMAP_DATA_Interface SUBROUTINE DEALLOCATE_FEMAP_DATA - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE FEMAP_ARRAYS, ONLY : FEMAP_EL_VECS, FEMAP_EL_NUMS - + IMPLICIT NONE - + CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - - + + END SUBROUTINE DEALLOCATE_FEMAP_DATA END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_FULL_MAT_Interface.f90 b/Source/Interfaces/DEALLOCATE_FULL_MAT_Interface.f90 index ccdff5e5..bf874251 100644 --- a/Source/Interfaces/DEALLOCATE_FULL_MAT_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_FULL_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_FULL_MAT_Interface @@ -30,10 +30,10 @@ MODULE DEALLOCATE_FULL_MAT_Interface SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO @@ -42,14 +42,14 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) KAA_FULL, KAO_FULL, KOO_FULL, MAA_FULL, MAO_FULL, MOO_FULL, PA_FULL, PO_FULL, & PFYS_FULL, QSYS_FULL, KFSe_FULL, & RMM_FULL, GMN_FULL, GMNt_FULL, GOA_FULL, GOAt_FULL,HMN_FULL, PHIZG_FULL, & - DUM1, DUM2, DUM3 + DUM1, DUM2, DUM3 IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - - + + END SUBROUTINE DEALLOCATE_FULL_MAT END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_IN4_FILES_Interface.f90 b/Source/Interfaces/DEALLOCATE_IN4_FILES_Interface.f90 index d75f1fce..19936135 100644 --- a/Source/Interfaces/DEALLOCATE_IN4_FILES_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_IN4_FILES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_IN4_FILES_Interface @@ -30,7 +30,7 @@ MODULE DEALLOCATE_IN4_FILES_Interface SUBROUTINE DEALLOCATE_IN4_FILES ( NAME ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN4FIL, IN4FIL_NUM, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, TOT_MB_MEM_ALLOC @@ -38,13 +38,13 @@ SUBROUTINE DEALLOCATE_IN4_FILES ( NAME ) USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO USE INPUTT4_MATRICES, ONLY : IN4_COL_MAP, IN4_MAT - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - + END SUBROUTINE DEALLOCATE_IN4_FILES END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_L1_MGG_Interface.f90 b/Source/Interfaces/DEALLOCATE_L1_MGG_Interface.f90 index 23379cc3..9d07a4fd 100644 --- a/Source/Interfaces/DEALLOCATE_L1_MGG_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_L1_MGG_Interface.f90 @@ -1,47 +1,47 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_L1_MGG_Interface INTERFACE - SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) + SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE SPARSE_MATRICES, ONLY : I_MGG, I2_MGG, J_MGG, MGG, I_MGGC, J_MGGC, MGGC, I_MGGE, J_MGGE, MGGE, I_MGGS, J_MGGS, MGGS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Name of matrix to be allocated - + END SUBROUTINE DEALLOCATE_L1_MGG diff --git a/Source/Interfaces/DEALLOCATE_L2_GMN_2_Interface.f90 b/Source/Interfaces/DEALLOCATE_L2_GMN_2_Interface.f90 index dd28730b..4a7a20f6 100644 --- a/Source/Interfaces/DEALLOCATE_L2_GMN_2_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_L2_GMN_2_Interface.f90 @@ -1,36 +1,36 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_L2_GMN_2_Interface INTERFACE - SUBROUTINE DEALLOCATE_L2_GMN_2 + SUBROUTINE DEALLOCATE_L2_GMN_2 + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC @@ -38,11 +38,11 @@ SUBROUTINE DEALLOCATE_L2_GMN_2 USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG USE SPARSE_MATRICES, ONLY : I2_GMN - + IMPLICIT NONE - + CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + END SUBROUTINE DEALLOCATE_L2_GMN_2 diff --git a/Source/Interfaces/DEALLOCATE_L2_GOA_2_Interface.f90 b/Source/Interfaces/DEALLOCATE_L2_GOA_2_Interface.f90 index 2e06c3ae..beed43e1 100644 --- a/Source/Interfaces/DEALLOCATE_L2_GOA_2_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_L2_GOA_2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_L2_GOA_2_Interface @@ -42,9 +42,9 @@ SUBROUTINE DEALLOCATE_L2_GOA_2 IMPLICIT NONE CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - - + + END SUBROUTINE DEALLOCATE_L2_GOA_2 END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_L6_2_Interface.f90 b/Source/Interfaces/DEALLOCATE_L6_2_Interface.f90 index 05b8a589..80678f57 100644 --- a/Source/Interfaces/DEALLOCATE_L6_2_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_L6_2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_L6_2_Interface @@ -37,14 +37,14 @@ SUBROUTINE DEALLOCATE_L6_2 ( NAME ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO - USE SPARSE_MATRICES, ONLY : I2_DLR, I2_DLRt, I2_PHIZL1, I2_PHIZL1t + USE SPARSE_MATRICES, ONLY : I2_DLR, I2_DLRt, I2_PHIZL1, I2_PHIZL1t IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - - + + END SUBROUTINE DEALLOCATE_L6_2 END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_LAPACK_MAT_Interface.f90 b/Source/Interfaces/DEALLOCATE_LAPACK_MAT_Interface.f90 index f5863f70..51b8aea5 100644 --- a/Source/Interfaces/DEALLOCATE_LAPACK_MAT_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_LAPACK_MAT_Interface.f90 @@ -1,36 +1,36 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_LAPACK_MAT_Interface INTERFACE - SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) + SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC @@ -39,13 +39,13 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) USE CONSTANTS_1, ONLY : ZERO USE ARPACK_MATRICES_1 , ONLY : IWORK, RFAC, RESID, SELECT, VBAS, WORKD, WORKL USE LAPACK_DPB_MATRICES, ONLY : ABAND, BBAND, LAPACK_S, RES - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Name of matrix to be allocated - - + + END SUBROUTINE DEALLOCATE_LAPACK_MAT END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_LINK9_STUF_Interface.f90 b/Source/Interfaces/DEALLOCATE_LINK9_STUF_Interface.f90 index c86c7b9f..19d3715e 100644 --- a/Source/Interfaces/DEALLOCATE_LINK9_STUF_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_LINK9_STUF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_LINK9_STUF_Interface @@ -30,21 +30,21 @@ MODULE DEALLOCATE_LINK9_STUF_Interface SUBROUTINE DEALLOCATE_LINK9_STUF - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE LINK9_STUFF, ONLY : GID_OUT_ARRAY, EID_OUT_ARRAY, FTNAME, MSPRNT, OGEL, POLY_FIT_ERR, & POLY_FIT_ERR_INDEX - + IMPLICIT NONE - + CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - - + + END SUBROUTINE DEALLOCATE_LINK9_STUF END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_MISC_MAT_Interface.f90 b/Source/Interfaces/DEALLOCATE_MISC_MAT_Interface.f90 index 3f51c12d..8a695da2 100644 --- a/Source/Interfaces/DEALLOCATE_MISC_MAT_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_MISC_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_MISC_MAT_Interface @@ -30,7 +30,7 @@ MODULE DEALLOCATE_MISC_MAT_Interface SUBROUTINE DEALLOCATE_MISC_MAT ( NAME ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -38,13 +38,13 @@ SUBROUTINE DEALLOCATE_MISC_MAT ( NAME ) USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO USE MISC_MATRICES, ONLY : UG_T123_MAT - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format - - + + END SUBROUTINE DEALLOCATE_MISC_MAT END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_MODEL_STUF_Interface.f90 b/Source/Interfaces/DEALLOCATE_MODEL_STUF_Interface.f90 index c3dcab5e..df4a00ea 100644 --- a/Source/Interfaces/DEALLOCATE_MODEL_STUF_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_MODEL_STUF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_MODEL_STUF_Interface @@ -30,7 +30,7 @@ MODULE DEALLOCATE_MODEL_STUF_Interface SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC @@ -52,11 +52,11 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) USE MODEL_STUF, ONLY : GRID_ID, GRID_SEQ, INV_GRID_SEQ, MPC_IND_GRIDS USE MODEL_STUF, ONLY : MATL, RMATL, PBAR, RPBAR, PBEAM, RPBEAM, PBUSH, RPBUSH, PCOMP, RPCOMP, PELAS, RPELAS, & PROD, RPROD, PSHEAR, RPSHEAR, PSHEL, RPSHEL, PSOLID, PUSER1, RPUSER1, PUSERIN, & - USERIN_ACT_COMPS, USERIN_ACT_GRIDS, USERIN_MAT_NAMES - USE MODEL_STUF, ONLY : MPC_SIDS, MPCSIDS, MPCADD_SIDS - USE MODEL_STUF, ONLY : SPC_SIDS, SPC1_SIDS, SPCSIDS, SPCADD_SIDS + USERIN_ACT_COMPS, USERIN_ACT_GRIDS, USERIN_MAT_NAMES + USE MODEL_STUF, ONLY : MPC_SIDS, MPCSIDS, MPCADD_SIDS + USE MODEL_STUF, ONLY : SPC_SIDS, SPC1_SIDS, SPCSIDS, SPCADD_SIDS USE MODEL_STUF, ONLY : ALL_SETS_ARRAY, ONE_SET_ARRAY, SETS_IDS, SC_ACCE, SC_DISP, SC_ELFN, SC_ELFE, SC_GPFO, & - SC_MPCF, SC_OLOA, SC_SPCF, SC_STRE, SC_STRN, LOAD_SIDS, LOAD_FACS + SC_MPCF, SC_OLOA, SC_SPCF, SC_STRE, SC_STRN, LOAD_SIDS, LOAD_FACS USE MODEL_STUF, ONLY : ELDT, ELOUT, GROUT, OELOUT, OGROUT, LABEL, SCNUM, STITLE, SUBLOD, TITLE USE MODEL_STUF, ONLY : SYS_LOAD USE MODEL_STUF, ONLY : CETEMP, CETEMP_ERR, CGTEMP, CGTEMP_ERR, ETEMP, ETEMP_INIT, GTEMP, GTEMP_INIT, TDATA, TPNT @@ -69,9 +69,9 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Name of group of arrays to allocate CHARACTER(31*BYTE) :: NAME ! Specific array name used for output error message - - + + END SUBROUTINE DEALLOCATE_MODEL_STUF END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_NL_PARAMS_Interface.f90 b/Source/Interfaces/DEALLOCATE_NL_PARAMS_Interface.f90 index a70e0ac6..6fc7c926 100644 --- a/Source/Interfaces/DEALLOCATE_NL_PARAMS_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_NL_PARAMS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_NL_PARAMS_Interface @@ -30,7 +30,7 @@ MODULE DEALLOCATE_NL_PARAMS_Interface SUBROUTINE DEALLOCATE_NL_PARAMS - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LSUB, TOT_MB_MEM_ALLOC @@ -38,11 +38,11 @@ SUBROUTINE DEALLOCATE_NL_PARAMS USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO USE NONLINEAR_PARAMS, ONLY : NL_SID - + IMPLICIT NONE - + CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + END SUBROUTINE DEALLOCATE_NL_PARAMS diff --git a/Source/Interfaces/DEALLOCATE_RBGLOBAL_Interface.f90 b/Source/Interfaces/DEALLOCATE_RBGLOBAL_Interface.f90 index 56b046e5..fa1b843d 100644 --- a/Source/Interfaces/DEALLOCATE_RBGLOBAL_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_RBGLOBAL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_RBGLOBAL_Interface @@ -30,10 +30,10 @@ MODULE DEALLOCATE_RBGLOBAL_Interface SUBROUTINE DEALLOCATE_RBGLOBAL ( SET ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO @@ -41,12 +41,12 @@ SUBROUTINE DEALLOCATE_RBGLOBAL ( SET ) TR6_CG, TR6_MEFM, TR6_0 IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: SET ! Set name of the displ matrix CHARACTER(13*BYTE) :: NAME ! Specific array name used for output error message - - + + END SUBROUTINE DEALLOCATE_RBGLOBAL END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_SCR_MAT_Interface.f90 b/Source/Interfaces/DEALLOCATE_SCR_MAT_Interface.f90 index e519ea4b..dbca16ac 100644 --- a/Source/Interfaces/DEALLOCATE_SCR_MAT_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_SCR_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_SCR_MAT_Interface @@ -30,22 +30,22 @@ MODULE DEALLOCATE_SCR_MAT_Interface SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE SCRATCH_MATRICES , ONLY : I_CRS1, J_CRS1, CRS1, I_CRS2, J_CRS2, CRS2, I_CRS3, J_CRS3, CRS3, & I_CCS1, J_CCS1, CCS1, I_CCS2, J_CCS2, CCS2, I_CCS3, J_CCS3, CCS3 IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Array name (used for output error message) CHARACTER(6*BYTE) :: NAME ! Array name (used for output error message) - - + + END SUBROUTINE DEALLOCATE_SCR_MAT END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_SPARSE_ALG_Interface.f90 b/Source/Interfaces/DEALLOCATE_SPARSE_ALG_Interface.f90 index 3c9838b0..b5f87ac1 100644 --- a/Source/Interfaces/DEALLOCATE_SPARSE_ALG_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_SPARSE_ALG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_SPARSE_ALG_Interface @@ -30,7 +30,7 @@ MODULE DEALLOCATE_SPARSE_ALG_Interface SUBROUTINE DEALLOCATE_SPARSE_ALG ( NAME ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -38,13 +38,13 @@ SUBROUTINE DEALLOCATE_SPARSE_ALG ( NAME ) USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO USE SPARSE_ALG_ARRAYS, ONLY : ALG, AROW, J_AROW, LOGICAL_VEC, REAL_VEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format - - + + END SUBROUTINE DEALLOCATE_SPARSE_ALG END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_SPARSE_MAT_Interface.f90 b/Source/Interfaces/DEALLOCATE_SPARSE_MAT_Interface.f90 index 6d978dd2..f8c43ffe 100644 --- a/Source/Interfaces/DEALLOCATE_SPARSE_MAT_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_SPARSE_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_SPARSE_MAT_Interface @@ -30,10 +30,10 @@ MODULE DEALLOCATE_SPARSE_MAT_Interface SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS @@ -86,12 +86,12 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) I_PHIZL2, J_PHIZL2, PHIZL2, I_PL , J_PL , PL , I_PR , J_PR , PR IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Array name (used for output error message) CHARACTER(6*BYTE) :: NAME ! Array name (used for output error message) - - + + END SUBROUTINE DEALLOCATE_SPARSE_MAT END INTERFACE diff --git a/Source/Interfaces/DEALLOCATE_STF_ARRAYS_Interface.f90 b/Source/Interfaces/DEALLOCATE_STF_ARRAYS_Interface.f90 index 7c77b16d..c498c5e5 100644 --- a/Source/Interfaces/DEALLOCATE_STF_ARRAYS_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_STF_ARRAYS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_STF_ARRAYS_Interface @@ -30,19 +30,19 @@ MODULE DEALLOCATE_STF_ARRAYS_Interface SUBROUTINE DEALLOCATE_STF_ARRAYS ( NAME ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE STF_ARRAYS, ONLY : STFCOL, STFKEY, STFPNT, STF, STF3 - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - + END SUBROUTINE DEALLOCATE_STF_ARRAYS diff --git a/Source/Interfaces/DEALLOCATE_TEMPLATE_Interface.f90 b/Source/Interfaces/DEALLOCATE_TEMPLATE_Interface.f90 index 328fadc2..23969fcc 100644 --- a/Source/Interfaces/DEALLOCATE_TEMPLATE_Interface.f90 +++ b/Source/Interfaces/DEALLOCATE_TEMPLATE_Interface.f90 @@ -1,47 +1,47 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_TEMPLATE_Interface INTERFACE - SUBROUTINE DEALLOCATE_TEMPLATE + SUBROUTINE DEALLOCATE_TEMPLATE + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE STF_TEMPLATE_ARRAYS, ONLY : CROW, TEMPLATE - + IMPLICIT NONE - + CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + END SUBROUTINE DEALLOCATE_TEMPLATE diff --git a/Source/Interfaces/DOF_PROC_Interface.f90 b/Source/Interfaces/DOF_PROC_Interface.f90 index 4cac4eca..2ca7855a 100644 --- a/Source/Interfaces/DOF_PROC_Interface.f90 +++ b/Source/Interfaces/DOF_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DOF_PROC_Interface @@ -30,17 +30,17 @@ MODULE DOF_PROC_Interface SUBROUTINE DOF_PROC ( TDOF_MSG ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFSE, NUM_USETSTR, SOL_NAME USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC - + IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: TDOF_MSG ! Message to be printed out regarding at what point in the run the TDOF,I - + END SUBROUTINE DOF_PROC END INTERFACE diff --git a/Source/Interfaces/EC_DEBUG_Interface.f90 b/Source/Interfaces/EC_DEBUG_Interface.f90 index 4bf2921d..1e493ec8 100644 --- a/Source/Interfaces/EC_DEBUG_Interface.f90 +++ b/Source/Interfaces/EC_DEBUG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EC_DEBUG_Interface @@ -30,20 +30,20 @@ MODULE EC_DEBUG_Interface SUBROUTINE EC_DEBUG ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : ECHO, IERRFL, JCARD_LEN, JF, WARN_ERR USE PARAMS, ONLY : SUPWARN USE DEBUG_PARAMETERS, ONLY : DEBUG, NDEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG), PARAMETER :: LOWER = 1 ! Lower allowable value for an integer parameter INTEGER(LONG) :: UPPER = NDEBUG ! Upper allowable value for an integer parameter - + END SUBROUTINE EC_DEBUG END INTERFACE diff --git a/Source/Interfaces/EC_IN4FIL_Interface.f90 b/Source/Interfaces/EC_IN4FIL_Interface.f90 index 3b7dd27a..0a01361d 100644 --- a/Source/Interfaces/EC_IN4FIL_Interface.f90 +++ b/Source/Interfaces/EC_IN4FIL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EC_IN4FIL_Interface @@ -30,18 +30,18 @@ MODULE EC_IN4FIL_Interface SUBROUTINE EC_IN4FIL ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, FILE_NAM_MAXLEN, IN4FIL, IN4FIL_NUM, NUM_IN4_FILES USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_TOKEN_LEN USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - - + + END SUBROUTINE EC_IN4FIL END INTERFACE diff --git a/Source/Interfaces/EC_OUTPUT4_Interface.f90 b/Source/Interfaces/EC_OUTPUT4_Interface.f90 index 4207ec67..1fcc76c9 100644 --- a/Source/Interfaces/EC_OUTPUT4_Interface.f90 +++ b/Source/Interfaces/EC_OUTPUT4_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EC_OUTPUT4_Interface @@ -30,7 +30,7 @@ MODULE EC_OUTPUT4_Interface SUBROUTINE EC_OUTPUT4 ( CARD1, IERR, ANY_OU4_NAME_BAD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM, EC_ENTRY_LEN USE IOUNT1, ONLY : ERR, F06, MOU4, OU4, OU4_ELM_OTM, OU4_GRD_OTM, SC1 @@ -38,17 +38,17 @@ SUBROUTINE EC_OUTPUT4 ( CARD1, IERR, ANY_OU4_NAME_BAD ) USE OUTPUT4_MATRICES, ONLY : NUM_OU4_VALID_NAMES, TAPE_ACTION_MAX_VAL, TAPE_ACTION_MIN_VAL, NUM_OU4_REQUESTS, & OU4_FILE_UNITS, OU4_TAPE_ACTION, ACT_OU4_MYSTRAN_NAMES, ACT_OU4_OUTPUT_NAMES, & ALLOW_OU4_MYSTRAN_NAMES, ALLOW_OU4_OUTPUT_NAMES - + USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD1 ! Card read in LOADE and shifted to begin in col 1 CHARACTER(LEN=*), INTENT(OUT) :: ANY_OU4_NAME_BAD ! 'Y'/'N' if requested OUTPUT4 matrix name is valid - + INTEGER(LONG), INTENT(OUT) :: IERR ! Error indicator. If CHAR not found, IERR set to 1 - + END SUBROUTINE EC_OUTPUT4 END INTERFACE diff --git a/Source/Interfaces/EC_PARTN_Interface.f90 b/Source/Interfaces/EC_PARTN_Interface.f90 index 3253a05b..b6531c67 100644 --- a/Source/Interfaces/EC_PARTN_Interface.f90 +++ b/Source/Interfaces/EC_PARTN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EC_PARTN_Interface @@ -30,7 +30,7 @@ MODULE EC_PARTN_Interface SUBROUTINE EC_PARTN ( CARD1, IERR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM, EC_ENTRY_LEN USE IOUNT1, ONLY : ERR, F06, MOU4, OU4, OU4_ELM_OTM, OU4_GRD_OTM, SC1 @@ -38,16 +38,16 @@ SUBROUTINE EC_PARTN ( CARD1, IERR ) USE OUTPUT4_MATRICES, ONLY : NUM_OU4_REQUESTS, NUM_PARTN_REQUESTS, OU4_PART_VEC_NAMES, OU4_PART_MAT_NAMES, & ACT_OU4_MYSTRAN_NAMES, ACT_OU4_OUTPUT_NAMES, & ALLOW_OU4_MYSTRAN_NAMES, ALLOW_OU4_OUTPUT_NAMES - + USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD1 ! Card read in LOADE and shifted to begin in col 1 - + INTEGER(LONG), INTENT(OUT) :: IERR ! Error indicator. If CHAR not found, IERR set to 1 - + END SUBROUTINE EC_PARTN END INTERFACE diff --git a/Source/Interfaces/EIG_GIV_MGIV_Interface.f90 b/Source/Interfaces/EIG_GIV_MGIV_Interface.f90 index ef3eaf53..0b06d7b4 100644 --- a/Source/Interfaces/EIG_GIV_MGIV_Interface.f90 +++ b/Source/Interfaces/EIG_GIV_MGIV_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EIG_GIV_MGIV_Interface @@ -30,7 +30,7 @@ MODULE EIG_GIV_MGIV_Interface SUBROUTINE EIG_GIV_MGIV - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, KLL_SDIA, KLLD_SDIA, MLL_SDIA, NDOFL, NTERM_KLL, NTERM_KLLD, & @@ -44,9 +44,9 @@ SUBROUTINE EIG_GIV_MGIV USE SPARSE_MATRICES, ONLY : I_KLL, J_KLL, KLL, I_KLLD, J_KLLD, KLLD, I_MLL, J_MLL, MLL USE DEBUG_PARAMETERS, ONLY : DEBUG USE LAPACK_GIV_MGIV_EIG - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT INTEGER(LONG) :: IWORK(8*NDOFL) ! Integer workspace used by LAPACK. INTEGER(LONG) :: NUM1 ! Number to use for max no. of eigens to find. Must be NUM1 <= NDOFL diff --git a/Source/Interfaces/EIG_INV_PWR_Interface.f90 b/Source/Interfaces/EIG_INV_PWR_Interface.f90 index 9eb59e8e..ddbda6cc 100644 --- a/Source/Interfaces/EIG_INV_PWR_Interface.f90 +++ b/Source/Interfaces/EIG_INV_PWR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EIG_INV_PWR_Interface @@ -30,7 +30,7 @@ MODULE EIG_INV_PWR_Interface SUBROUTINE EIG_INV_PWR - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, KMSM_SDIA, LINKNO, NDOFL, NTERM_KLL, NTERM_KLLD, NTERM_KMSM, & @@ -41,13 +41,13 @@ SUBROUTINE EIG_INV_PWR USE EIGEN_MATRICES_1, ONLY : EIGEN_VAL, EIGEN_VEC, MODE_NUM USE MODEL_STUF, ONLY : EIG_N2, EIG_SIGMA USE SPARSE_MATRICES, ONLY : I_KLL, J_KLL, KLL, I_KLLD, J_KLLD, KLLD, I_MLL, J_MLL, MLL, & - I_KMSM, I2_KMSM, J_KMSM, KMSM, I_KMSMs, I2_KMSMs, J_KMSMs, KMSMs + I_KMSM, I2_KMSM, J_KMSM, KMSM, I_KMSMs, I2_KMSMs, J_KMSMs, KMSMs USE SPARSE_MATRICES, ONLY : SYM_KLL, SYM_KLLD, SYM_MLL USE LAPACK_LIN_EQN_DPB USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT diff --git a/Source/Interfaces/EIG_LANCZOS_ARPACK_Interface.f90 b/Source/Interfaces/EIG_LANCZOS_ARPACK_Interface.f90 index d5714c8c..b34580ad 100644 --- a/Source/Interfaces/EIG_LANCZOS_ARPACK_Interface.f90 +++ b/Source/Interfaces/EIG_LANCZOS_ARPACK_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EIG_LANCZOS_ARPACK_Interface @@ -30,7 +30,7 @@ MODULE EIG_LANCZOS_ARPACK_Interface SUBROUTINE EIG_LANCZOS_ARPACK - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, KMSM_SDIA, LINKNO, NDOFL, NTERM_KLL, NTERM_KLLD, NTERM_KMSM, & @@ -48,11 +48,11 @@ SUBROUTINE EIG_LANCZOS_ARPACK USE ARPACK_MATRICES_1, ONLY : IWORK, RESID, RFAC, SELECT, VBAS, WORKD, WORKL USE SPARSE_MATRICES, ONLY : I_KLL, J_KLL, KLL, I_KLLD, J_KLLD, KLLD, I_MLL, J_MLL, MLL, SYM_KLL, SYM_KLLD, SYM_MLL, & I_KMSM, J_KMSM, KMSM, I_KMSMn, J_KMSMn, KMSMn, I_KMSMs, J_KMSMs, KMSMs - + USE ARPACK_LANCZOS_EIG - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT INTEGER(LONG) :: LWORKL ! Used to dimension a work array INTEGER(LONG) :: NUM1 ! Number to use for max no. of eigens to find. Must be NUM1 <= NDOFL diff --git a/Source/Interfaces/EIG_SUMMARY_Interface.f90 b/Source/Interfaces/EIG_SUMMARY_Interface.f90 index 046fe2ed..fb158661 100644 --- a/Source/Interfaces/EIG_SUMMARY_Interface.f90 +++ b/Source/Interfaces/EIG_SUMMARY_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EIG_SUMMARY_Interface @@ -30,7 +30,7 @@ MODULE EIG_SUMMARY_Interface SUBROUTINE EIG_SUMMARY - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, NDOFL, NUM_EIGENS, NVEC, NUM_KLLD_DIAG_ZEROS, NUM_MLL_DIAG_ZEROS, SOL_NAME, & @@ -42,13 +42,13 @@ SUBROUTINE EIG_SUMMARY USE EIGEN_MATRICES_1, ONLY : GEN_MASS, MODE_NUM, EIGEN_VAL USE MODEL_STUF, ONLY : EIG_COMP, EIG_CRIT, EIG_GRID, EIG_LAP_MAT_TYPE, EIG_METH, EIG_MODE, EIG_N2, EIG_NORM, & EIG_SIGMA, MAXMIJ, MIJ_COL, MIJ_ROW, NUM_FAIL_CRIT - + IMPLICIT NONE - + CHARACTER( 1*BYTE) :: ASTERISK = '*' ! Used for denoting negative eigenvalues - - + + END SUBROUTINE EIG_SUMMARY END INTERFACE diff --git a/Source/Interfaces/ELAS1_Interface.f90 b/Source/Interfaces/ELAS1_Interface.f90 index 7c38df5a..314d8f9a 100644 --- a/Source/Interfaces/ELAS1_Interface.f90 +++ b/Source/Interfaces/ELAS1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELAS1_Interface @@ -30,20 +30,20 @@ MODULE ELAS1_Interface SUBROUTINE ELAS1 ( OPT, WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : AGRID, ELAS_COMP, EID, EPROP, FCONV, KE, SE1, TYPE - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not - + END SUBROUTINE ELAS1 END INTERFACE diff --git a/Source/Interfaces/ELEM_PROP_MATL_IIDS_Interface.f90 b/Source/Interfaces/ELEM_PROP_MATL_IIDS_Interface.f90 index 53a697e3..988644a7 100644 --- a/Source/Interfaces/ELEM_PROP_MATL_IIDS_Interface.f90 +++ b/Source/Interfaces/ELEM_PROP_MATL_IIDS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELEM_PROP_MATL_IIDS_Interface @@ -30,7 +30,7 @@ MODULE ELEM_PROP_MATL_IIDS_Interface SUBROUTINE ELEM_PROP_MATL_IIDS - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN4FIL_NUM, NUM_IN4_FILES USE SCONTR, ONLY : BLNK_SUB_NAM, DEDAT_Q4_SHELL_KEY, DEDAT_T3_SHELL_KEY, DEDAT_Q8_SHELL_KEY, FATAL_ERR, & @@ -39,16 +39,16 @@ SUBROUTINE ELEM_PROP_MATL_IIDS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CMASS, ETYPE, EPNT, EDAT, PELAS, PROD, PBAR, PBEAM, PBUSH, PCOMP, PMASS, PSHEAR, & PSHEL, PSOLID, PUSER1, PUSERIN, MATL - + IMPLICIT NONE - CHARACTER( 1*BYTE) :: FOUND ! Used to indicate if a prop or mat'l ID was found - CHARACTER( 1*BYTE) :: FOUND_PCOMP ! Used to indicate if a PCOMP prop ID was found - CHARACTER( 1*BYTE) :: FOUND_PSHEL ! Used to indicate if a PSHELL prop ID was found + CHARACTER( 1*BYTE) :: FOUND ! Used to indicate if a prop or mat'l ID was found + CHARACTER( 1*BYTE) :: FOUND_PCOMP ! Used to indicate if a PCOMP prop ID was found + CHARACTER( 1*BYTE) :: FOUND_PSHEL ! Used to indicate if a PSHELL prop ID was found CHARACTER( 8*BYTE) :: NAME = 'MATERIAL' ! Used for output error message - - + + END SUBROUTINE ELEM_PROP_MATL_IIDS END INTERFACE diff --git a/Source/Interfaces/ELEM_STRE_STRN_ARRAYS_Interface.f90 b/Source/Interfaces/ELEM_STRE_STRN_ARRAYS_Interface.f90 index 8cc617b1..a81c0f79 100644 --- a/Source/Interfaces/ELEM_STRE_STRN_ARRAYS_Interface.f90 +++ b/Source/Interfaces/ELEM_STRE_STRN_ARRAYS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELEM_STRE_STRN_ARRAYS_Interface @@ -30,7 +30,7 @@ MODULE ELEM_STRE_STRN_ARRAYS_Interface SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, INT_SC_NUM, JTSUB @@ -42,10 +42,10 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) USE PARAMS, ONLY : STR_CID IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: STR_PT_NUM ! Which point (3rd index in SEi matrices) this call is for - + REAL(DOUBLE) :: DUM31(3) ! Array used in an intermediate calc REAL(DOUBLE) :: DUM32(3) ! Array used in an intermediate calc REAL(DOUBLE) :: DUM33(3) ! Array used in an intermediate calc diff --git a/Source/Interfaces/ELEM_TRANSFORM_LBG_Interface.f90 b/Source/Interfaces/ELEM_TRANSFORM_LBG_Interface.f90 index b397b000..203e167d 100644 --- a/Source/Interfaces/ELEM_TRANSFORM_LBG_Interface.f90 +++ b/Source/Interfaces/ELEM_TRANSFORM_LBG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELEM_TRANSFORM_LBG_Interface @@ -30,7 +30,7 @@ MODULE ELEM_TRANSFORM_LBG_Interface SUBROUTINE ELEM_TRANSFORM_LBG ( WHICH, ZE, QE ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MELDOF, NCORD, NGRID, NSUB, NTSUB @@ -40,17 +40,17 @@ SUBROUTINE ELEM_TRANSFORM_LBG ( WHICH, ZE, QE ) USE MODEL_STUF, ONLY : ELGP IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: WHICH ! 'K' for stiffness, 'M' for mass or 'PTE' for thermal load matrix - + INTEGER(LONG), PARAMETER :: NCOLA = 3 ! An input to subr MATMULT_FFF/MATMULT_FFF_T, called herein INTEGER(LONG), PARAMETER :: NROW_GET = 3 ! An input to subr MATGET/MATPUT (no. rows to get/put) INTEGER(LONG), PARAMETER :: NROWA = 3 ! An input to subr MATMULT_FFF/MATMULT_FFF_T, called herein - + REAL(DOUBLE) , INTENT(INOUT) :: QE(MELDOF,NSUB) ! PTE or PPE if WHICH = 'PTE' or 'PPE' REAL(DOUBLE) , INTENT(INOUT) :: ZE(MELDOF,MELDOF) ! Either the mass or stiff matrix of the element - + END SUBROUTINE ELEM_TRANSFORM_LBG END INTERFACE diff --git a/Source/Interfaces/ELEPRO_Interface.f90 b/Source/Interfaces/ELEPRO_Interface.f90 index b09c8401..33915d28 100644 --- a/Source/Interfaces/ELEPRO_Interface.f90 +++ b/Source/Interfaces/ELEPRO_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELEPRO_Interface @@ -31,15 +31,15 @@ MODULE ELEPRO_Interface SUBROUTINE ELEPRO ( INCR_NELE, JCARD, NFIELD, NMORE, & CHK_FLD2, CHK_FLD3, CHK_FLD4, CHK_FLD5, CHK_FLD6, CHK_FLD7, CHK_FLD8, CHK_FLD9 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : IERRFL, FATAL_ERR, JF, LEDAT, LELE, NEDAT, NELE, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, EPNT - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CHK_FLD2 ! If 'N', then if field 2 is blank it will not be checked for > 0 CHARACTER(LEN=*), INTENT(IN) :: CHK_FLD3 ! If 'N', then if field 3 is blank it will not be checked for > 0 CHARACTER(LEN=*), INTENT(IN) :: CHK_FLD4 ! If 'N', then if field 4 is blank it will not be checked for > 0 @@ -50,11 +50,11 @@ SUBROUTINE ELEPRO ( INCR_NELE, JCARD, NFIELD, NMORE, CHARACTER(LEN=*), INTENT(IN) :: CHK_FLD9 ! If 'N', then if field 9 is blank it will not be checked for > 0 CHARACTER(LEN=*), INTENT(IN) :: INCR_NELE ! If 'Y', increment NELE. Otherwise do not increment NELE CHARACTER(LEN=*), INTENT(IN) :: JCARD(10) ! The 10 fields of a Bulk Data card - - INTEGER(LONG), INTENT(IN) :: NFIELD ! Number of card fields to read from JCARD (start w/ field 2) + + INTEGER(LONG), INTENT(IN) :: NFIELD ! Number of card fields to read from JCARD (start w/ field 2) INTEGER(LONG), INTENT(IN) :: NMORE ! Number of terms that have to be written to EDAT for this element - + END SUBROUTINE ELEPRO END INTERFACE diff --git a/Source/Interfaces/ELESORT_Interface.f90 b/Source/Interfaces/ELESORT_Interface.f90 index cf6322f2..bf328eac 100644 --- a/Source/Interfaces/ELESORT_Interface.f90 +++ b/Source/Interfaces/ELESORT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELESORT_Interface @@ -30,18 +30,18 @@ MODULE ELESORT_Interface SUBROUTINE ELESORT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, ELESORT_RUN, NELE, NRIGEL USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, EOFF, EPNT, ESORT1, ESORT2, ETYPE, RIGID_ELEM_IDS USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - - + + END SUBROUTINE ELESORT END INTERFACE diff --git a/Source/Interfaces/ELMDAT1_Interface.f90 b/Source/Interfaces/ELMDAT1_Interface.f90 index 56bbd05a..29c28c63 100644 --- a/Source/Interfaces/ELMDAT1_Interface.f90 +++ b/Source/Interfaces/ELMDAT1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMDAT1_Interface @@ -61,14 +61,14 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELMDAT1' CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y' write warning messages, otherwise do not - CHARACTER( 1*BYTE) :: GET_VVEC ! If 'Y' run code to get VVEC + CHARACTER( 1*BYTE) :: GET_VVEC ! If 'Y' run code to get VVEC CHARACTER( 1*BYTE) :: VVEC_DEFINED ! If 'Y' then a VVEC was found for elements that require one INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID INTEGER(LONG) :: ACID ! Actual coord sys ID INTEGER(LONG) :: EPNTK ! Value from array EPNT at the row for this internal elem ID. It is the -! row number in array EDAT where data begins for this element. +! row number in array EDAT where data begins for this element. INTEGER(LONG) :: IPNTR ! Pointer into an array INTEGER(LONG) :: VVEC_FLAG ! Either actual grid ID for V vector or -IVVEC @@ -79,7 +79,7 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) INTEGER(LONG) :: IGID_V ! Internal grid ID for V vector INTEGER(LONG) :: USERIN_INDEX_COMP ! Index in EDAT where displ comp list begins INTEGER(LONG) :: USERIN_INDEX_GRID ! Index in EDAT where grid list begins - INTEGER(LONG) :: IPIN(2) ! Pinflag fields from EDAT for a BAR or BEAM elem + INTEGER(LONG) :: IPIN(2) ! Pinflag fields from EDAT for a BAR or BEAM elem INTEGER(LONG) :: IREM ! Indicator that a pinflag has digits different than 1,2,3,4,5 or 6 INTEGER(LONG) :: IROW ! Row no. in a real array where data is found for this element INTEGER(LONG) :: IVVEC ! Row number in VVEC where V vector for this elem is found @@ -96,9 +96,9 @@ SUBROUTINE ELMDAT1 ( INT_ELEM_ID, WRITE_WARN ) REAL(DOUBLE) :: K_BUSH(6),B_BUSH(6)! Values read from PBUSH for stiffness, damping REAL(DOUBLE) :: PHID, THETAD ! Outputs from subr GEN_T0L REAL(DOUBLE) :: THICK_AVG ! Average of all THICK(i) - REAL(DOUBLE) :: T0G(3,3) ! Matrix to transform V vector from global to basic coords + REAL(DOUBLE) :: T0G(3,3) ! Matrix to transform V vector from global to basic coords REAL(DOUBLE) :: VV(3) ! V vector in basic coords for this elem - + INTRINSIC :: MOD, FLOOR END SUBROUTINE ELMDAT1 diff --git a/Source/Interfaces/ELMDAT2_Interface.f90 b/Source/Interfaces/ELMDAT2_Interface.f90 index 0c2f4117..4cb86ad3 100644 --- a/Source/Interfaces/ELMDAT2_Interface.f90 +++ b/Source/Interfaces/ELMDAT2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMDAT2_Interface @@ -33,7 +33,7 @@ SUBROUTINE ELMDAT2 ( INT_ELEM_ID, OPT, WRITE_WARN ) USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : WRT_ERR - USE SCONTR, ONLY : BLNK_SUB_NAM, LPDAT, MPRESS, MDT, MTDAT_TEMPRB, NSUB, NTSUB + USE SCONTR, ONLY : BLNK_SUB_NAM, LPDAT, MPRESS, MDT, MTDAT_TEMPRB, NSUB, NTSUB USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, QUARTER, THIRD USE MODEL_STUF, ONLY : BGRID, DT, ELGP, ETYPE, GTEMP, PDATA, PPNT, PTYPE, PRESS, TDATA, TPNT, TYPE diff --git a/Source/Interfaces/ELMDIS_Interface.f90 b/Source/Interfaces/ELMDIS_Interface.f90 index c5d7fd74..9ac28ccc 100644 --- a/Source/Interfaces/ELMDIS_Interface.f90 +++ b/Source/Interfaces/ELMDIS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMDIS_Interface @@ -30,7 +30,7 @@ MODULE ELMDIS_Interface SUBROUTINE ELMDIS - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, meldof, MELGP, NCORD, NGRID @@ -41,19 +41,19 @@ SUBROUTINE ELMDIS TE, TYPE, UEB, UEG, UEL, UGG USE COL_VECS, ONLY : UG_COL USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + INTEGER(LONG), PARAMETER :: NCOLA = 3 ! An input to subr MATMULT_FFF called herein INTEGER(LONG), PARAMETER :: NCOLB = 1 ! An input to subr MATMULT_FFF called herein INTEGER(LONG), PARAMETER :: NROWA = 3 ! An input to subr MATMULT_FFF called herein INTEGER(LONG), PARAMETER :: NROW = 3 ! An input to subr MATPUT, MATGET called herein INTEGER(LONG), PARAMETER :: NCOL = 1 ! An input to subr MATPUT, MATGET called herein - INTEGER(LONG), PARAMETER :: PCOL = 1 ! An input to subr MATPUT, MATGET called herein + INTEGER(LONG), PARAMETER :: PCOL = 1 ! An input to subr MATPUT, MATGET called herein + - REAL(DOUBLE) :: THETAD,PHID ! Returns from subr GEN_T0L (not used here) - + END SUBROUTINE ELMDIS END INTERFACE diff --git a/Source/Interfaces/ELMDIS_PLY_Interface.f90 b/Source/Interfaces/ELMDIS_PLY_Interface.f90 index 275af529..b45a59c1 100644 --- a/Source/Interfaces/ELMDIS_PLY_Interface.f90 +++ b/Source/Interfaces/ELMDIS_PLY_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMDIS_PLY_Interface @@ -30,16 +30,16 @@ MODULE ELMDIS_PLY_Interface SUBROUTINE ELMDIS_PLY - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : f06 USE SCONTR, ONLY : BLNK_SUB_NAM USE CONSTANTS_1, ONLY : CONV_DEG_RAD USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ELGP, ELDOF, UEL, ZPLY - + IMPLICIT NONE - + END SUBROUTINE ELMDIS_PLY diff --git a/Source/Interfaces/ELMGM1_Interface.f90 b/Source/Interfaces/ELMGM1_Interface.f90 index c73238aa..d9dd34ed 100644 --- a/Source/Interfaces/ELMGM1_Interface.f90 +++ b/Source/Interfaces/ELMGM1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMGM1_Interface @@ -30,7 +30,7 @@ MODULE ELMGM1_Interface SUBROUTINE ELMGM1 ( INT_ELEM_ID, WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, MELGP, MOFFSET, NCORD, FATAL_ERR @@ -40,19 +40,19 @@ SUBROUTINE ELMGM1 ( INT_ELEM_ID, WRITE_WARN ) USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : BGRID, BUSH_CID, BUSH_OCID, CAN_ELEM_TYPE_OFFSET, CORD, EID, ELEM_LEN_12, ELEM_LEN_AB, & ELGP, NUM_EMG_FATAL_ERRS, EOFF, GRID, OFFDIS, OFFDIS_B, RCORD, TE, TE_IDENT, TYPE, XEB, XEL - + IMPLICIT NONE - + CHARACTER( 1*BYTE) :: ID(3) ! Used in deciding whether TE_IDENT = 'Y' or 'N' CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID for which - INTEGER(LONG) :: I3_IN(3) ! Integer array used in sorting VX. + INTEGER(LONG) :: I3_IN(3) ! Integer array used in sorting VX. + - REAL(DOUBLE) :: V13(3) ! A vector from grid 1 to grid 3 (for BAR, BEAM or USER1 it is V vector) - + END SUBROUTINE ELMGM1 END INTERFACE diff --git a/Source/Interfaces/ELMGM2_Interface.f90 b/Source/Interfaces/ELMGM2_Interface.f90 index 92387c6b..c000430a 100644 --- a/Source/Interfaces/ELMGM2_Interface.f90 +++ b/Source/Interfaces/ELMGM2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMGM2_Interface @@ -30,7 +30,7 @@ MODULE ELMGM2_Interface SUBROUTINE ELMGM2 ( WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, ERR, F06, WRT_BUG, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, MEFE, MEWE, MELGP, FATAL_ERR, WARN_ERR diff --git a/Source/Interfaces/ELMGM3_Interface.f90 b/Source/Interfaces/ELMGM3_Interface.f90 index cc544ba8..400f2cd4 100644 --- a/Source/Interfaces/ELMGM3_Interface.f90 +++ b/Source/Interfaces/ELMGM3_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMGM3_Interface @@ -30,12 +30,12 @@ MODULE ELMGM3_Interface SUBROUTINE ELMGM3 ( WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR, BUG, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MEFE, MELGP USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ZERO, HALF, ONE, TWO + USE CONSTANTS_1, ONLY : ZERO, HALF, ONE, TWO USE PARAMS, ONLY : EPSIL, HEXAXIS USE MODEL_STUF, ONLY : EID, ELGP, EMG_IFE, ERR_SUB_NAM, HEXA_DELTA, HEXA_GAMMA, HEXA_THETA, & NUM_EMG_FATAL_ERRS, TE, TE_IDENT, TYPE, XEB, XEL diff --git a/Source/Interfaces/ELMOFF_Interface.f90 b/Source/Interfaces/ELMOFF_Interface.f90 index 2dc77f2b..4478d8a9 100644 --- a/Source/Interfaces/ELMOFF_Interface.f90 +++ b/Source/Interfaces/ELMOFF_Interface.f90 @@ -1,36 +1,36 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMOFF_Interface INTERFACE - SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) + SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_STRESS_POINTS, NSUB, NTSUB @@ -38,14 +38,14 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN ) USE CONSTANTS_1, ONLY : ZERO, ONE USE MODEL_STUF, ONLY : CAN_ELEM_TYPE_OFFSET, ELDOF, ELGP, EID, KE, ME, NUM_EMG_FATAL_ERRS, & OFFDIS, OFFSET, PPE, PTE, SE1, SE2, SE3, TYPE - + IMPLICIT NONE CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not - + END SUBROUTINE ELMOFF END INTERFACE diff --git a/Source/Interfaces/ELMOUT_Interface.f90 b/Source/Interfaces/ELMOUT_Interface.f90 index de8f061f..5d9c50d8 100644 --- a/Source/Interfaces/ELMOUT_Interface.f90 +++ b/Source/Interfaces/ELMOUT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMOUT_Interface @@ -30,7 +30,7 @@ MODULE ELMOUT_Interface SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_DAT1_BIT, ELDT_BUG_DAT2_BIT, ELDT_BUG_ME_BIT, ELDT_BUG_P_T_BIT, & @@ -47,13 +47,13 @@ SUBROUTINE ELMOUT ( INT_ELEM_ID, DUM_BUG, CASE_NUM, OPT ) SHELL_T, SHRSUM, STE1, STE2, STE3, THETAM, TE, TYPE, UEB, UEG, UEL, XEB, XEL, SCNUM, & SUBLOD, ULT_STRE, ULT_STRN IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: OPT(6) ! Array of EMG option indicators explained above CHARACTER( 1*BYTE) :: FOUND ! Used in determining if we found something we were looking for CHARACTER(60*BYTE) :: NAME1 ! Text used for output print purposes CHARACTER(21*BYTE) :: NAME2 ! Text used for output print purposes CHARACTER(12*BYTE) :: NAME3 ! Text used for output print purposes - + INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID for which INTEGER(LONG), INTENT(IN) :: CASE_NUM ! Can be subcase number (e.g. for UEL, PEL output) INTEGER(LONG), INTENT(IN) :: DUM_BUG(0:MBUG-1) ! Indicator for output of elem data to BUG file diff --git a/Source/Interfaces/ELMTLB_Interface.f90 b/Source/Interfaces/ELMTLB_Interface.f90 index f67bef1d..4534b7a1 100644 --- a/Source/Interfaces/ELMTLB_Interface.f90 +++ b/Source/Interfaces/ELMTLB_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMTLB_Interface @@ -30,22 +30,22 @@ MODULE ELMTLB_Interface SUBROUTINE ELMTLB ( OPT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : f06 USE SCONTR, ONLY : BLNK_SUB_NAM, MELDOF, NSUB, NTSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ELDOF, ELGP, KE, KED, ME, PTE, PPE, TE - + IMPLICIT NONE - + CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) INTEGER(LONG), PARAMETER :: NCOLA = 3 ! No. cols in a matrix for subr MATMULT_FFF/MATMULT_FFF_T, called herein INTEGER(LONG), PARAMETER :: NROW = 3 ! No. rows to get/put for subrs MATGET/MATPUT, called herein INTEGER(LONG), PARAMETER :: NROWA = 3 ! No. rows in a matrix for subr MATMULT_FFF/MATMULT_FFF_T, called herein - + END SUBROUTINE ELMTLB END INTERFACE diff --git a/Source/Interfaces/ELSAVE_Interface.f90 b/Source/Interfaces/ELSAVE_Interface.f90 index dcb1cd97..52a59c2a 100644 --- a/Source/Interfaces/ELSAVE_Interface.f90 +++ b/Source/Interfaces/ELSAVE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELSAVE_Interface @@ -30,7 +30,7 @@ MODULE ELSAVE_Interface SUBROUTINE ELSAVE - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1G USE SCONTR, ONLY : BLNK_SUB_NAM, DATA_NAM_LEN, MMATL, MPBAR, MPBEAM, MPBUSH, MPELAS, MPROD, MPSHEL, & @@ -38,16 +38,16 @@ SUBROUTINE ELSAVE MRPSHEAR, MRPSHEL, MRPUSER1, NBAROFF, NBUSHOFF, NEDAT, NELE, NMATANGLE, NMATL, MPCOMP0, & MRPCOMP0, MPCOMP_PLIES, MRPCOMP_PLIES, MUSERIN_MAT_NAMES, NPBAR, NPBEAM, NPBUSH, NPCOMP, & NPELAS, NPLATEOFF, NPLATETHICK, NPROD, NPSHEAR, NPSHEL, NPSOLID, NPUSER1, NPUSERIN, NVVEC - USE PARAMS, ONLY : CBMIN3, CBMIN4, IORQ1M, IORQ1S, IORQ1B, IORQ2B, IORQ2T + USE PARAMS, ONLY : CBMIN3, CBMIN4, IORQ1M, IORQ1S, IORQ1B, IORQ2B, IORQ2T USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : BAROFF, BUSHOFF, EDAT, EOFF, EPNT, ESORT1, ESORT2, ETYPE, MATANGLE, MATL, RMATL,PBAR, & RPBAR, PBEAM, RPBEAM, PBUSH, RPBUSH, PCOMP, RPCOMP, PELAS, RPELAS, PROD, RPROD, PSHEAR, & RPSHEAR, PSHEL, RPSHEL, PSOLID, PUSER1, RPUSER1, PUSERIN, PLATEOFF, PLATETHICK, & USERIN_MAT_NAMES, VVEC IMPLICIT NONE - - + + END SUBROUTINE ELSAVE END INTERFACE diff --git a/Source/Interfaces/EMG_Interface.f90 b/Source/Interfaces/EMG_Interface.f90 index 9aa1a217..01a75b8b 100644 --- a/Source/Interfaces/EMG_Interface.f90 +++ b/Source/Interfaces/EMG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EMG_Interface @@ -30,7 +30,7 @@ MODULE EMG_Interface SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MBUG, MEDAT0_CUSERIN, MELDOF, MEMATC, MOFFSET, NSUB, NTSUB @@ -51,11 +51,11 @@ SUBROUTINE EMG ( INT_ELEM_ID, OPT, WRITE_WARN, CALLING_SUBR, WRT_BUG_THIS_TIME ) CHARACTER(LEN=*) , INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to CHARACTER( 1*BYTE) :: RED_INT_SHEAR = 'N'! If 'Y', use Gaussian weighted average of B matrices for shear terms - + INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID for which INTEGER(LONG) :: INT41,INT42 ! An integer used in getting MATANGLE - + END SUBROUTINE EMG END INTERFACE diff --git a/Source/Interfaces/EMP0_Interface.f90 b/Source/Interfaces/EMP0_Interface.f90 index 1b26c3d2..db5998e1 100644 --- a/Source/Interfaces/EMP0_Interface.f90 +++ b/Source/Interfaces/EMP0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EMP0_Interface @@ -30,7 +30,7 @@ MODULE EMP0_Interface SUBROUTINE EMP0 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : LTERM_MGGE, BLNK_SUB_NAM diff --git a/Source/Interfaces/EMP_Interface.f90 b/Source/Interfaces/EMP_Interface.f90 index ceabebfb..51f47cdb 100644 --- a/Source/Interfaces/EMP_Interface.f90 +++ b/Source/Interfaces/EMP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EMP_Interface @@ -30,7 +30,7 @@ MODULE EMP_Interface SUBROUTINE EMP - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, F22, F22FIL, F22_MSG, SC1, WRT_BUG, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_ME_BIT, ELDT_F22_ME_BIT, FATAL_ERR, IBIT, LINKNO, LTERM_MGGE, & @@ -42,16 +42,16 @@ SUBROUTINE EMP USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : AGRID, ELDT, ELDOF, ELGP, GRID_ID, NUM_EMG_FATAL_ERRS, ME, OELDT, PLY_NUM, TYPE USE EMS_ARRAYS, ONLY : EMS, EMSCOL, EMSKEY, EMSPNT - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + INTEGER(LONG) :: IDUM ! Dummy variable used when flipping DOF's INTEGER(LONG) :: KSTART ! Used in deciding whether to process all elem mass terms or only INTEGER(LONG) :: MAX_NUM ! MAX of NTERM_MGGE/NDOFG (used for DEBUG printout) - + END SUBROUTINE EMP END INTERFACE diff --git a/Source/Interfaces/EPSCALC_Interface.f90 b/Source/Interfaces/EPSCALC_Interface.f90 index 14e4669a..a1ab84f6 100644 --- a/Source/Interfaces/EPSCALC_Interface.f90 +++ b/Source/Interfaces/EPSCALC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EPSCALC_Interface @@ -49,8 +49,8 @@ SUBROUTINE EPSCALC ( ISUB ) INTEGER(LONG), INTENT(IN) :: ISUB ! Internal subcase no. (1 to NSUB) - REAL(DOUBLE) , PARAMETER :: ALPHA = ONE ! Scalar multiplier for KLL in calc'ing residual vector, RES - REAL(DOUBLE) , PARAMETER :: BETA = -ONE ! Scalar multiplier for PL in calc'ing residual vector, RES + REAL(DOUBLE) , PARAMETER :: ALPHA = ONE ! Scalar multiplier for KLL in calc'ing residual vector, RES + REAL(DOUBLE) , PARAMETER :: BETA = -ONE ! Scalar multiplier for PL in calc'ing residual vector, RES END SUBROUTINE EPSCALC diff --git a/Source/Interfaces/EPTL_Interface.f90 b/Source/Interfaces/EPTL_Interface.f90 index 0595092c..25910a13 100644 --- a/Source/Interfaces/EPTL_Interface.f90 +++ b/Source/Interfaces/EPTL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EPTL_Interface @@ -30,7 +30,7 @@ MODULE EPTL_Interface SUBROUTINE EPTL - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, F21, F21FIL, F21_MSG, SC1, WRT_BUG, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_P_T_BIT, ELDT_F21_P_T_BIT, IBIT, LINKNO, MBUG, MELDOF, NCORD, & @@ -43,7 +43,7 @@ SUBROUTINE EPTL PTE, SYS_LOAD, TYPE, SUBLOD IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT INTEGER(LONG) :: I1 ! Intermediate variable used in setting WRT_BUG(3) and OUT10 diff --git a/Source/Interfaces/ESP0_FINAL_Interface.f90 b/Source/Interfaces/ESP0_FINAL_Interface.f90 index 25e802ea..bf0db079 100644 --- a/Source/Interfaces/ESP0_FINAL_Interface.f90 +++ b/Source/Interfaces/ESP0_FINAL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ESP0_FINAL_Interface @@ -30,7 +30,7 @@ MODULE ESP0_FINAL_Interface SUBROUTINE ESP0_FINAL - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IBIT, LTERM_KGG, MELDOF, NELE, NGRID, NTERM_KGG, NSUB @@ -41,11 +41,11 @@ SUBROUTINE ESP0_FINAL USE MODEL_STUF, ONLY : AGRID, ELDT, ELDOF, ELGP, GRID_ID, NUM_EMG_FATAL_ERRS, PLY_NUM, KE, TYPE USE STF_ARRAYS, ONLY : STFKEY, STF3 USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + INTEGER(LONG) :: IDUM ! Dummy variable used when flipping DOF's INTEGER(LONG) :: KSTART ! Used in deciding whether to process all elem stiffness terms or only diff --git a/Source/Interfaces/ESP0_Interface.f90 b/Source/Interfaces/ESP0_Interface.f90 index 6b3f2e26..69ec611f 100644 --- a/Source/Interfaces/ESP0_Interface.f90 +++ b/Source/Interfaces/ESP0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ESP0_Interface @@ -30,7 +30,7 @@ MODULE ESP0_Interface SUBROUTINE ESP0 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, KMAT_BW, KMAT_DEN, LTERM_KGG, LTERM_KGGD, SOL_NAME diff --git a/Source/Interfaces/ESP_Interface.f90 b/Source/Interfaces/ESP_Interface.f90 index 247b7761..28ce7579 100644 --- a/Source/Interfaces/ESP_Interface.f90 +++ b/Source/Interfaces/ESP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ESP_Interface @@ -30,7 +30,7 @@ MODULE ESP_Interface SUBROUTINE ESP - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, F23, F23FIL, F23_MSG, F24, F24FIL, F24_MSG, FILE_NAM_MAXLEN, SC1, SCR, & WRT_BUG, WRT_ERR @@ -47,11 +47,11 @@ SUBROUTINE ESP USE STF_ARRAYS, ONLY : STFKEY, STF3 USE STF_TEMPLATE_ARRAYS, ONLY : CROW, TEMPLATE USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + INTEGER(LONG), PARAMETER :: DEB_NUM = 46 ! Debug number for output error message INTEGER(LONG) :: IDUM ! Dummy variable used when flipping DOF's INTEGER(LONG) :: KSTART ! Used in deciding whether to process all elem stiffness terms or only diff --git a/Source/Interfaces/EXPAND_MASS_DOFS_Interface.f90 b/Source/Interfaces/EXPAND_MASS_DOFS_Interface.f90 index d20bd12b..ffc97fc9 100644 --- a/Source/Interfaces/EXPAND_MASS_DOFS_Interface.f90 +++ b/Source/Interfaces/EXPAND_MASS_DOFS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EXPAND_MASS_DOFS_Interface @@ -33,7 +33,7 @@ SUBROUTINE EXPAND_MASS_DOFS ( M_1DOF ) USE PENTIUM_II_KIND, ONLY : DOUBLE USE MODEL_STUF, ONLY : ELGP - IMPLICIT NONE + IMPLICIT NONE REAL(DOUBLE), INTENT(INOUT) :: M_1DOF(ELGP,ELGP) diff --git a/Source/Interfaces/EXPAND_PHIXA_TO_PHIXG_Interface.f90 b/Source/Interfaces/EXPAND_PHIXA_TO_PHIXG_Interface.f90 index 2d2dbe07..aafbe15c 100644 --- a/Source/Interfaces/EXPAND_PHIXA_TO_PHIXG_Interface.f90 +++ b/Source/Interfaces/EXPAND_PHIXA_TO_PHIXG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EXPAND_PHIXA_TO_PHIXG_Interface @@ -40,7 +40,7 @@ SUBROUTINE EXPAND_PHIXA_TO_PHIXG USE COL_VECS, ONLY : UA_COL, UG_COL USE PARAMS, ONLY : EPSIL, TINY USE DEBUG_PARAMETERS, ONLY : DEBUG - USE SPARSE_MATRICES, ONLY : I_PHIXA, J_PHIXA, PHIXA, I_PHIXG, J_PHIXG, PHIXG + USE SPARSE_MATRICES, ONLY : I_PHIXA, J_PHIXA, PHIXA, I_PHIXG, J_PHIXG, PHIXG IMPLICIT NONE diff --git a/Source/Interfaces/FBS_LAPACK_Interface.f90 b/Source/Interfaces/FBS_LAPACK_Interface.f90 index 2875694d..473e613b 100644 --- a/Source/Interfaces/FBS_LAPACK_Interface.f90 +++ b/Source/Interfaces/FBS_LAPACK_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FBS_LAPACK_Interface @@ -34,7 +34,7 @@ SUBROUTINE FBS_LAPACK ( EQUED, NROWS, MATIN_SDIA, EQUIL_SCALE_FACS, INOUT_COL ) USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LINKNO - USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, STIME, TSEC + USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, STIME, TSEC USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : EPSERR, RCONDK USE LAPACK_DPB_MATRICES, ONLY : ABAND, LAPACK_S, RES @@ -43,8 +43,8 @@ SUBROUTINE FBS_LAPACK ( EQUED, NROWS, MATIN_SDIA, EQUIL_SCALE_FACS, INOUT_COL ) USE LAPACK_LIN_EQN_DPB IMPLICIT NONE - - CHARACTER( 1*BYTE), INTENT(IN) :: EQUED ! 'Y' if MATIN was equilibrated in subr EQUILIBRATE (called herein) + + CHARACTER( 1*BYTE), INTENT(IN) :: EQUED ! 'Y' if MATIN was equilibrated in subr EQUILIBRATE (called herein) CHARACTER( 1*BYTE), PARAMETER :: UPLO = 'U' ! Indicates upper triang part of matrix is stored INTEGER(LONG), INTENT(IN) :: MATIN_SDIA ! No. of superdiags in the MATIN upper triangle diff --git a/Source/Interfaces/FBS_SUPRLU_Interface.f90 b/Source/Interfaces/FBS_SUPRLU_Interface.f90 index 6071f74e..b7b87e22 100644 --- a/Source/Interfaces/FBS_SUPRLU_Interface.f90 +++ b/Source/Interfaces/FBS_SUPRLU_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FBS_SUPRLU_Interface @@ -34,13 +34,13 @@ SUBROUTINE FBS_SUPRLU ( CALLING_SUBR, MATIN_NAME, NROWS, NTERMS, I_MATIN, J_MATI USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : CRS_CCS USE SCRATCH_MATRICES, ONLY : I_CCS1, J_CCS1, CCS1 USE SuperLU_STUF, ONLY : SLU_FACTORS IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! The subr that called this subr (used for output error purposes) CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of matrix to be decomposed diff --git a/Source/Interfaces/FFIELD2_Interface.f90 b/Source/Interfaces/FFIELD2_Interface.f90 index bc8c0deb..137e992b 100644 --- a/Source/Interfaces/FFIELD2_Interface.f90 +++ b/Source/Interfaces/FFIELD2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FFIELD2_Interface @@ -30,7 +30,7 @@ MODULE FFIELD2_Interface SUBROUTINE FFIELD2 ( CARD1, CARD2, CARD, IERR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, BD_ENTRY_LEN, ECHO, FATAL_ERR, IMB_BLANK, JCARD_LEN @@ -38,14 +38,14 @@ SUBROUTINE FFIELD2 ( CARD1, CARD2, CARD, IERR ) USE PARAMS, ONLY : SUPWARN IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD1 ! 1st physical entry of the large field entry CHARACTER(LEN=*), INTENT(IN) :: CARD2 ! 2nd physical entry of the large field entry CHARACTER(LEN=*), INTENT(OUT) :: CARD ! Card with 10 fields of 16 cols each with the data from CARD1, CARD2 - + INTEGER(LONG), INTENT(OUT) :: IERR ! = 1 if a field is longer than 8 chars on a free field card - + END SUBROUTINE FFIELD2 END INTERFACE diff --git a/Source/Interfaces/FFIELD_Interface.f90 b/Source/Interfaces/FFIELD_Interface.f90 index 4134c78a..e4e967f9 100644 --- a/Source/Interfaces/FFIELD_Interface.f90 +++ b/Source/Interfaces/FFIELD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FFIELD_Interface @@ -30,19 +30,19 @@ MODULE FFIELD_Interface SUBROUTINE FFIELD ( CARD, IERR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, BD_ENTRY_LEN, FATAL_ERR, IMB_BLANK, JCARD_LEN USE TIMDAT, ONLY : TSEC IMPLICIT NONE - - CHARACTER(LEN=*), INTENT(INOUT):: CARD ! - + + CHARACTER(LEN=*), INTENT(INOUT):: CARD ! + INTEGER(LONG), INTENT(OUT) :: IERR ! = 1 if a field is longer than 8 chars on a free field card - + END SUBROUTINE FFIELD END INTERFACE diff --git a/Source/Interfaces/FILERR_Interface.f90 b/Source/Interfaces/FILERR_Interface.f90 index cad9b805..44b2adc3 100644 --- a/Source/Interfaces/FILERR_Interface.f90 +++ b/Source/Interfaces/FILERR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FILERR_Interface @@ -30,10 +30,10 @@ MODULE FILERR_Interface SUBROUTINE FILERR ( OUNT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - + IMPLICIT NONE INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to diff --git a/Source/Interfaces/FILE_CLOSE_Interface.f90 b/Source/Interfaces/FILE_CLOSE_Interface.f90 index 5a5229b6..b759d9ce 100644 --- a/Source/Interfaces/FILE_CLOSE_Interface.f90 +++ b/Source/Interfaces/FILE_CLOSE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FILE_CLOSE_Interface @@ -30,12 +30,12 @@ MODULE FILE_CLOSE_Interface SUBROUTINE FILE_CLOSE ( UNIT, FILNAM, CLOSE_STAT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : SC1 IMPLICIT NONE - + CHARACTER(LEN=*) , INTENT(IN) :: FILNAM ! File name CHARACTER(LEN=*) , INTENT(IN) :: CLOSE_STAT ! Status for close diff --git a/Source/Interfaces/FILE_INQUIRE_Interface.f90 b/Source/Interfaces/FILE_INQUIRE_Interface.f90 index de25a8ed..55a44471 100644 --- a/Source/Interfaces/FILE_INQUIRE_Interface.f90 +++ b/Source/Interfaces/FILE_INQUIRE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FILE_INQUIRE_Interface @@ -59,7 +59,7 @@ SUBROUTINE FILE_INQUIRE ( MESSAGE ) USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MESSAGE ! Message written when this subr is called diff --git a/Source/Interfaces/FILE_OPEN_Interface.f90 b/Source/Interfaces/FILE_OPEN_Interface.f90 index 03656d74..ca839e36 100644 --- a/Source/Interfaces/FILE_OPEN_Interface.f90 +++ b/Source/Interfaces/FILE_OPEN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FILE_OPEN_Interface @@ -38,21 +38,21 @@ SUBROUTINE FILE_OPEN (UNIT, FILNAM, OUNT, STATUS, MESSAG, RW_STIME, FORMAT, ACTI USE DEBUG_PARAMETERS USE MYSTRAN_Version, ONLY : MYSTRAN_VER_NUM, MYSTRAN_VER_MONTH, MYSTRAN_VER_DAY, MYSTRAN_VER_YEAR, MYSTRAN_AUTHOR, & MYSTRAN_COMMENT - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: ACTION ! File description CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name CHARACTER(LEN=*), INTENT(IN) :: FORMAT ! File format CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description - CHARACTER(LEN=*), INTENT(IN) :: POSITION ! File description + CHARACTER(LEN=*), INTENT(IN) :: POSITION ! File description CHARACTER(LEN=*), INTENT(IN) :: STATUS ! File status indicator (NEW, OLD, REPLACE) CHARACTER(LEN=*), INTENT(IN) :: RW_STIME ! Indicator of whether to read or write STIME CHARACTER(LEN=*), INTENT(IN) :: WRITE_L1A ! 'Y'/'N' Arg passed to subr OUTA_HERE CHARACTER(LEN=*), INTENT(IN) :: WRITE_VER ! 'Y'/'N' Arg to tell whether to write MYSTRAN version info - + INTEGER(LONG), INTENT(IN) :: UNIT ! Unit number file is attached to - INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to. Input to subr FILE_OPEN + INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to. Input to subr FILE_OPEN END SUBROUTINE FILE_OPEN diff --git a/Source/Interfaces/FORCE_MOM_PROC_Interface.f90 b/Source/Interfaces/FORCE_MOM_PROC_Interface.f90 index f91c97af..94b7dd07 100644 --- a/Source/Interfaces/FORCE_MOM_PROC_Interface.f90 +++ b/Source/Interfaces/FORCE_MOM_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FORCE_MOM_PROC_Interface @@ -30,7 +30,7 @@ MODULE FORCE_MOM_PROC_Interface SUBROUTINE FORCE_MOM_PROC - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : FILE_NAM_MAXLEN, WRT_ERR, ERR, F06, SCR, L1I, LINK1I, L1I_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LLOADC, NCORD, NFORCE, NGRID, NLOAD, NSUB, WARN_ERR @@ -39,9 +39,9 @@ SUBROUTINE FORCE_MOM_PROC USE PARAMS, ONLY : EPSIL, SUPWARN USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : LOAD_SIDS, LOAD_FACS, SYS_LOAD, SUBLOD, GRID, GRID_ID, CORD - + IMPLICIT NONE - + END SUBROUTINE FORCE_MOM_PROC diff --git a/Source/Interfaces/FULL_TO_SPARSE_CRS_Interface.f90 b/Source/Interfaces/FULL_TO_SPARSE_CRS_Interface.f90 index 18da5158..efeef5f0 100644 --- a/Source/Interfaces/FULL_TO_SPARSE_CRS_Interface.f90 +++ b/Source/Interfaces/FULL_TO_SPARSE_CRS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FULL_TO_SPARSE_CRS_Interface @@ -38,13 +38,13 @@ SUBROUTINE FULL_TO_SPARSE_CRS ( MATIN_NAME, N, M, MATIN_FULL, NTERM_ALLOC, SMALL USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Name of subr that called this one CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of matrix CHARACTER(LEN=*), INTENT(IN) :: SYM_OUT ! 'Y' or 'N' symmetry indicator for output matrix. - + INTEGER(LONG), INTENT(IN) :: N ! Number of rows in input matrix, MATIN_FULL INTEGER(LONG), INTENT(IN) :: M ! Number of cols in input matrix, MATIN_FULL INTEGER(LONG), INTENT(IN) :: NTERM_ALLOC ! Number of nonzero terms allocated to MATOUT in calling subr diff --git a/Source/Interfaces/GEN_T0L_Interface.f90 b/Source/Interfaces/GEN_T0L_Interface.f90 index e8fad39e..03f0f4e5 100644 --- a/Source/Interfaces/GEN_T0L_Interface.f90 +++ b/Source/Interfaces/GEN_T0L_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GEN_T0L_Interface @@ -30,7 +30,7 @@ MODULE GEN_T0L_Interface SUBROUTINE GEN_T0L (RGRID_ROW, ICORD, THETAD, PHID, T0L ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONE, ONE80, PI USE IOUNT1, ONLY : WRT_ERR, f06 @@ -38,14 +38,14 @@ SUBROUTINE GEN_T0L (RGRID_ROW, ICORD, THETAD, PHID, T0L ) USE PARAMS, ONLY : EPSIL USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : RGRID, CORD, RCORD - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: RGRID_ROW ! Row number in array RGRID where the RGRID data is stored for the grid INTEGER(LONG), INTENT(IN) :: ICORD ! Internal coord ID for coord sys L - - REAL(DOUBLE), INTENT(OUT) :: THETAD,PHID ! Azimuth and elevation angles (deg) for cylindrical/spherical coord sys + + REAL(DOUBLE), INTENT(OUT) :: THETAD,PHID ! Azimuth and elevation angles (deg) for cylindrical/spherical coord sys REAL(DOUBLE), INTENT(OUT) :: T0L(3,3) ! 3 x 3 coord transformation matrix described above END SUBROUTINE GEN_T0L diff --git a/Source/Interfaces/GET_ANSID_Interface.f90 b/Source/Interfaces/GET_ANSID_Interface.f90 index 0322f24b..1df82d4c 100644 --- a/Source/Interfaces/GET_ANSID_Interface.f90 +++ b/Source/Interfaces/GET_ANSID_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_ANSID_Interface @@ -30,19 +30,19 @@ MODULE GET_ANSID_Interface SUBROUTINE GET_ANSID ( CARD, SETID ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : CC_ENTRY_LEN, FATAL_ERR, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Case Control card (can be modified by subr CSHIFT, called herein) - + INTEGER(LONG), INTENT(OUT) :: SETID ! Set ID read from CARD after '=', if CARD contains an integer here. - + END SUBROUTINE GET_ANSID END INTERFACE diff --git a/Source/Interfaces/GET_ARRAY_ROW_NUM_Interface.f90 b/Source/Interfaces/GET_ARRAY_ROW_NUM_Interface.f90 index 14cb391a..00eff36d 100644 --- a/Source/Interfaces/GET_ARRAY_ROW_NUM_Interface.f90 +++ b/Source/Interfaces/GET_ARRAY_ROW_NUM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_ARRAY_ROW_NUM_Interface @@ -30,15 +30,15 @@ MODULE GET_ARRAY_ROW_NUM_Interface SUBROUTINE GET_ARRAY_ROW_NUM ( ARRAY_NAME, CALLING_SUBR, ASIZE, ARRAY, EXT_ID, ROW_NUM ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, f06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ONE, TWO - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: ARRAY_NAME ! Name of array to be searched CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Name of subr that called this one @@ -48,9 +48,9 @@ SUBROUTINE GET_ARRAY_ROW_NUM ( ARRAY_NAME, CALLING_SUBR, ASIZE, ARRAY, EXT_ID, R INTEGER(LONG), INTENT(OUT) :: ROW_NUM ! Internal ID (row in ARRAY) where EXT_ID exists INTEGER(LONG) :: HI, LO ! Used to bound the range of N where EXT_ID is expected to be found - + END SUBROUTINE GET_ARRAY_ROW_NUM - + END INTERFACE END MODULE GET_ARRAY_ROW_NUM_Interface diff --git a/Source/Interfaces/GET_CHAR_STRING_END_Interface.f90 b/Source/Interfaces/GET_CHAR_STRING_END_Interface.f90 index 32495516..e0d4b828 100644 --- a/Source/Interfaces/GET_CHAR_STRING_END_Interface.f90 +++ b/Source/Interfaces/GET_CHAR_STRING_END_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_CHAR_STRING_END_Interface @@ -30,16 +30,16 @@ MODULE GET_CHAR_STRING_END_Interface SUBROUTINE GET_CHAR_STRING_END ( CHAR_STRING, IEND ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*) , INTENT(IN) :: CHAR_STRING ! String to get ending of - INTEGER(LONG) , INTENT(OUT) :: IEND ! Col where CHAR_STRING stops having non blanks + INTEGER(LONG) , INTENT(OUT) :: IEND ! Col where CHAR_STRING stops having non blanks END SUBROUTINE GET_CHAR_STRING_END diff --git a/Source/Interfaces/GET_COMP_SHELL_ALLOWS_Interface.f90 b/Source/Interfaces/GET_COMP_SHELL_ALLOWS_Interface.f90 index e9506933..7d73d41d 100644 --- a/Source/Interfaces/GET_COMP_SHELL_ALLOWS_Interface.f90 +++ b/Source/Interfaces/GET_COMP_SHELL_ALLOWS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_COMP_SHELL_ALLOWS_Interface diff --git a/Source/Interfaces/GET_ELEM_AGRID_BGRID_Interface.f90 b/Source/Interfaces/GET_ELEM_AGRID_BGRID_Interface.f90 index 7185795d..64d20eb1 100644 --- a/Source/Interfaces/GET_ELEM_AGRID_BGRID_Interface.f90 +++ b/Source/Interfaces/GET_ELEM_AGRID_BGRID_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_ELEM_AGRID_BGRID_Interface diff --git a/Source/Interfaces/GET_ELEM_NUM_PLIES_Interface.f90 b/Source/Interfaces/GET_ELEM_NUM_PLIES_Interface.f90 index a100e619..0c59092c 100644 --- a/Source/Interfaces/GET_ELEM_NUM_PLIES_Interface.f90 +++ b/Source/Interfaces/GET_ELEM_NUM_PLIES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_ELEM_NUM_PLIES_Interface diff --git a/Source/Interfaces/GET_ELEM_ONAME_Interface.f90 b/Source/Interfaces/GET_ELEM_ONAME_Interface.f90 index 58597a27..2ad6fa04 100644 --- a/Source/Interfaces/GET_ELEM_ONAME_Interface.f90 +++ b/Source/Interfaces/GET_ELEM_ONAME_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_ELEM_ONAME_Interface @@ -30,13 +30,13 @@ MODULE GET_ELEM_ONAME_Interface SUBROUTINE GET_ELEM_ONAME ( NAME ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, METYPE + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, METYPE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ELEM_ONAME, ELMTYP, TYPE - + IMPLICIT NONE CHARACTER(LEN=LEN(ELEM_ONAME)), INTENT(OUT) :: NAME ! Name of an elem for output purposes in LINK9 WRTELi subr's diff --git a/Source/Interfaces/GET_ELGP_Interface.f90 b/Source/Interfaces/GET_ELGP_Interface.f90 index 818f5eb1..3b717f82 100644 --- a/Source/Interfaces/GET_ELGP_Interface.f90 +++ b/Source/Interfaces/GET_ELGP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_ELGP_Interface @@ -30,13 +30,13 @@ MODULE GET_ELGP_Interface SUBROUTINE GET_ELGP ( INT_ELEM_ID ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06, WRT_ERR - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MEFE, MELGP, METYPE + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MEFE, MELGP, METYPE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, EID, ELGP, ELMTYP, etype, EMG_IFE, EPNT, ERR_SUB_NAM, NELGP, NUM_EMG_FATAL_ERRS, TYPE - + IMPLICIT NONE INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID diff --git a/Source/Interfaces/GET_FORMATTED_INTEGER_Interface.f90 b/Source/Interfaces/GET_FORMATTED_INTEGER_Interface.f90 index 28f8fb38..73fc9234 100644 --- a/Source/Interfaces/GET_FORMATTED_INTEGER_Interface.f90 +++ b/Source/Interfaces/GET_FORMATTED_INTEGER_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_FORMATTED_INTEGER_Interface @@ -30,13 +30,13 @@ MODULE GET_FORMATTED_INTEGER_Interface SUBROUTINE GET_FORMATTED_INTEGER ( INT, CHAR_INT, NUM_CHARS, NUM_DIGITS ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + INTEGER(LONG), PARAMETER :: WORD_LEN = 13 ! Length of character string that INT will be entered into CHARACTER(WORD_LEN*BYTE), INTENT(OUT) :: CHAR_INT ! Integer formatted to have comma's (36879 becomes 36,879) diff --git a/Source/Interfaces/GET_GRID_6X6_MASS_Interface.f90 b/Source/Interfaces/GET_GRID_6X6_MASS_Interface.f90 index e1e495aa..d1a31161 100644 --- a/Source/Interfaces/GET_GRID_6X6_MASS_Interface.f90 +++ b/Source/Interfaces/GET_GRID_6X6_MASS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_GRID_6X6_MASS_Interface @@ -30,7 +30,7 @@ MODULE GET_GRID_6X6_MASS_Interface SUBROUTINE GET_GRID_6X6_MASS ( AGRID, IGRID, FOUND, GRID_MGG ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NGRID, NTERM_MGG @@ -38,9 +38,9 @@ SUBROUTINE GET_GRID_6X6_MASS ( AGRID, IGRID, FOUND, GRID_MGG ) USE CONSTANTS_1, ONLY : ZERO USE DOF_TABLES, ONLY : TDOF USE SPARSE_MATRICES, ONLY : I2_MGG, J_MGG, MGG - + IMPLICIT NONE - + CHARACTER( 1*BYTE), INTENT(OUT) :: FOUND ! 'Y' if there is a mass matrix for this grid and 'N' otherwise INTEGER(LONG), INTENT(IN) :: AGRID ! Actual grid number of grid for which we want the 6 x 6 mass matrix diff --git a/Source/Interfaces/GET_GRID_AND_COMP_Interface.f90 b/Source/Interfaces/GET_GRID_AND_COMP_Interface.f90 index b9849b23..a19f6f7c 100644 --- a/Source/Interfaces/GET_GRID_AND_COMP_Interface.f90 +++ b/Source/Interfaces/GET_GRID_AND_COMP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_GRID_AND_COMP_Interface diff --git a/Source/Interfaces/GET_GRID_NUM_COMPS_Interface.f90 b/Source/Interfaces/GET_GRID_NUM_COMPS_Interface.f90 index 6f43f706..7c236896 100644 --- a/Source/Interfaces/GET_GRID_NUM_COMPS_Interface.f90 +++ b/Source/Interfaces/GET_GRID_NUM_COMPS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_GRID_NUM_COMPS_Interface @@ -41,9 +41,9 @@ SUBROUTINE GET_GRID_NUM_COMPS ( IGRID, NUM_COMPS, CALLING_SUBR ) INTEGER(LONG), INTENT(IN) :: IGRID ! An internal grid number INTEGER(LONG), INTENT(OUT) :: NUM_COMPS ! 6 if GRID_NUM is an physical grid, 1 if an SPOINT - END SUBROUTINE GET_GRID_NUM_COMPS - - + END SUBROUTINE GET_GRID_NUM_COMPS + + END INTERFACE END MODULE GET_GRID_NUM_COMPS_Interface diff --git a/Source/Interfaces/GET_I2_MAT_FROM_I_MAT_Interface.f90 b/Source/Interfaces/GET_I2_MAT_FROM_I_MAT_Interface.f90 index b94be5b8..85f61ea4 100644 --- a/Source/Interfaces/GET_I2_MAT_FROM_I_MAT_Interface.f90 +++ b/Source/Interfaces/GET_I2_MAT_FROM_I_MAT_Interface.f90 @@ -1,34 +1,34 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_I2_MAT_FROM_I_MAT_Interface INTERFACE - SUBROUTINE GET_I2_MAT_FROM_I_MAT ( MAT_NAME, NROWS, NTERMS, I_MAT, I2_MAT ) + SUBROUTINE GET_I2_MAT_FROM_I_MAT ( MAT_NAME, NROWS, NTERMS, I_MAT, I2_MAT ) USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE diff --git a/Source/Interfaces/GET_I_MAT_FROM_I2_MAT_Interface.f90 b/Source/Interfaces/GET_I_MAT_FROM_I2_MAT_Interface.f90 index d752ef3d..7d6741fe 100644 --- a/Source/Interfaces/GET_I_MAT_FROM_I2_MAT_Interface.f90 +++ b/Source/Interfaces/GET_I_MAT_FROM_I2_MAT_Interface.f90 @@ -1,34 +1,34 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_I_MAT_FROM_I2_MAT_Interface INTERFACE - SUBROUTINE GET_I_MAT_FROM_I2_MAT ( MAT_NAME, NROWS, NTERMS, I2_MAT, I_MAT ) + SUBROUTINE GET_I_MAT_FROM_I2_MAT ( MAT_NAME, NROWS, NTERMS, I2_MAT, I_MAT ) USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE diff --git a/Source/Interfaces/GET_MACHINE_PARAMS_Interface.f90 b/Source/Interfaces/GET_MACHINE_PARAMS_Interface.f90 index 7020020b..cc4fbcf5 100644 --- a/Source/Interfaces/GET_MACHINE_PARAMS_Interface.f90 +++ b/Source/Interfaces/GET_MACHINE_PARAMS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_MACHINE_PARAMS_Interface @@ -40,9 +40,9 @@ SUBROUTINE GET_MACHINE_PARAMS MACH_SFMIN, MACH_T, MACH_LARGE_NUM USE DEBUG_PARAMETERS, ONLY : DEBUG USE LAPACK_BLAS_AUX - + IMPLICIT NONE - + END SUBROUTINE GET_MACHINE_PARAMS diff --git a/Source/Interfaces/GET_MATANGLE_FROM_CID_Interface.f90 b/Source/Interfaces/GET_MATANGLE_FROM_CID_Interface.f90 index 0798250b..5c5e93b6 100644 --- a/Source/Interfaces/GET_MATANGLE_FROM_CID_Interface.f90 +++ b/Source/Interfaces/GET_MATANGLE_FROM_CID_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_MATANGLE_FROM_CID_Interface @@ -30,7 +30,7 @@ MODULE GET_MATANGLE_FROM_CID_Interface SUBROUTINE GET_MATANGLE_FROM_CID ( ACID ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NCORD @@ -38,12 +38,12 @@ SUBROUTINE GET_MATANGLE_FROM_CID ( ACID ) USE CONSTANTS_1, ONLY : CONV_DEG_RAD, ZERO, ONE USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : CORD, EID, NUM_EMG_FATAL_ERRS, NUM_EMG_FATAL_ERRS, RCORD, TE, THETAM, TYPE - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: ACID ! Actual coord system ID for the sys that defines the material axes - + END SUBROUTINE GET_MATANGLE_FROM_CID END INTERFACE diff --git a/Source/Interfaces/GET_MATRIX_DIAG_STATS_Interface.f90 b/Source/Interfaces/GET_MATRIX_DIAG_STATS_Interface.f90 index ee8f6eb2..1caf6fed 100644 --- a/Source/Interfaces/GET_MATRIX_DIAG_STATS_Interface.f90 +++ b/Source/Interfaces/GET_MATRIX_DIAG_STATS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_MATRIX_DIAG_STATS_Interface diff --git a/Source/Interfaces/GET_MAX_MIN_ABS_STR_Interface.f90 b/Source/Interfaces/GET_MAX_MIN_ABS_STR_Interface.f90 index 1b3b8870..6606ce01 100644 --- a/Source/Interfaces/GET_MAX_MIN_ABS_STR_Interface.f90 +++ b/Source/Interfaces/GET_MAX_MIN_ABS_STR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_MAX_MIN_ABS_STR_Interface @@ -35,7 +35,7 @@ SUBROUTINE GET_MAX_MIN_ABS_STR ( NUM_ROWS, NUM_COLS, SECOND_LINE, MAX_ANS, MIN_A USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM USE LINK9_STUFF, ONLY : OGEL IMPLICIT NONE diff --git a/Source/Interfaces/GET_MYSTRAN_DIR_Interface.f90 b/Source/Interfaces/GET_MYSTRAN_DIR_Interface.f90 index 4fe1a366..6f41d4c0 100644 --- a/Source/Interfaces/GET_MYSTRAN_DIR_Interface.f90 +++ b/Source/Interfaces/GET_MYSTRAN_DIR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_MYSTRAN_DIR_Interface @@ -30,16 +30,16 @@ MODULE GET_MYSTRAN_DIR_Interface SUBROUTINE GET_MYSTRAN_DIR ( MYSTRAN_DIR, MYSTRAN_DIR_LEN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : FILE_NAM_MAXLEN IMPLICIT NONE - + CHARACTER(FILE_NAM_MAXLEN*BYTE), INTENT(OUT) :: MYSTRAN_DIR ! Directory where executable (and INI file) exist INTEGER(LONG), INTENT(OUT) :: MYSTRAN_DIR_LEN ! Length of MYSTRAN_DIR (not including trailing blanks) - + END SUBROUTINE GET_MYSTRAN_DIR END INTERFACE diff --git a/Source/Interfaces/GET_OU4_MAT_STATS_Interface.f90 b/Source/Interfaces/GET_OU4_MAT_STATS_Interface.f90 index b00c8096..4cd0e042 100644 --- a/Source/Interfaces/GET_OU4_MAT_STATS_Interface.f90 +++ b/Source/Interfaces/GET_OU4_MAT_STATS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_OU4_MAT_STATS_Interface diff --git a/Source/Interfaces/GET_PCOMP_SECT_PROPS_Interface.f90 b/Source/Interfaces/GET_PCOMP_SECT_PROPS_Interface.f90 index 1b4ed4fd..c0b34ba7 100644 --- a/Source/Interfaces/GET_PCOMP_SECT_PROPS_Interface.f90 +++ b/Source/Interfaces/GET_PCOMP_SECT_PROPS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_PCOMP_SECT_PROPS_Interface @@ -30,22 +30,22 @@ MODULE GET_PCOMP_SECT_PROPS_Interface SUBROUTINE GET_PCOMP_SECT_PROPS ( PCOMP_TM, PCOMP_IB, PCOMP_TS ) - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, MPCOMP_PLIES, MPCOMP0, MRPCOMP_PLIES, MRPCOMP0 USE MODEL_STUF, ONLY : EPROP, INTL_PID, NUM_PLIES, RPCOMP, TPLY - USE PARAMS, ONLY : PCMPTSTM + USE PARAMS, ONLY : PCMPTSTM USE CONSTANTS_1, ONLY : ZERO, THIRD - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + REAL(DOUBLE), INTENT(OUT) :: PCOMP_TM ! Membrane thickness of PCOMP for equivalent PSHELL REAL(DOUBLE), INTENT(OUT) :: PCOMP_IB ! Bending MOI of PCOMP for equivalent PSHELL REAL(DOUBLE), INTENT(OUT) :: PCOMP_TS ! Transverse shear thickness of PCOMP for equivalent PSHELL - + END SUBROUTINE GET_PCOMP_SECT_PROPS END INTERFACE diff --git a/Source/Interfaces/GET_SETID_Interface.f90 b/Source/Interfaces/GET_SETID_Interface.f90 index f1a0193b..16d70028 100644 --- a/Source/Interfaces/GET_SETID_Interface.f90 +++ b/Source/Interfaces/GET_SETID_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_SETID_Interface @@ -30,19 +30,19 @@ MODULE GET_SETID_Interface SUBROUTINE GET_SETID ( CARD, SETID ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : CC_ENTRY_LEN, FATAL_ERR, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Case Control card (can be modified by subr CSHIFT, called herein) - + INTEGER(LONG), INTENT(OUT) :: SETID ! Set ID read from CARD after '=', if CARD contains an integer here. - + END SUBROUTINE GET_SETID END INTERFACE diff --git a/Source/Interfaces/GET_SPARSE_CRS_COL_Interface.f90 b/Source/Interfaces/GET_SPARSE_CRS_COL_Interface.f90 index e7383a12..79211bbd 100644 --- a/Source/Interfaces/GET_SPARSE_CRS_COL_Interface.f90 +++ b/Source/Interfaces/GET_SPARSE_CRS_COL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_SPARSE_CRS_COL_Interface @@ -36,9 +36,9 @@ SUBROUTINE GET_SPARSE_CRS_COL ( MATIN_NAME, COL_NUM, NTERM, NROWS, NCOLS, I_MATI USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(LEN=*), INTENT(IN ) :: MATIN_NAME ! Name of input matrix to be partitioned CHARACTER(1*BYTE),INTENT(OUT) :: NULL_COL ! = 'Y' if OUT_VEC is null @@ -49,7 +49,7 @@ SUBROUTINE GET_SPARSE_CRS_COL ( MATIN_NAME, COL_NUM, NTERM, NROWS, NCOLS, I_MATI INTEGER(LONG), INTENT(IN ) :: NCOLS ! No. cols in MATIN INTEGER(LONG), INTENT(IN ) :: COL_NUM ! Col number for the col to get in MATIN - + REAL(DOUBLE) , INTENT(IN) :: MATIN(NTERM) ! Nonzero terms in matrix MATIN REAL(DOUBLE) , INTENT(IN) :: BETA ! Scalar multiplier for row from MATIN REAL(DOUBLE) , INTENT(OUT) :: OUT_VEC(NROWS) ! Output vector containing the terms from col COL_NUM of MATIN diff --git a/Source/Interfaces/GET_SPARSE_CRS_ROW_Interface.f90 b/Source/Interfaces/GET_SPARSE_CRS_ROW_Interface.f90 index ca1346e8..b0a28d53 100644 --- a/Source/Interfaces/GET_SPARSE_CRS_ROW_Interface.f90 +++ b/Source/Interfaces/GET_SPARSE_CRS_ROW_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_SPARSE_CRS_ROW_Interface @@ -36,9 +36,9 @@ SUBROUTINE GET_SPARSE_CRS_ROW ( MATIN_NAME, ROW_NUM, NTERM, NROWS, NCOLS, I_MATI USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(LEN=*), INTENT(IN ) :: MATIN_NAME ! Name of input matrix to be partitioned CHARACTER(LEN=*), INTENT(OUT) :: NULL_ROW ! = 'Y' if OUT_VEC is null @@ -49,7 +49,7 @@ SUBROUTINE GET_SPARSE_CRS_ROW ( MATIN_NAME, ROW_NUM, NTERM, NROWS, NCOLS, I_MATI INTEGER(LONG), INTENT(IN ) :: J_MATIN(NTERM) ! Col numbers for terms in MATIN INTEGER(LONG), INTENT(IN ) :: ROW_NUM ! Row number for the row to get in MATIN - + REAL(DOUBLE) , INTENT(IN) :: MATIN(NTERM) ! Nonzero terms in matrix MATIN REAL(DOUBLE) , INTENT(IN) :: BETA ! Scalar multiplier for row from MATIN REAL(DOUBLE) , INTENT(OUT) :: OUT_VEC(NCOLS) ! Output vector containing the terms from row ROW_NUM of MATIN diff --git a/Source/Interfaces/GET_SPARSE_MAT_TERM_Interface.f90 b/Source/Interfaces/GET_SPARSE_MAT_TERM_Interface.f90 index 286dbb43..55483959 100644 --- a/Source/Interfaces/GET_SPARSE_MAT_TERM_Interface.f90 +++ b/Source/Interfaces/GET_SPARSE_MAT_TERM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_SPARSE_MAT_TERM_Interface @@ -30,15 +30,15 @@ MODULE GET_SPARSE_MAT_TERM_Interface SUBROUTINE GET_SPARSE_MAT_TERM ( MATIN_NAME, I_MATIN, J_MATIN, MATIN, IROW, JCOL, N, NTERMS, MATIN_VAL ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ZERO + USE CONSTANTS_1, ONLY : ZERO IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN ) :: MATIN_NAME ! Name of input matrix MATIN INTEGER(LONG), INTENT(IN) :: N ! Row/col size of MATIN @@ -48,7 +48,7 @@ SUBROUTINE GET_SPARSE_MAT_TERM ( MATIN_NAME, I_MATIN, J_MATIN, MATIN, IROW, JCOL INTEGER(LONG), INTENT(IN) :: I_MATIN(N+1) ! Indices of the beginning terms in each row for MATIN values INTEGER(LONG), INTENT(IN) :: J_MATIN(NTERMS) ! Col numbers of nonzero term in MATIN - + REAL(DOUBLE) , INTENT(IN) :: MATIN(NTERMS) ! Real vals in sparse matrix MATIN REAL(DOUBLE) , INTENT(OUT) :: MATIN_VAL diff --git a/Source/Interfaces/GET_UG_123_IN_GRD_ORD_Interface.f90 b/Source/Interfaces/GET_UG_123_IN_GRD_ORD_Interface.f90 index 241b0992..7ee073c5 100644 --- a/Source/Interfaces/GET_UG_123_IN_GRD_ORD_Interface.f90 +++ b/Source/Interfaces/GET_UG_123_IN_GRD_ORD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_UG_123_IN_GRD_ORD_Interface @@ -30,21 +30,21 @@ MODULE GET_UG_123_IN_GRD_ORD_Interface SUBROUTINE GET_UG_123_IN_GRD_ORD ( IERR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, NGRID USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRID_ID - USE DOF_TABLES, ONLY : TDOFI + USE DOF_TABLES, ONLY : TDOFI USE COL_VECS, ONLY : UG_COL USE MISC_MATRICES, ONLY : UG_T123_MAT IMPLICIT NONE - + INTEGER(LONG), INTENT(OUT) :: IERR ! Local error indicator - + END SUBROUTINE GET_UG_123_IN_GRD_ORD END INTERFACE diff --git a/Source/Interfaces/GET_VEC_MIN_MAX_ABS_Interface.f90 b/Source/Interfaces/GET_VEC_MIN_MAX_ABS_Interface.f90 index 7c796d0b..4b4631b2 100644 --- a/Source/Interfaces/GET_VEC_MIN_MAX_ABS_Interface.f90 +++ b/Source/Interfaces/GET_VEC_MIN_MAX_ABS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_VEC_MIN_MAX_ABS_Interface @@ -30,16 +30,16 @@ MODULE GET_VEC_MIN_MAX_ABS_Interface SUBROUTINE GET_VEC_MIN_MAX_ABS ( NROWS, ID_LIST, VECTOR, VEC_MIN, VEC_MAX, VEC_ABS, ID_MIN, ID_MAX ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in ID_LIST and VECTOR INTEGER(LONG), INTENT(IN) :: ID_LIST(NROWS) ! The ID (grid or elem) numbers corresponding to rows in VECTOR INTEGER(LONG), INTENT(OUT) :: ID_MAX ! ID where vector is max diff --git a/Source/Interfaces/GPWG_Interface.f90 b/Source/Interfaces/GPWG_Interface.f90 index 382cae61..2251e8b1 100644 --- a/Source/Interfaces/GPWG_Interface.f90 +++ b/Source/Interfaces/GPWG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GPWG_Interface @@ -30,7 +30,7 @@ MODULE GPWG_Interface SUBROUTINE GPWG ( WHICH ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_BUG, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_ME_BIT, IBIT, MBUG, NCONM2, NCORD, NELE, NGRID, SOL_NAME, WARN_ERR @@ -42,16 +42,16 @@ SUBROUTINE GPWG ( WHICH ) GRID, GRID_ID, MCG, ME, MEFFMASS_CALC, MEFM_RB_MASS, & MODEL_MASS, MODEL_IXX, MODEL_IYY, MODEL_IZZ, MODEL_XCG, MODEL_YCG, MODEL_ZCG, & OFFDIS, OFFSET, PLY_NUM, RCONM2, RGRID, TYPE, USERIN_RBM0 - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(12*BYTE), INTENT(IN) :: WHICH ! Whether to get mass props for INTEGER(LONG) :: JDOF ! Array index used in getting mass terms from the elem mass matrix, ME REAL(DOUBLE) :: M0 ! An intermediate variable used in calc model mass props - + END SUBROUTINE GPWG END INTERFACE diff --git a/Source/Interfaces/GPWG_PMOI_Interface.f90 b/Source/Interfaces/GPWG_PMOI_Interface.f90 index 2ae1faf2..e6f2e2b2 100644 --- a/Source/Interfaces/GPWG_PMOI_Interface.f90 +++ b/Source/Interfaces/GPWG_PMOI_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GPWG_PMOI_Interface @@ -30,7 +30,7 @@ MODULE GPWG_PMOI_Interface SUBROUTINE GPWG_PMOI (MOI1, Q, INFO ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, WARN_ERR @@ -38,9 +38,9 @@ SUBROUTINE GPWG_PMOI (MOI1, Q, INFO ) USE CONSTANTS_1, ONLY : ZERO, ONE USE PARAMS, ONLY : SUPWARN, WTMASS USE LAPACK_STD_EIG_1 - + IMPLICIT NONE - + CHARACTER( 1*BYTE), PARAMETER :: JOBZ = 'V' ! Indicates to solve for eigenvalues and vectors in LAPACK subr DSYEV CHARACTER( 1*BYTE), PARAMETER :: UPLO = 'U' ! Indicates array KBAND is the upper triangular part of KAA @@ -53,7 +53,7 @@ SUBROUTINE GPWG_PMOI (MOI1, Q, INFO ) REAL(DOUBLE) , INTENT(OUT) :: Q(3,3) ! Transformation from basic to principal directions REAL(DOUBLE) , PARAMETER :: ALPHA = ONE ! Scalar multiplier for subr DGEMM REAL(DOUBLE) , PARAMETER :: BETA = ZERO ! Scalar multiplier for subr DGEMM - + END SUBROUTINE GPWG_PMOI END INTERFACE diff --git a/Source/Interfaces/GPWG_USERIN_Interface.f90 b/Source/Interfaces/GPWG_USERIN_Interface.f90 index 970bd152..4e5ef7b6 100644 --- a/Source/Interfaces/GPWG_USERIN_Interface.f90 +++ b/Source/Interfaces/GPWG_USERIN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GPWG_USERIN_Interface @@ -30,7 +30,7 @@ MODULE GPWG_USERIN_Interface SUBROUTINE GPWG_USERIN ( IEID ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, NGRID, SOL_NAME, WARN_ERR @@ -38,16 +38,16 @@ SUBROUTINE GPWG_USERIN ( IEID ) USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : NUM_EMG_FATAL_ERRS, EID, GRID_ID, ME, PLY_NUM, RGRID, USERIN_RBM0 - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GPWG_USERIN' INTEGER(LONG), INTENT(IN) :: IEID ! Internal element ID for the USERIN element to process REAL(DOUBLE) :: M0 ! An intermediate variable used in calc model mass props - + END SUBROUTINE GPWG_USERIN END INTERFACE diff --git a/Source/Interfaces/GP_FORCE_BALANCE_PROC_Interface.f90 b/Source/Interfaces/GP_FORCE_BALANCE_PROC_Interface.f90 index 1865932c..320aa85f 100644 --- a/Source/Interfaces/GP_FORCE_BALANCE_PROC_Interface.f90 +++ b/Source/Interfaces/GP_FORCE_BALANCE_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GP_FORCE_BALANCE_PROC_Interface diff --git a/Source/Interfaces/GRAV_PROC_Interface.f90 b/Source/Interfaces/GRAV_PROC_Interface.f90 index e4c1be2e..e14e3071 100644 --- a/Source/Interfaces/GRAV_PROC_Interface.f90 +++ b/Source/Interfaces/GRAV_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GRAV_PROC_Interface @@ -30,7 +30,7 @@ MODULE GRAV_PROC_Interface SUBROUTINE GRAV_PROC - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : FILE_NAM_MAXLEN, ERR, F06, SCR, L1P, LINK1P, L1P_MSG, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LLOADC, NCORD, NGRAV, NGRID, NLOAD, NSUB, WARN_ERR @@ -39,14 +39,14 @@ SUBROUTINE GRAV_PROC USE CONSTANTS_1, ONLY : ZERO, ONE USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : CORD, GRID, GRID_ID, LOAD_FACS, LOAD_SIDS, RCORD, RGRID, SYS_LOAD, SUBLOD - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + INTEGER(LONG), PARAMETER :: ACID_0 = 0 ! Basic coord system - + END SUBROUTINE GRAV_PROC END INTERFACE diff --git a/Source/Interfaces/GRID_ELEM_CONN_TABLE_Interface.f90 b/Source/Interfaces/GRID_ELEM_CONN_TABLE_Interface.f90 index a0af2a92..17d7b4a6 100644 --- a/Source/Interfaces/GRID_ELEM_CONN_TABLE_Interface.f90 +++ b/Source/Interfaces/GRID_ELEM_CONN_TABLE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GRID_ELEM_CONN_TABLE_Interface @@ -35,8 +35,8 @@ SUBROUTINE GRID_ELEM_CONN_TABLE USE SCONTR, ONLY : BLNK_SUB_NAM, MAX_ELEM_DEGREE, NELE, NGRID USE IOUNT1, ONLY : F06 USE TIMDAT, ONLY : TSEC - USE MODEL_STUF, ONLY : AGRID, ELGP, ETYPE, ESORT1, ESORT2, GRID_ID, GRID_ELEM_CONN_ARRAY - USE PARAMS, ONLY : PRTCONN + USE MODEL_STUF, ONLY : AGRID, ELGP, ETYPE, ESORT1, ESORT2, GRID_ID, GRID_ELEM_CONN_ARRAY + USE PARAMS, ONLY : PRTCONN IMPLICIT NONE diff --git a/Source/Interfaces/GRID_PROC_Interface.f90 b/Source/Interfaces/GRID_PROC_Interface.f90 index 006dfc01..e722011b 100644 --- a/Source/Interfaces/GRID_PROC_Interface.f90 +++ b/Source/Interfaces/GRID_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GRID_PROC_Interface @@ -30,7 +30,7 @@ MODULE GRID_PROC_Interface SUBROUTINE GRID_PROC - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : CONV_DEG_RAD USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1B, OP2, SC1 @@ -38,14 +38,14 @@ SUBROUTINE GRID_PROC USE PARAMS, ONLY : PRTBASIC USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRID, RGRID, GRID_ID, GRID_SEQ, CORD, RCORD, TN - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + INTEGER(LONG) :: JFLD ! Used in error message to indicate a coord sys ID undefined - + END SUBROUTINE GRID_PROC END INTERFACE diff --git a/Source/Interfaces/HEXA_Interface.f90 b/Source/Interfaces/HEXA_Interface.f90 index 3a98c782..00012371 100644 --- a/Source/Interfaces/HEXA_Interface.f90 +++ b/Source/Interfaces/HEXA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE HEXA_Interface @@ -30,7 +30,7 @@ MODULE HEXA_Interface SUBROUTINE HEXA ( OPT, INT_ELEM_ID,IORD, RED_INT_SHEAR, WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_GAUSS, MELDOF, MPLOAD4_3D_DATA, NPLOAD4_3D, NSUB, NTSUB @@ -42,9 +42,9 @@ SUBROUTINE HEXA ( OPT, INT_ELEM_ID,IORD, RED_INT_SHEAR, WRITE_WARN ) USE MODEL_STUF, ONLY : AGRID, ALPVEC, BE1, BE2, DT, EID, ELGP, NUM_EMG_FATAL_ERRS, ES, KE, KED, ME, & NUM_EMG_FATAL_ERRS, PLOAD4_3D_DATA, PPE, PRESS, PTE, RHO, SE1, SE2, STE1, STRESS, TREF, & TYPE, XEL - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER( 1*BYTE), INTENT(IN) :: RED_INT_SHEAR ! If 'Y', use Gaussian weighted avg of B matrices for shear terms CHARACTER( 1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not @@ -55,7 +55,7 @@ SUBROUTINE HEXA ( OPT, INT_ELEM_ID,IORD, RED_INT_SHEAR, WRITE_WARN ) INTEGER(LONG), INTENT(IN) :: IORD ! Gaussian integration order for element INTEGER(LONG) :: GAUSS_PT ! Gauss point number (used for DEBUG output in subr SHP3DH - + REAL(DOUBLE) :: CBAR(3,3*ELGP) ! Derivatives of shape fcns wrt x,y,z used in diff stiff matrix REAL(DOUBLE) :: DUM0(3*ELGP) ! Intermediate matrix used in solving for elem matrices REAL(DOUBLE) :: DUM1(3*ELGP) ! Intermediate matrix used in solving for elem matrices @@ -70,7 +70,7 @@ SUBROUTINE HEXA ( OPT, INT_ELEM_ID,IORD, RED_INT_SHEAR, WRITE_WARN ) REAL(DOUBLE) :: SUMB ! An intermediate variable used in calc B matrix for reduced integ REAL(DOUBLE) :: SUMD ! An intermediate variable used in calc B matrix for reduced integ REAL(DOUBLE) :: TEMP ! Temperature to use in PTE calc - + END SUBROUTINE HEXA END INTERFACE diff --git a/Source/Interfaces/I4FLD_Interface.f90 b/Source/Interfaces/I4FLD_Interface.f90 index 0c49ce24..1ccf5580 100644 --- a/Source/Interfaces/I4FLD_Interface.f90 +++ b/Source/Interfaces/I4FLD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE I4FLD_Interface diff --git a/Source/Interfaces/INDEP_FAILURE_INDEX_Interface.f90 b/Source/Interfaces/INDEP_FAILURE_INDEX_Interface.f90 index cc14bd6c..5d7e7e87 100644 --- a/Source/Interfaces/INDEP_FAILURE_INDEX_Interface.f90 +++ b/Source/Interfaces/INDEP_FAILURE_INDEX_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE INDEP_FAILURE_INDEX_Interface diff --git a/Source/Interfaces/INTERFACE_FORCE_LTM_Interface.f90 b/Source/Interfaces/INTERFACE_FORCE_LTM_Interface.f90 index 02ae6c83..c6064246 100644 --- a/Source/Interfaces/INTERFACE_FORCE_LTM_Interface.f90 +++ b/Source/Interfaces/INTERFACE_FORCE_LTM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE INTERFACE_FORCE_LTM_Interface @@ -30,7 +30,7 @@ MODULE INTERFACE_FORCE_LTM_Interface SUBROUTINE INTERFACE_FORCE_LTM - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFR, NTERM_KRRcb, NTERM_KRRcbn, NTERM_MRRcbn, NTERM_MRN , & @@ -38,17 +38,17 @@ SUBROUTINE INTERFACE_FORCE_LTM USE PARAMS, ONLY : PRTIFLTM, SPARSTOR USE TIMDAT, ONLY : TSEC - USE SPARSE_MATRICES, ONLY : SYM_KRRcb, SYM_KRRcbn, SYM_MRN , SYM_MRRcbn, SYM_IF_LTM + USE SPARSE_MATRICES, ONLY : SYM_KRRcb, SYM_KRRcbn, SYM_MRN , SYM_MRRcbn, SYM_IF_LTM USE SPARSE_MATRICES, ONLY : I_MRRcbn , J_MRRcbn , MRRcbn , I_MRN , J_MRN , MRN , & I_KRRcb , J_KRRcb , KRRcb , I_KRRcbn , J_KRRcbn , KRRcbn , & - I_IF_LTM , J_IF_LTM , IF_LTM + I_IF_LTM , J_IF_LTM , IF_LTM USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1 IMPLICIT NONE - + END SUBROUTINE INTERFACE_FORCE_LTM diff --git a/Source/Interfaces/INVERT_EIGENS_Interface.f90 b/Source/Interfaces/INVERT_EIGENS_Interface.f90 index f7378a44..6fc02fbc 100644 --- a/Source/Interfaces/INVERT_EIGENS_Interface.f90 +++ b/Source/Interfaces/INVERT_EIGENS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE INVERT_EIGENS_Interface @@ -30,7 +30,7 @@ MODULE INVERT_EIGENS_Interface SUBROUTINE INVERT_EIGENS ( MLAM, N, W, Z, EIG_NUM ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, NVEC @@ -39,9 +39,9 @@ SUBROUTINE INVERT_EIGENS ( MLAM, N, W, Z, EIG_NUM ) USE MACHINE_PARAMS, ONLY : MACH_SFMIN, MACH_LARGE_NUM USE MODEL_STUF, ONLY : EIG_SIGMA USE LAPACK_BLAS_AUX - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: MLAM ! Number of eigenvalues. INTEGER(LONG), INTENT(IN) :: N ! Size of eigenvectors. INTEGER(LONG), INTENT(INOUT) :: EIG_NUM(MLAM) ! Eigenvector numbers. diff --git a/Source/Interfaces/INVERT_FF_MAT_Interface.f90 b/Source/Interfaces/INVERT_FF_MAT_Interface.f90 index 908e4b8d..ce0ad750 100644 --- a/Source/Interfaces/INVERT_FF_MAT_Interface.f90 +++ b/Source/Interfaces/INVERT_FF_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE INVERT_FF_MAT_Interface diff --git a/Source/Interfaces/IP6CHK_Interface.f90 b/Source/Interfaces/IP6CHK_Interface.f90 index f3865031..9a8d8712 100644 --- a/Source/Interfaces/IP6CHK_Interface.f90 +++ b/Source/Interfaces/IP6CHK_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE IP6CHK_Interface @@ -30,22 +30,22 @@ MODULE IP6CHK_Interface SUBROUTINE IP6CHK ( JCARDI, JCARDO, IP6TYP, TOTAL_NUM_DIGITS ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN - + IMPLICIT NONE - + CHARACTER(LEN=JCARD_LEN), INTENT(IN):: JCARDI ! Input 8 character field CHARACTER(8*BYTE), INTENT(OUT) :: IP6TYP ! Descriptor of JCARDI, see above CHARACTER(LEN(JCARDI)), INTENT(OUT) :: JCARDO ! Output 8 character field, described above - + INTEGER(LONG), INTENT(OUT) :: TOTAL_NUM_DIGITS ! Total of NUM_DIGITS(I) - + END SUBROUTINE IP6CHK END INTERFACE diff --git a/Source/Interfaces/IS_ELEM_PCOMP_PROPS_Interface.f90 b/Source/Interfaces/IS_ELEM_PCOMP_PROPS_Interface.f90 index 74ce13a1..6e51b630 100644 --- a/Source/Interfaces/IS_ELEM_PCOMP_PROPS_Interface.f90 +++ b/Source/Interfaces/IS_ELEM_PCOMP_PROPS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE IS_ELEM_PCOMP_PROPS_Interface @@ -30,9 +30,9 @@ MODULE IS_ELEM_PCOMP_PROPS_Interface SUBROUTINE IS_ELEM_PCOMP_PROPS ( INT_ELEM_ID ) - + USE PENTIUM_II_KIND, ONLY : LONG - USE SCONTR, ONLY : DEDAT_T3_SHELL_KEY, DEDAT_Q4_SHELL_KEY + USE SCONTR, ONLY : DEDAT_T3_SHELL_KEY, DEDAT_Q4_SHELL_KEY USE MODEL_STUF, ONLY : EDAT, EPNT, ETYPE, PCOMP_PROPS, TYPE IMPLICIT NONE diff --git a/Source/Interfaces/IS_THIS_A_RESTART_Interface.f90 b/Source/Interfaces/IS_THIS_A_RESTART_Interface.f90 index b6841482..9c4b61d4 100644 --- a/Source/Interfaces/IS_THIS_A_RESTART_Interface.f90 +++ b/Source/Interfaces/IS_THIS_A_RESTART_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE IS_THIS_A_RESTART_Interface @@ -30,16 +30,16 @@ MODULE IS_THIS_A_RESTART_Interface SUBROUTINE IS_THIS_A_RESTART - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : IN1, SC1 USE SCONTR, ONLY : EC_ENTRY_LEN, FATAL_ERR, RESTART USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE CHARACTER( 4*BYTE), PARAMETER :: END_CARD = 'CEND' - + END SUBROUTINE IS_THIS_A_RESTART END INTERFACE diff --git a/Source/Interfaces/JAC2D_Interface.f90 b/Source/Interfaces/JAC2D_Interface.f90 index 950d5836..6057bd12 100644 --- a/Source/Interfaces/JAC2D_Interface.f90 +++ b/Source/Interfaces/JAC2D_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE JAC2D_Interface @@ -30,7 +30,7 @@ MODULE JAC2D_Interface SUBROUTINE JAC2D ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, ERR, F06, WRT_BUG, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_SHPJ_BIT, MEFE @@ -38,13 +38,13 @@ SUBROUTINE JAC2D ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) USE CONSTANTS_1, ONLY : ZERO, ONE, FOUR USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : EID, EMG_IFE, EMG_RFE, ERR_SUB_NAM, NUM_EMG_FATAL_ERRS, TYPE - + IMPLICIT NONE - + CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to - + REAL(DOUBLE) , INTENT(IN) :: SSI ! A Gauss point coord. REAL(DOUBLE) , INTENT(IN) :: SSJ ! A Gauss point coord. REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! 1-D arrays of differences in x side dimensions (local) @@ -52,7 +52,7 @@ SUBROUTINE JAC2D ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) REAL(DOUBLE) , INTENT(OUT) :: DETJ ! Determinant of JAC REAL(DOUBLE) , INTENT(OUT) :: JAC(2,2) ! 2 x 2 Jacobian matrix REAL(DOUBLE) , INTENT(OUT) :: JACI(2,2) ! 2 x 2 inverse of JAC - + END SUBROUTINE JAC2D END INTERFACE diff --git a/Source/Interfaces/JAC3D_Interface.f90 b/Source/Interfaces/JAC3D_Interface.f90 index 06b60583..c02698bc 100644 --- a/Source/Interfaces/JAC3D_Interface.f90 +++ b/Source/Interfaces/JAC3D_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE JAC3D_Interface @@ -30,7 +30,7 @@ MODULE JAC3D_Interface SUBROUTINE JAC3D ( SSI, SSJ, SSK, DPSHG, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR, BUG, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR @@ -39,13 +39,13 @@ SUBROUTINE JAC3D ( SSI, SSJ, SSK, DPSHG, WRT_BUG_THIS_TIME, JAC, JACI, DETJ ) USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : EID, ELGP, NUM_EMG_FATAL_ERRS, TYPE, XEL USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to - + REAL(DOUBLE) , INTENT(IN) :: SSI ! A Gauss point coord. REAL(DOUBLE) , INTENT(IN) :: SSJ ! A Gauss point coord. REAL(DOUBLE) , INTENT(IN) :: SSK ! A Gauss point coord. diff --git a/Source/Interfaces/KGG_SINGULARITY_PROC_Interface.f90 b/Source/Interfaces/KGG_SINGULARITY_PROC_Interface.f90 index ae2379ca..3eaa92b7 100644 --- a/Source/Interfaces/KGG_SINGULARITY_PROC_Interface.f90 +++ b/Source/Interfaces/KGG_SINGULARITY_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE KGG_SINGULARITY_PROC_Interface @@ -30,7 +30,7 @@ MODULE KGG_SINGULARITY_PROC_Interface SUBROUTINE KGG_SINGULARITY_PROC ( AGRID, KGRD, NUM_ASPC_BY_COMP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, SPC USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFSA, NGRID, NUM_PCHD_SPC1 diff --git a/Source/Interfaces/KUSER1_Interface.f90 b/Source/Interfaces/KUSER1_Interface.f90 index 1d8669a8..c22d1c14 100644 --- a/Source/Interfaces/KUSER1_Interface.f90 +++ b/Source/Interfaces/KUSER1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE KUSER1_Interface @@ -30,21 +30,21 @@ MODULE KUSER1_Interface SUBROUTINE KUSER1 ( OPT, WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : TYPE - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'KUSER1' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not - + END SUBROUTINE KUSER1 END INTERFACE diff --git a/Source/Interfaces/LEFT_ADJ_BDFLD_Interface.f90 b/Source/Interfaces/LEFT_ADJ_BDFLD_Interface.f90 index e6bc772c..da07e7c8 100644 --- a/Source/Interfaces/LEFT_ADJ_BDFLD_Interface.f90 +++ b/Source/Interfaces/LEFT_ADJ_BDFLD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LEFT_ADJ_BDFLD_Interface @@ -30,18 +30,18 @@ MODULE LEFT_ADJ_BDFLD_Interface SUBROUTINE LEFT_ADJ_BDFLD ( CHR_FLD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=JCARD_LEN), INTENT(INOUT):: CHR_FLD ! Char field to left adjust and return - - + + END SUBROUTINE LEFT_ADJ_BDFLD END INTERFACE diff --git a/Source/Interfaces/LINK0_Interface.f90 b/Source/Interfaces/LINK0_Interface.f90 index e12e0cdc..4e0306b4 100644 --- a/Source/Interfaces/LINK0_Interface.f90 +++ b/Source/Interfaces/LINK0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK0_Interface @@ -30,7 +30,7 @@ MODULE LINK0_Interface SUBROUTINE LINK0 - + USE PENTIUM_II_KIND, ONLY : BYTE, SHORT, LONG, SINGLE, DOUBLE, QUAD USE IOUNT1, ONLY : MOU4, SC1, WRT_BUG @@ -51,7 +51,7 @@ SUBROUTINE LINK0 IBIT, KMAT_BW, KMAT_DEN, LGRID, LINKNO, MBUG, MELDTS, NAOCARD, NCUSERIN, & NDOFG, NDOFR, NDOFSE, NELE, NFORCE, NGRAV, NGRID, NMPC, NPCARD, & NPUSERIN, NRFORCE, NRIGEL, NSLOAD, NSPC, NSPC1, NTCARD, NTERM_KGG, NUM_PARTVEC_RECORDS, & - NUM_SUPT_CARDS, NUM_USET_RECORDS, PROG_NAME, RESTART, SOL_NAME, WARN_ERR + NUM_SUPT_CARDS, NUM_USET_RECORDS, PROG_NAME, RESTART, SOL_NAME, WARN_ERR USE SCONTR, ONLY : ELDT_BUG_DAT1_BIT, ELDT_BUG_DAT2_BIT, ELDT_BUG_ME_BIT , ELDT_BUG_P_T_BIT , & ELDT_BUG_SE_BIT , ELDT_BUG_KE_BIT , ELDT_BUG_SHPJ_BIT, ELDT_BUG_BMAT_BIT, & @@ -68,10 +68,10 @@ SUBROUTINE LINK0 USE MODEL_STUF, ONLY : ANY_GPFO_OUTPUT, EIG_METH, ELDT, ETYPE, MEFFMASS_CALC, NUM_EMG_FATAL_ERRS, PLY_NUM, OELDT USE DEBUG_PARAMETERS, ONLY : DEBUG USE BANDIT_MODULE - USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET, TR6_CG, TR6_MEFM, TR6_0 + USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET, TR6_CG, TR6_MEFM, TR6_0 USE SPARSE_MATRICES, ONLY : SYM_KGG, I_KGG, J_KGG, KGG USE OUTPUT4_MATRICES, ONLY : NUM_OU4_REQUESTS, OU4_FILE_UNITS - + IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT diff --git a/Source/Interfaces/LINK1_Interface.f90 b/Source/Interfaces/LINK1_Interface.f90 index f7e277a3..d6354fd0 100644 --- a/Source/Interfaces/LINK1_Interface.f90 +++ b/Source/Interfaces/LINK1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK1_Interface @@ -30,11 +30,11 @@ MODULE LINK1_Interface SUBROUTINE LINK1 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06, F21, F22, F23, F24, L1C, L1F, L1I, L1G, L1J, L1P, L1S, L1U, L1W, SC1 - + USE IOUNT1, ONLY : F21FIL, F22FIL, F23FIL, F24FIL, LINK1C, LINK1F, LINK1I, LINK1G, LINK1J, LINK1P, LINK1S, & LINK1U, LINK1W @@ -54,12 +54,12 @@ SUBROUTINE LINK1 USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP USE MODEL_STUF, ONLY : OELDT USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER( 1*BYTE) :: RESPONSE ! User response ('Y' or 'N') to a screen prompt - + INTEGER(LONG), PARAMETER :: P_LINKNO = 0 ! Prior LINK no's that should have run before this LINK can execute END SUBROUTINE LINK1 diff --git a/Source/Interfaces/LINK1_RESTART_DATA_Interface.f90 b/Source/Interfaces/LINK1_RESTART_DATA_Interface.f90 index eb722f25..55725cbc 100644 --- a/Source/Interfaces/LINK1_RESTART_DATA_Interface.f90 +++ b/Source/Interfaces/LINK1_RESTART_DATA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK1_RESTART_DATA_Interface diff --git a/Source/Interfaces/LINK2_Interface.f90 b/Source/Interfaces/LINK2_Interface.f90 index 127c776a..87937ca9 100644 --- a/Source/Interfaces/LINK2_Interface.f90 +++ b/Source/Interfaces/LINK2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK2_Interface @@ -30,12 +30,12 @@ MODULE LINK2_Interface SUBROUTINE LINK2 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, ERR, F06, L1A, ERRSTAT, SC1 USE IOUNT1, ONLY : L2G, L2H , L2I , L2O , L2P , L2Q - USE IOUNT1, ONLY : LINK2G, LINK2H , LINK2I , LINK2O , LINK2P , LINK2Q + USE IOUNT1, ONLY : LINK2G, LINK2H , LINK2I , LINK2O , LINK2P , LINK2Q USE IOUNT1, ONLY : L2G_MSG, L2H_MSG, L2I_MSG, L2O_MSG, L2P_MSG, L2Q_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, COMM, FATAL_ERR, LINKNO, MBUG, & @@ -66,12 +66,12 @@ SUBROUTINE LINK2 USE SPARSE_MATRICES, ONLY : SYM_KGG USE OUTPUT4_MATRICES, ONLY : NUM_OU4_REQUESTS IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT INTEGER(LONG) :: NROWS ! Value of DOF size to pass to subr WRITE_USERIN_BD_CARDS INTEGER(LONG), PARAMETER :: P_LINKNO = 1 ! Prior LINK no's that should have run before this LINK can execute - + END SUBROUTINE LINK2 END INTERFACE diff --git a/Source/Interfaces/LINK3_Interface.f90 b/Source/Interfaces/LINK3_Interface.f90 index 22e8b6fd..8e89dd4c 100644 --- a/Source/Interfaces/LINK3_Interface.f90 +++ b/Source/Interfaces/LINK3_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK3_Interface @@ -30,12 +30,12 @@ MODULE LINK3_Interface SUBROUTINE LINK3 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, ERR, F06, L3A, SC1, LINK3A, L3A_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, COMM, FATAL_ERR, KLL_SDIA, LINKNO, MBUG, NDOFL, NSUB, & NTERM_KLL, NTERM_PL, RESTART, SOL_NAME, WARN_ERR - USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC + USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC USE CONSTANTS_1, ONLY : ZERO, ONE, TWO, TEN USE PARAMS, ONLY : CRS_CCS, EPSERR, EPSIL, KLLRAT, RELINK3, RCONDK, SOLLIB, SUPWARN, SPARSE_FLAVOR USE SPARSE_MATRICES, ONLY : I_KLL, J_KLL, KLL, I_PL, J_PL, PL @@ -49,15 +49,15 @@ SUBROUTINE LINK3 USE SuperLU_STUF, ONLY : SLU_FACTORS, SLU_INFO IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + INTEGER(LONG), PARAMETER :: P_LINKNO = 2 ! Prior LINK no's that should have run before this LINK can execute REAL(DOUBLE) :: BETA ! Multiple for rhs for use in subr FBS REAL(DOUBLE) :: DUM_COL(NDOFL) ! Temp variable used in SuperLU - + END SUBROUTINE LINK3 END INTERFACE diff --git a/Source/Interfaces/LINK5_Interface.f90 b/Source/Interfaces/LINK5_Interface.f90 index a578ec5b..c4ac2796 100644 --- a/Source/Interfaces/LINK5_Interface.f90 +++ b/Source/Interfaces/LINK5_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK5_Interface @@ -30,7 +30,7 @@ MODULE LINK5_Interface SUBROUTINE LINK5 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR, ERR, F06, L1H, L2A, L2E, L2F, L3A, L5A, L5B, SC1 USE IOUNT1, ONLY : LINK1H, LINK2A, LINK2E, LINK2F, LINK3A, LINK5A, LINK5B @@ -48,17 +48,17 @@ SUBROUTINE LINK5 USE SPARSE_MATRICES, ONLY : I_GMN, J_GMN, GMN, I_GOA, J_GOA, GOA USE OUTPUT4_MATRICES, ONLY : NUM_OU4_REQUESTS USE MISC_MATRICES, ONLY : UG_T123_MAT - USE COL_VECS, ONLY : UG_COL, YSe, UO0_COL, UL_COL + USE COL_VECS, ONLY : UG_COL, YSe, UO0_COL, UL_COL USE DEBUG_PARAMETERS, ONLY : DEBUG USE DOF_TABLES, ONLY : TDOF, TDOFI USE MODEL_STUF, ONLY : GRID, GRID_ID, INV_GRID_SEQ, EIG_COMP, EIG_GRID, EIG_NORM, MAXMIJ, MIJ_COL, MIJ_ROW IMPLICIT NONE - + LOGICAL :: VEC_SIGN_CHG(NDOFL) ! Indicators of whether user wants to change sign of an eigenvector CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + END SUBROUTINE LINK5 END INTERFACE diff --git a/Source/Interfaces/LINK6_Interface.f90 b/Source/Interfaces/LINK6_Interface.f90 index 23134dc2..4ba290e1 100644 --- a/Source/Interfaces/LINK6_Interface.f90 +++ b/Source/Interfaces/LINK6_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK6_Interface @@ -30,7 +30,7 @@ MODULE LINK6_Interface SUBROUTINE LINK6 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR, ERR, F06, ERRSTAT, MOU4, SC1, & @@ -44,7 +44,7 @@ SUBROUTINE LINK6 USE SCONTR, ONLY : NTERM_CG_LTM, NTERM_DLR , NTERM_PHIZL , NTERM_IF_LTM, & NTERM_IRR , NTERM_KLL , NTERM_KRL , NTERM_KRR , NTERM_KRRcb , & NTERM_KXX , NTERM_MLL , NTERM_MRL , NTERM_MRN , NTERM_MRR , NTERM_MRRcb , & - NTERM_MXX , NTERM_PHIXA + NTERM_MXX , NTERM_PHIXA USE CONSTANTS_1, ONLY : ONE USE DEBUG_PARAMETERS, ONLY : DEBUG @@ -63,11 +63,11 @@ SUBROUTINE LINK6 I_PHIXA , J_PHIXA , PHIXA IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT INTEGER(LONG), PARAMETER :: P_LINKNO = 4 ! Prior LINK no's that should have run before this LINK can execute - + END SUBROUTINE LINK6 END INTERFACE diff --git a/Source/Interfaces/LINK9S_Interface.f90 b/Source/Interfaces/LINK9S_Interface.f90 index ec458c30..19f3eef5 100644 --- a/Source/Interfaces/LINK9S_Interface.f90 +++ b/Source/Interfaces/LINK9S_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK9S_Interface diff --git a/Source/Interfaces/LINK9_Interface.f90 b/Source/Interfaces/LINK9_Interface.f90 index 65067da0..188a3b26 100644 --- a/Source/Interfaces/LINK9_Interface.f90 +++ b/Source/Interfaces/LINK9_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK9_Interface @@ -30,7 +30,7 @@ MODULE LINK9_Interface SUBROUTINE LINK9 ( LK9_PROC_NUM ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR @@ -93,15 +93,15 @@ SUBROUTINE LINK9 ( LK9_PROC_NUM ) USE DEBUG_PARAMETERS, ONLY : DEBUG IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(14*BYTE) :: CTIME ! A char variable to which STIME will be written (for use in NEU file) - INTEGER(LONG), INTENT(IN) :: LK9_PROC_NUM ! 2 if this is the LINK9 call for the linear buckling step of + INTEGER(LONG), INTENT(IN) :: LK9_PROC_NUM ! 2 if this is the LINK9 call for the linear buckling step of INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices - + END SUBROUTINE LINK9 END INTERFACE diff --git a/Source/Interfaces/LINK_MESSAGE_Interface.f90 b/Source/Interfaces/LINK_MESSAGE_Interface.f90 index e940da70..3c0e9e4d 100644 --- a/Source/Interfaces/LINK_MESSAGE_Interface.f90 +++ b/Source/Interfaces/LINK_MESSAGE_Interface.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + MODULE LINK_MESSAGE_Interface INTERFACE - + SUBROUTINE LINK_MESSAGE(MODNAM) - + IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: MODNAM ! Name to write to screen to describe module being run @@ -41,7 +41,7 @@ END SUBROUTINE LINK_MESSAGE SUBROUTINE LINK_MESSAGE_I(MODNAM, I) USE PENTIUM_II_KIND, ONLY : LONG - + IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: MODNAM ! Name to write to screen to describe module being run diff --git a/Source/Interfaces/LOADB0_Interface.f90 b/Source/Interfaces/LOADB0_Interface.f90 index 2d5746a6..f814a513 100644 --- a/Source/Interfaces/LOADB0_Interface.f90 +++ b/Source/Interfaces/LOADB0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADB0_Interface @@ -30,9 +30,9 @@ MODULE LOADB0_Interface SUBROUTINE LOADB0 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - USE IOUNT1, ONLY : WRT_ERR, ERR, F06, IN1 + USE IOUNT1, ONLY : WRT_ERR, ERR, F06, IN1 USE SCONTR, ONLY : BD_ENTRY_LEN, BLNK_SUB_NAM, FATAL_ERR, LCMASS, LDOFG, LELE, & LEDAT, LFORCE, LCONM2, LCORD, LGRAV, LGRID, LGUSERIN, LLOADC, LLOADR, & LMATL, LMPC, LMPCADDC, LMPCADDR, LPBAR, LPBEAM, LPBUSH, LPCOMP, LPCOMP_PLIES, LPDAT, & @@ -46,15 +46,15 @@ SUBROUTINE LOADB0 USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRDSET3, GRDSET7, GRDSET8 USE PARAMS, ONLY : GRIDSEQ - + IMPLICIT NONE - + CHARACTER( 7*BYTE), PARAMETER :: END_CARD = 'ENDDATA' INTEGER(LONG) :: NG_USERIN ! Number of grids found on USERIN elems (not incl SPOINT's) INTEGER(LONG) :: NS_USERIN ! Number of SPOINT's found on USERIN elems - + END SUBROUTINE LOADB0 END INTERFACE diff --git a/Source/Interfaces/LOADB_Interface.f90 b/Source/Interfaces/LOADB_Interface.f90 index 44f9eae6..a062ed77 100644 --- a/Source/Interfaces/LOADB_Interface.f90 +++ b/Source/Interfaces/LOADB_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADB_Interface @@ -30,7 +30,7 @@ MODULE LOADB_Interface SUBROUTINE LOADB - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, IN1 USE SCONTR, ONLY : BD_ENTRY_LEN, BLNK_SUB_NAM, ECHO, FATAL_ERR, IMB_BLANK, JF, LIND_GRDS_MPCS, & @@ -48,18 +48,18 @@ SUBROUTINE LOADB USE MODEL_STUF, ONLY : FORMOM_SIDS, GRAV_SIDS, IOR3D_MAX, LOAD_SIDS, & MPCSET, MPC_SIDS, MPCSIDS, MPCADD_SIDS, PBAR, RPCOMP, PRESS_SIDS, RFORCE_SIDS, & RPBAR, SLOAD_SIDS, SPC_SIDS, SPC1_SIDS, SPCADD_SIDS, SPCSET, CC_EIGR_SID, SCNUM, SUBLOD - + IMPLICIT NONE - + CHARACTER( 3*BYTE) :: CONSTR_TYPE = ' '! Used for output error message (='SPC' or 'MPC') CHARACTER( 1*BYTE) :: FOUND = 'N' ! Used to indicate if we found something we are looking for CHARACTER( 7*BYTE), PARAMETER :: END_CARD = 'ENDDATA' - + INTEGER(LONG) :: NG ! Actual num grids on CUSERIN (not incl SPOINT's) INTEGER(LONG) :: NS ! Actual num SPOINT'ss on CUSERIN - + END SUBROUTINE LOADB END INTERFACE diff --git a/Source/Interfaces/LOADB_RESTART_Interface.f90 b/Source/Interfaces/LOADB_RESTART_Interface.f90 index 1965b027..f0dd5021 100644 --- a/Source/Interfaces/LOADB_RESTART_Interface.f90 +++ b/Source/Interfaces/LOADB_RESTART_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADB_RESTART_Interface @@ -30,23 +30,23 @@ MODULE LOADB_RESTART_Interface SUBROUTINE LOADB_RESTART - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, IN1 USE SCONTR, ONLY : BD_ENTRY_LEN, BLNK_SUB_NAM, ECHO, FATAL_ERR, JCARD_LEN, JF, PROG_NAME, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + INTEGER(LONG), PARAMETER :: NUM_PARMS = 25 ! Number of PARAM entries allowed in RESTART INTEGER(LONG), PARAMETER :: NUM_DEB = 28 ! Number of DEBUG entries allowed in RESTART CHARACTER( 7*BYTE), PARAMETER :: END_CARD = 'ENDDATA' - - + + END SUBROUTINE LOADB_RESTART END INTERFACE diff --git a/Source/Interfaces/LOADC0_Interface.f90 b/Source/Interfaces/LOADC0_Interface.f90 index 348f5bdb..f7e024a1 100644 --- a/Source/Interfaces/LOADC0_Interface.f90 +++ b/Source/Interfaces/LOADC0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADC0_Interface @@ -30,16 +30,16 @@ MODULE LOADC0_Interface SUBROUTINE LOADC0 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN1 USE SCONTR, ONLY : BLNK_SUB_NAM, CC_ENTRY_LEN, FATAL_ERR, LSETS, LSUB USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - - + + END SUBROUTINE LOADC0 END INTERFACE diff --git a/Source/Interfaces/LOADC_Interface.f90 b/Source/Interfaces/LOADC_Interface.f90 index 586e8335..41da7fc4 100644 --- a/Source/Interfaces/LOADC_Interface.f90 +++ b/Source/Interfaces/LOADC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADC_Interface @@ -30,7 +30,7 @@ MODULE LOADC_Interface SUBROUTINE LOADC - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUGOUT, ERR, F06, IN1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, CC_ENTRY_LEN, ENFORCED, FATAL_ERR, WARN_ERR, NSUB, NTSUB, PROG_NAME, & @@ -39,13 +39,13 @@ SUBROUTINE LOADC USE PARAMS, ONLY : SUPINFO, SUPWARN USE MODEL_STUF, ONLY : CC_EIGR_SID, MEFFMASS_CALC, MPCSET, MPCSETS, MPFACTOR_CALC, SCNUM, SPCSET, SPCSETS, SUBLOD USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_LOC, STRE_LOC - + IMPLICIT NONE - + CHARACTER(10*BYTE), PARAMETER :: END_CARD = 'BEGIN BULK' - + END SUBROUTINE LOADC END INTERFACE diff --git a/Source/Interfaces/LOADE0_Interface.f90 b/Source/Interfaces/LOADE0_Interface.f90 index 1f0f6a26..83bc689a 100644 --- a/Source/Interfaces/LOADE0_Interface.f90 +++ b/Source/Interfaces/LOADE0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADE0_Interface @@ -30,19 +30,19 @@ MODULE LOADE0_Interface SUBROUTINE LOADE0 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, FILE_NAM_MAXLEN, IN0, IN1, INC, LEN_INPUT_FNAME, INFILE, & LEN_RESTART_FNAME, LNUM_IN4_FILES, RESTART_FILNAM, SCR USE SCONTR, ONLY : BLNK_SUB_NAM, EC_ENTRY_LEN, FATAL_ERR, RESTART USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE CHARACTER( 4*BYTE), PARAMETER :: END_CARD = 'CEND' - - + + END SUBROUTINE LOADE0 END INTERFACE diff --git a/Source/Interfaces/LOADE_Interface.f90 b/Source/Interfaces/LOADE_Interface.f90 index ee891eef..5cb0a9bc 100644 --- a/Source/Interfaces/LOADE_Interface.f90 +++ b/Source/Interfaces/LOADE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADE_Interface @@ -30,7 +30,7 @@ MODULE LOADE_Interface SUBROUTINE LOADE - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, IN1 USE SCONTR, ONLY : BLNK_SUB_NAM, EC_ENTRY_LEN, CHKPNT, FATAL_ERR, WARN_ERR, JCARD_LEN, JF, & @@ -42,14 +42,14 @@ SUBROUTINE LOADE USE OUTPUT4_MATRICES, ONLY : ACT_OU4_MYSTRAN_NAMES, ACT_OU4_OUTPUT_NAMES, ALLOW_OU4_MYSTRAN_NAMES, & ALLOW_OU4_OUTPUT_NAMES, OU4_PART_MAT_NAMES, OU4_PART_VEC_NAMES, NUM_OU4_VALID_NAMES - + IMPLICIT NONE - + CHARACTER(LEN=JCARD_LEN) :: CHARFLD ! Character field used when suvr I4FLD is called CHARACTER( 4*BYTE), PARAMETER :: END_CARD = 'CEND' - + END SUBROUTINE LOADE END INTERFACE diff --git a/Source/Interfaces/MATADD_FFF_Interface.f90 b/Source/Interfaces/MATADD_FFF_Interface.f90 index 4d1d456e..54542d1a 100644 --- a/Source/Interfaces/MATADD_FFF_Interface.f90 +++ b/Source/Interfaces/MATADD_FFF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATADD_FFF_Interface @@ -30,7 +30,7 @@ MODULE MATADD_FFF_Interface SUBROUTINE MATADD_FFF ( A, B, NROW, NCOL, ALPHA, BETA, ITRNSPB, C) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR @@ -38,21 +38,21 @@ SUBROUTINE MATADD_FFF ( A, B, NROW, NCOL, ALPHA, BETA, ITRNSPB, C) USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG USE PARAMS, ONLY : EPSIL - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: NROW ! Number of rows in matrces A, B, C INTEGER(LONG), INTENT(IN) :: NCOL ! Number of cols in matrces A, B, C INTEGER(LONG), INTENT(IN) :: ITRNSPB ! Transpose indicator for matrix B - + REAL(DOUBLE) , INTENT(IN) :: A(NROW,NCOL) ! Input matrix A REAL(DOUBLE) , INTENT(IN) :: B(NROW,NCOL) ! Input matrix B REAL(DOUBLE) , INTENT(IN) :: ALPHA ! Scalar multiplier for matrix A REAL(DOUBLE) , INTENT(IN) :: BETA ! Scalar multiplier for matrix B REAL(DOUBLE) , INTENT(OUT) :: C(NROW,NCOL) ! Output matrix C - + END SUBROUTINE MATADD_FFF END INTERFACE diff --git a/Source/Interfaces/MATADD_SSS_Interface.f90 b/Source/Interfaces/MATADD_SSS_Interface.f90 index 81abd46f..88b7f8ef 100644 --- a/Source/Interfaces/MATADD_SSS_Interface.f90 +++ b/Source/Interfaces/MATADD_SSS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATADD_SSS_Interface @@ -31,14 +31,14 @@ MODULE MATADD_SSS_Interface SUBROUTINE MATADD_SSS ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, A, ALPHA, & MAT_B_NAME, NTERM_B, I_B, J_B, B, BETA, & MAT_C_NAME, NTERM_C, I_C, J_C, C ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B CHARACTER(LEN=*), INTENT(IN) :: MAT_C_NAME ! Name of matrix C @@ -54,7 +54,7 @@ SUBROUTINE MATADD_SSS ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, A, ALPHA, & INTEGER(LONG), INTENT(OUT) :: I_C(NROWS+1) ! I_C(I+1) - I_C(I) = no. terms in row I of matrix C INTEGER(LONG), INTENT(OUT) :: J_C(NTERM_C) ! Col no's for nonzero terms in matrix C - + REAL(DOUBLE) , INTENT(IN ) :: A(NTERM_A) ! Nonzero terms in matrix A REAL(DOUBLE) , INTENT(IN ) :: B(NTERM_B) ! Nonzero terms in matrix B REAL(DOUBLE) , INTENT(IN ) :: ALPHA ! Scalar multiplier for matrix A diff --git a/Source/Interfaces/MATADD_SSS_NTERM_Interface.f90 b/Source/Interfaces/MATADD_SSS_NTERM_Interface.f90 index 7658dd9f..c7327190 100644 --- a/Source/Interfaces/MATADD_SSS_NTERM_Interface.f90 +++ b/Source/Interfaces/MATADD_SSS_NTERM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATADD_SSS_NTERM_Interface @@ -31,14 +31,14 @@ MODULE MATADD_SSS_NTERM_Interface SUBROUTINE MATADD_SSS_NTERM ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, SYM_A, & MAT_B_NAME, NTERM_B, I_B, J_B, SYM_B, & MAT_C_NAME, NTERM_C ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B CHARACTER(LEN=*), INTENT(IN) :: MAT_C_NAME ! Name of matrix C @@ -54,7 +54,7 @@ SUBROUTINE MATADD_SSS_NTERM ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, SYM_A, INTEGER(LONG), INTENT(IN ) :: J_B(NTERM_B) ! Col no's for nonzero terms in matrix B INTEGER(LONG), INTENT(OUT) :: NTERM_C ! Number of nonzero terms in output matrix C - + END SUBROUTINE MATADD_SSS_NTERM END INTERFACE diff --git a/Source/Interfaces/MATERIAL_PROPS_2D_Interface.f90 b/Source/Interfaces/MATERIAL_PROPS_2D_Interface.f90 index 1dfb9386..9f3a30f6 100644 --- a/Source/Interfaces/MATERIAL_PROPS_2D_Interface.f90 +++ b/Source/Interfaces/MATERIAL_PROPS_2D_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATERIAL_PROPS_2D_Interface @@ -30,23 +30,23 @@ MODULE MATERIAL_PROPS_2D_Interface SUBROUTINE MATERIAL_PROPS_2D ( WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, WRT_ERR - USE SCONTR, ONLY : BLNK_SUB_NAM, MEFE, MEMATC + USE SCONTR, ONLY : BLNK_SUB_NAM, MEFE, MEMATC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE USE PARAMS, ONLY : EPSIL, QUAD4TYP USE MODEL_STUF, ONLY : ALPVEC, EID, EMG_IFE, EMG_RFE, ERR_SUB_NAM, EB, EBM, EM, ET, NUM_EMG_FATAL_ERRS, EMAT, & MTRL_TYPE, QUAD_DELTA, RHO, ULT_STRE, ULT_STRN, THETAM, TREF, TYPE use debug_parameters - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not - + END SUBROUTINE MATERIAL_PROPS_2D END INTERFACE diff --git a/Source/Interfaces/MATERIAL_PROPS_3D_Interface.f90 b/Source/Interfaces/MATERIAL_PROPS_3D_Interface.f90 index 96dd12ac..be355908 100644 --- a/Source/Interfaces/MATERIAL_PROPS_3D_Interface.f90 +++ b/Source/Interfaces/MATERIAL_PROPS_3D_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATERIAL_PROPS_3D_Interface @@ -30,7 +30,7 @@ MODULE MATERIAL_PROPS_3D_Interface SUBROUTINE MATERIAL_PROPS_3D ( WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR @@ -38,13 +38,13 @@ SUBROUTINE MATERIAL_PROPS_3D ( WRITE_WARN ) USE CONSTANTS_1, ONLY : ZERO, ONE, TWO USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : ALPVEC, EID, ES, EMAT, NUM_EMG_FATAL_ERRS, MTRL_TYPE, RHO, ULT_STRE, ULT_STRN, TREF, TYPE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not - + END SUBROUTINE MATERIAL_PROPS_3D END INTERFACE diff --git a/Source/Interfaces/MATGET_Interface.f90 b/Source/Interfaces/MATGET_Interface.f90 index 1e8c41a9..97f5b642 100644 --- a/Source/Interfaces/MATGET_Interface.f90 +++ b/Source/Interfaces/MATGET_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATGET_Interface @@ -30,14 +30,14 @@ MODULE MATGET_Interface SUBROUTINE MATGET ( A, NROWA, NCOLA, BEG_ROW, BEG_COL, NROW, NCOL, B ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: BEG_COL ! Beginning row of input matrix to get partition from INTEGER(LONG), INTENT(IN) :: BEG_ROW ! Beginning col of input matrix to get partition from INTEGER(LONG), INTENT(IN) :: NCOLA ! Number of cols in input matrix @@ -45,10 +45,10 @@ SUBROUTINE MATGET ( A, NROWA, NCOLA, BEG_ROW, BEG_COL, NROW, NCOL, B ) INTEGER(LONG), INTENT(IN) :: NCOL ! No. of cols to get from input matrix INTEGER(LONG), INTENT(IN) :: NROW ! No. of rows to get from input matrix - + REAL(DOUBLE) , INTENT(IN) :: A(NROWA*NCOLA) ! Input matrix from which a partition will be extracted REAL(DOUBLE) , INTENT(OUT) :: B(NROW*NCOL) ! Output matrix, which is the partition extracted from A - + END SUBROUTINE MATGET END INTERFACE diff --git a/Source/Interfaces/MATL_TRANSFORM_MATRIX_Interface.f90 b/Source/Interfaces/MATL_TRANSFORM_MATRIX_Interface.f90 index 6efe82dc..33420704 100644 --- a/Source/Interfaces/MATL_TRANSFORM_MATRIX_Interface.f90 +++ b/Source/Interfaces/MATL_TRANSFORM_MATRIX_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATL_TRANSFORM_MATRIX_Interface diff --git a/Source/Interfaces/MATMULT_FFF_Interface.f90 b/Source/Interfaces/MATMULT_FFF_Interface.f90 index 548f9909..06778b65 100644 --- a/Source/Interfaces/MATMULT_FFF_Interface.f90 +++ b/Source/Interfaces/MATMULT_FFF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_FFF_Interface @@ -30,23 +30,23 @@ MODULE MATMULT_FFF_Interface SUBROUTINE MATMULT_FFF ( A, B, NROWA, NCOLA, NCOLB, C ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: NROWA ! No. rows in input matrix A - INTEGER(LONG), INTENT(IN) :: NCOLA ! No. cols in input matrix A - INTEGER(LONG), INTENT(IN) :: NCOLB ! No. cols in input matrix B + INTEGER(LONG), INTENT(IN) :: NCOLA ! No. cols in input matrix A + INTEGER(LONG), INTENT(IN) :: NCOLB ! No. cols in input matrix B + - REAL(DOUBLE) , INTENT(IN) :: A(NROWA,NCOLA) ! Input matrix A REAL(DOUBLE) , INTENT(IN) :: B(NCOLA,NCOLB) ! Input matrix B REAL(DOUBLE) , INTENT(OUT) :: C(NROWA,NCOLB) ! Output matrix C - + END SUBROUTINE MATMULT_FFF END INTERFACE diff --git a/Source/Interfaces/MATMULT_FFF_T_Interface.f90 b/Source/Interfaces/MATMULT_FFF_T_Interface.f90 index b6c46359..c50943ef 100644 --- a/Source/Interfaces/MATMULT_FFF_T_Interface.f90 +++ b/Source/Interfaces/MATMULT_FFF_T_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_FFF_T_Interface @@ -30,23 +30,23 @@ MODULE MATMULT_FFF_T_Interface SUBROUTINE MATMULT_FFF_T ( A, B, NROWA, NCOLA, NCOLB, C ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + IMPLICIT NONE INTEGER(LONG), INTENT(IN) :: NROWA ! No. rows in input matrix A (NOT A') INTEGER(LONG), INTENT(IN) :: NCOLA ! No. cols in input matrix A (NOT A') - INTEGER(LONG), INTENT(IN) :: NCOLB ! No. cols in input matrix B + INTEGER(LONG), INTENT(IN) :: NCOLB ! No. cols in input matrix B + - REAL(DOUBLE) , INTENT(IN) :: A(NROWA,NCOLA) ! Input matrix A REAL(DOUBLE) , INTENT(IN) :: B(NROWA,NCOLB) ! Input matrix B REAL(DOUBLE) , INTENT(OUT) :: C(NCOLA,NCOLB) ! Output matrix C - + END SUBROUTINE MATMULT_FFF_T END INTERFACE diff --git a/Source/Interfaces/MATMULT_SFF_Interface.f90 b/Source/Interfaces/MATMULT_SFF_Interface.f90 index c762c347..089a9485 100644 --- a/Source/Interfaces/MATMULT_SFF_Interface.f90 +++ b/Source/Interfaces/MATMULT_SFF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_SFF_Interface @@ -40,9 +40,9 @@ SUBROUTINE MATMULT_SFF ( MAT_A_NAME, NROWS_A, NCOLS_A, NTERM_A, SYM_A, I_A, J_A, USE PARAMS, ONLY : EPSIL USE DEBUG_PARAMETERS, ONLY : DEBUG USE SPARSE_ALG_ARRAYS, ONLY : AROW, J_AROW - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B @@ -58,7 +58,7 @@ SUBROUTINE MATMULT_SFF ( MAT_A_NAME, NROWS_A, NCOLS_A, NTERM_A, SYM_A, I_A, J_A, INTEGER(LONG), INTENT(IN ) :: I_A(NROWS_A+1) ! I_A(I+1) - I_A(I) = num nonzeros in row I of matrix A (CRS) INTEGER(LONG), INTENT(IN ) :: J_A(NTERM_A) ! Col no's for nonzero terms in matrix A - + REAL(DOUBLE) , INTENT(IN ) :: A(NTERM_A) ! Nonzero values in matrix A REAL(DOUBLE) , INTENT(IN ) :: B(NROWS_B,NCOLS_B)! Real values in matrix B REAL(DOUBLE) , INTENT(OUT) :: C(NROWS_A,NCOLS_B)! Real values in matrix c diff --git a/Source/Interfaces/MATMULT_SFS_Interface.f90 b/Source/Interfaces/MATMULT_SFS_Interface.f90 index c1f71dc0..34cf5b4e 100644 --- a/Source/Interfaces/MATMULT_SFS_Interface.f90 +++ b/Source/Interfaces/MATMULT_SFS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_SFS_Interface @@ -31,7 +31,7 @@ MODULE MATMULT_SFS_Interface SUBROUTINE MATMULT_SFS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, MAT_B_NAME, NROW_B, NCOL_B, B, & AROW_MAX_TERMS, MAT_C_NAME, CONS, NTERM_C, I_C, J_C, C ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR @@ -39,9 +39,9 @@ SUBROUTINE MATMULT_SFS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, MAT_B_ USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : EPSIL USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B CHARACTER(LEN=*), INTENT(IN) :: MAT_C_NAME ! Name of matrix C @@ -58,7 +58,7 @@ SUBROUTINE MATMULT_SFS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, MAT_B_ INTEGER(LONG), INTENT(OUT) :: I_C(NROW_A+1) ! I_C(I+1) - I_C(I) = num nonzeros in row I of matrix C (CRS) INTEGER(LONG), INTENT(OUT) :: J_C(NTERM_C) ! Col no's for nonzero terms in matrix C - + REAL(DOUBLE) , INTENT(IN ) :: CONS ! Constant multiplier in cons*A*B to get C REAL(DOUBLE) , INTENT(IN ) :: A(NTERM_A) ! Nonzero values in matrix A REAL(DOUBLE) , INTENT(IN ) :: B(NROW_B,NCOL_B) ! Real values in matrix B diff --git a/Source/Interfaces/MATMULT_SFS_NTERM_Interface.f90 b/Source/Interfaces/MATMULT_SFS_NTERM_Interface.f90 index 33d1c7a6..4ec2cbfb 100644 --- a/Source/Interfaces/MATMULT_SFS_NTERM_Interface.f90 +++ b/Source/Interfaces/MATMULT_SFS_NTERM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_SFS_NTERM_Interface @@ -31,7 +31,7 @@ MODULE MATMULT_SFS_NTERM_Interface SUBROUTINE MATMULT_SFS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, MAT_B_NAME, NROW_B, NCOL_B, B, & AROW_MAX_TERMS, MAT_C_NAME, NTERM_C ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR @@ -39,9 +39,9 @@ SUBROUTINE MATMULT_SFS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, MAT USE PARAMS, ONLY : EPSIL USE SPARSE_ALG_ARRAYS, ONLY : J_AROW USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B CHARACTER(LEN=*), INTENT(IN) :: MAT_C_NAME ! Name of matrix C @@ -56,7 +56,7 @@ SUBROUTINE MATMULT_SFS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, MAT INTEGER(LONG), INTENT(OUT) :: AROW_MAX_TERMS ! Max number of terms in any row of A INTEGER(LONG), INTENT(OUT) :: NTERM_C ! Number of nonzero terms in output matrix C - + REAL(DOUBLE) , INTENT(IN ) :: B(NROW_B,NCOL_B) ! Real values in matrix B END SUBROUTINE MATMULT_SFS_NTERM diff --git a/Source/Interfaces/MATMULT_SSS_Interface.f90 b/Source/Interfaces/MATMULT_SSS_Interface.f90 index 5370fe49..5b5d4251 100644 --- a/Source/Interfaces/MATMULT_SSS_Interface.f90 +++ b/Source/Interfaces/MATMULT_SSS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_SSS_Interface @@ -32,16 +32,16 @@ SUBROUTINE MATMULT_SSS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, MAT_B_NAME, NCOL_B, NTERM_B, SYM_B, J_B, I_B, B, AROW_MAX_TERMS, MAT_C_NAME, CONS, & NTERM_C, I_C, J_C, C ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B CHARACTER(LEN=*), INTENT(IN) :: MAT_C_NAME ! Name of matrix C @@ -61,7 +61,7 @@ SUBROUTINE MATMULT_SSS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, INTEGER(LONG), INTENT(OUT) :: I_C(NROW_A+1) ! I_C(I+1) - I_C(I) = num nonzeros in row I of matrix C (CRS format) INTEGER(LONG), INTENT(OUT) :: J_C(NTERM_C) ! Col no's for nonzero terms in matrix C - + REAL(DOUBLE) , INTENT(IN ) :: CONS ! Constant multiplier in cons*A*B to get C REAL(DOUBLE) , INTENT(IN ) :: A(NTERM_A) ! Nonzero values in matrix A REAL(DOUBLE) , INTENT(IN ) :: B(NTERM_B) ! Nonzero values in matrix B diff --git a/Source/Interfaces/MATMULT_SSS_NTERM_Interface.f90 b/Source/Interfaces/MATMULT_SSS_NTERM_Interface.f90 index 71274130..04834c6a 100644 --- a/Source/Interfaces/MATMULT_SSS_NTERM_Interface.f90 +++ b/Source/Interfaces/MATMULT_SSS_NTERM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_SSS_NTERM_Interface @@ -38,9 +38,9 @@ SUBROUTINE MATMULT_SSS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, USE TIMDAT, ONLY : TSEC USE SPARSE_ALG_ARRAYS, ONLY : J_AROW USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B CHARACTER(LEN=*), INTENT(IN) :: MAT_C_NAME ! Name of matrix C @@ -58,7 +58,7 @@ SUBROUTINE MATMULT_SSS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, INTEGER(LONG), INTENT(OUT) :: AROW_MAX_TERMS ! Max number of terms in any row of A INTEGER(LONG), INTENT(OUT) :: NTERM_C ! Number of nonzero terms in output matrix C - + END SUBROUTINE MATMULT_SSS_NTERM END INTERFACE diff --git a/Source/Interfaces/MATPUT_Interface.f90 b/Source/Interfaces/MATPUT_Interface.f90 index a06b69ae..1c20a94f 100644 --- a/Source/Interfaces/MATPUT_Interface.f90 +++ b/Source/Interfaces/MATPUT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATPUT_Interface @@ -30,13 +30,13 @@ MODULE MATPUT_Interface SUBROUTINE MATPUT ( B, NROWA, NCOLA, BEG_ROW, BEG_COL, NROW, NCOL, A ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: BEG_COL ! Beginning row of input matrix to get partition from INTEGER(LONG), INTENT(IN) :: BEG_ROW ! Beginning col of input matrix to get partition from INTEGER(LONG), INTENT(IN) :: NCOLA ! Number of cols in input matrix @@ -44,10 +44,10 @@ SUBROUTINE MATPUT ( B, NROWA, NCOLA, BEG_ROW, BEG_COL, NROW, NCOL, A ) INTEGER(LONG), INTENT(IN) :: NCOL ! No. of cols to get from input matrix INTEGER(LONG), INTENT(IN) :: NROW ! No. of rows to get from input matrix - + REAL(DOUBLE) , INTENT(IN) :: B(NROW*NCOL) ! Input matrix that will be put into A REAL(DOUBLE) , INTENT(INOUT) :: A(NROWA*NCOLA) ! Output matrix, containing inserted terms from B - + END SUBROUTINE MATPUT END INTERFACE diff --git a/Source/Interfaces/MATTRNSP_SS_Interface.f90 b/Source/Interfaces/MATTRNSP_SS_Interface.f90 index d0058745..c1c17726 100644 --- a/Source/Interfaces/MATTRNSP_SS_Interface.f90 +++ b/Source/Interfaces/MATTRNSP_SS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATTRNSP_SS_Interface @@ -37,12 +37,12 @@ SUBROUTINE MATTRNSP_SS ( NROWA, NCOLA, NTERM, MAT_A_NAME, I_A, J_A, A, MAT_AT_NA USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix to be transposed CHARACTER(LEN=*), INTENT(IN) :: MAT_AT_NAME ! Name of matrix that is transposed - + INTEGER(LONG), INTENT(IN) :: NCOLA ! Number of cols in input matrix, A INTEGER(LONG), INTENT(IN) :: NROWA ! Number of rows in input matrix, A INTEGER(LONG), INTENT(IN) :: NTERM ! Number of nonzero terms in input matrix, A diff --git a/Source/Interfaces/MAXREQ_OGEL_Interface.f90 b/Source/Interfaces/MAXREQ_OGEL_Interface.f90 index 84e248ad..a1796669 100644 --- a/Source/Interfaces/MAXREQ_OGEL_Interface.f90 +++ b/Source/Interfaces/MAXREQ_OGEL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MAXREQ_OGEL_Interface @@ -30,7 +30,7 @@ MODULE MAXREQ_OGEL_Interface SUBROUTINE MAXREQ_OGEL - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, IBIT, LSUB, NDOFG, NELE, NGRID, METYPE, SOL_NAME @@ -41,11 +41,11 @@ SUBROUTINE MAXREQ_OGEL USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_LOC, STRE_LOC USE LINK9_STUFF, ONLY : MAXREQ USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - - + + END SUBROUTINE MAXREQ_OGEL END INTERFACE diff --git a/Source/Interfaces/MERGE_COL_VECS_Interface.f90 b/Source/Interfaces/MERGE_COL_VECS_Interface.f90 index ec888177..07978082 100644 --- a/Source/Interfaces/MERGE_COL_VECS_Interface.f90 +++ b/Source/Interfaces/MERGE_COL_VECS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_COL_VECS_Interface @@ -38,9 +38,9 @@ SUBROUTINE MERGE_COL_VECS ( IN1_COL, IN1_NDOF, UIN1, IN2_COL, IN2_NDOF, UIN2 & USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DOF_TABLES, ONLY : TDOFI - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN ) :: IN1_COL ! Column number in TDOF, TDOFI for the displ set for input vector UIN1 INTEGER(LONG), INTENT(IN ) :: IN2_COL ! Column number in TDOF, TDOFI for the displ set for input vector UIN2 INTEGER(LONG), INTENT(IN ) :: OUT_COL ! Column number in TDOF, TDOFI for the displ set for input vector UOUT @@ -52,7 +52,7 @@ SUBROUTINE MERGE_COL_VECS ( IN1_COL, IN1_NDOF, UIN1, IN2_COL, IN2_NDOF, UIN2 & REAL(DOUBLE) , INTENT(IN ) :: UIN1(IN1_NDOF) ! Input vector for IN1_COL displ set REAL(DOUBLE) , INTENT(IN ) :: UIN2(IN2_NDOF) ! Input vector for IN2_COL displ set REAL(DOUBLE) , INTENT(OUT) :: UOUT(OUT_NDOF) ! Output vector for OUT_COL displ set - + END SUBROUTINE MERGE_COL_VECS END INTERFACE diff --git a/Source/Interfaces/MERGE_KXX_Interface.f90 b/Source/Interfaces/MERGE_KXX_Interface.f90 index ff97792b..78614263 100644 --- a/Source/Interfaces/MERGE_KXX_Interface.f90 +++ b/Source/Interfaces/MERGE_KXX_Interface.f90 @@ -1,46 +1,46 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_KXX_Interface INTERFACE - SUBROUTINE MERGE_KXX + SUBROUTINE MERGE_KXX + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, NDOFR, NTERM_KRRcb, NTERM_KXX , NVEC USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : PRTKXX USE EIGEN_MATRICES_1, ONLY : GEN_MASS, EIGEN_VAL - USE SPARSE_MATRICES , ONLY : I_KRRcb, J_KRRcb, KRRcb, I_KXX , J_KXX , KXX + USE SPARSE_MATRICES , ONLY : I_KRRcb, J_KRRcb, KRRcb, I_KXX , J_KXX , KXX IMPLICIT NONE - + END SUBROUTINE MERGE_KXX diff --git a/Source/Interfaces/MERGE_LTM_Interface.f90 b/Source/Interfaces/MERGE_LTM_Interface.f90 index 44504ca9..c8cf071a 100644 --- a/Source/Interfaces/MERGE_LTM_Interface.f90 +++ b/Source/Interfaces/MERGE_LTM_Interface.f90 @@ -1,36 +1,36 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_LTM_Interface INTERFACE - SUBROUTINE MERGE_LTM + SUBROUTINE MERGE_LTM + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFR, NTERM_CG_LTM, NTERM_IF_LTM, NTERM_LTM, NUM_CB_DOFS @@ -38,7 +38,7 @@ SUBROUTINE MERGE_LTM USE SPARSE_MATRICES, ONLY : I_CG_LTM, J_CG_LTM, CG_LTM, I_IF_LTM, J_IF_LTM, IF_LTM, I_LTM, J_LTM, LTM IMPLICIT NONE - + END SUBROUTINE MERGE_LTM diff --git a/Source/Interfaces/MERGE_MAT_COLS_SSS_Interface.f90 b/Source/Interfaces/MERGE_MAT_COLS_SSS_Interface.f90 index 639d5e1f..6e519969 100644 --- a/Source/Interfaces/MERGE_MAT_COLS_SSS_Interface.f90 +++ b/Source/Interfaces/MERGE_MAT_COLS_SSS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_MAT_COLS_SSS_Interface diff --git a/Source/Interfaces/MERGE_MAT_ROWS_SSS_Interface.f90 b/Source/Interfaces/MERGE_MAT_ROWS_SSS_Interface.f90 index d48da553..bf7b6b4f 100644 --- a/Source/Interfaces/MERGE_MAT_ROWS_SSS_Interface.f90 +++ b/Source/Interfaces/MERGE_MAT_ROWS_SSS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_MAT_ROWS_SSS_Interface @@ -32,7 +32,7 @@ SUBROUTINE MERGE_MAT_ROWS_SSS ( MAT_A_NAME, NROW_A, NTERM_A, I_A, J_A, A, MERGE_ MAT_B_NAME, NROW_B, NTERM_B, I_B, J_B, B, MERGE_VEC_VALS_B, MERGE_VEC, & MAT_C_NAME, I_C, J_C, C ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR @@ -40,9 +40,9 @@ SUBROUTINE MERGE_MAT_ROWS_SSS ( MAT_A_NAME, NROW_A, NTERM_A, I_A, J_A, A, MERGE_ USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG USE SPARSE_ALG_ARRAYS, ONLY : LOGICAL_VEC, REAL_VEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B CHARACTER(LEN=*), INTENT(IN) :: MAT_C_NAME ! Name of matrix C @@ -61,7 +61,7 @@ SUBROUTINE MERGE_MAT_ROWS_SSS ( MAT_A_NAME, NROW_A, NTERM_A, I_A, J_A, A, MERGE_ INTEGER(LONG), INTENT(OUT) :: I_C(NROW_A+NROW_B+1) ! I_C(I+1) - I_C(I) = no. terms in row I of matrix C INTEGER(LONG), INTENT(OUT) :: J_C(NTERM_A+NTERM_B) ! Col no's for nonzero terms in matrix C - + REAL(DOUBLE) , INTENT(IN ) :: A(NTERM_A) ! Nonzero terms in matrix A REAL(DOUBLE) , INTENT(IN ) :: B(NTERM_B) ! Nonzero terms in matrix B REAL(DOUBLE) , INTENT(OUT) :: C(NTERM_A+NTERM_B) ! Nonzero terms in matrix C diff --git a/Source/Interfaces/MERGE_MXX_Interface.f90 b/Source/Interfaces/MERGE_MXX_Interface.f90 index dec57c57..433142d7 100644 --- a/Source/Interfaces/MERGE_MXX_Interface.f90 +++ b/Source/Interfaces/MERGE_MXX_Interface.f90 @@ -1,36 +1,36 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_MXX_Interface INTERFACE - SUBROUTINE MERGE_MXX + SUBROUTINE MERGE_MXX + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFR, NVEC, NTERM_MRRcb, NTERM_MRRcbn, NTERM_MRN, NTERM_MXX, & @@ -43,7 +43,7 @@ SUBROUTINE MERGE_MXX I_MXX , J_MXX , MXX , I_MXXn , J_MXXn , MXXn IMPLICIT NONE - + END SUBROUTINE MERGE_MXX diff --git a/Source/Interfaces/MERGE_PHIXA_Interface.f90 b/Source/Interfaces/MERGE_PHIXA_Interface.f90 index 2c37c4db..4db0296d 100644 --- a/Source/Interfaces/MERGE_PHIXA_Interface.f90 +++ b/Source/Interfaces/MERGE_PHIXA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_PHIXA_Interface @@ -30,7 +30,7 @@ MODULE MERGE_PHIXA_Interface SUBROUTINE MERGE_PHIXA ( PART_VEC_A_LR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFA, NDOFR, NVEC @@ -38,12 +38,12 @@ SUBROUTINE MERGE_PHIXA ( PART_VEC_A_LR ) USE CONSTANTS_1, ONLY : ZERO USE EIGEN_MATRICES_1, ONLY : EIGEN_VEC USE SPARSE_MATRICES, ONLY : I_DLR , J_DLR , DLR , I_IRR , J_IRR , IRR , I_PHIXA, J_PHIXA, PHIXA - + IMPLICIT NONE - - INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (N set into F and S sets) - + INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (N set into F and S sets) + + END SUBROUTINE MERGE_PHIXA END INTERFACE diff --git a/Source/Interfaces/MGGC_MASS_MATRIX_Interface.f90 b/Source/Interfaces/MGGC_MASS_MATRIX_Interface.f90 index 369d27fb..d14a18ef 100644 --- a/Source/Interfaces/MGGC_MASS_MATRIX_Interface.f90 +++ b/Source/Interfaces/MGGC_MASS_MATRIX_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MGGC_MASS_MATRIX_Interface @@ -30,7 +30,7 @@ MODULE MGGC_MASS_MATRIX_Interface SUBROUTINE MGGC_MASS_MATRIX - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : NGRID, NTERM_MGGC, BLNK_SUB_NAM @@ -39,9 +39,9 @@ SUBROUTINE MGGC_MASS_MATRIX USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : AGRID, GRID_ID, INV_GRID_SEQ USE SPARSE_MATRICES, ONLY : I_MGGC, J_MGGC, MGGC - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT INTEGER(LONG) :: KSTART ! Used in deciding whether to process all elem mass terms or only diff --git a/Source/Interfaces/MGGS_MASS_MATRIX_Interface.f90 b/Source/Interfaces/MGGS_MASS_MATRIX_Interface.f90 index da4051a2..e72288c8 100644 --- a/Source/Interfaces/MGGS_MASS_MATRIX_Interface.f90 +++ b/Source/Interfaces/MGGS_MASS_MATRIX_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MGGS_MASS_MATRIX_Interface @@ -30,7 +30,7 @@ MODULE MGGS_MASS_MATRIX_Interface SUBROUTINE MGGS_MASS_MATRIX - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, NCMASS, NDOFG, NGRID, NPMASS, NTERM_MGGS, BLNK_SUB_NAM @@ -41,9 +41,9 @@ SUBROUTINE MGGS_MASS_MATRIX USE DOF_TABLES, ONLY : TDOF USE MODEL_STUF, ONLY : CMASS, GRID_ID, PMASS, RPMASS USE SPARSE_MATRICES, ONLY : I_MGGS, J_MGGS, MGGS - + IMPLICIT NONE - + END SUBROUTINE MGGS_MASS_MATRIX diff --git a/Source/Interfaces/MIN4SH_Interface.f90 b/Source/Interfaces/MIN4SH_Interface.f90 index 57245b58..41a0ccec 100644 --- a/Source/Interfaces/MIN4SH_Interface.f90 +++ b/Source/Interfaces/MIN4SH_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MIN4SH_Interface @@ -30,20 +30,20 @@ MODULE MIN4SH_Interface SUBROUTINE MIN4SH ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, NXSH, NYSH, DNXSHG, DNYSHG ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, F06, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, TWO, EIGHT - + IMPLICIT NONE - + CHARACTER(17*BYTE) :: NAME(2) ! Used for BUG output annotation CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to - + REAL(DOUBLE) , INTENT(IN) :: SSI ! Gauss point coordinate REAL(DOUBLE) , INTENT(IN) :: SSJ ! Gauss point coordinate REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! 1-D arrays of differences in x side dimensions (local) @@ -67,7 +67,7 @@ SUBROUTINE MIN4SH ( SSI, SSJ, XSD, YSD, WRT_BUG_THIS_TIME, NXSH, NYSH, DNXSHG, D REAL(DOUBLE) :: YM ! Intermediate variable used in calculating outputs REAL(DOUBLE) :: YP ! Intermediate variable used in calculating outputs REAL(DOUBLE) :: Y2M ! Intermediate variable used in calculating outputs - + END SUBROUTINE MIN4SH END INTERFACE diff --git a/Source/Interfaces/MITC4_B_Interface.f90 b/Source/Interfaces/MITC4_B_Interface.f90 index 42600552..6fc97f2d 100644 --- a/Source/Interfaces/MITC4_B_Interface.f90 +++ b/Source/Interfaces/MITC4_B_Interface.f90 @@ -1,35 +1,35 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC4_B_Interface INTERFACE SUBROUTINE MITC4_B ( R, S, T, MEMBRANE, BENDING, SHEAR, B ) - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE MODEL_STUF, ONLY : ELGP diff --git a/Source/Interfaces/MITC4_CARTESIAN_LOCAL_BASIS_Interface.f90 b/Source/Interfaces/MITC4_CARTESIAN_LOCAL_BASIS_Interface.f90 index 5d67c563..1221fc8b 100644 --- a/Source/Interfaces/MITC4_CARTESIAN_LOCAL_BASIS_Interface.f90 +++ b/Source/Interfaces/MITC4_CARTESIAN_LOCAL_BASIS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC4_CARTESIAN_LOCAL_BASIS_Interface @@ -35,13 +35,13 @@ FUNCTION MITC4_CARTESIAN_LOCAL_BASIS ( R, S, T ) USE MITC_COVARIANT_BASIS_Interface USE CROSS_Interface - IMPLICIT NONE + IMPLICIT NONE REAL(DOUBLE) :: MITC4_CARTESIAN_LOCAL_BASIS(3,3) REAL(DOUBLE) , INTENT(IN) :: R REAL(DOUBLE) , INTENT(IN) :: S REAL(DOUBLE) , INTENT(IN) :: T - + END FUNCTION MITC4_CARTESIAN_LOCAL_BASIS END INTERFACE diff --git a/Source/Interfaces/MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION_Interface.f90 b/Source/Interfaces/MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION_Interface.f90 index d6673e90..6f1d025f 100644 --- a/Source/Interfaces/MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION_Interface.f90 +++ b/Source/Interfaces/MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION_Interface.f90 @@ -1,43 +1,43 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION_Interface INTERFACE SUBROUTINE MITC4_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, X_R, X_S, X_D, MEMBRANE, BENDING, ROW_FROM, ROW_TO, B ) - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE MODEL_STUF, ONLY : ELGP - IMPLICIT NONE + IMPLICIT NONE INTEGER(LONG), INTENT(IN) :: ROW_FROM ! First row of B to generate. Strain component index 1-4. INTEGER(LONG), INTENT(IN) :: ROW_TO ! Last row of B to generate. Strain component index 1-4. - + REAL(DOUBLE) , INTENT(IN) :: R,S,T ! Isparametric coordinates REAL(DOUBLE) , INTENT(IN) :: X_R(3) ! Characteristic geometry vector x_r REAL(DOUBLE) , INTENT(IN) :: X_S(3) ! Characteristic geometry vector x_s diff --git a/Source/Interfaces/MITC4_Interface.f90 b/Source/Interfaces/MITC4_Interface.f90 index 5be681c1..0e3307ab 100644 --- a/Source/Interfaces/MITC4_Interface.f90 +++ b/Source/Interfaces/MITC4_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC4_Interface diff --git a/Source/Interfaces/MITC8_B_Interface.f90 b/Source/Interfaces/MITC8_B_Interface.f90 index 4a32e83f..cf283d60 100644 --- a/Source/Interfaces/MITC8_B_Interface.f90 +++ b/Source/Interfaces/MITC8_B_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC8_B_Interface @@ -43,7 +43,7 @@ SUBROUTINE MITC8_B ( R, S, T, INLAYER, SHEAR, B ) USE MITC8_CARTESIAN_LOCAL_BASIS_Interface USE MITC_TRANSFORM_B_Interface - IMPLICIT NONE + IMPLICIT NONE LOGICAL, INTENT(IN) :: INLAYER ! TRUE for in-layer rows (1-4) LOGICAL, INTENT(IN) :: SHEAR ! TRUE for transverse shear rows (5-6) diff --git a/Source/Interfaces/MITC8_CARTESIAN_LOCAL_BASIS_Interface.f90 b/Source/Interfaces/MITC8_CARTESIAN_LOCAL_BASIS_Interface.f90 index 899e9c32..5247201b 100644 --- a/Source/Interfaces/MITC8_CARTESIAN_LOCAL_BASIS_Interface.f90 +++ b/Source/Interfaces/MITC8_CARTESIAN_LOCAL_BASIS_Interface.f90 @@ -1,35 +1,35 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC8_CARTESIAN_LOCAL_BASIS_Interface INTERFACE FUNCTION MITC8_CARTESIAN_LOCAL_BASIS ( R, S ) - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE MODEL_STUF, ONLY : ELGP, XEB, TYPE USE CONSTANTS_1, ONLY : ZERO, ONE, TWO @@ -40,14 +40,14 @@ FUNCTION MITC8_CARTESIAN_LOCAL_BASIS ( R, S ) USE CROSS_Interface USE OUTA_HERE_Interface - IMPLICIT NONE - + IMPLICIT NONE + INTEGER(LONG) :: I ! DO loop indices REAL(DOUBLE) :: MITC8_CARTESIAN_LOCAL_BASIS(3,3) REAL(DOUBLE) , INTENT(IN) :: R REAL(DOUBLE) , INTENT(IN) :: S - REAL(DOUBLE) :: PSH(ELGP) + REAL(DOUBLE) :: PSH(ELGP) REAL(DOUBLE) :: DPSHG(2,ELGP) ! Derivatives of shape functions with respect to R and S. REAL(DOUBLE) :: E_XI(3) REAL(DOUBLE) :: E_ETA(3) @@ -56,7 +56,7 @@ FUNCTION MITC8_CARTESIAN_LOCAL_BASIS ( R, S ) REAL(DOUBLE) :: X(3) REAL(DOUBLE) :: Y(3) REAL(DOUBLE) :: Z(3) - + END FUNCTION MITC8_CARTESIAN_LOCAL_BASIS END INTERFACE diff --git a/Source/Interfaces/MITC8_ELEMENT_CS_BASIS_Interface.f90 b/Source/Interfaces/MITC8_ELEMENT_CS_BASIS_Interface.f90 index 2340c629..a76773fd 100644 --- a/Source/Interfaces/MITC8_ELEMENT_CS_BASIS_Interface.f90 +++ b/Source/Interfaces/MITC8_ELEMENT_CS_BASIS_Interface.f90 @@ -1,35 +1,35 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC8_ELEMENT_CS_BASIS_Interface INTERFACE FUNCTION MITC8_ELEMENT_CS_BASIS ( R, S ) - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE MODEL_STUF, ONLY : ELGP, XEB, TYPE USE CONSTANTS_1, ONLY : ZERO, ONE, TWO @@ -40,14 +40,14 @@ FUNCTION MITC8_ELEMENT_CS_BASIS ( R, S ) USE CROSS_Interface USE OUTA_HERE_Interface - IMPLICIT NONE - + IMPLICIT NONE + INTEGER(LONG) :: I ! DO loop indices REAL(DOUBLE) :: MITC8_ELEMENT_CS_BASIS(3,3) REAL(DOUBLE) , INTENT(IN) :: R REAL(DOUBLE) , INTENT(IN) :: S - REAL(DOUBLE) :: PSH(ELGP) + REAL(DOUBLE) :: PSH(ELGP) REAL(DOUBLE) :: DPSHG(2,ELGP) ! Derivatives of shape functions with respect to R and S. REAL(DOUBLE) :: E_XI(3) REAL(DOUBLE) :: E_ETA(3) @@ -59,7 +59,7 @@ FUNCTION MITC8_ELEMENT_CS_BASIS ( R, S ) INTRINSIC :: DSQRT - + END FUNCTION MITC8_ELEMENT_CS_BASIS END INTERFACE diff --git a/Source/Interfaces/MITC8_Interface.f90 b/Source/Interfaces/MITC8_Interface.f90 index 5dfb0051..9814494c 100644 --- a/Source/Interfaces/MITC8_Interface.f90 +++ b/Source/Interfaces/MITC8_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC8_Interface @@ -44,8 +44,8 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) USE MITC_DETJ_Interface USE MITC8_B_Interface - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MITC8' CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -53,7 +53,7 @@ SUBROUTINE MITC8 ( OPT, INT_ELEM_ID ) INTEGER(LONG), PARAMETER :: IORD_IJ = 3 ! Integration order for stiffness matrix INTEGER(LONG), PARAMETER :: IORD_K = 2 ! Integration order for stiffness matrix in thickness direction INTEGER(LONG) :: I,J,K,L,M ! DO loop indices - + REAL(DOUBLE) :: HH_IJ(MAX_ORDER_GAUSS) ! Gauss weights for integration in in-layer directions REAL(DOUBLE) :: SS_IJ(MAX_ORDER_GAUSS) ! Gauss abscissa's for integration in in-layer directions REAL(DOUBLE) :: HH_K(MAX_ORDER_GAUSS) ! Gauss weights for integration in thickness direction diff --git a/Source/Interfaces/MITC_ADD_TO_B_Interface.f90 b/Source/Interfaces/MITC_ADD_TO_B_Interface.f90 index 8c393dae..a875d52e 100644 --- a/Source/Interfaces/MITC_ADD_TO_B_Interface.f90 +++ b/Source/Interfaces/MITC_ADD_TO_B_Interface.f90 @@ -1,46 +1,46 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC_ADD_TO_B_Interface INTERFACE SUBROUTINE MITC_ADD_TO_B ( B, POINT, COL, SCALAR, TENSOR ) - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE - IMPLICIT NONE - + IMPLICIT NONE + REAL(DOUBLE) , INTENT(INOUT) :: B(6,6*8,4) REAL(DOUBLE) , INTENT(IN) :: SCALAR REAL(DOUBLE) , INTENT(IN) :: TENSOR(3,3) INTEGER(LONG), INTENT(IN) :: POINT INTEGER(LONG), INTENT(IN) :: COL - + END SUBROUTINE MITC_ADD_TO_B END INTERFACE diff --git a/Source/Interfaces/MITC_CONTRAVARIANT_BASIS_Interface.f90 b/Source/Interfaces/MITC_CONTRAVARIANT_BASIS_Interface.f90 index 1293c10e..5e555c3e 100644 --- a/Source/Interfaces/MITC_CONTRAVARIANT_BASIS_Interface.f90 +++ b/Source/Interfaces/MITC_CONTRAVARIANT_BASIS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC_CONTRAVARIANT_BASIS_Interface @@ -33,8 +33,8 @@ SUBROUTINE MITC_CONTRAVARIANT_BASIS ( G, G_CONTRA ) USE PENTIUM_II_KIND, ONLY : DOUBLE USE CROSS_Interface - - IMPLICIT NONE + + IMPLICIT NONE REAL(DOUBLE) , INTENT(IN) :: G(3,3) ! Covariant basis vectors REAL(DOUBLE) , INTENT(OUT) :: G_CONTRA(3,3) ! Contravariant basis vectors diff --git a/Source/Interfaces/MITC_COVARIANT_BASIS_Interface.f90 b/Source/Interfaces/MITC_COVARIANT_BASIS_Interface.f90 index c0875299..48c59475 100644 --- a/Source/Interfaces/MITC_COVARIANT_BASIS_Interface.f90 +++ b/Source/Interfaces/MITC_COVARIANT_BASIS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC_COVARIANT_BASIS_Interface @@ -39,7 +39,7 @@ SUBROUTINE MITC_COVARIANT_BASIS ( R, S, T, G ) USE SHP2DQ_Interface USE OUTA_HERE_Interface - IMPLICIT NONE + IMPLICIT NONE REAL(DOUBLE) , INTENT(IN) :: R, S, T ! Isoparametric coordinates REAL(DOUBLE) , INTENT(OUT) :: G(3,3) ! basis vector in basic coordinates diff --git a/Source/Interfaces/MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION_Interface.f90 b/Source/Interfaces/MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION_Interface.f90 index 27a53498..056fedeb 100644 --- a/Source/Interfaces/MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION_Interface.f90 +++ b/Source/Interfaces/MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION_Interface.f90 @@ -1,35 +1,35 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION_Interface INTERFACE SUBROUTINE MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, ROW_FROM, ROW_TO, B ) - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE MODEL_STUF, ONLY : ELGP, EPROP, TYPE USE CONSTANTS_1, ONLY : ZERO, TWO, FOUR @@ -40,14 +40,14 @@ SUBROUTINE MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION ( R, S, T, ROW_FROM, ROW_T USE OUTA_HERE_Interface USE MITC_COVARIANT_BASIS_Interface - IMPLICIT NONE - + IMPLICIT NONE + REAL(DOUBLE) , INTENT(IN) :: R,S,T ! Isparametric coordinates REAL(DOUBLE) , INTENT(OUT) :: B(6, 6*ELGP) ! Strain-displacement matrix. INTEGER(LONG), INTENT(IN) :: ROW_FROM ! First row of B to generate. Strain component index 1-6. INTEGER(LONG), INTENT(IN) :: ROW_TO ! Last row of B to generate. Strain component index 1-6. - + END SUBROUTINE MITC_COVARIANT_STRAIN_DIRECT_INTERPOLATION END INTERFACE diff --git a/Source/Interfaces/MITC_DETJ_Interface.f90 b/Source/Interfaces/MITC_DETJ_Interface.f90 index d6154310..3e120623 100644 --- a/Source/Interfaces/MITC_DETJ_Interface.f90 +++ b/Source/Interfaces/MITC_DETJ_Interface.f90 @@ -1,42 +1,42 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC_DETJ_Interface INTERFACE FUNCTION MITC_DETJ ( R, S, T ) - + USE PENTIUM_II_KIND, ONLY : DOUBLE USE MITC_COVARIANT_BASIS_Interface USE CROSS_Interface - IMPLICIT NONE - + IMPLICIT NONE + REAL(DOUBLE) :: MITC_DETJ REAL(DOUBLE) , INTENT(IN) :: R REAL(DOUBLE) , INTENT(IN) :: S diff --git a/Source/Interfaces/MITC_ELASTICITY_Interface.f90 b/Source/Interfaces/MITC_ELASTICITY_Interface.f90 index b79a041b..c686c306 100644 --- a/Source/Interfaces/MITC_ELASTICITY_Interface.f90 +++ b/Source/Interfaces/MITC_ELASTICITY_Interface.f90 @@ -1,43 +1,43 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC_ELASTICITY_Interface INTERFACE FUNCTION MITC_ELASTICITY () - + USE PENTIUM_II_KIND, ONLY : DOUBLE USE MODEL_STUF, ONLY : EM, ET, EPROP USE CONSTANTS_1, ONLY : ZERO - IMPLICIT NONE - + IMPLICIT NONE + REAL(DOUBLE) :: MITC_ELASTICITY(6,6) - + END FUNCTION MITC_ELASTICITY END INTERFACE diff --git a/Source/Interfaces/MITC_INITIALIZE_Interface.f90 b/Source/Interfaces/MITC_INITIALIZE_Interface.f90 index 35a4c300..3f88a109 100644 --- a/Source/Interfaces/MITC_INITIALIZE_Interface.f90 +++ b/Source/Interfaces/MITC_INITIALIZE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC_INITIALIZE_Interface diff --git a/Source/Interfaces/MITC_SHAPE_FUNCTIONS_Interface.f90 b/Source/Interfaces/MITC_SHAPE_FUNCTIONS_Interface.f90 index da712966..4871c29d 100644 --- a/Source/Interfaces/MITC_SHAPE_FUNCTIONS_Interface.f90 +++ b/Source/Interfaces/MITC_SHAPE_FUNCTIONS_Interface.f90 @@ -1,35 +1,35 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC_SHAPE_FUNCTIONS_Interface INTERFACE SUBROUTINE MITC_SHAPE_FUNCTIONS ( R, S, PSH, DPSHG ) - + USE PENTIUM_II_KIND, ONLY : DOUBLE USE MODEL_STUF, ONLY : ELGP @@ -37,12 +37,12 @@ SUBROUTINE MITC_SHAPE_FUNCTIONS ( R, S, PSH, DPSHG ) USE SHP2DQ_Interface USE OUTA_HERE_Interface - IMPLICIT NONE + IMPLICIT NONE REAL(DOUBLE) , INTENT(IN) :: R,S ! Isoparametric coordinates REAL(DOUBLE) , INTENT(OUT) :: PSH(ELGP) ! Shape functions REAL(DOUBLE) , INTENT(OUT) :: DPSHG(2,ELGP) ! Derivatives of shape functions with respect to R and S. - + END SUBROUTINE MITC_SHAPE_FUNCTIONS END INTERFACE diff --git a/Source/Interfaces/MITC_TRANSFORM_B_Interface.f90 b/Source/Interfaces/MITC_TRANSFORM_B_Interface.f90 index 99bd2bad..3f1bebff 100644 --- a/Source/Interfaces/MITC_TRANSFORM_B_Interface.f90 +++ b/Source/Interfaces/MITC_TRANSFORM_B_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC_TRANSFORM_B_Interface @@ -34,7 +34,7 @@ SUBROUTINE MITC_TRANSFORM_B ( TRANSFORM, B ) USE MODEL_STUF, ONLY : ELGP USE CONSTANTS_1, ONLY : ZERO - IMPLICIT NONE + IMPLICIT NONE REAL(DOUBLE), INTENT(INOUT) :: B(6,6*ELGP) REAL(DOUBLE), INTENT(IN) :: TRANSFORM(3,3) diff --git a/Source/Interfaces/MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL_Interface.f90 b/Source/Interfaces/MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL_Interface.f90 index 367263aa..7386d73d 100644 --- a/Source/Interfaces/MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL_Interface.f90 +++ b/Source/Interfaces/MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL_Interface @@ -39,7 +39,7 @@ SUBROUTINE MITC_TRANSFORM_CONTRAVARIANT_TO_LOCAL ( R, S, T, B ) USE MITC8_CARTESIAN_LOCAL_BASIS_Interface USE MITC_TRANSFORM_B_Interface - IMPLICIT NONE + IMPLICIT NONE REAL(DOUBLE) , INTENT(IN) :: R, S, T ! Isoparametric coordinates REAL(DOUBLE) , INTENT(OUT) :: B(6, 6*ELGP) ! Strain-displacement matrix diff --git a/Source/Interfaces/MKCARD_Interface.f90 b/Source/Interfaces/MKCARD_Interface.f90 index 412f041e..e71e7561 100644 --- a/Source/Interfaces/MKCARD_Interface.f90 +++ b/Source/Interfaces/MKCARD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MKCARD_Interface @@ -30,15 +30,15 @@ MODULE MKCARD_Interface SUBROUTINE MKCARD ( JCARD, CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : JCARD_LEN - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN=10*JCARD_LEN), INTENT(OUT):: CARD ! A MYSTRAN data card - + END SUBROUTINE MKCARD END INTERFACE diff --git a/Source/Interfaces/MKJCARD_08_Interface.f90 b/Source/Interfaces/MKJCARD_08_Interface.f90 index 3be97f13..8bb7b5a3 100644 --- a/Source/Interfaces/MKJCARD_08_Interface.f90 +++ b/Source/Interfaces/MKJCARD_08_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MKJCARD_08_Interface @@ -30,14 +30,14 @@ MODULE MKJCARD_08_Interface SUBROUTINE MKJCARD_08 ( CARD, JCARD_08 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG - + IMPLICIT NONE - + CHARACTER(LEN=*) , INTENT(IN) :: CARD ! A MYSTRAN data card CHARACTER( 8*BYTE), INTENT(OUT) :: JCARD_08(10) ! The 10 fields of characters making up CARD - + END SUBROUTINE MKJCARD_08 END INTERFACE diff --git a/Source/Interfaces/MKJCARD_Interface.f90 b/Source/Interfaces/MKJCARD_Interface.f90 index 89a9101b..eb045c7f 100644 --- a/Source/Interfaces/MKJCARD_Interface.f90 +++ b/Source/Interfaces/MKJCARD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MKJCARD_Interface @@ -30,16 +30,16 @@ MODULE MKJCARD_Interface SUBROUTINE MKJCARD ( CALLING_SUBR, CARD, JCARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : JCARD_LEN - + IMPLICIT NONE - + CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR ! Subr that called this one CHARACTER(LEN=*) , INTENT(IN) :: CARD ! A MYSTRAN data card CHARACTER(LEN=JCARD_LEN), INTENT(OUT):: JCARD(10) ! The 10 fields of characters making up CARD - + END SUBROUTINE MKJCARD END INTERFACE diff --git a/Source/Interfaces/MYSTRAN_FILES_Interface.f90 b/Source/Interfaces/MYSTRAN_FILES_Interface.f90 index 27a8e358..d281212a 100644 --- a/Source/Interfaces/MYSTRAN_FILES_Interface.f90 +++ b/Source/Interfaces/MYSTRAN_FILES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MYSTRAN_FILES_Interface @@ -30,7 +30,7 @@ MODULE MYSTRAN_FILES_Interface SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START_MINUTE, START_SEC, START_SFRAC) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : FILE_NAM_MAXLEN, MOT4, MOU4, WRT_BUG, WRT_ERR, LEN_INPUT_FNAME, & @@ -65,13 +65,13 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START L2A_MSG, L2B_MSG, L2C_MSG, L2D_MSG, L2E_MSG, L2F_MSG, L2G_MSG, L2H_MSG, L2I_MSG, L2J_MSG, & L2K_MSG, L2L_MSG, L2M_MSG, L2N_MSG, L2O_MSG, L2P_MSG, L2Q_MSG, L2R_MSG, L2S_MSG, L2T_MSG, & L3A_MSG, L4A_MSG, L4B_MSG, L4C_MSG, L4D_MSG, L5A_MSG, L5B_MSG, & - NEU_MSG, F21_MSG, F22_MSG, F23_MSG, F24_MSG, F25_MSG, OP2_MSG, OT4_MSG, OU4_MSG, SPC_MSG + NEU_MSG, F21_MSG, F22_MSG, F23_MSG, F24_MSG, F25_MSG, OP2_MSG, OT4_MSG, OU4_MSG, SPC_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, RESTART USE TIMDAT, ONLY : TSEC, stime IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: START_HOUR ! The hour when MYSTRAN started. INTEGER(LONG), INTENT(IN) :: START_MINUTE ! The minute when MYSTRAN started. @@ -80,7 +80,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START INTEGER(LONG), INTENT(IN) :: START_YEAR ! The year when MYSTRAN started. INTEGER(LONG), INTENT(IN) :: START_MONTH ! The month when MYSTRAN started. INTEGER(LONG), INTENT(IN) :: START_DAY ! The day when MYSTRAN started. - + END SUBROUTINE MYSTRAN_FILES END INTERFACE diff --git a/Source/Interfaces/NET_CG_LOADS_LTM_Interface.f90 b/Source/Interfaces/NET_CG_LOADS_LTM_Interface.f90 index fe5244b6..5a29ac0f 100644 --- a/Source/Interfaces/NET_CG_LOADS_LTM_Interface.f90 +++ b/Source/Interfaces/NET_CG_LOADS_LTM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE NET_CG_LOADS_LTM_Interface @@ -30,7 +30,7 @@ MODULE NET_CG_LOADS_LTM_Interface SUBROUTINE NET_CG_LOADS_LTM - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFR, NTERM_MRRcbn, NTERM_MRN, NTERM_CG_LTM, NUM_CB_DOFS @@ -40,15 +40,15 @@ SUBROUTINE NET_CG_LOADS_LTM USE RIGID_BODY_DISP_MATS, ONLY : TR6_CG, TR6_0 USE MODEL_STUF, ONLY : MCG USE OUTPUT4_MATRICES, ONLY : RBM0 - USE SPARSE_MATRICES, ONLY : SYM_MRN , SYM_MRRcbn, SYM_CG_LTM + USE SPARSE_MATRICES, ONLY : SYM_MRN , SYM_MRRcbn, SYM_CG_LTM USE SPARSE_MATRICES, ONLY : I_MRRcbn , J_MRRcbn , MRRcbn , I_MRN , J_MRN , MRN , & - I_CG_LTM , J_CG_LTM , CG_LTM + I_CG_LTM , J_CG_LTM , CG_LTM USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1, I_CRS2, J_CRS2, CRS2, I_CCS1, J_CCS1, CCS1 IMPLICIT NONE - + REAL(DOUBLE) :: SMALL ! A number used in filtering out small numbers from a full matrix diff --git a/Source/Interfaces/NEXTC0_Interface.f90 b/Source/Interfaces/NEXTC0_Interface.f90 index d3ea40db..00c07260 100644 --- a/Source/Interfaces/NEXTC0_Interface.f90 +++ b/Source/Interfaces/NEXTC0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE NEXTC0_Interface diff --git a/Source/Interfaces/NEXTC20_Interface.f90 b/Source/Interfaces/NEXTC20_Interface.f90 index 00ef3527..fdf58f59 100644 --- a/Source/Interfaces/NEXTC20_Interface.f90 +++ b/Source/Interfaces/NEXTC20_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE NEXTC20_Interface @@ -30,22 +30,22 @@ MODULE NEXTC20_Interface SUBROUTINE NEXTC20 ( PARENT, ICONT, IERR, CHILD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN1, INFILE USE SCONTR, ONLY : BD_ENTRY_LEN, BLNK_SUB_NAM, ECHO, FATAL_ERR, JCARD_LEN USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - - CHARACTER(LEN=*), INTENT(IN) :: PARENT ! - CHARACTER(LEN=BD_ENTRY_LEN), INTENT(OUT) :: CHILD ! + CHARACTER(LEN=*), INTENT(IN) :: PARENT ! + + CHARACTER(LEN=BD_ENTRY_LEN), INTENT(OUT) :: CHILD ! INTEGER(LONG), INTENT(OUT) :: ICONT ! =1 if next card is current card's continuation or =0 if not INTEGER(LONG), INTENT(OUT) :: IERR ! Error indicator from subr FFIELD, called herein - + END SUBROUTINE NEXTC20 END INTERFACE diff --git a/Source/Interfaces/NEXTC2_Interface.f90 b/Source/Interfaces/NEXTC2_Interface.f90 index 0d1a3b8a..de4db965 100644 --- a/Source/Interfaces/NEXTC2_Interface.f90 +++ b/Source/Interfaces/NEXTC2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE NEXTC2_Interface @@ -30,22 +30,22 @@ MODULE NEXTC2_Interface SUBROUTINE NEXTC2 ( PARENT, ICONT, IERR, CHILD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN1, INFILE USE SCONTR, ONLY : BD_ENTRY_LEN, BLNK_SUB_NAM, ECHO, FATAL_ERR, JCARD_LEN USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - - CHARACTER(LEN=*), INTENT(IN) :: PARENT ! - CHARACTER(LEN=BD_ENTRY_LEN), INTENT(OUT) :: CHILD ! + CHARACTER(LEN=*), INTENT(IN) :: PARENT ! + + CHARACTER(LEN=BD_ENTRY_LEN), INTENT(OUT) :: CHILD ! INTEGER(LONG), INTENT(OUT) :: ICONT ! =1 if next card is current card's continuation or =0 if not INTEGER(LONG), INTENT(OUT) :: IERR ! Error indicator from subr FFIELD, called herein - + END SUBROUTINE NEXTC2 END INTERFACE diff --git a/Source/Interfaces/NEXTC_Interface.f90 b/Source/Interfaces/NEXTC_Interface.f90 index 88395d54..893ecf50 100644 --- a/Source/Interfaces/NEXTC_Interface.f90 +++ b/Source/Interfaces/NEXTC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE NEXTC_Interface @@ -30,20 +30,20 @@ MODULE NEXTC_Interface SUBROUTINE NEXTC ( CARD, ICONT, IERR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN1, INFILE USE SCONTR, ONLY : BD_ENTRY_LEN, BLNK_SUB_NAM, ECHO, FATAL_ERR, JCARD_LEN USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A MYSTRAN data card - + INTEGER(LONG), INTENT(OUT) :: ICONT ! =1 if next card is current card's continuation or =0 if not INTEGER(LONG), INTENT(OUT) :: IERR ! Error indicator from subr FFIELD, called herein - + END SUBROUTINE NEXTC END INTERFACE diff --git a/Source/Interfaces/OFP1_Interface.f90 b/Source/Interfaces/OFP1_Interface.f90 index 7a0b1123..8432d5b1 100644 --- a/Source/Interfaces/OFP1_Interface.f90 +++ b/Source/Interfaces/OFP1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP1_Interface @@ -51,11 +51,11 @@ SUBROUTINE OFP1 ( JVEC, WHAT, SC_OUT_REQ, FEMAP_SET_ID, ITG, OT4_GROW, ITABLE, N CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRD_PRT_OUTPUTS, called herein CHARACTER( 1*BYTE) :: WRITE_OGEL(NGRID) ! 'Y'/'N' as to whether to write OGEL for a grid (used to avoid writing INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITG ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITG ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(IN) :: SC_OUT_REQ ! If > 0, then req1uests for WHAT are to be output INTEGER(LONG), INTENT(INOUT) :: OT4_GROW ! Row number in OT4 file for grid related OTM descriptors - INTEGER(LONG), INTENT(INOUT) :: ITABLE ! + INTEGER(LONG), INTENT(INOUT) :: ITABLE ! LOGICAL, INTENT(INOUT) :: NEW_RESULT ! is this the first result of a table INTEGER(LONG) :: NREQ ! Number of user requested outputs of displ/force diff --git a/Source/Interfaces/OFP2_Interface.f90 b/Source/Interfaces/OFP2_Interface.f90 index fc4c9ecd..0920d5d3 100644 --- a/Source/Interfaces/OFP2_Interface.f90 +++ b/Source/Interfaces/OFP2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP2_Interface @@ -65,11 +65,11 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRD_PRT_OUTPUTS, called herein CHARACTER(1*BYTE) :: WRITE_OGEL(NGRID) ! 'Y'/'N' as to whether to write OGEL for a grid (used to avoid writing INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITG ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITG ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(IN) :: SC_OUT_REQ ! If > 0, then req1uests for WHAT are to be output INTEGER(LONG), INTENT(INOUT) :: OT4_GROW ! Row number in OT4 file for grid related OTM descriptors - INTEGER(LONG), INTENT(INOUT) :: ITABLE ! + INTEGER(LONG), INTENT(INOUT) :: ITABLE ! LOGICAL, INTENT(INOUT) :: NEW_RESULT ! is this the first result of a table INTEGER(LONG) :: NREQ ! Number of user requested outputs of displ/force diff --git a/Source/Interfaces/OFP3_ELFE_1D_Interface.f90 b/Source/Interfaces/OFP3_ELFE_1D_Interface.f90 index caecc649..54aa23e3 100644 --- a/Source/Interfaces/OFP3_ELFE_1D_Interface.f90 +++ b/Source/Interfaces/OFP3_ELFE_1D_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + ! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_ELFE_1D_Interface @@ -43,17 +43,17 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ELMTYP, ELOUT, FCONV, METYPE, NUM_EMG_FATAL_ERRS, PEL, PLY_NUM, STRESS, TYPE, XEL USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, MAXREQ, OGEL USE OUTPUT4_MATRICES, ONLY : OTM_ELFE, TXT_ELFE - + IMPLICIT NONE - + CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors - + END SUBROUTINE OFP3_ELFE_1D END INTERFACE diff --git a/Source/Interfaces/OFP3_ELFE_2D_Interface.f90 b/Source/Interfaces/OFP3_ELFE_2D_Interface.f90 index 15ea1a53..08272c29 100644 --- a/Source/Interfaces/OFP3_ELFE_2D_Interface.f90 +++ b/Source/Interfaces/OFP3_ELFE_2D_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_ELFE_2D_Interface @@ -34,7 +34,7 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : WRT_BUG, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ELOUT_ELFE_BIT, FATAL_ERR, IBIT, INT_SC_NUM, MBUG, MOGEL, & - WARN_ERR, NELE, NCQUAD4, NCQUAD4K, NCSHEAR, NCTRIA3, NCTRIA3K, SOL_NAME + WARN_ERR, NELE, NCQUAD4, NCQUAD4K, NCSHEAR, NCTRIA3, NCTRIA3K, SOL_NAME USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE FEMAP_ARRAYS, ONLY : FEMAP_EL_NUMS, FEMAP_EL_VECS @@ -44,18 +44,18 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) PLY_NUM, TYPE, STRESS USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, MAXREQ, OGEL USE OUTPUT4_MATRICES, ONLY : OTM_ELFE, TXT_ELFE - + IMPLICIT NONE - + CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors integer(long) :: num_pcomp_elems ! number of elements that are composites (used to prevent output of engr - + END SUBROUTINE OFP3_ELFE_2D END INTERFACE diff --git a/Source/Interfaces/OFP3_ELFN_Interface.f90 b/Source/Interfaces/OFP3_ELFN_Interface.f90 index 36ab2dda..877a27af 100644 --- a/Source/Interfaces/OFP3_ELFN_Interface.f90 +++ b/Source/Interfaces/OFP3_ELFN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_ELFN_Interface @@ -34,7 +34,7 @@ SUBROUTINE OFP3_ELFN ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : WRT_BUG, WRT_FIJ, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ELOUT_ELFN_BIT, ELDT_BUG_U_P_BIT, ELDT_F25_U_P_BIT, FATAL_ERR,NELE, IBIT, & - INT_SC_NUM, MBUG, MOGEL, SOL_NAME + INT_SC_NUM, MBUG, MOGEL, SOL_NAME USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : ELFORCEN, OTMSKIP @@ -42,17 +42,17 @@ SUBROUTINE OFP3_ELFN ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) PEB, PEG, PEL, PLY_NUM, TYPE, SCNUM USE LINK9_STUFF, ONLY : GID_OUT_ARRAY, EID_OUT_ARRAY, MAXREQ, OGEL USE OUTPUT4_MATRICES, ONLY : OTM_ELFN, TXT_ELFN - + IMPLICIT NONE - + CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors - + END SUBROUTINE OFP3_ELFN END INTERFACE diff --git a/Source/Interfaces/OFP3_Interface.f90 b/Source/Interfaces/OFP3_Interface.f90 index 88bb781d..47454e61 100644 --- a/Source/Interfaces/OFP3_Interface.f90 +++ b/Source/Interfaces/OFP3_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_Interface @@ -30,7 +30,7 @@ MODULE OFP3_Interface SUBROUTINE OFP3 ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06, WRT_FIJ USE SCONTR, ONLY : BLNK_SUB_NAM, MFIJ, MOGEL @@ -38,16 +38,16 @@ SUBROUTINE OFP3 ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : ANY_ELFE_OUTPUT, ANY_ELFN_OUTPUT, ANY_STRE_OUTPUT, ANY_STRN_OUTPUT USE LINK9_STUFF, ONLY : MAXREQ, OGEL - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors INTEGER(LONG), PARAMETER :: MERROR = 6 ! Number of error indicators used - + END SUBROUTINE OFP3 END INTERFACE diff --git a/Source/Interfaces/OFP3_STRE_NO_PCOMP_Interface.f90 b/Source/Interfaces/OFP3_STRE_NO_PCOMP_Interface.f90 index 4a182fdf..643ba053 100644 --- a/Source/Interfaces/OFP3_STRE_NO_PCOMP_Interface.f90 +++ b/Source/Interfaces/OFP3_STRE_NO_PCOMP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_STRE_NO_PCOMP_Interface @@ -47,18 +47,18 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) USE CC_OUTPUT_DESCRIBERS, ONLY : STRE_LOC, STRE_OPT USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, GID_OUT_ARRAY, MAXREQ, OGEL, POLY_FIT_ERR, POLY_FIT_ERR_INDEX USE OUTPUT4_MATRICES, ONLY : OTM_STRE, TXT_STRE - + IMPLICIT NONE - + CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors INTEGER(LONG) :: NDUM ! Value initialized to zero and used in call to CALC_ELEM_STRESSES - + ! Array of %errs from subr POLYNOM_FIT_STRE_STRN (only NUM_PTS vals used) END SUBROUTINE OFP3_STRE_NO_PCOMP diff --git a/Source/Interfaces/OFP3_STRE_PCOMP_Interface.f90 b/Source/Interfaces/OFP3_STRE_PCOMP_Interface.f90 index fff5deda..bc469d0e 100644 --- a/Source/Interfaces/OFP3_STRE_PCOMP_Interface.f90 +++ b/Source/Interfaces/OFP3_STRE_PCOMP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_STRE_PCOMP_Interface @@ -43,17 +43,17 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) NUM_PLIES, PCOMP_PROPS, PLY_NUM, THETA_PLY, TYPE USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, MAXREQ, OGEL USE OUTPUT4_MATRICES, ONLY : OTM_STRE, TXT_STRE - + IMPLICIT NONE - + CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors - + END SUBROUTINE OFP3_STRE_PCOMP END INTERFACE diff --git a/Source/Interfaces/OFP3_STRN_NO_PCOMP_Interface.f90 b/Source/Interfaces/OFP3_STRN_NO_PCOMP_Interface.f90 index 3b79c660..290ab4b8 100644 --- a/Source/Interfaces/OFP3_STRN_NO_PCOMP_Interface.f90 +++ b/Source/Interfaces/OFP3_STRN_NO_PCOMP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_STRN_NO_PCOMP_Interface @@ -46,17 +46,17 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_LOC, STRN_OPT USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, GID_OUT_ARRAY, MAXREQ, OGEL, POLY_FIT_ERR, POLY_FIT_ERR_INDEX USE OUTPUT4_MATRICES, ONLY : OTM_STRN, TXT_STRN - + IMPLICIT NONE - + CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors - + ! Array of %errs from subr POLYNOM_FIT_STRE_STRN (only NUM_PTS vals used) END SUBROUTINE OFP3_STRN_NO_PCOMP diff --git a/Source/Interfaces/OFP3_STRN_PCOMP_Interface.f90 b/Source/Interfaces/OFP3_STRN_PCOMP_Interface.f90 index f9aaf495..29706d9a 100644 --- a/Source/Interfaces/OFP3_STRN_PCOMP_Interface.f90 +++ b/Source/Interfaces/OFP3_STRN_PCOMP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_STRN_PCOMP_Interface @@ -43,17 +43,17 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) NUM_PLIES, PCOMP_PROPS, PLY_NUM, THETA_PLY, TYPE USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, MAXREQ, OGEL USE OUTPUT4_MATRICES, ONLY : OTM_STRN, TXT_STRN - + IMPLICIT NONE - + CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors - + END SUBROUTINE OFP3_STRN_PCOMP END INTERFACE diff --git a/Source/Interfaces/ONE_D_STRAIN_OUTPUTS_Interface.f90 b/Source/Interfaces/ONE_D_STRAIN_OUTPUTS_Interface.f90 index 3fe3c5bf..570d3bfe 100644 --- a/Source/Interfaces/ONE_D_STRAIN_OUTPUTS_Interface.f90 +++ b/Source/Interfaces/ONE_D_STRAIN_OUTPUTS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ONE_D_STRAIN_OUTPUTS_Interface @@ -30,10 +30,10 @@ MODULE ONE_D_STRAIN_OUTPUTS_Interface SUBROUTINE ONE_D_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : STRAIN, TYPE, ZS @@ -46,12 +46,12 @@ SUBROUTINE ONE_D_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG CHARACTER(1*BYTE) :: MSP1,MSP2,MSP3 ! Output from subr MARGIN used to control how margins of safety printed CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP_EL_VECS - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr - + END SUBROUTINE ONE_D_STRAIN_OUTPUTS END INTERFACE diff --git a/Source/Interfaces/ONE_D_STRESS_OUTPUTS_Interface.f90 b/Source/Interfaces/ONE_D_STRESS_OUTPUTS_Interface.f90 index 27b3da26..39f799d9 100644 --- a/Source/Interfaces/ONE_D_STRESS_OUTPUTS_Interface.f90 +++ b/Source/Interfaces/ONE_D_STRESS_OUTPUTS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ONE_D_STRESS_OUTPUTS_Interface @@ -30,10 +30,10 @@ MODULE ONE_D_STRESS_OUTPUTS_Interface SUBROUTINE ONE_D_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : STRESS, TYPE, ZS @@ -46,12 +46,12 @@ SUBROUTINE ONE_D_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG CHARACTER(1*BYTE) :: MSP1,MSP2,MSP3 ! Output from subr MARGIN used to control how margins of safety printed CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP_EL_VECS - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr - + END SUBROUTINE ONE_D_STRESS_OUTPUTS END INTERFACE diff --git a/Source/Interfaces/OPEN_OUTFILES_Interface.f90 b/Source/Interfaces/OPEN_OUTFILES_Interface.f90 index e209238e..c48a05aa 100644 --- a/Source/Interfaces/OPEN_OUTFILES_Interface.f90 +++ b/Source/Interfaces/OPEN_OUTFILES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OPEN_OUTFILES_Interface diff --git a/Source/Interfaces/OPNERR_Interface.f90 b/Source/Interfaces/OPNERR_Interface.f90 index 183b0e34..7cf16952 100644 --- a/Source/Interfaces/OPNERR_Interface.f90 +++ b/Source/Interfaces/OPNERR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OPNERR_Interface @@ -30,18 +30,18 @@ MODULE OPNERR_Interface SUBROUTINE OPNERR ( IOCHK, FILNAM, OUNT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : FATAL_ERR, RESTART - + IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - + INTEGER(LONG), INTENT(IN) :: IOCHK ! IOSTAT error number when opening/reading a file INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to - + END SUBROUTINE OPNERR END INTERFACE diff --git a/Source/Interfaces/ORDER_GAUSS_Interface.f90 b/Source/Interfaces/ORDER_GAUSS_Interface.f90 index 5197ee9c..346be027 100644 --- a/Source/Interfaces/ORDER_GAUSS_Interface.f90 +++ b/Source/Interfaces/ORDER_GAUSS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ORDER_GAUSS_Interface @@ -30,7 +30,7 @@ MODULE ORDER_GAUSS_Interface SUBROUTINE ORDER_GAUSS ( KORDER, SSS, HHH ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_GAUSS, MEFE @@ -38,15 +38,15 @@ SUBROUTINE ORDER_GAUSS ( KORDER, SSS, HHH ) USE CONSTANTS_1, ONLY : ZERO, TWO USE CONSTANTS_GAUSS, ONLY : HHV, SSV USE MODEL_STUF, ONLY : EMG_IFE, ERR_SUB_NAM, NUM_EMG_FATAL_ERRS - + IMPLICIT NONE INTEGER(LONG), INTENT(IN) :: KORDER ! Gaussian integration order to use - + REAL(DOUBLE) ,INTENT(OUT) :: SSS(MAX_ORDER_GAUSS) ! Gauss abscissa's REAL(DOUBLE) ,INTENT(OUT) :: HHH(MAX_ORDER_GAUSS) ! Gauss weight coeffs - + END SUBROUTINE ORDER_GAUSS END INTERFACE diff --git a/Source/Interfaces/ORDER_TETRA_Interface.f90 b/Source/Interfaces/ORDER_TETRA_Interface.f90 index a36a1685..8a3d7eb2 100644 --- a/Source/Interfaces/ORDER_TETRA_Interface.f90 +++ b/Source/Interfaces/ORDER_TETRA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ORDER_TETRA_Interface @@ -30,25 +30,25 @@ MODULE ORDER_TETRA_Interface SUBROUTINE ORDER_TETRA ( KORDER, SSS_I, SSS_J, SSS_K, HHH_IJK ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_TETRA USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, SIXTH, QUARTER, HALF, ONE, TWO, TWELVE - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: KORDER ! Triangular integration order to use - + REAL(DOUBLE) , INTENT(OUT) :: SSS_I (MAX_ORDER_TETRA) ! Gauss abscissa's REAL(DOUBLE) , INTENT(OUT) :: SSS_J (MAX_ORDER_TETRA) ! Gauss abscissa's REAL(DOUBLE) , INTENT(OUT) :: SSS_K (MAX_ORDER_TETRA) ! Gauss abscissa's REAL(DOUBLE) , INTENT(OUT) :: HHH_IJK(MAX_ORDER_TETRA) ! Gauss weight coeffs REAL(DOUBLE) , PARAMETER :: ALPHA = .58541020D0 ! Intermediate constant REAL(DOUBLE) , PARAMETER :: BETA = .13819660D0 ! Intermediate constant - + END SUBROUTINE ORDER_TETRA END INTERFACE diff --git a/Source/Interfaces/ORDER_TRIA_Interface.f90 b/Source/Interfaces/ORDER_TRIA_Interface.f90 index 8c39faad..9e543e37 100644 --- a/Source/Interfaces/ORDER_TRIA_Interface.f90 +++ b/Source/Interfaces/ORDER_TRIA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ORDER_TRIA_Interface @@ -30,18 +30,18 @@ MODULE ORDER_TRIA_Interface SUBROUTINE ORDER_TRIA ( KORDER, SS_I, SS_J, HH_IJ ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_TRIA USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, SIXTH, THIRD, HALF, TWO - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: KORDER ! Triangular integration order to use - + REAL(DOUBLE) ,INTENT(OUT) :: SS_I(MAX_ORDER_TRIA) ! Triangular integration abscissa's REAL(DOUBLE) ,INTENT(OUT) :: SS_J(MAX_ORDER_TRIA) ! Triangular integration abscissa's REAL(DOUBLE) ,INTENT(OUT) :: HH_IJ(MAX_ORDER_TRIA) ! Triangular integration weight coeffs @@ -52,7 +52,7 @@ SUBROUTINE ORDER_TRIA ( KORDER, SS_I, SS_J, HH_IJ ) REAL(DOUBLE) , PARAMETER :: W1 = .1125D0 ! Intermediate constant REAL(DOUBLE) , PARAMETER :: W2 = .0661970763D0 ! Intermediate constant REAL(DOUBLE) , PARAMETER :: W3 = .0629695902D0 ! Intermediate constant - + END SUBROUTINE ORDER_TRIA END INTERFACE diff --git a/Source/Interfaces/OU4_PARTVEC_PROC_Interface.f90 b/Source/Interfaces/OU4_PARTVEC_PROC_Interface.f90 index 2cb44261..215b4aba 100644 --- a/Source/Interfaces/OU4_PARTVEC_PROC_Interface.f90 +++ b/Source/Interfaces/OU4_PARTVEC_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OU4_PARTVEC_PROC_Interface @@ -31,7 +31,7 @@ MODULE OU4_PARTVEC_PROC_Interface SUBROUTINE OU4_PARTVEC_PROC ( INDEX, OU4_MAT_NAME, NROWS_F, NCOLS_F, ROW_SET, COL_SET, CAN_PARTN, NROWS_P, NCOLS_P, & VAL_ROWS, VAL_COLS ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06, L1V, L1V_MSG, LINK1V USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MTSET, NDOFG, NGRID, NUM_PARTVEC_RECORDS, WARN_ERR @@ -44,7 +44,7 @@ SUBROUTINE OU4_PARTVEC_PROC ( INDEX, OU4_MAT_NAME, NROWS_F, NCOLS_F, ROW_SET, CO USE MODEL_STUF, ONLY : GRID, GRID_ID, INV_GRID_SEQ USE PARAMS, ONLY : PRTPSET, SUPINFO - + IMPLICIT NONE CHARACTER(LEN(ACT_OU4_MYSTRAN_NAMES)),INTENT(IN) :: OU4_MAT_NAME @@ -69,7 +69,7 @@ SUBROUTINE OU4_PARTVEC_PROC ( INDEX, OU4_MAT_NAME, NROWS_F, NCOLS_F, ROW_SET, CO INTEGER(LONG), INTENT(OUT) :: VAL_COLS ! Number to enter into PARTVEC_COL for a col that is to be partitioned INTEGER(LONG), INTENT(OUT) :: VAL_ROWS ! Number to enter into PARTVEC_ROW for a row that is to be partitioned - + END SUBROUTINE OU4_PARTVEC_PROC END INTERFACE diff --git a/Source/Interfaces/OURDAT_Interface.f90 b/Source/Interfaces/OURDAT_Interface.f90 index f08d5111..d3399361 100644 --- a/Source/Interfaces/OURDAT_Interface.f90 +++ b/Source/Interfaces/OURDAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OURDAT_Interface @@ -30,12 +30,12 @@ MODULE OURDAT_Interface SUBROUTINE OURDAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE TIMDAT, ONLY : YEAR, MONTH, DAY - + IMPLICIT NONE - + END SUBROUTINE OURDAT END INTERFACE diff --git a/Source/Interfaces/OURTIM_Interface.f90 b/Source/Interfaces/OURTIM_Interface.f90 index 47664057..6fbe20ae 100644 --- a/Source/Interfaces/OURTIM_Interface.f90 +++ b/Source/Interfaces/OURTIM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OURTIM_Interface @@ -30,12 +30,12 @@ MODULE OURTIM_Interface SUBROUTINE OURTIM - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC, DSEC IMPLICIT NONE - + END SUBROUTINE OURTIM END INTERFACE diff --git a/Source/Interfaces/OUTA_HERE_Interface.f90 b/Source/Interfaces/OUTA_HERE_Interface.f90 index 8097df81..cd891dc4 100644 --- a/Source/Interfaces/OUTA_HERE_Interface.f90 +++ b/Source/Interfaces/OUTA_HERE_Interface.f90 @@ -1,48 +1,48 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OUTA_HERE_Interface INTERFACE - SUBROUTINE OUTA_HERE ( WRITE_TO_L1A ) + SUBROUTINE OUTA_HERE ( WRITE_TO_L1A ) + - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUGOUT, F06FIL, SC1, & BUGSTAT, BUGSTAT_OLD, ERRSTAT, ERRSTAT_OLD, & - OP2STAT, PCHSTAT, L1ASTAT + OP2STAT, PCHSTAT, L1ASTAT - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LINKNO, WARN_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LINKNO, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN - + IMPLICIT NONE - + CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_TO_L1A ! Y/N indicator of whether to call subr WRITE_L1A diff --git a/Source/Interfaces/OUTER_PRODUCT_Interface.f90 b/Source/Interfaces/OUTER_PRODUCT_Interface.f90 index 55310a62..f92798d8 100644 --- a/Source/Interfaces/OUTER_PRODUCT_Interface.f90 +++ b/Source/Interfaces/OUTER_PRODUCT_Interface.f90 @@ -1,35 +1,35 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OUTER_PRODUCT_Interface INTERFACE SUBROUTINE OUTER_PRODUCT ( A, B, NA, NB, C ) - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE IMPLICIT NONE @@ -37,11 +37,11 @@ SUBROUTINE OUTER_PRODUCT ( A, B, NA, NB, C ) INTEGER(LONG), INTENT(IN) :: NA ! No. elements in input vector A INTEGER(LONG), INTENT(IN) :: NB ! No. elements in input vector B INTEGER(LONG) :: I,J ! DO loop indices - + REAL(DOUBLE) , INTENT(IN) :: A(NA) ! Input vector A REAL(DOUBLE) , INTENT(IN) :: B(NB) ! Input vector B REAL(DOUBLE) , INTENT(OUT) :: C(NA,NB) ! Output matrix C - + END SUBROUTINE OUTER_PRODUCT END INTERFACE diff --git a/Source/Interfaces/OUTPUT4_MATRIX_MSGS_Interface.f90 b/Source/Interfaces/OUTPUT4_MATRIX_MSGS_Interface.f90 index 928c048d..943cd537 100644 --- a/Source/Interfaces/OUTPUT4_MATRIX_MSGS_Interface.f90 +++ b/Source/Interfaces/OUTPUT4_MATRIX_MSGS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OUTPUT4_MATRIX_MSGS_Interface diff --git a/Source/Interfaces/OUTPUT4_PROC_Interface.f90 b/Source/Interfaces/OUTPUT4_PROC_Interface.f90 index 40cd470b..2abe34a6 100644 --- a/Source/Interfaces/OUTPUT4_PROC_Interface.f90 +++ b/Source/Interfaces/OUTPUT4_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OUTPUT4_PROC_Interface @@ -30,7 +30,7 @@ MODULE OUTPUT4_PROC_Interface SUBROUTINE OUTPUT4_PROC ( CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, MOU4, OU4, OU4_MSG, OU4FIL @@ -47,7 +47,7 @@ SUBROUTINE OUTPUT4_PROC ( CALLING_SUBR ) USE MODEL_STUF, ONLY : MCG USE PARAMS, ONLY : MPFOUT - USE EIGEN_MATRICES_1, ONLY : EIGEN_VAL, EIGEN_VEC, GEN_MASS, MEFFMASS, MPFACTOR_N6, MPFACTOR_NR + USE EIGEN_MATRICES_1, ONLY : EIGEN_VAL, EIGEN_VEC, GEN_MASS, MEFFMASS, MPFACTOR_N6, MPFACTOR_NR USE FULL_MATRICES, ONLY : DUM1, PHIZG_FULL @@ -78,7 +78,7 @@ SUBROUTINE OUTPUT4_PROC ( CALLING_SUBR ) OU4_PART_MAT_NAMES, OU4_PART_VEC_NAMES, RBM0, SUBR_WHEN_TO_WRITE_OU4_MATS USE TIMDAT, ONLY : TSEC - USE RIGID_BODY_DISP_MATS, ONLY : TR6_CG, TR6_0 + USE RIGID_BODY_DISP_MATS, ONLY : TR6_CG, TR6_0 USE EIGEN_MATRICES_1, ONLY : GEN_MASS, EIGEN_VAL, EIGEN_VEC, MEFFMASS, MPFACTOR_N6, MPFACTOR_NR USE SPARSE_MATRICES, ONLY : I_CG_LTM, J_CG_LTM, CG_LTM, I_DLR , J_DLR , DLR , & @@ -89,15 +89,15 @@ SUBROUTINE OUTPUT4_PROC ( CALLING_SUBR ) I_MLL , J_MLL , MLL , I_MRL , J_MRL , MRL , & I_MRN , J_MRN , MRN , I_MRR , J_MRR , MRR , & I_MRRcb , J_MRRcb , MRRcb , I_MXX , J_MXX , MXX , & - I_PHIXG , J_PHIXG , PHIXG + I_PHIXG , J_PHIXG , PHIXG USE SPARSE_MATRICES, ONLY : I_KAA, J_KAA, KAA, I_KGG, J_KGG, KGG, I_MAA, J_MAA, MAA, I_MGG, J_MGG, MGG, & I_PA , J_PA , PA , I_PG , J_PG , PG , I_PL , J_PL , PL USE FULL_MATRICES, ONLY : PHIZG_FULL - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this one diff --git a/Source/Interfaces/PARAM_CORDS_ACT_CORDS_Interface.f90 b/Source/Interfaces/PARAM_CORDS_ACT_CORDS_Interface.f90 index 8f61dcfa..85c5e596 100644 --- a/Source/Interfaces/PARAM_CORDS_ACT_CORDS_Interface.f90 +++ b/Source/Interfaces/PARAM_CORDS_ACT_CORDS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PARAM_CORDS_ACT_CORDS_Interface diff --git a/Source/Interfaces/PARSE_CHAR_STRING_Interface.f90 b/Source/Interfaces/PARSE_CHAR_STRING_Interface.f90 index 56166fb1..86c48e6e 100644 --- a/Source/Interfaces/PARSE_CHAR_STRING_Interface.f90 +++ b/Source/Interfaces/PARSE_CHAR_STRING_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PARSE_CHAR_STRING_Interface @@ -30,16 +30,16 @@ MODULE PARSE_CHAR_STRING_Interface SUBROUTINE PARSE_CHAR_STRING ( CHAR_STRING, STRING_LEN, MAX_WORDS, MWLEN, NUM_WORDS, WORDS, IERR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, WARN_ERR USE TIMDAT, ONLY : TSEC - USE DEBUG_PARAMETERS + USE DEBUG_PARAMETERS IMPLICIT NONE - - INTEGER(LONG), PARAMETER :: MAX_LEN_BAD_WRD=150! + + INTEGER(LONG), PARAMETER :: MAX_LEN_BAD_WRD=150! INTEGER(LONG), INTENT(IN) :: MAX_WORDS ! Dim of WORDS (number of words in CHAR_STRING cannot exceed this) INTEGER(LONG), INTENT(IN) :: MWLEN ! Maximum length, in characters, of the entries in array WORDS @@ -51,7 +51,7 @@ SUBROUTINE PARSE_CHAR_STRING ( CHAR_STRING, STRING_LEN, MAX_WORDS, MWLEN, NUM_WO INTEGER(LONG), INTENT(OUT) :: IERR ! Error designator INTEGER(LONG), INTENT(OUT) :: NUM_WORDS ! Number of distinct words in CHAR_STRING - + END SUBROUTINE PARSE_CHAR_STRING END INTERFACE diff --git a/Source/Interfaces/PARTITION_FF_Interface.f90 b/Source/Interfaces/PARTITION_FF_Interface.f90 index 8e660ce1..39cc4ce8 100644 --- a/Source/Interfaces/PARTITION_FF_Interface.f90 +++ b/Source/Interfaces/PARTITION_FF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PARTITION_FF_Interface @@ -30,28 +30,28 @@ MODULE PARTITION_FF_Interface SUBROUTINE PARTITION_FF ( MAT_A_NAME, NROW_A, NCOL_A, A, ROW_PART_VEC, COL_PART_VEC, VAL_ROWS, VAL_COLS, & - MAT_B_NAME, NROW_B, NCOL_B, B ) - + MAT_B_NAME, NROW_B, NCOL_B, B ) + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of partitioned output matrix CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of input matrix to be partitioned INTEGER(LONG) , INTENT(IN) :: NCOL_A ! No. cols in A INTEGER(LONG) , INTENT(IN) :: NROW_A ! No. rows in A INTEGER(LONG) , INTENT(IN) :: COL_PART_VEC(NCOL_A) ! Col partitioning vector (1's and 2's) INTEGER(LONG) , INTENT(IN) :: ROW_PART_VEC(NROW_A) ! Row partitioning vector (1's and 2's) - INTEGER(LONG) , INTENT(IN) :: VAL_ROWS ! Value in ROW_PART_VEC to look for for partitioning rows + INTEGER(LONG) , INTENT(IN) :: VAL_ROWS ! Value in ROW_PART_VEC to look for for partitioning rows INTEGER(LONG) , INTENT(IN) :: VAL_COLS ! Value in COL_PART_VEC to look for for partitioning cols INTEGER(LONG) , INTENT(IN) :: NCOL_B ! No. cols in B INTEGER(LONG) , INTENT(IN) :: NROW_B ! No. rows in B - + REAL(DOUBLE) , INTENT(IN ) :: A(NROW_A,NCOL_A) ! Input matrix REAL(DOUBLE) , INTENT(OUT) :: B(NROW_B,NCOL_B) ! Output matrix diff --git a/Source/Interfaces/PARTITION_SS_Interface.f90 b/Source/Interfaces/PARTITION_SS_Interface.f90 index bf0754e7..bd125948 100644 --- a/Source/Interfaces/PARTITION_SS_Interface.f90 +++ b/Source/Interfaces/PARTITION_SS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PARTITION_SS_Interface @@ -31,17 +31,17 @@ MODULE PARTITION_SS_Interface SUBROUTINE PARTITION_SS ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A, A & , ROW_PART_VEC, COL_PART_VEC, VAL_ROWS, VAL_COLS, AROW_MAX_TERMS & - , MAT_B_NAME, NTERM_B, NROW_B, SYM_B, I_B, J_B, B ) - + , MAT_B_NAME, NTERM_B, NROW_B, SYM_B, I_B, J_B, B ) + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=*), INTENT(IN ) :: SYM_A ! 'Y' if input matrix is symmetric (and terms below diag CHARACTER(LEN=*), INTENT(IN ) :: SYM_B ! 'Y' if all terms (incl below diag) are to be output for @@ -59,12 +59,12 @@ SUBROUTINE PARTITION_SS ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A, INTEGER(LONG), INTENT(IN ) :: I_A(NROW_A+1) ! Starting locations in A for each row INTEGER(LONG), INTENT(IN ) :: J_A(NTERM_A) ! Col number for each A input matrix term INTEGER(LONG), INTENT(IN ) :: ROW_PART_VEC(NROW_A) ! Row partitioning vector (1's and 2's) - INTEGER(LONG), INTENT(IN ) :: VAL_ROWS ! Value in ROW_PART_VEC to look for for partitioning rows + INTEGER(LONG), INTENT(IN ) :: VAL_ROWS ! Value in ROW_PART_VEC to look for for partitioning rows INTEGER(LONG), INTENT(IN ) :: VAL_COLS ! Value in COL_PART_VEC to look for for partitioning cols INTEGER(LONG), INTENT(OUT) :: I_B(NROW_B+1) ! Starting locations in B for each row INTEGER(LONG), INTENT(OUT) :: J_B(NTERM_B) ! Col number for each B output matrix term - + REAL(DOUBLE) , INTENT(IN ) :: A(NTERM_A) ! Input matrix nonzero terms REAL(DOUBLE) , INTENT(OUT) :: B(NTERM_B) ! Output matrix nonzero terms diff --git a/Source/Interfaces/PARTITION_SS_NTERM_Interface.f90 b/Source/Interfaces/PARTITION_SS_NTERM_Interface.f90 index c728453f..a2571110 100644 --- a/Source/Interfaces/PARTITION_SS_NTERM_Interface.f90 +++ b/Source/Interfaces/PARTITION_SS_NTERM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PARTITION_SS_NTERM_Interface @@ -31,19 +31,19 @@ MODULE PARTITION_SS_NTERM_Interface SUBROUTINE PARTITION_SS_NTERM ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A & , ROW_PART_VEC, COL_PART_VEC, VAL_ROWS, VAL_COLS, AROW_MAX_TERMS & - , MAT_B_NAME, NTERM_B, SYM_B ) - + , MAT_B_NAME, NTERM_B, SYM_B ) + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC USE SPARSE_ALG_ARRAYS, ONLY : ALG, J_AROW USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + CHARACTER(LEN=*), INTENT(IN ) :: SYM_A ! 'Y' if input matrix is symmetric (and terms below diag CHARACTER(LEN=*), INTENT(IN ) :: SYM_B ! 'Y' if all terms (incl below diag) are to be output for CHARACTER(LEN=*), INTENT(IN ) :: MAT_B_NAME ! Name of partitioned output matrix @@ -52,7 +52,7 @@ SUBROUTINE PARTITION_SS_NTERM ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, INTEGER(LONG), INTENT(IN ) :: NTERM_A ! No. terms in MATIN INTEGER(LONG), INTENT(IN ) :: NROW_A ! No. rows in MATIN INTEGER(LONG), INTENT(IN ) :: NCOL_A ! No. cols in MATIN - INTEGER(LONG), INTENT(IN ) :: VAL_ROWS ! Value in ROW_PART_VEC to look for for partitioning rows + INTEGER(LONG), INTENT(IN ) :: VAL_ROWS ! Value in ROW_PART_VEC to look for for partitioning rows INTEGER(LONG), INTENT(IN ) :: VAL_COLS ! Value in COL_PART_VEC to look for for partitioning cols INTEGER(LONG), INTENT(IN ) :: I_A(NROW_A+1) ! Starting locations in MATIN for each row INTEGER(LONG), INTENT(IN ) :: J_A(NTERM_A) ! Col number for each MATIN input matrix term diff --git a/Source/Interfaces/PARTITION_VEC_Interface.f90 b/Source/Interfaces/PARTITION_VEC_Interface.f90 index d6e24c43..4b67bb66 100644 --- a/Source/Interfaces/PARTITION_VEC_Interface.f90 +++ b/Source/Interfaces/PARTITION_VEC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PARTITION_VEC_Interface @@ -30,15 +30,15 @@ MODULE PARTITION_VEC_Interface SUBROUTINE PARTITION_VEC ( NDOF_X, CSET_X, CSET_1, CSET_2, PART_VEC ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TDOFI - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN ) :: CSET_X ! Char description of displ set (e.g. 'A ' or 'SG') CHARACTER(LEN=*), INTENT(IN ) :: CSET_1 ! Char description of displ set (e.g. 'A ' or 'SG') CHARACTER(LEN=*), INTENT(IN ) :: CSET_2 ! Char description of displ set (e.g. 'A ' or 'SG') diff --git a/Source/Interfaces/PENTA_Interface.f90 b/Source/Interfaces/PENTA_Interface.f90 index ad897bbf..7e77e525 100644 --- a/Source/Interfaces/PENTA_Interface.f90 +++ b/Source/Interfaces/PENTA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PENTA_Interface @@ -30,7 +30,7 @@ MODULE PENTA_Interface SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_TRIA, MAX_ORDER_GAUSS, NTSUB @@ -41,9 +41,9 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP USE MODEL_STUF, ONLY : ALPVEC, BE1, BE2, DT, EID, ELGP, NUM_EMG_FATAL_ERRS, ES, KE, KED, ME, PTE, RHO, & SE1, SE2, STE1, STRESS, TREF, TYPE - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER( 1*BYTE), INTENT(IN) :: RED_INT_SHEAR ! If 'Y', use Gaussian weighted avg of B matrices for shear terms CHARACTER( 1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not @@ -54,7 +54,7 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN INTEGER(LONG), INTENT(IN) :: IORD_K ! Integration order in Z direction INTEGER(LONG) :: GAUSS_PT ! Gauss point number (used for DEBUG output in subr SHP3DP - + REAL(DOUBLE) :: CBAR(3,3*ELGP) ! Derivatives of shape fcns wrt x,y,z used in diff stiff matrix REAL(DOUBLE) :: DUM0(3*ELGP) ! Intermediate matrix used in solving for elem matrices REAL(DOUBLE) :: DUM1(3*ELGP) ! Intermediate matrix used in solving for elem matrices @@ -69,7 +69,7 @@ SUBROUTINE PENTA ( OPT, INT_ELEM_ID, IORD_IJ, IORD_K, RED_INT_SHEAR, WRITE_WARN REAL(DOUBLE) :: SUMB ! An intermediate variable used in calc B matrix for reduced integ REAL(DOUBLE) :: SUMD ! An intermediate variable used in calc B matrix for reduced integ REAL(DOUBLE) :: TEMP ! Temperature to use in PTE calc - + END SUBROUTINE PENTA END INTERFACE diff --git a/Source/Interfaces/PINFLG_Interface.f90 b/Source/Interfaces/PINFLG_Interface.f90 index 9084df47..841781cd 100644 --- a/Source/Interfaces/PINFLG_Interface.f90 +++ b/Source/Interfaces/PINFLG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PINFLG_Interface @@ -30,7 +30,7 @@ MODULE PINFLG_Interface SUBROUTINE PINFLG ( NUM_PFLAG_DOFS ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, WARN_ERR @@ -38,13 +38,13 @@ SUBROUTINE PINFLG ( NUM_PFLAG_DOFS ) USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : EPSIL, SUPWARN USE MODEL_STUF, ONLY : EID, ELDOF, NUM_EMG_FATAL_ERRS, KE, DOFPIN, TYPE - - IMPLICIT NONE - + + IMPLICIT NONE + INTEGER(LONG), INTENT(IN) :: NUM_PFLAG_DOFS ! The number of pin flagged DOF's for this element - + END SUBROUTINE PINFLG END INTERFACE diff --git a/Source/Interfaces/PLANE_COORD_TRANS_21_Interface.f90 b/Source/Interfaces/PLANE_COORD_TRANS_21_Interface.f90 index e7ab3475..cee1f574 100644 --- a/Source/Interfaces/PLANE_COORD_TRANS_21_Interface.f90 +++ b/Source/Interfaces/PLANE_COORD_TRANS_21_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PLANE_COORD_TRANS_21_Interface @@ -30,14 +30,14 @@ MODULE PLANE_COORD_TRANS_21_Interface SUBROUTINE PLANE_COORD_TRANS_21 ( THETA, T21, CALLING_SUBR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ONE, ZERO - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this one diff --git a/Source/Interfaces/POLYNOM_FIT_STRE_STRN_Interface.f90 b/Source/Interfaces/POLYNOM_FIT_STRE_STRN_Interface.f90 index 85199eca..d1ebe0be 100644 --- a/Source/Interfaces/POLYNOM_FIT_STRE_STRN_Interface.f90 +++ b/Source/Interfaces/POLYNOM_FIT_STRE_STRN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE POLYNOM_FIT_STRE_STRN_Interface diff --git a/Source/Interfaces/POLY_FAILURE_INDEX_Interface.f90 b/Source/Interfaces/POLY_FAILURE_INDEX_Interface.f90 index e7f58151..18ecdd2f 100644 --- a/Source/Interfaces/POLY_FAILURE_INDEX_Interface.f90 +++ b/Source/Interfaces/POLY_FAILURE_INDEX_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE POLY_FAILURE_INDEX_Interface diff --git a/Source/Interfaces/PRESSURE_DATA_PROC_Interface.f90 b/Source/Interfaces/PRESSURE_DATA_PROC_Interface.f90 index e108d2ac..0a55294c 100644 --- a/Source/Interfaces/PRESSURE_DATA_PROC_Interface.f90 +++ b/Source/Interfaces/PRESSURE_DATA_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PRESSURE_DATA_PROC_Interface @@ -30,7 +30,7 @@ MODULE PRESSURE_DATA_PROC_Interface SUBROUTINE PRESSURE_DATA_PROC - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1Q USE IOUNT1, ONLY : WRT_ERR, LINK1Q @@ -42,14 +42,14 @@ SUBROUTINE PRESSURE_DATA_PROC USE PARAMS, ONLY : SUPWARN USE CONSTANTS_1, ONLY : ZERO, ONE USE MODEL_STUF, ONLY : LOAD_SIDS, LOAD_FACS, SUBLOD, PDATA, PPNT, PLOAD4_3D_DATA, PTYPE - + IMPLICIT NONE - + CHARACTER( 8*BYTE) :: TOKTYP ! Variable to test whether "THRU" option was used on B.D. PLOAD2 card CHARACTER( 8*BYTE) :: THRU ! ='Y' if THRU option used on TEMPRB, TEMPP1 continuation card - - + + END SUBROUTINE PRESSURE_DATA_PROC END INTERFACE diff --git a/Source/Interfaces/PRINCIPAL_2D_Interface.f90 b/Source/Interfaces/PRINCIPAL_2D_Interface.f90 index 65a8d4d1..bcf81bd9 100644 --- a/Source/Interfaces/PRINCIPAL_2D_Interface.f90 +++ b/Source/Interfaces/PRINCIPAL_2D_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PRINCIPAL_2D_Interface @@ -30,15 +30,15 @@ MODULE PRINCIPAL_2D_Interface SUBROUTINE PRINCIPAL_2D ( SX, SY, SXY, ANGLE, SMAJOR, SMINOR, SXYMAX, MEAN, VONMISES ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ZERO, QUARTER, HALF, TWO, ONEPM6, FORTY5, CONV_RAD_DEG - + USE CONSTANTS_1, ONLY : ZERO, QUARTER, HALF, TWO, ONEPM6, FORTY5, CONV_RAD_DEG + IMPLICIT NONE - + REAL(DOUBLE), INTENT(IN) :: SX ! Normal x stress or strain @@ -51,7 +51,7 @@ SUBROUTINE PRINCIPAL_2D ( SX, SY, SXY, ANGLE, SMAJOR, SMINOR, SXYMAX, MEAN, VONM REAL(DOUBLE), INTENT(OUT) :: SXYMAX ! Max shear stress or strain REAL(DOUBLE), INTENT(OUT) :: VONMISES ! von Mises stress or strain REAL(DOUBLE), PARAMETER :: EPS2 = ONEPM6 ! Small number to compare with ADENR, ANUMR when calculating ANGLE - + END SUBROUTINE PRINCIPAL_2D END INTERFACE diff --git a/Source/Interfaces/PRINCIPAL_3D_Interface.f90 b/Source/Interfaces/PRINCIPAL_3D_Interface.f90 index 99a97434..8bb52b5f 100644 --- a/Source/Interfaces/PRINCIPAL_3D_Interface.f90 +++ b/Source/Interfaces/PRINCIPAL_3D_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PRINCIPAL_3D_Interface @@ -30,16 +30,16 @@ MODULE PRINCIPAL_3D_Interface SUBROUTINE PRINCIPAL_3D ( STR, PRINCIPAL_STR, MEAN, VONMISES, SIG_OCT, TAU_OCT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, HALF, TWO, THREE USE PARAMS, ONLY : SUPWARN - + IMPLICIT NONE - + REAL(DOUBLE), INTENT(IN) :: STR(6) ! Stress or strain vector @@ -48,7 +48,7 @@ SUBROUTINE PRINCIPAL_3D ( STR, PRINCIPAL_STR, MEAN, VONMISES, SIG_OCT, TAU_OCT ) REAL(DOUBLE), INTENT(OUT) :: SIG_OCT ! Octrahedral normal stress or strain REAL(DOUBLE), INTENT(OUT) :: TAU_OCT ! Octrahedral shear stress or strain REAL(DOUBLE), INTENT(OUT) :: VONMISES ! Octahedral stress or strain - + END SUBROUTINE PRINCIPAL_3D END INTERFACE diff --git a/Source/Interfaces/PRINT_CONSTANTS_1_Interface.f90 b/Source/Interfaces/PRINT_CONSTANTS_1_Interface.f90 index 2734c66e..d0eabd05 100644 --- a/Source/Interfaces/PRINT_CONSTANTS_1_Interface.f90 +++ b/Source/Interfaces/PRINT_CONSTANTS_1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PRINT_CONSTANTS_1_Interface @@ -37,7 +37,7 @@ SUBROUTINE PRINT_CONSTANTS_1 USE SCONTR, ONLY : PROG_NAME IMPLICIT NONE - + END SUBROUTINE PRINT_CONSTANTS_1 END INTERFACE diff --git a/Source/Interfaces/PRINT_ORDER_Interface.f90 b/Source/Interfaces/PRINT_ORDER_Interface.f90 index 15dca904..5804a71d 100644 --- a/Source/Interfaces/PRINT_ORDER_Interface.f90 +++ b/Source/Interfaces/PRINT_ORDER_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PRINT_ORDER_Interface diff --git a/Source/Interfaces/PROCESS_INCLUDE_FILES_Interface.f90 b/Source/Interfaces/PROCESS_INCLUDE_FILES_Interface.f90 index c927f546..6917cc04 100644 --- a/Source/Interfaces/PROCESS_INCLUDE_FILES_Interface.f90 +++ b/Source/Interfaces/PROCESS_INCLUDE_FILES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PROCESS_INCLUDE_FILES_Interface @@ -38,7 +38,7 @@ SUBROUTINE PROCESS_INCLUDE_FILES ( NUM_INCL_FILES ) IMPLICIT NONE - INTEGER(LONG), INTENT(OUT) :: NUM_INCL_FILES ! Number of INCLUDE files in the Bulk Data file + INTEGER(LONG), INTENT(OUT) :: NUM_INCL_FILES ! Number of INCLUDE files in the Bulk Data file END SUBROUTINE PROCESS_INCLUDE_FILES diff --git a/Source/Interfaces/PROJ_VEC_ONTO_PLANE_Interface.f90 b/Source/Interfaces/PROJ_VEC_ONTO_PLANE_Interface.f90 index 12d0d458..5757cfa2 100644 --- a/Source/Interfaces/PROJ_VEC_ONTO_PLANE_Interface.f90 +++ b/Source/Interfaces/PROJ_VEC_ONTO_PLANE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PROJ_VEC_ONTO_PLANE_Interface @@ -30,16 +30,16 @@ MODULE PROJ_VEC_ONTO_PLANE_Interface SUBROUTINE PROJ_VEC_ONTO_PLANE ( VEC_A, VEC_B, VEC_C ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - - + + REAL(DOUBLE) , INTENT(IN) :: VEC_A(3) ! Vector to be projected REAL(DOUBLE) , INTENT(IN) :: VEC_B(3) ! Vector normal to the plane onto which VEC_A is to be projected REAL(DOUBLE) , INTENT(OUT) :: VEC_C(3) ! Vector projection of VEC_A onto plane to which VEC_B is normal diff --git a/Source/Interfaces/PRT_MATS_ON_RESTART_Interface.f90 b/Source/Interfaces/PRT_MATS_ON_RESTART_Interface.f90 index 3d5b0818..89ad847c 100644 --- a/Source/Interfaces/PRT_MATS_ON_RESTART_Interface.f90 +++ b/Source/Interfaces/PRT_MATS_ON_RESTART_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PRT_MATS_ON_RESTART_Interface @@ -76,9 +76,9 @@ SUBROUTINE PRT_MATS_ON_RESTART IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + END SUBROUTINE PRT_MATS_ON_RESTART diff --git a/Source/Interfaces/QDEL1_Interface.f90 b/Source/Interfaces/QDEL1_Interface.f90 index 265849a1..4ca46ca8 100644 --- a/Source/Interfaces/QDEL1_Interface.f90 +++ b/Source/Interfaces/QDEL1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE QDEL1_Interface @@ -30,7 +30,7 @@ MODULE QDEL1_Interface SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, ERR, F06, WRT_BUG, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_GAUSS, MEFE @@ -41,9 +41,9 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) USE MODEL_STUF, ONLY : EID, ELDOF, EMG_IFE, EMG_RFE, EMAT, ERR_SUB_NAM, EB, INTL_MID, KE, & MASS_PER_UNIT_AREA, NUM_EMG_FATAL_ERRS, ME, PCOMP_LAM, PCOMP_PROPS, SHELL_B, TYPE, XEL USE MODEL_STUF, ONLY : BENSUM, SHRSUM, PHI_SQ, PSI_HAT - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not @@ -52,7 +52,7 @@ SUBROUTINE QDEL1 ( OPT, INT_ELEM_ID, WRITE_WARN ) INTEGER(LONG) :: GAUSS_PT ! Gauss point number (used for DEBUG output in subr SHP2DQ INTEGER(LONG), PARAMETER :: IORD_PCOMP = 2 ! Int order for nonsym layup PCOMP must be 2 (checked in subr - + REAL(DOUBLE) :: M0 ! An intermediate variable used in calc elem mass, ME END SUBROUTINE QDEL1 diff --git a/Source/Interfaces/QMEM1_Interface.f90 b/Source/Interfaces/QMEM1_Interface.f90 index 9251cd34..73b48e8f 100644 --- a/Source/Interfaces/QMEM1_Interface.f90 +++ b/Source/Interfaces/QMEM1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE QMEM1_Interface @@ -30,7 +30,7 @@ MODULE QMEM1_Interface SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_GAUSS, MAX_STRESS_POINTS, MEFE, NSUB, NTSUB @@ -40,9 +40,9 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM NUM_EMG_FATAL_ERRS, PCOMP_LAM, PCOMP_PROPS, PPE, PRESS, PTE, & SE1, STE1, SHELL_AALP, SHELL_A, TREF, TYPE USE DEBUG_PARAMETERS, ONLY : DEBUG - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(1*BYTE) , INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER( 1*BYTE), INTENT(IN) :: RED_INT_SHEAR ! If 'Y', use Gaussian weighted average of B matrices for shear terms CHARACTER(46*BYTE) :: IORD_MSG ! Character name of the integration order (used for debug output) @@ -71,23 +71,23 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM 19, & ! ID2(10)= 19 means expand 12x12 elem DOF 10 is MYSTRAN 24X24 elem DOF 19 20, & ! ID2(11)= 20 means expand 12x12 elem DOF 11 is MYSTRAN 24X24 elem DOF 20 21 /) ! ID2(12)= 21 means expand 12x12 elem DOF 12 is MYSTRAN 24X24 elem DOF 21 - + INTEGER(LONG), PARAMETER :: IORD_STRESS_Q4 = 2! Gauss integration order for stress/strain recovery matrices INTEGER(LONG), PARAMETER :: NUM_NODES = 4 ! Quad has 4 nodes - + REAL(DOUBLE) , INTENT(IN) :: AREA ! Element area REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! Diffs in x coords of quad sides in local coords REAL(DOUBLE) , INTENT(IN) :: YSD(4) ! Diffs in y coords of quad sides in local coords REAL(DOUBLE) , INTENT(OUT) :: BIG_BM(3,ELDOF,IORD*IORD) - REAL(DOUBLE) :: DUM1(3,8) ! Intermediate matrix used in solving for KE stiffness matrix - REAL(DOUBLE) :: DUM2(8,8) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM1(3,8) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM2(8,8) ! Intermediate matrix used in solving for KE stiffness matrix REAL(DOUBLE) :: DUM3(8) ! Intermediate matrix used in solving for PTE thermal loads REAL(DOUBLE) :: DUM4(8) ! Intermediate matrix used in solving for PTE thermal loads REAL(DOUBLE) :: DUM5(8,8) ! Intermediate matrix used in solving for KE stiffness matrix - REAL(DOUBLE) :: DUM6(12,8) ! Intermediate matrix used in solving for KE stiffness matrix - REAL(DOUBLE) :: DUM7(12,12) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM6(12,8) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM7(12,12) ! Intermediate matrix used in solving for KE stiffness matrix REAL(DOUBLE) :: DUM8(12) ! Intermediate matrix used in solving for PTE thermal loads REAL(DOUBLE) :: DUM9(3,8) ! Intermediate matrix used in solving for SEi stress recovery matrices REAL(DOUBLE) :: DUM10(2,8) ! Intermediate matrix used in solving for PPE matrices @@ -96,7 +96,7 @@ SUBROUTINE QMEM1 ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, AREA, XSD, YSD, BIG_BM REAL(DOUBLE) :: NBAR(2,8) ! Matrix of shape functions (used in PPE calc) REAL(DOUBLE) :: SUMB ! An intermediate variable used in calc B matrix for reduced integration REAL(DOUBLE) :: SUMD ! An intermediate variable used in calc B matrix for reduced integration - + END SUBROUTINE QMEM1 END INTERFACE diff --git a/Source/Interfaces/QPLT1_Interface.f90 b/Source/Interfaces/QPLT1_Interface.f90 index e0f39702..36e57111 100644 --- a/Source/Interfaces/QPLT1_Interface.f90 +++ b/Source/Interfaces/QPLT1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE QPLT1_Interface @@ -30,16 +30,16 @@ MODULE QPLT1_Interface SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, MAX_ORDER_GAUSS, NSUB, NTSUB USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, FOUR USE PARAMS, ONLY : IORQ2B USE MODEL_STUF, ONLY : ALPVEC, BE2, DT, EB, EID, KE, PRESS, PPE, PTE, SE2, STE2, SHELL_D, SHELL_DALP - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(46*BYTE) :: IORD_MSG ! Character name of the integration order (used for debug output) CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices INTEGER(LONG) :: GAUSS_PT ! Gauss point number (used for DEBUG output in subr SHP2DQ @@ -59,7 +59,7 @@ SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) INTEGER(LONG), PARAMETER :: IORD_STRESS_Q4 = 2! Gauss integration order for stress/strain recovery matrices INTEGER(LONG), PARAMETER :: NUM_NODES = 8 ! DKQ element has 8 nodes (4 are internal) - + REAL(DOUBLE) , INTENT(IN) :: AREA ! Element area REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! Diffs in x coords of quad sides in local coords REAL(DOUBLE) , INTENT(IN) :: YSD(4) ! Diffs in y coords of quad sides in local coords @@ -68,7 +68,7 @@ SUBROUTINE QPLT1 ( OPT, AREA, XSD, YSD ) REAL(DOUBLE) :: DUM3(12) ! Intermediate matrix used in solving for PTE thermal loads REAL(DOUBLE) :: DUM4(12) ! Intermediate matrix used in solving for PTE thermal loads REAL(DOUBLE) :: EALP(3) ! Intermed var used in calc STEi therm stress coeffs - + END SUBROUTINE QPLT1 END INTERFACE diff --git a/Source/Interfaces/QPLT2_Interface.f90 b/Source/Interfaces/QPLT2_Interface.f90 index 1879925b..4aa95c22 100644 --- a/Source/Interfaces/QPLT2_Interface.f90 +++ b/Source/Interfaces/QPLT2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE QPLT2_Interface @@ -30,7 +30,7 @@ MODULE QPLT2_Interface SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, MAX_ORDER_GAUSS, NSUB, NTSUB @@ -41,11 +41,11 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) ERR_SUB_NAM, FCONV, KE, INTL_MID, PCOMP_LAM, PCOMP_PROPS, PHI_SQ, PPE, & PRESS, PTE, SE2, SE3, SHELL_D, SHELL_DALP, SHELL_T, SHRSUM, STE2, TYPE USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE QPLT2_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'QPLT2' CHARACTER(46*BYTE) :: IORD_MSG ! Character name of the integration order (used for debug output) CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -75,17 +75,17 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) INTEGER(LONG) :: IERROR ! Local error indicator INTEGER(LONG) :: I,J,K,L,M ! DO loop indices -! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! Do not change IORD_STRESS_Q4. The algorithm to find Gauss point coords in elem x,y space requires there to be the same number of ! shape functions and Gauss points as elem nodes. INTEGER(LONG), PARAMETER :: IORD_STRESS_Q4 = 2! Gauss integration order for stress/strain recovery matrices -! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - INTEGER(LONG) :: IORDXX ! Gaussian integration order to use when subr ORDER is called INTEGER(LONG), PARAMETER :: NUM_NODES = 4 ! Quad has 4 nodes ! Indicator of no output of elem data to BUG file - + REAL(DOUBLE) , INTENT(IN) :: AREA ! Element area REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! Diffs in x coords of quad sides in local coords REAL(DOUBLE) , INTENT(IN) :: YSD(4) ! Diffs in y coords of quad sides in local coords @@ -121,14 +121,14 @@ SUBROUTINE QPLT2 ( OPT, AREA, XSD, YSD, BIG_BB ) REAL(DOUBLE) :: NXSH(4) ! Constrained Nx shape functions. Output from subr MIN4SH. REAL(DOUBLE) :: NYSH(4) ! Constrained Ny shape functions. Output from subr MIN4SH. REAL(DOUBLE) :: PSH(4) ! Shape fcn at Gauss pts SSI, SSJ. Output from subr SHP2DQ. - REAL(DOUBLE) :: SDETJ ! Sum of DETJ's when calc BS (to get Gauss weighted BS matrix) + REAL(DOUBLE) :: SDETJ ! Sum of DETJ's when calc BS (to get Gauss weighted BS matrix) REAL(DOUBLE) :: SSI ! A particular value of SSS REAL(DOUBLE) :: SSJ ! A particular value of SSS REAL(DOUBLE) :: SSS(MAX_ORDER_GAUSS) ! Gauss abscissa's. An output from subr ORDER. - + INTRINSIC :: DABS - + END SUBROUTINE QPLT2 END INTERFACE diff --git a/Source/Interfaces/QPLT3_Interface.f90 b/Source/Interfaces/QPLT3_Interface.f90 index a23585f0..d9e5f856 100644 --- a/Source/Interfaces/QPLT3_Interface.f90 +++ b/Source/Interfaces/QPLT3_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE QPLT3_Interface @@ -30,7 +30,7 @@ MODULE QPLT3_Interface SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MEFE, MIN4T_QUAD4_TRIA_NO, NSUB, NTSUB @@ -41,9 +41,9 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) USE MODEL_STUF, ONLY : BE2, BE3, DT, EID, ELDOF, EMG_IFE, ERR_SUB_NAM,NUM_EMG_FATAL_ERRS, & FCONV, KE, PHI_SQ, PPE, PTE, SE2, SE3, TE, XEB, XEL USE DEBUG_PARAMETERS, ONLY : DEBUG - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices. CHARACTER(1*BYTE) :: OPT_MIN4T(6) ! Values of OPT to use in this subr. We need OPT(4) = 'Y' if the CHARACTER(LEN=1), PARAMETER :: MN4T_QD = 'Y' ! Arg used in call to TPLT2 to say the triangular elem is part of a QUAD4 @@ -73,7 +73,7 @@ SUBROUTINE QPLT3 ( OPT, AREA_QUAD, XSD, YSD, BIG_BB ) INTEGER(LONG), PARAMETER :: NUM_TRIAS = 4 ! DO NOT CHANGE THIS. Num of triangles that subdivide the QUAD4 - + REAL(DOUBLE) , INTENT(IN) :: AREA_QUAD ! Element area REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! Diffs in x coords of quad sides in local coords REAL(DOUBLE) , INTENT(IN) :: YSD(4) ! Diffs in y coords of quad sides in local coords diff --git a/Source/Interfaces/QSHEAR_Interface.f90 b/Source/Interfaces/QSHEAR_Interface.f90 index 841482a6..e8f260ce 100644 --- a/Source/Interfaces/QSHEAR_Interface.f90 +++ b/Source/Interfaces/QSHEAR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE QSHEAR_Interface @@ -30,7 +30,7 @@ MODULE QSHEAR_Interface SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_GAUSS, MAX_STRESS_POINTS, MEFE, NSUB, NTSUB @@ -40,9 +40,9 @@ SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) NUM_EMG_FATAL_ERRS, PCOMP_LAM, PCOMP_PROPS, PPE, PRESS, PTE, & SE1, STE1, SHELL_AALP, SHELL_A, TREF, TYPE USE DEBUG_PARAMETERS, ONLY : DEBUG - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(1*BYTE) , INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER( 1*BYTE), INTENT(IN) :: RED_INT_SHEAR ! If 'Y', use Gaussian weighted average of B matrices for shear terms CHARACTER(46*BYTE) :: IORD_MSG ! Character name of the integration order (used for debug output) @@ -70,23 +70,23 @@ SUBROUTINE QSHEAR ( OPT, IORD, RED_INT_SHEAR, XSD, YSD ) 19, & ! ID2(10)= 19 means expand 12x12 elem DOF 10 is MYSTRAN 24X24 elem DOF 19 20, & ! ID2(11)= 20 means expand 12x12 elem DOF 11 is MYSTRAN 24X24 elem DOF 20 21 /) ! ID2(12)= 21 means expand 12x12 elem DOF 12 is MYSTRAN 24X24 elem DOF 21 - + INTEGER(LONG), PARAMETER :: NUM_NODES = 4 ! Quad has 4 nodes - + REAL(DOUBLE) , INTENT(IN) :: XSD(4) ! Diffs in x coords of quad sides in local coords REAL(DOUBLE) , INTENT(IN) :: YSD(4) ! Diffs in y coords of quad sides in local coords - REAL(DOUBLE) :: DUM1(3,8) ! Intermediate matrix used in solving for KE stiffness matrix - REAL(DOUBLE) :: DUM2(8,8) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM1(3,8) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM2(8,8) ! Intermediate matrix used in solving for KE stiffness matrix REAL(DOUBLE) :: DUM5(8,8) ! Intermediate matrix used in solving for KE stiffness matrix - REAL(DOUBLE) :: DUM6(12,8) ! Intermediate matrix used in solving for KE stiffness matrix - REAL(DOUBLE) :: DUM7(12,12) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM6(12,8) ! Intermediate matrix used in solving for KE stiffness matrix + REAL(DOUBLE) :: DUM7(12,12) ! Intermediate matrix used in solving for KE stiffness matrix REAL(DOUBLE) :: DUM9(3,8) ! Intermediate matrix used in solving for SEi stress recovery matrices REAL(DOUBLE) :: SUMB ! An intermediate variable used in calc B matrix for reduced integration REAL(DOUBLE) :: SUMD ! An intermediate variable used in calc B matrix for reduced integration - + END SUBROUTINE QSHEAR END INTERFACE diff --git a/Source/Interfaces/R8FLD_Interface.f90 b/Source/Interfaces/R8FLD_Interface.f90 index 3df1cce2..7f76f61b 100644 --- a/Source/Interfaces/R8FLD_Interface.f90 +++ b/Source/Interfaces/R8FLD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE R8FLD_Interface @@ -30,20 +30,20 @@ MODULE R8FLD_Interface SUBROUTINE R8FLD ( JCARDI, IFLD, R8INP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : IERRFL, FATAL_ERR, JCARD_LEN USE CONSTANTS_1, ONLY : ZERO - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: JCARDI ! The field of 8 characters to read - + INTEGER(LONG), INTENT(IN) :: IFLD ! Field (2 - 9) of a Bulk Data card to read - + REAL(DOUBLE) , INTENT(OUT) :: R8INP ! The 8 byte real value read - + END SUBROUTINE R8FLD END INTERFACE diff --git a/Source/Interfaces/RBE2_PROC_Interface.f90 b/Source/Interfaces/RBE2_PROC_Interface.f90 index 958a40f6..23ce4805 100644 --- a/Source/Interfaces/RBE2_PROC_Interface.f90 +++ b/Source/Interfaces/RBE2_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RBE2_PROC_Interface @@ -39,15 +39,15 @@ SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : GRID, RGRID, GRID_ID, CORD USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER( 8*BYTE), INTENT(IN) :: RTYPE ! The type of rigid element being processed (RBE2) INTEGER(LONG), INTENT(INOUT) :: IERR ! Count of errors in RIGID_ELEM_PROC INTEGER(LONG), INTENT(INOUT) :: REC_NO ! Record number when reading a file - + END SUBROUTINE RBE2_PROC END INTERFACE diff --git a/Source/Interfaces/RBE3_PROC_Interface.f90 b/Source/Interfaces/RBE3_PROC_Interface.f90 index 0fc1b9ab..05b4f2e5 100644 --- a/Source/Interfaces/RBE3_PROC_Interface.f90 +++ b/Source/Interfaces/RBE3_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RBE3_PROC_Interface @@ -39,9 +39,9 @@ SUBROUTINE RBE3_PROC ( RTYPE, REC_NO, IERR ) USE MODEL_STUF, ONLY : CORD, GRID_ID, GRID, RCORD, RGRID USE PARAMS, ONLY : EPSIL USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START - + IMPLICIT NONE - + CHARACTER( 8*BYTE), INTENT(IN) :: RTYPE ! The type of rigid element being processed (RBE2) INTEGER(LONG), INTENT(INOUT) :: IERR ! Count of errors in RIGID_ELEM_PROC diff --git a/Source/Interfaces/RB_DISP_MATRIX_PROC_Interface.f90 b/Source/Interfaces/RB_DISP_MATRIX_PROC_Interface.f90 index 0dbf5483..e3537f07 100644 --- a/Source/Interfaces/RB_DISP_MATRIX_PROC_Interface.f90 +++ b/Source/Interfaces/RB_DISP_MATRIX_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RB_DISP_MATRIX_PROC_Interface @@ -38,18 +38,18 @@ SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TDOF, TDOFI, TDOF_ROW_START USE PARAMS, ONLY : EQCHK_REF_GRID, SUPWARN - USE MODEL_STUF, ONLY : CORD, GRID, RGRID, GRID_ID, INV_GRID_SEQ, MODEL_XCG, MODEL_YCG, MODEL_ZCG + USE MODEL_STUF, ONLY : CORD, GRID, RGRID, GRID_ID, INV_GRID_SEQ, MODEL_XCG, MODEL_YCG, MODEL_ZCG USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: REF_PT_TXT ! Reference point used in calculating the 6 rigid body displ vectors INTEGER(LONG), INTENT(IN) :: REF_PT ! An actual grid ID (only used if REF_PT_TXT = 'GRID') - + END SUBROUTINE RB_DISP_MATRIX_PROC END INTERFACE diff --git a/Source/Interfaces/RDOF_Interface.f90 b/Source/Interfaces/RDOF_Interface.f90 index ad6d7a23..f70467ef 100644 --- a/Source/Interfaces/RDOF_Interface.f90 +++ b/Source/Interfaces/RDOF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RDOF_Interface @@ -30,18 +30,18 @@ MODULE RDOF_Interface SUBROUTINE RDOF ( INTDOF, CDOF ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER( 1*BYTE), INTENT(OUT) :: CDOF(6) ! Contains 1 in each of the 6 pos'ns corresponding to a DOF from INTDOF INTEGER(LONG), INTENT(IN) :: INTDOF ! Integer field which should contain only the digits 1 - 6 - + END SUBROUTINE RDOF END INTERFACE diff --git a/Source/Interfaces/READERR_Interface.f90 b/Source/Interfaces/READERR_Interface.f90 index a05af446..ccb356d5 100644 --- a/Source/Interfaces/READERR_Interface.f90 +++ b/Source/Interfaces/READERR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READERR_Interface @@ -30,21 +30,21 @@ MODULE READERR_Interface SUBROUTINE READERR (IOCHK, FILNAM, MESSAG, REC_NO, OUNT ) - + USE PENTIUM_II_KIND, ONLY : LONG USE IOUNT1, ONLY : SC1 USE SCONTR, ONLY : FATAL_ERR - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Used for error messaging CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - + INTEGER(LONG), INTENT(IN) :: IOCHK ! IOSTAT error number when opening/reading a file INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to INTEGER(LONG), INTENT(IN) :: REC_NO ! Indicator of record number when error encountered reading file - + END SUBROUTINE READERR END INTERFACE diff --git a/Source/Interfaces/READ_CHK_Interface.f90 b/Source/Interfaces/READ_CHK_Interface.f90 index 0f64fdc6..5ef629b4 100644 --- a/Source/Interfaces/READ_CHK_Interface.f90 +++ b/Source/Interfaces/READ_CHK_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_CHK_Interface @@ -30,18 +30,18 @@ MODULE READ_CHK_Interface SUBROUTINE READ_CHK (IOCHK, FILNAM, MESSAG, REC_NO, OUNT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Used for error messaging CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - + INTEGER(LONG), INTENT(IN) :: IOCHK ! IOSTAT error number when opening/reading a file INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to INTEGER(LONG), INTENT(IN) :: REC_NO ! Indicator of record number when error encountered reading file - + END SUBROUTINE READ_CHK END INTERFACE diff --git a/Source/Interfaces/READ_DOF_TABLES_Interface.f90 b/Source/Interfaces/READ_DOF_TABLES_Interface.f90 index b944e6a0..efe43975 100644 --- a/Source/Interfaces/READ_DOF_TABLES_Interface.f90 +++ b/Source/Interfaces/READ_DOF_TABLES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_DOF_TABLES_Interface diff --git a/Source/Interfaces/READ_IN4_FULL_MAT_Interface.f90 b/Source/Interfaces/READ_IN4_FULL_MAT_Interface.f90 index e72f08de..169ed726 100644 --- a/Source/Interfaces/READ_IN4_FULL_MAT_Interface.f90 +++ b/Source/Interfaces/READ_IN4_FULL_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_IN4_FULL_MAT_Interface @@ -45,7 +45,7 @@ SUBROUTINE READ_IN4_FULL_MAT ( ELEM_TYP, ELEM_ID, MAT_NAME_IN, NRI, NCI, UNT, FI CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! Name of file data is to be read from CHARACTER(LEN=*), INTENT(IN) :: MAT_NAME_IN ! Name of matrix to read from UNT - INTEGER(LONG), INTENT(IN) :: UNT ! I/O unit number from which to read MAT + INTEGER(LONG), INTENT(IN) :: UNT ! I/O unit number from which to read MAT INTEGER(LONG), INTENT(IN) :: ELEM_ID ! ID of element for which this subr was called INTEGER(LONG), INTENT(IN) :: NRI ! Number of rows expected in MAT_FULL INTEGER(LONG), INTENT(IN) :: NCI ! Number of cols expected in MAT diff --git a/Source/Interfaces/READ_INCLUDE_FILNAM_Interface.f90 b/Source/Interfaces/READ_INCLUDE_FILNAM_Interface.f90 index 8c9134a0..36f31180 100644 --- a/Source/Interfaces/READ_INCLUDE_FILNAM_Interface.f90 +++ b/Source/Interfaces/READ_INCLUDE_FILNAM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_INCLUDE_FILNAM_Interface @@ -30,7 +30,7 @@ MODULE READ_INCLUDE_FILNAM_Interface SUBROUTINE READ_INCLUDE_FILNAM ( CARD, IERR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06, FILE_NAM_MAXLEN, INC, INCFIL USE SCONTR, ONLY : BLNK_SUB_NAM, EC_ENTRY_LEN, FATAL_ERR @@ -38,7 +38,7 @@ SUBROUTINE READ_INCLUDE_FILNAM ( CARD, IERR ) USE DEBUG_PARAMETERS, ONLY : DEBUG IMPLICIT NONE - + CHARACTER(LEN=EC_ENTRY_LEN), INTENT(IN) :: CARD ! An entry from an input data (DAT) file INTEGER(LONG), INTENT(OUT) :: IERR ! Local error count diff --git a/Source/Interfaces/READ_INI_Interface.f90 b/Source/Interfaces/READ_INI_Interface.f90 index f27863a2..d02425e8 100644 --- a/Source/Interfaces/READ_INI_Interface.f90 +++ b/Source/Interfaces/READ_INI_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_INI_Interface diff --git a/Source/Interfaces/READ_INPUT_FILE_NAME_Interface.f90 b/Source/Interfaces/READ_INPUT_FILE_NAME_Interface.f90 index 5f0611b5..96ac018c 100644 --- a/Source/Interfaces/READ_INPUT_FILE_NAME_Interface.f90 +++ b/Source/Interfaces/READ_INPUT_FILE_NAME_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_INPUT_FILE_NAME_Interface diff --git a/Source/Interfaces/READ_L1A_Interface.f90 b/Source/Interfaces/READ_L1A_Interface.f90 index 63ffd9a5..aa6d125c 100644 --- a/Source/Interfaces/READ_L1A_Interface.f90 +++ b/Source/Interfaces/READ_L1A_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_L1A_Interface @@ -30,7 +30,7 @@ MODULE READ_L1A_Interface SUBROUTINE READ_L1A ( CLOSE_STAT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : MOT4, MOU4, WRT_ERR @@ -85,10 +85,10 @@ SUBROUTINE READ_L1A ( CLOSE_STAT ) CHARACTER(LEN=*), INTENT(IN) :: CLOSE_STAT ! STATUS when closing file LINK1A CHARACTER(80*BYTE) :: MESSAG ! File description. Used for error messaging - + INTEGER(LONG), PARAMETER :: NUMIO = 304 ! Number of terms in IOCHKI array - + END SUBROUTINE READ_L1A END INTERFACE diff --git a/Source/Interfaces/READ_L1M_Interface.f90 b/Source/Interfaces/READ_L1M_Interface.f90 index aae561f6..b5c0dff0 100644 --- a/Source/Interfaces/READ_L1M_Interface.f90 +++ b/Source/Interfaces/READ_L1M_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_L1M_Interface @@ -30,9 +30,9 @@ MODULE READ_L1M_Interface SUBROUTINE READ_L1M ( IERROR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - + USE SCONTR, ONLY : LINKNO, NUM_EIGENS USE IOUNT1, ONLY : ERR, F06, L1M, L1M_MSG, L1MSTAT, LINK1M, SC1, WRT_ERR USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, STIME, TSEC @@ -43,9 +43,9 @@ SUBROUTINE READ_L1M ( IERROR ) MIJ_COL, MIJ_ROW, NUM_FAIL_CRIT IMPLICIT NONE - + INTEGER(LONG), INTENT(OUT) :: IERROR ! Error count - + END SUBROUTINE READ_L1M END INTERFACE diff --git a/Source/Interfaces/READ_L1Z_Interface.f90 b/Source/Interfaces/READ_L1Z_Interface.f90 index 0348d15f..92ba87e1 100644 --- a/Source/Interfaces/READ_L1Z_Interface.f90 +++ b/Source/Interfaces/READ_L1Z_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_L1Z_Interface @@ -30,17 +30,17 @@ MODULE READ_L1Z_Interface SUBROUTINE READ_L1Z - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L1Z, LINK1Z, L1Z_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NSUB, SOL_NAME USE TIMDAT, ONLY : STIME, TSEC USE MODEL_STUF, ONLY : CC_EIGR_SID, MPCSET, SPCSET, SUBLOD - + IMPLICIT NONE - - + + END SUBROUTINE READ_L1Z END INTERFACE diff --git a/Source/Interfaces/READ_MATRIX_1_Interface.f90 b/Source/Interfaces/READ_MATRIX_1_Interface.f90 index 654e25cd..d9b9dfc0 100644 --- a/Source/Interfaces/READ_MATRIX_1_Interface.f90 +++ b/Source/Interfaces/READ_MATRIX_1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_MATRIX_1_Interface @@ -31,7 +31,7 @@ MODULE READ_MATRIX_1_Interface SUBROUTINE READ_MATRIX_1 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME, NTERM, READ_NTERM, NROWS & , I_MATOUT, J_MATOUT, MATOUT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR @@ -40,25 +40,25 @@ SUBROUTINE READ_MATRIX_1 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME USE DEBUG_PARAMETERS, ONLY : DEBUG IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=*), INTENT(IN) :: CLOSE_IT ! ='Y'/'N' whether to close UNT or note CHARACTER(LEN=*), INTENT(IN) :: CLOSE_STAT ! What to do with file when it is closed CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN CHARACTER(LEN=*), INTENT(IN) :: READ_NTERM ! If 'Y', read NTERM from file before reading matrix CHARACTER(LEN=*), INTENT(IN) :: NAME ! Matrix name CHARACTER(LEN=*), INTENT(IN) :: OPND ! If 'Y', then do not open UNT, If 'N', open it - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in MATOUT INTEGER(LONG), INTENT(IN) :: NTERM ! Number of matrix terms that should be in FILNAM INTEGER(LONG), INTENT(IN) :: UNT ! Unit number of FILNAM INTEGER(LONG), INTENT(OUT) :: I_MATOUT(NROWS+1) ! Row numbers for terms in matrix MATOUT INTEGER(LONG), INTENT(OUT) :: J_MATOUT(NTERM) ! Col numbers for terms in matrix MATOUT - + REAL(DOUBLE) , INTENT(OUT) :: MATOUT(NTERM) ! Real values for matrix MATOUT - + END SUBROUTINE READ_MATRIX_1 END INTERFACE diff --git a/Source/Interfaces/READ_MATRIX_2_Interface.f90 b/Source/Interfaces/READ_MATRIX_2_Interface.f90 index 7e397369..017074d7 100644 --- a/Source/Interfaces/READ_MATRIX_2_Interface.f90 +++ b/Source/Interfaces/READ_MATRIX_2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_MATRIX_2_Interface @@ -31,24 +31,24 @@ MODULE READ_MATRIX_2_Interface SUBROUTINE READ_MATRIX_2 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME, NROWS, NTERMS, READ_NTERM & , I2_MATOUT, J_MATOUT, MATOUT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=*), INTENT(IN) :: CLOSE_IT ! ='Y'/'N' whether to close UNT or note CHARACTER(LEN=*), INTENT(IN) :: CLOSE_STAT ! What to do with file when it is closed CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN CHARACTER(LEN=*), INTENT(IN) :: READ_NTERM ! If 'Y', read NTERM from file before reading matrix CHARACTER(LEN=*), INTENT(IN) :: NAME ! Matrix name CHARACTER(LEN=*), INTENT(IN) :: OPND ! If 'Y', then do not open UNT, If 'N', open it - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in the matrix INTEGER(LONG), INTENT(IN) :: NTERMS ! Number of matrix terms that should be in FILNAM INTEGER(LONG), INTENT(IN) :: UNT ! Unit number of FILNAM diff --git a/Source/Interfaces/READ_XTIME_Interface.f90 b/Source/Interfaces/READ_XTIME_Interface.f90 index 95dde67d..0f6bfa77 100644 --- a/Source/Interfaces/READ_XTIME_Interface.f90 +++ b/Source/Interfaces/READ_XTIME_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_XTIME_Interface @@ -30,21 +30,21 @@ MODULE READ_XTIME_Interface SUBROUTINE READ_XTIME ( UNT, FILNAM, MESSAG, OUNT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Used for error messaging CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name INTEGER(LONG), INTENT(IN) :: UNT ! File unit number INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to - + END SUBROUTINE READ_XTIME END INTERFACE diff --git a/Source/Interfaces/REAL_DATA_TO_C8FLD_Interface.f90 b/Source/Interfaces/REAL_DATA_TO_C8FLD_Interface.f90 index 7ad18600..0e9eaecc 100644 --- a/Source/Interfaces/REAL_DATA_TO_C8FLD_Interface.f90 +++ b/Source/Interfaces/REAL_DATA_TO_C8FLD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REAL_DATA_TO_C8FLD_Interface diff --git a/Source/Interfaces/REDUCE_A_LR_Interface.f90 b/Source/Interfaces/REDUCE_A_LR_Interface.f90 index 3ed0aaf8..5b86bf3a 100644 --- a/Source/Interfaces/REDUCE_A_LR_Interface.f90 +++ b/Source/Interfaces/REDUCE_A_LR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_A_LR_Interface @@ -30,7 +30,7 @@ MODULE REDUCE_A_LR_Interface SUBROUTINE REDUCE_A_LR - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, LINKNO, NDOFA, NDOFG, NDOFL, NDOFR, NSUB, SOL_NAME, & @@ -38,7 +38,7 @@ SUBROUTINE REDUCE_A_LR NTERM_KAAD, NTERM_KLLD, NTERM_KRLD, NTERM_KRRD, & NTERM_MAA , NTERM_MLL , NTERM_MRL , NTERM_MRR , & NTERM_PA , NTERM_PL , NTERM_PR - USE TIMDAT, ONLY : TSEC, YEAR, MONTH, DAY, HOUR, MINUTE, SEC, SFRAC, STIME + USE TIMDAT, ONLY : TSEC, YEAR, MONTH, DAY, HOUR, MINUTE, SEC, SFRAC, STIME USE CONSTANTS_1, ONLY : ONE USE DOF_TABLES, ONLY : TDOFI USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_ASET, RBGLOBAL_GSET, RBGLOBAL_LSET @@ -50,11 +50,11 @@ SUBROUTINE REDUCE_A_LR I_PA , J_PA , PA , I_PL , J_PL , PL , I_PR , J_PR , PR USE SPARSE_MATRICES, ONLY : SYM_KLL USE OUTPUT4_MATRICES, ONLY : ACT_OU4_MYSTRAN_NAMES, NUM_OU4_REQUESTS - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + END SUBROUTINE REDUCE_A_LR diff --git a/Source/Interfaces/REDUCE_F_AO_Interface.f90 b/Source/Interfaces/REDUCE_F_AO_Interface.f90 index 908c1f14..fd45af9d 100644 --- a/Source/Interfaces/REDUCE_F_AO_Interface.f90 +++ b/Source/Interfaces/REDUCE_F_AO_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_F_AO_Interface @@ -30,7 +30,7 @@ MODULE REDUCE_F_AO_Interface SUBROUTINE REDUCE_F_AO - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE CONSTANTS_1, ONLY : ZERO @@ -51,11 +51,11 @@ SUBROUTINE REDUCE_F_AO USE SPARSE_MATRICES, ONLY : SYM_KAA USE SCRATCH_MATRICES USE SuperLU_STUF, ONLY : SLU_FACTORS, SLU_INFO - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + REAL(DOUBLE) :: DUM_COL(NDOFO) ! Temp variable used in SuperLU diff --git a/Source/Interfaces/REDUCE_G_NM_Interface.f90 b/Source/Interfaces/REDUCE_G_NM_Interface.f90 index 829866d3..027583b8 100644 --- a/Source/Interfaces/REDUCE_G_NM_Interface.f90 +++ b/Source/Interfaces/REDUCE_G_NM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_G_NM_Interface @@ -30,7 +30,7 @@ MODULE REDUCE_G_NM_Interface SUBROUTINE REDUCE_G_NM - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L1C, LINK1C, L1C_MSG, SC1, WRT_ERR @@ -52,15 +52,15 @@ SUBROUTINE REDUCE_G_NM I_MGG , J_MGG , MGG , I_MNN , J_MNN , MNN , I_MNM , J_MNM , MNM , I_MMM , J_MMM , MMM , & I_PG , J_PG , PG , I_PN , J_PN , PN , I_PM , J_PM , PM , & I_RMG , J_RMG , RMG - + USE SPARSE_MATRICES, ONLY : SYM_KNN USE OUTPUT4_MATRICES, ONLY : ACT_OU4_MYSTRAN_NAMES, NUM_OU4_REQUESTS USE SCRATCH_MATRICES - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + END SUBROUTINE REDUCE_G_NM diff --git a/Source/Interfaces/REDUCE_KAAD_TO_KLLD_Interface.f90 b/Source/Interfaces/REDUCE_KAAD_TO_KLLD_Interface.f90 index c612335a..a81b7d21 100644 --- a/Source/Interfaces/REDUCE_KAAD_TO_KLLD_Interface.f90 +++ b/Source/Interfaces/REDUCE_KAAD_TO_KLLD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KAAD_TO_KLLD_Interface @@ -30,7 +30,7 @@ MODULE REDUCE_KAAD_TO_KLLD_Interface SUBROUTINE REDUCE_KAAD_TO_KLLD ( PART_VEC_A_LR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L2K, L2L, LINK2K, LINK2L, L2K_MSG, L2L_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFA, NDOFL, NDOFR, NTERM_KAAD, NTERM_KLLD, NTERM_KRLD, & @@ -39,10 +39,10 @@ SUBROUTINE REDUCE_KAAD_TO_KLLD ( PART_VEC_A_LR ) USE SPARSE_MATRICES, ONLY : I_KAAD, J_KAAD, KAAD, I_KLLD, J_KLLD, KLLD, I_KRLD, J_KRLD, KRLD, I_KRRD, J_KRRD, KRRD, & SYM_KAAD, SYM_KLLD, SYM_KRLD, SYM_KRRD USE SCRATCH_MATRICES - + IMPLICIT NONE - INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices diff --git a/Source/Interfaces/REDUCE_KAA_TO_KLL_Interface.f90 b/Source/Interfaces/REDUCE_KAA_TO_KLL_Interface.f90 index b4d40f03..44acc56c 100644 --- a/Source/Interfaces/REDUCE_KAA_TO_KLL_Interface.f90 +++ b/Source/Interfaces/REDUCE_KAA_TO_KLL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KAA_TO_KLL_Interface @@ -30,7 +30,7 @@ MODULE REDUCE_KAA_TO_KLL_Interface SUBROUTINE REDUCE_KAA_TO_KLL ( PART_VEC_A_LR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L2K, L2L, LINK2K, LINK2L, L2K_MSG, L2L_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFA, NDOFL, NDOFR, NTERM_KAA, NTERM_KLL, NTERM_KRL, NTERM_KRR, & @@ -39,10 +39,10 @@ SUBROUTINE REDUCE_KAA_TO_KLL ( PART_VEC_A_LR ) USE SPARSE_MATRICES, ONLY : I_KAA, J_KAA, KAA, I_KLL, J_KLL, KLL, I_KRL, J_KRL, KRL, I_KRR, J_KRR, KRR, & SYM_KAA, SYM_KLL, SYM_KRL, SYM_KRR USE SCRATCH_MATRICES - + IMPLICIT NONE - INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices diff --git a/Source/Interfaces/REDUCE_KFFD_TO_KAAD_Interface.f90 b/Source/Interfaces/REDUCE_KFFD_TO_KAAD_Interface.f90 index c0430d78..09952eea 100644 --- a/Source/Interfaces/REDUCE_KFFD_TO_KAAD_Interface.f90 +++ b/Source/Interfaces/REDUCE_KFFD_TO_KAAD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KFFD_TO_KAAD_Interface @@ -30,24 +30,24 @@ MODULE REDUCE_KFFD_TO_KAAD_Interface SUBROUTINE REDUCE_KFFD_TO_KAAD ( PART_VEC_F_AO ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L2E, LINK2E, L2E_MSG, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FACTORED_MATRIX, FATAL_ERR, NDOFF, NDOFA, NDOFO, NTERM_KFFD, NTERM_KAAD, & NTERM_KAOD, NTERM_KOOD, NTERM_KOODs, NTERM_GOA USE PARAMS, ONLY : EPSIL, KOORAT, SPARSTOR, RCONDK USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE SPARSE_MATRICES, ONLY : I_KFFD, J_KFFD, KFFD, I_KAAD, J_KAAD, KAAD, I_KAOD, J_KAOD, KAOD, I_GOA, J_GOA, GOA, & I_KOOD, I2_KOOD, J_KOOD, KOOD, I_KOODs, I2_KOODs, J_KOODs, KOODs - + USE SPARSE_MATRICES, ONLY : SYM_GOA, SYM_KFFD, SYM_KAAD, SYM_KAOD, SYM_KOOD USE SCRATCH_MATRICES - + IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices diff --git a/Source/Interfaces/REDUCE_KFF_TO_KAA_Interface.f90 b/Source/Interfaces/REDUCE_KFF_TO_KAA_Interface.f90 index 1de0d79f..3df55ff1 100644 --- a/Source/Interfaces/REDUCE_KFF_TO_KAA_Interface.f90 +++ b/Source/Interfaces/REDUCE_KFF_TO_KAA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KFF_TO_KAA_Interface @@ -30,25 +30,25 @@ MODULE REDUCE_KFF_TO_KAA_Interface SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L2E, LINK2E, L2E_MSG, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, KOO_SDIA, NDOFF, NDOFA, NDOFO, NTERM_KFF, & NTERM_KAA, NTERM_KAO, NTERM_KOO, NTERM_GOA USE PARAMS, ONLY : KOORAT, MATSPARS, SOLLIB, SPARSTOR, SPARSE_FLAVOR, RCONDK USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE FULL_MATRICES, ONLY : KAA_FULL, KAO_FULL, GOA_FULL, DUM1, DUM2 USE SPARSE_MATRICES, ONLY : I_KFF, J_KFF, KFF, I_KAA, J_KAA, KAA, I_KAO, J_KAO, KAO, I_GOA, J_GOA, GOA, & I_KOO, J_KOO, KOO - + USE SPARSE_MATRICES, ONLY : SYM_GOA, SYM_KFF, SYM_KAA, SYM_KAO, SYM_KOO USE SCRATCH_MATRICES - + IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) INTEGER(LONG), PARAMETER :: ITRNSPB = 0 ! Transpose indicator for matrix multiply routine INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices @@ -56,7 +56,7 @@ SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) REAL(DOUBLE) :: SMALL ! A number used in filtering out small numbers from a full matrix - + END SUBROUTINE REDUCE_KFF_TO_KAA END INTERFACE diff --git a/Source/Interfaces/REDUCE_KGG_TO_KNN_Interface.f90 b/Source/Interfaces/REDUCE_KGG_TO_KNN_Interface.f90 index 94bfa64f..628f8795 100644 --- a/Source/Interfaces/REDUCE_KGG_TO_KNN_Interface.f90 +++ b/Source/Interfaces/REDUCE_KGG_TO_KNN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KGG_TO_KNN_Interface @@ -30,14 +30,14 @@ MODULE REDUCE_KGG_TO_KNN_Interface SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L2J, LINK2J, L2J_MSG, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, NDOFN, NDOFM, NTERM_HMN, NTERM_KGG, NTERM_KNN, & NTERM_KNM, NTERM_KMM, NTERM_GMN USE PARAMS, ONLY : EPSIL, MATSPARS, SPARSTOR USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE SPARSE_MATRICES, ONLY : I_HMN, J_HMN, HMN, I_KGG, J_KGG, KGG, I_KNN, J_KNN, KNN, I_KNM, J_KNM, KNM, & I_KMM, J_KMM, KMM,I_KMN, J_KMN, KMN, I_GMN, J_GMN, GMN, I_GMNt, J_GMNt, GMNt USE SPARSE_MATRICES, ONLY : SYM_GMN, SYM_HMN, SYM_KGG, SYM_KNN, SYM_KNM, SYM_KMM, SYM_KMN @@ -47,13 +47,13 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices REAL(DOUBLE) :: SMALL ! A number used in filtering out small numbers from a full matrix - + END SUBROUTINE REDUCE_KGG_TO_KNN END INTERFACE diff --git a/Source/Interfaces/REDUCE_KNND_TO_KFFD_Interface.f90 b/Source/Interfaces/REDUCE_KNND_TO_KFFD_Interface.f90 index 6ada10d9..b756f106 100644 --- a/Source/Interfaces/REDUCE_KNND_TO_KFFD_Interface.f90 +++ b/Source/Interfaces/REDUCE_KNND_TO_KFFD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KNND_TO_KFFD_Interface @@ -30,7 +30,7 @@ MODULE REDUCE_KNND_TO_KFFD_Interface SUBROUTINE REDUCE_KNND_TO_KFFD ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PART_VEC_S ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L2B, LINK2B, L2B_MSG USE SCONTR, ONLY : FATAL_ERR, NDOFN, NDOFF, NDOFS, NDOFSE, NTERM_KNND, NTERM_KFFD, NTERM_KFSD, NTERM_KSSD, & @@ -40,13 +40,13 @@ SUBROUTINE REDUCE_KNND_TO_KFFD ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PAR I_KSFD, J_KSFD, KSFD, I_KSSD, J_KSSD, KSSD, I_KSSDe, J_KSSDe, KSSDe USE SPARSE_MATRICES, ONLY : SYM_KNND, SYM_KFFD, SYM_KFSD, SYM_KFSDe, SYM_KSSD, SYM_KSSD, SYM_KSSDe USE SCRATCH_MATRICES - + IMPLICIT NONE - INTEGER(LONG), INTENT(IN) :: PART_VEC_F(NDOFF) ! Partitioning vector (1's for all of F set) - INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_S(NDOFS) ! Partitioning vector (1's for all of S set) - INTEGER(LONG), INTENT(IN) :: PART_VEC_S_SzSe(NDOFS) ! Partitioning vector (S set into SZ and SE sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_F(NDOFF) ! Partitioning vector (1's for all of F set) + INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_S(NDOFS) ! Partitioning vector (1's for all of S set) + INTEGER(LONG), INTENT(IN) :: PART_VEC_S_SzSe(NDOFS) ! Partitioning vector (S set into SZ and SE sets) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices diff --git a/Source/Interfaces/REDUCE_KNN_TO_KFF_Interface.f90 b/Source/Interfaces/REDUCE_KNN_TO_KFF_Interface.f90 index 0139488f..e35391c8 100644 --- a/Source/Interfaces/REDUCE_KNN_TO_KFF_Interface.f90 +++ b/Source/Interfaces/REDUCE_KNN_TO_KFF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KNN_TO_KFF_Interface @@ -30,7 +30,7 @@ MODULE REDUCE_KNN_TO_KFF_Interface SUBROUTINE REDUCE_KNN_TO_KFF ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PART_VEC_S ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L2B, LINK2B, L2B_MSG USE SCONTR, ONLY : FATAL_ERR, NDOFN, NDOFF, NDOFS, NDOFSE, NTERM_KNN, NTERM_KFF, NTERM_KFS, NTERM_KSS, & @@ -40,15 +40,15 @@ SUBROUTINE REDUCE_KNN_TO_KFF ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PART_ I_KSF, J_KSF, KSF, I_KSS, J_KSS, KSS, I_KSSe, J_KSSe, KSSe USE SPARSE_MATRICES, ONLY : SYM_KNN, SYM_KFF, SYM_KFS, SYM_KFSe, SYM_KSS, SYM_KSS, SYM_KSSe USE SCRATCH_MATRICES - + IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - - INTEGER(LONG), INTENT(IN) :: PART_VEC_F(NDOFF) ! Partitioning vector (1's for all of F set) - INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_S(NDOFS) ! Partitioning vector (1's for all of S set) - INTEGER(LONG), INTENT(IN) :: PART_VEC_S_SzSe(NDOFS) ! Partitioning vector (S set into SZ and SE sets) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_F(NDOFF) ! Partitioning vector (1's for all of F set) + INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_S(NDOFS) ! Partitioning vector (1's for all of S set) + INTEGER(LONG), INTENT(IN) :: PART_VEC_S_SzSe(NDOFS) ! Partitioning vector (S set into SZ and SE sets) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices diff --git a/Source/Interfaces/REDUCE_MAA_TO_MLL_Interface.f90 b/Source/Interfaces/REDUCE_MAA_TO_MLL_Interface.f90 index d0ab591c..b5b5c915 100644 --- a/Source/Interfaces/REDUCE_MAA_TO_MLL_Interface.f90 +++ b/Source/Interfaces/REDUCE_MAA_TO_MLL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_MAA_TO_MLL_Interface @@ -30,7 +30,7 @@ MODULE REDUCE_MAA_TO_MLL_Interface SUBROUTINE REDUCE_MAA_TO_MLL ( PART_VEC_A_LR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L2M, L2N, LINK2M, LINK2N, L2M_MSG, L2N_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFA, NDOFL, NDOFR, NTERM_MAA, NTERM_MLL, NTERM_MRL, NTERM_MRR, & @@ -43,7 +43,7 @@ SUBROUTINE REDUCE_MAA_TO_MLL ( PART_VEC_A_LR ) IMPLICIT NONE - INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices diff --git a/Source/Interfaces/REDUCE_MFF_TO_MAA_Interface.f90 b/Source/Interfaces/REDUCE_MFF_TO_MAA_Interface.f90 index 631cec23..f0ecee10 100644 --- a/Source/Interfaces/REDUCE_MFF_TO_MAA_Interface.f90 +++ b/Source/Interfaces/REDUCE_MFF_TO_MAA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_MFF_TO_MAA_Interface @@ -30,14 +30,14 @@ MODULE REDUCE_MFF_TO_MAA_Interface SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFF, NDOFA, NDOFO, NTERM_MFF, NTERM_MAA, NTERM_MAO, NTERM_MOO, & NTERM_GOA USE PARAMS, ONLY : EPSIL, MATSPARS, SPARSTOR USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE SPARSE_MATRICES, ONLY : I_MFF, J_MFF, MFF, I_MAA, J_MAA, MAA, I_MAO, J_MAO, MAO, I_MOO, J_MOO, MOO, & I_GOA, J_GOA, GOA, I_GOAt, J_GOAt, GOAt USE SPARSE_MATRICES, ONLY : SYM_GOA, SYM_MFF, SYM_MAA, SYM_MAO, SYM_MOO @@ -47,13 +47,13 @@ SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices REAL(DOUBLE) :: SMALL ! A number used in filtering out small numbers from a full matrix - + END SUBROUTINE REDUCE_MFF_TO_MAA END INTERFACE diff --git a/Source/Interfaces/REDUCE_MGG_TO_MNN_Interface.f90 b/Source/Interfaces/REDUCE_MGG_TO_MNN_Interface.f90 index 1d3df9f1..6f425c53 100644 --- a/Source/Interfaces/REDUCE_MGG_TO_MNN_Interface.f90 +++ b/Source/Interfaces/REDUCE_MGG_TO_MNN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_MGG_TO_MNN_Interface @@ -30,14 +30,14 @@ MODULE REDUCE_MGG_TO_MNN_Interface SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L2R, LINK2R, L2R_MSG, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, NDOFN, NDOFM, NTERM_MGG, NTERM_MNN, NTERM_MNM, NTERM_MMM, & NTERM_GMN, NTERM_LMN USE PARAMS, ONLY : EPSIL, MATSPARS, SPARSTOR USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE SPARSE_MATRICES, ONLY : I_LMN, J_LMN, LMN, I_MGG, J_MGG, MGG, I_MNN, J_MNN, MNN, I_MNM , J_MNM , MNM , & I_MMN, J_MMN, MMN, I_MMM, J_MMM, MMM, I_GMN, J_GMN, GMN, I_GMNt, J_GMNt, GMNt USE SPARSE_MATRICES, ONLY : SYM_GMN, SYM_LMN, SYM_MGG, SYM_MNN, SYM_MNM, SYM_MMN, SYM_MMM @@ -47,13 +47,13 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices REAL(DOUBLE) :: SMALL ! A number used in filtering out small numbers from a full matrix - + END SUBROUTINE REDUCE_MGG_TO_MNN END INTERFACE diff --git a/Source/Interfaces/REDUCE_MNN_TO_MFF_Interface.f90 b/Source/Interfaces/REDUCE_MNN_TO_MFF_Interface.f90 index 649ee695..ac23febe 100644 --- a/Source/Interfaces/REDUCE_MNN_TO_MFF_Interface.f90 +++ b/Source/Interfaces/REDUCE_MNN_TO_MFF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_MNN_TO_MFF_Interface @@ -30,7 +30,7 @@ MODULE REDUCE_MNN_TO_MFF_Interface SUBROUTINE REDUCE_MNN_TO_MFF ( PART_VEC_N_FS ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L2S, LINK2S, L2S_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFN, NDOFF, NDOFS, NTERM_MNN, NTERM_MFF, NTERM_MFS, NTERM_MSS @@ -39,10 +39,10 @@ SUBROUTINE REDUCE_MNN_TO_MFF ( PART_VEC_N_FS ) I_MSS, J_MSS, MSS USE SPARSE_MATRICES, ONLY : SYM_MNN, SYM_MFF, SYM_MFS, SYM_MSS USE SCRATCH_MATRICES - + IMPLICIT NONE - INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices diff --git a/Source/Interfaces/REDUCE_N_FS_Interface.f90 b/Source/Interfaces/REDUCE_N_FS_Interface.f90 index c58aeef8..90018e82 100644 --- a/Source/Interfaces/REDUCE_N_FS_Interface.f90 +++ b/Source/Interfaces/REDUCE_N_FS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_N_FS_Interface @@ -30,15 +30,15 @@ MODULE REDUCE_N_FS_Interface SUBROUTINE REDUCE_N_FS - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L1H, LINK1H, L1H_MSG, L2C, LINK2C, L2C_MSG, SC1, WRT_ERR USE SCONTR, ONLY : LINKNO , NDOFF, NDOFG, NDOFN, NDOFS, NDOFSE, NSUB, & NTERM_KNN , NTERM_KFF , NTERM_KFS , NTERM_KSS , NTERM_KSSe , & NTERM_KNND, NTERM_KFFD, NTERM_KFSD, NTERM_KSSD, NTERM_KSSDe, & NTERM_QSYS, NTERM_PN , NTERM_PF , NTERM_PS , NTERM_MNN , & - NTERM_MFF , NTERM_MFS , NTERM_MSS , SOL_NAME, BLNK_SUB_NAM - USE TIMDAT, ONLY : TSEC, YEAR, MONTH, DAY, HOUR, MINUTE, SEC, SFRAC, STIME + NTERM_MFF , NTERM_MFS , NTERM_MSS , SOL_NAME, BLNK_SUB_NAM + USE TIMDAT, ONLY : TSEC, YEAR, MONTH, DAY, HOUR, MINUTE, SEC, SFRAC, STIME USE CONSTANTS_1, ONLY : ONE USE DOF_TABLES, ONLY : TDOFI USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET, RBGLOBAL_NSET, RBGLOBAL_FSET @@ -57,12 +57,12 @@ SUBROUTINE REDUCE_N_FS USE COL_VECS, ONLY : YSe USE DEBUG_PARAMETERS, ONLY : DEBUG USE SCRATCH_MATRICES - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - - INTEGER(LONG) , PARAMETER :: NUM_YS_COLS = 1 ! Variable for number of cols in array YSe + + INTEGER(LONG) , PARAMETER :: NUM_YS_COLS = 1 ! Variable for number of cols in array YSe END SUBROUTINE REDUCE_N_FS diff --git a/Source/Interfaces/REDUCE_PA_TO_PL_Interface.f90 b/Source/Interfaces/REDUCE_PA_TO_PL_Interface.f90 index 5ce46e02..b5a4adde 100644 --- a/Source/Interfaces/REDUCE_PA_TO_PL_Interface.f90 +++ b/Source/Interfaces/REDUCE_PA_TO_PL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_PA_TO_PL_Interface @@ -30,19 +30,19 @@ MODULE REDUCE_PA_TO_PL_Interface SUBROUTINE REDUCE_PA_TO_PL ( PART_VEC_A_LR, PART_VEC_SUB ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFA, NDOFL, NDOFR, NSUB, NTERM_GOA, NTERM_PA, NTERM_PL, NTERM_PR USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE - USE SPARSE_MATRICES, ONLY : I_PA, J_PA, PA, I_PL, J_PL, PL, I_PR, J_PR, PR, I_GOA, J_GOA, GOA, I_GOAt, J_GOAt, GOAt + USE CONSTANTS_1, ONLY : ONE + USE SPARSE_MATRICES, ONLY : I_PA, J_PA, PA, I_PL, J_PL, PL, I_PR, J_PR, PR, I_GOA, J_GOA, GOA, I_GOAt, J_GOAt, GOAt USE SPARSE_MATRICES, ONLY : SYM_PA, SYM_PL, SYM_PR - + IMPLICIT NONE - - INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices diff --git a/Source/Interfaces/REDUCE_PF_TO_PA_Interface.f90 b/Source/Interfaces/REDUCE_PF_TO_PA_Interface.f90 index a9564d2a..8adca469 100644 --- a/Source/Interfaces/REDUCE_PF_TO_PA_Interface.f90 +++ b/Source/Interfaces/REDUCE_PF_TO_PA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_PF_TO_PA_Interface @@ -30,25 +30,25 @@ MODULE REDUCE_PF_TO_PA_Interface SUBROUTINE REDUCE_PF_TO_PA ( PART_VEC_F_AO, PART_VEC_SUB ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, KOO_SDIA, NDOFF, NDOFA, NDOFO, NSUB, NTERM_GOA, NTERM_PF, & NTERM_PA, NTERM_PO USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE PARAMS, ONLY : EPSIL, MATSPARS - USE SPARSE_MATRICES, ONLY : I_PF, J_PF, PF, I_PA, J_PA, PA, I_PO, J_PO, PO, I_GOA, J_GOA, GOA, I_GOAt, J_GOAt, GOAt + USE SPARSE_MATRICES, ONLY : I_PF, J_PF, PF, I_PA, J_PA, PA, I_PO, J_PO, PO, I_GOA, J_GOA, GOA, I_GOAt, J_GOAt, GOAt USE SPARSE_MATRICES, ONLY : SYM_GOA, SYM_PF, SYM_PA, SYM_PO USE FULL_MATRICES, ONLY : PA_FULL, PO_FULL, GOA_FULL, DUM1, DUM2 USE SCRATCH_MATRICES - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - - INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) INTEGER(LONG), PARAMETER :: ITRNSPB = 0 ! Transpose indicator for matrix multiply routine INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices diff --git a/Source/Interfaces/REDUCE_PG_TO_PN_Interface.f90 b/Source/Interfaces/REDUCE_PG_TO_PN_Interface.f90 index 79ec6853..f54cb54f 100644 --- a/Source/Interfaces/REDUCE_PG_TO_PN_Interface.f90 +++ b/Source/Interfaces/REDUCE_PG_TO_PN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_PG_TO_PN_Interface @@ -30,31 +30,31 @@ MODULE REDUCE_PG_TO_PN_Interface SUBROUTINE REDUCE_PG_TO_PN ( PART_VEC_G_NM, PART_VEC_SUB ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, NDOFN, NDOFM, NSUB, NTERM_GMN, NTERM_PG, NTERM_PN, NTERM_PM USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE PARAMS, ONLY : EPSIL, MATSPARS - USE SPARSE_MATRICES, ONLY : I_PG, J_PG, PG, I_PN, J_PN, PN, I_PM, J_PM, PM, I_GMN, J_GMN, GMN, I_GMNt, J_GMNt, GMNt + USE SPARSE_MATRICES, ONLY : I_PG, J_PG, PG, I_PN, J_PN, PN, I_PM, J_PM, PM, I_GMN, J_GMN, GMN, I_GMNt, J_GMNt, GMNt USE SPARSE_MATRICES, ONLY : SYM_GMN, SYM_PG, SYM_PN, SYM_PM USE FULL_MATRICES, ONLY : PN_FULL, PM_FULL, GMN_FULL, DUM1, DUM2 USE SCRATCH_MATRICES - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - - INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) INTEGER(LONG), PARAMETER :: ITRNSPB = 0 ! Transpose indicator for matrix multiply routine INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices REAL(DOUBLE) :: SMALL ! A number used in filtering out small numbers from a full matrix - + END SUBROUTINE REDUCE_PG_TO_PN END INTERFACE diff --git a/Source/Interfaces/REDUCE_PN_TO_PF_Interface.f90 b/Source/Interfaces/REDUCE_PN_TO_PF_Interface.f90 index a6aa0ee2..98bfe13e 100644 --- a/Source/Interfaces/REDUCE_PN_TO_PF_Interface.f90 +++ b/Source/Interfaces/REDUCE_PN_TO_PF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_PN_TO_PF_Interface @@ -30,33 +30,33 @@ MODULE REDUCE_PN_TO_PF_Interface SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L2D, LINK2D, L2D_MSG, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFN, NDOFF, NDOFS, NDOFSE, NSUB, NTERM_KFSe, NTERM_PN, & NTERM_PF, NTERM_PFYS, NTERM_PS USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE PARAMS, ONLY : MATSPARS USE SPARSE_MATRICES, ONLY : I_KFSe, J_KFSe, KFSe, I_PN, J_PN, PN, I_PF, J_PF, PF, I_PS, J_PS, PS, I_PF_TMP, J_PF_TMP, & PF_TMP, I_PFYS, J_PFYS, PFYS, I_PFYS1, J_PFYS1, PFYS1, I_QSYS, J_QSYS, QSYS USE SPARSE_MATRICES, ONLY : SYM_KFSe, SYM_PN, SYM_PF, SYM_PFYS, SYM_PF_TMP, SYM_PS - USE COL_VECS, ONLY : YSe + USE COL_VECS, ONLY : YSe USE FULL_MATRICES, ONLY : KFSe_FULL, PF_FULL, PFYS_FULL, DUM1 USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE SCRATCH_MATRICES - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - - INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN)! Partitioning vector (F set into A and O sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN)! Partitioning vector (F set into A and O sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) INTEGER(LONG), PARAMETER :: ITRNSPB = 0 ! Transpose indicator for matrix multiply routine INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices - INTEGER(LONG), PARAMETER :: NUM_YS_COLS = 1 ! Variable for number of cols in array YSe + INTEGER(LONG), PARAMETER :: NUM_YS_COLS = 1 ! Variable for number of cols in array YSe END SUBROUTINE REDUCE_PN_TO_PF diff --git a/Source/Interfaces/RENORM_Interface.f90 b/Source/Interfaces/RENORM_Interface.f90 index 3de5a459..fb1cf9a1 100644 --- a/Source/Interfaces/RENORM_Interface.f90 +++ b/Source/Interfaces/RENORM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RENORM_Interface @@ -30,7 +30,7 @@ MODULE RENORM_Interface SUBROUTINE RENORM ( VEC_NUM, NORM_GRD, NORM_COMP, NORM, NORM_GSET_DOF, GEN_MASS1, PHI_SCALE_FAC ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, NDOFG, NDOFG, NGRID, WARN_ERR @@ -38,21 +38,21 @@ SUBROUTINE RENORM ( VEC_NUM, NORM_GRD, NORM_COMP, NORM, NORM_GSET_DOF, GEN_MASS1 USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE USE COL_VECS, ONLY : UG_COL - + IMPLICIT NONE - + CHARACTER( 8*BYTE), INTENT(IN) :: NORM ! Eigenvector renormalization methof from EIGR card (e.g. 'MAX ') - + INTEGER(LONG), INTENT(IN) :: NORM_COMP ! Comp. (1-6) for renormalizing eigenvectors (from EIGR card) INTEGER(LONG), INTENT(IN) :: NORM_GRD ! Grid Point for renormalizing eigenvectors (from EIGR card) - INTEGER(LONG), INTENT(IN) :: NORM_GSET_DOF ! G-set DOF no. for NORM_GRD/NORM_COMP + INTEGER(LONG), INTENT(IN) :: NORM_GSET_DOF ! G-set DOF no. for NORM_GRD/NORM_COMP INTEGER(LONG), INTENT(IN) :: VEC_NUM ! Number used to control an output message (only want this information - + REAL(DOUBLE) , INTENT(INOUT) :: GEN_MASS1 ! Generalized mass for 1 eigenvector REAL(DOUBLE) , INTENT(OUT) :: PHI_SCALE_FAC ! Scale factor for the eigenvector to renormalize it REAL(DOUBLE) :: PHI_POINT ! Variable used when normalizing gen. mass and eigenvectors - + END SUBROUTINE RENORM END INTERFACE diff --git a/Source/Interfaces/RENORM_ON_MASS_Interface.f90 b/Source/Interfaces/RENORM_ON_MASS_Interface.f90 index 02529a4c..de6a6447 100644 --- a/Source/Interfaces/RENORM_ON_MASS_Interface.f90 +++ b/Source/Interfaces/RENORM_ON_MASS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RENORM_ON_MASS_Interface @@ -30,7 +30,7 @@ MODULE RENORM_ON_MASS_Interface SUBROUTINE RENORM_ON_MASS ( NVC, EPS1 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : NDOFL, BLNK_SUB_NAM, WARN_ERR @@ -40,12 +40,12 @@ SUBROUTINE RENORM_ON_MASS ( NVC, EPS1 ) USE EIGEN_MATRICES_1 , ONLY : GEN_MASS, EIGEN_VEC USE MODEL_STUF, ONLY : EIG_NORM, MAXMIJ, MIJ_COL, MIJ_ROW USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: NVC ! Number of eigenvectors to be renormalized. - + REAL(DOUBLE) , INTENT(IN) :: EPS1 ! Small number to compare variables against zero END SUBROUTINE RENORM_ON_MASS diff --git a/Source/Interfaces/REPLACE_TABS_W_BLANKS_Interface.f90 b/Source/Interfaces/REPLACE_TABS_W_BLANKS_Interface.f90 index 25e15e8a..a2ff635e 100644 --- a/Source/Interfaces/REPLACE_TABS_W_BLANKS_Interface.f90 +++ b/Source/Interfaces/REPLACE_TABS_W_BLANKS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REPLACE_TABS_W_BLANKS_Interface @@ -30,17 +30,17 @@ MODULE REPLACE_TABS_W_BLANKS_Interface SUBROUTINE REPLACE_TABS_W_BLANKS ( CARD ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! Input entry character line - + END SUBROUTINE REPLACE_TABS_W_BLANKS END INTERFACE diff --git a/Source/Interfaces/RESTART_DATA_FOR_L3_Interface.f90 b/Source/Interfaces/RESTART_DATA_FOR_L3_Interface.f90 index a339ce2c..f55ba83e 100644 --- a/Source/Interfaces/RESTART_DATA_FOR_L3_Interface.f90 +++ b/Source/Interfaces/RESTART_DATA_FOR_L3_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RESTART_DATA_FOR_L3_Interface @@ -30,21 +30,21 @@ MODULE RESTART_DATA_FOR_L3_Interface SUBROUTINE RESTART_DATA_FOR_L3 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE IOUNT1, ONLY : L2G, LINK2G, L2G_MSG, L2GSTAT USE IOUNT1, ONLY : L2H, LINK2H, L2H_MSG, L2HSTAT USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFL, NTERM_KLL, NTERM_PL - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE SPARSE_MATRICES, ONLY : I_KLL , J_KLL , KLL ,I_PL , J_PL , PL IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + END SUBROUTINE RESTART_DATA_FOR_L3 END INTERFACE diff --git a/Source/Interfaces/RFORCE_PROC_Interface.f90 b/Source/Interfaces/RFORCE_PROC_Interface.f90 index 585ce821..e7c5c79a 100644 --- a/Source/Interfaces/RFORCE_PROC_Interface.f90 +++ b/Source/Interfaces/RFORCE_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RFORCE_PROC_Interface @@ -30,7 +30,7 @@ MODULE RFORCE_PROC_Interface SUBROUTINE RFORCE_PROC - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, FILE_NAM_MAXLEN, L1U, LINK1U, L1U_MSG, SC1, SCR, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LLOADC, NCORD, NRFORCE, NGRID, NLOAD, NSUB, WARN_ERR @@ -39,14 +39,14 @@ SUBROUTINE RFORCE_PROC USE PARAMS, ONLY : SUPWARN USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : CORD, GRID, GRID_ID, LOAD_FACS, LOAD_SIDS, RCORD, RGRID, SYS_LOAD, SUBLOD - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + INTEGER(LONG), PARAMETER :: ACID_0 = 0 ! Basic coord system - + END SUBROUTINE RFORCE_PROC END INTERFACE diff --git a/Source/Interfaces/RIGID_BODY_DISP_MAT_Interface.f90 b/Source/Interfaces/RIGID_BODY_DISP_MAT_Interface.f90 index 8edc7720..acfd210c 100644 --- a/Source/Interfaces/RIGID_BODY_DISP_MAT_Interface.f90 +++ b/Source/Interfaces/RIGID_BODY_DISP_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RIGID_BODY_DISP_MAT_Interface diff --git a/Source/Interfaces/RIGID_ELEM_PROC_Interface.f90 b/Source/Interfaces/RIGID_ELEM_PROC_Interface.f90 index 8fc665d2..708049ad 100644 --- a/Source/Interfaces/RIGID_ELEM_PROC_Interface.f90 +++ b/Source/Interfaces/RIGID_ELEM_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RIGID_ELEM_PROC_Interface @@ -30,16 +30,16 @@ MODULE RIGID_ELEM_PROC_Interface SUBROUTINE RIGID_ELEM_PROC - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L1F, LINK1F, L1F_MSG, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NRECARD USE TIMDAT, ONLY : TSEC IMPLICIT NONE - - + + END SUBROUTINE RIGID_ELEM_PROC END INTERFACE diff --git a/Source/Interfaces/ROD1_Interface.f90 b/Source/Interfaces/ROD1_Interface.f90 index bbdbf642..05a7879d 100644 --- a/Source/Interfaces/ROD1_Interface.f90 +++ b/Source/Interfaces/ROD1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ROD1_Interface @@ -30,7 +30,7 @@ MODULE ROD1_Interface SUBROUTINE ROD1 ( OPT, L, AREA, JTOR, SCOEFF, E, G, ALPHA, TREF ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : NTSUB, BLNK_SUB_NAM @@ -38,12 +38,12 @@ SUBROUTINE ROD1 ( OPT, L, AREA, JTOR, SCOEFF, E, G, ALPHA, TREF ) USE CONSTANTS_1, ONLY : TWO USE MODEL_STUF, ONLY : DT, KE, PTE, SE1, STE1 - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices - + REAL(DOUBLE) , INTENT(IN) :: ALPHA ! Coefficient of thermal expansion REAL(DOUBLE) , INTENT(IN) :: AREA ! Cross-sectional area REAL(DOUBLE) , INTENT(IN) :: E ! Youngs modulus @@ -55,7 +55,7 @@ SUBROUTINE ROD1 ( OPT, L, AREA, JTOR, SCOEFF, E, G, ALPHA, TREF ) REAL(DOUBLE) :: C01 ! Intermediate variable used in calc terms for the stiff matrix, KE REAL(DOUBLE) :: C02 ! Intermediate variable used in calc terms for the stiff matrix, KE REAL(DOUBLE) :: CT0 ! Intermediate variable used in calc thermal loads, PTE - + END SUBROUTINE ROD1 END INTERFACE diff --git a/Source/Interfaces/ROD_MARGIN_Interface.f90 b/Source/Interfaces/ROD_MARGIN_Interface.f90 index 151c86cf..e35feab1 100644 --- a/Source/Interfaces/ROD_MARGIN_Interface.f90 +++ b/Source/Interfaces/ROD_MARGIN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ROD_MARGIN_Interface @@ -30,27 +30,27 @@ MODULE ROD_MARGIN_Interface SUBROUTINE ROD_MARGIN (ICOL, S1, S2, MS1, MS2, MSP1, MSP2 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, ONEPM6, ONEPP10 - USE PARAMS, ONLY : EPSIL + USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : ULT_STRE IMPLICIT NONE - - CHARACTER(LEN=*), INTENT(OUT) :: MSP1,MSP2 ! If '1', print margins in F06 file. If '0', do not print. - + + CHARACTER(LEN=*), INTENT(OUT) :: MSP1,MSP2 ! If '1', print margins in F06 file. If '0', do not print. + INTEGER(LONG), INTENT(IN) :: ICOL ! Column no. from ULT_STRE to get max allow. stresses - + REAL(DOUBLE), INTENT(OUT) :: MS1 ! Calculated margin of safety REAL(DOUBLE), INTENT(OUT) :: MS2 ! Calculated margin of safety REAL(DOUBLE), INTENT(IN) :: S1 ! An input stress for which margins are calculated REAL(DOUBLE), INTENT(IN) :: S2 ! An input stress for which margins are calculated - + END SUBROUTINE ROD_MARGIN END INTERFACE diff --git a/Source/Interfaces/ROT_AXES_MATL_TO_LOC_Interface.f90 b/Source/Interfaces/ROT_AXES_MATL_TO_LOC_Interface.f90 index 13be0ae9..eefa2158 100644 --- a/Source/Interfaces/ROT_AXES_MATL_TO_LOC_Interface.f90 +++ b/Source/Interfaces/ROT_AXES_MATL_TO_LOC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ROT_AXES_MATL_TO_LOC_Interface diff --git a/Source/Interfaces/ROT_COMP_ELEM_AXES_Interface.f90 b/Source/Interfaces/ROT_COMP_ELEM_AXES_Interface.f90 index 060a2e41..70d46c75 100644 --- a/Source/Interfaces/ROT_COMP_ELEM_AXES_Interface.f90 +++ b/Source/Interfaces/ROT_COMP_ELEM_AXES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ROT_COMP_ELEM_AXES_Interface @@ -33,7 +33,7 @@ SUBROUTINE ROT_COMP_ELEM_AXES ( INT_ELEM_ID, IPLY, THETA, DIRECTION ) USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MEMATC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MEMATC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : CONV_DEG_RAD, ZERO, HALF, ONE, TWO, FOUR USE DEBUG_PARAMETERS, ONLY : DEBUG @@ -48,7 +48,7 @@ SUBROUTINE ROT_COMP_ELEM_AXES ( INT_ELEM_ID, IPLY, THETA, DIRECTION ) REAL(DOUBLE), INTENT(IN) :: THETA ! Orient angle of long dir of ply i wrt matl axis for the composite elem - + END SUBROUTINE ROT_COMP_ELEM_AXES END INTERFACE diff --git a/Source/Interfaces/ROW_AT_COLJ_BEGEND_Interface.f90 b/Source/Interfaces/ROW_AT_COLJ_BEGEND_Interface.f90 index 0af22f99..7fb70c98 100644 --- a/Source/Interfaces/ROW_AT_COLJ_BEGEND_Interface.f90 +++ b/Source/Interfaces/ROW_AT_COLJ_BEGEND_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ROW_AT_COLJ_BEGEND_Interface @@ -45,7 +45,7 @@ SUBROUTINE ROW_AT_COLJ_BEGEND ( NAME, NROWS, NCOLS, NTERM, I_A, J_A, ROW_AT_COLJ INTEGER(LONG), INTENT(IN ) :: NCOLS ! No. cols in MATIN INTEGER(LONG), INTENT(IN ) :: I_A(NROWS+1) ! I_A(i+1) - I_A(i) is no. terms in row i of matrix A INTEGER(LONG), INTENT(IN ) :: J_A(NTERM) ! Array of column numbers for matrix A - INTEGER(LONG), INTENT(OUT) :: ROW_AT_COLJ_BEG(NCOLS)! jth term is row number in MATIN where col j nonzeros begin + INTEGER(LONG), INTENT(OUT) :: ROW_AT_COLJ_BEG(NCOLS)! jth term is row number in MATIN where col j nonzeros begin INTEGER(LONG), INTENT(OUT) :: ROW_AT_COLJ_END(NCOLS)! jth term is row number in MATIN where col j nonzeros end diff --git a/Source/Interfaces/RSPLINE_PROC_Interface.f90 b/Source/Interfaces/RSPLINE_PROC_Interface.f90 index fa0e383d..d2a92a70 100644 --- a/Source/Interfaces/RSPLINE_PROC_Interface.f90 +++ b/Source/Interfaces/RSPLINE_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RSPLINE_PROC_Interface @@ -40,15 +40,15 @@ SUBROUTINE RSPLINE_PROC ( RTYPE, REC_NO, IERR ) USE MODEL_STUF, ONLY : CORD, GRID, RGRID, GRID_ID, CORD USE PARAMS, ONLY : EPSIL USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER( 8*BYTE), INTENT(IN) :: RTYPE ! The type of rigid element being processed (RSPLINE) INTEGER(LONG), INTENT(INOUT) :: IERR ! Count of errors in RIGID_ELEM_PROC INTEGER(LONG), INTENT(INOUT) :: REC_NO ! Record number when reading a file - + END SUBROUTINE RSPLINE_PROC END INTERFACE diff --git a/Source/Interfaces/RW_INCLUDE_FILES_Interface.f90 b/Source/Interfaces/RW_INCLUDE_FILES_Interface.f90 index 010ef8e8..234ecc10 100644 --- a/Source/Interfaces/RW_INCLUDE_FILES_Interface.f90 +++ b/Source/Interfaces/RW_INCLUDE_FILES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RW_INCLUDE_FILES_Interface @@ -30,18 +30,18 @@ MODULE RW_INCLUDE_FILES_Interface SUBROUTINE RW_INCLUDE_FILES ( UNIT_IN, UNIT_OUT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06, FILE_NAM_MAXLEN, INCFIL USE SCONTR, ONLY : BLNK_SUB_NAM, EC_ENTRY_LEN, FATAL_ERR - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: UNIT_IN ! Unit number to read INCLUDE entries from INTEGER(LONG), INTENT(IN) :: UNIT_OUT ! Unit number to write INCLUDE entries to - + END SUBROUTINE RW_INCLUDE_FILES END INTERFACE diff --git a/Source/Interfaces/SEQ_PROC_Interface.f90 b/Source/Interfaces/SEQ_PROC_Interface.f90 index d81d2cb9..3c78eca8 100644 --- a/Source/Interfaces/SEQ_PROC_Interface.f90 +++ b/Source/Interfaces/SEQ_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SEQ_PROC_Interface @@ -30,7 +30,7 @@ MODULE SEQ_PROC_Interface SUBROUTINE SEQ_PROC - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, SEQ, L1B USE IOUNT1, ONLY : WRT_ERR, SEQFIL @@ -41,11 +41,11 @@ SUBROUTINE SEQ_PROC USE PARAMS, ONLY : SUPINFO, SUPWARN USE MODEL_STUF, ONLY : GRID_ID, GRID_SEQ, INV_GRID_SEQ, SEQ1, SEQ2 USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + END SUBROUTINE SEQ_PROC END INTERFACE diff --git a/Source/Interfaces/SET_FILE_CLOSE_STAT_Interface.f90 b/Source/Interfaces/SET_FILE_CLOSE_STAT_Interface.f90 index bbfda637..1faf77db 100644 --- a/Source/Interfaces/SET_FILE_CLOSE_STAT_Interface.f90 +++ b/Source/Interfaces/SET_FILE_CLOSE_STAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SET_FILE_CLOSE_STAT_Interface @@ -30,9 +30,9 @@ MODULE SET_FILE_CLOSE_STAT_Interface SUBROUTINE SET_FILE_CLOSE_STAT ( CLOSE_STAT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG - + USE IOUNT1, ONLY : WRT_ERR, ERRSTAT, SEQSTAT, SPCSTAT, L1ASTAT, & L1BSTAT, L1CSTAT, L1DSTAT, L1ESTAT, L1FSTAT, L1GSTAT, L1HSTAT, L1ISTAT, L1TSTAT, L1JSTAT, & L1KSTAT, L1LSTAT, L1MSTAT, L1NSTAT, L1OSTAT, L1PSTAT, L1QSTAT, L1RSTAT, L1SSTAT, L1USTAT, & @@ -41,7 +41,7 @@ SUBROUTINE SET_FILE_CLOSE_STAT ( CLOSE_STAT ) L2KSTAT, L2LSTAT, L2MSTAT, L2NSTAT, L2OSTAT, L2PSTAT, L2QSTAT, L2RSTAT, L2SSTAT, L2TSTAT, & L3ASTAT, L4ASTAT, L4BSTAT, L4CSTAT, L4DSTAT, L5ASTAT, L5BSTAT IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CLOSE_STAT ! Close status of files END SUBROUTINE SET_FILE_CLOSE_STAT diff --git a/Source/Interfaces/SET_SPARSE_MAT_SYM_Interface.f90 b/Source/Interfaces/SET_SPARSE_MAT_SYM_Interface.f90 index 2fa166c6..5b6e5d0b 100644 --- a/Source/Interfaces/SET_SPARSE_MAT_SYM_Interface.f90 +++ b/Source/Interfaces/SET_SPARSE_MAT_SYM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SET_SPARSE_MAT_SYM_Interface diff --git a/Source/Interfaces/SHELL_ABD_MATRICES_Interface.f90 b/Source/Interfaces/SHELL_ABD_MATRICES_Interface.f90 index 8977f187..a3622cbf 100644 --- a/Source/Interfaces/SHELL_ABD_MATRICES_Interface.f90 +++ b/Source/Interfaces/SHELL_ABD_MATRICES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHELL_ABD_MATRICES_Interface @@ -92,10 +92,10 @@ SUBROUTINE SHELL_ABD_MATRICES ( INT_ELEM_ID, WRITE_WARN ) REAL(DOUBLE) :: PCOMP_TM ! Membrane thickness of PCOMP for equivalent PSHELL REAL(DOUBLE) :: PCOMP_IB ! Bending MOI of PCOMP for equivalent PSHELL REAL(DOUBLE) :: PCOMP_TS ! Transverse shear thickness of PCOMP for equivalent PSHELL - REAL(DOUBLE) :: PLY_A(3,3) ! Transformed material matrix A for a ply - REAL(DOUBLE) :: PLY_B(3,3) ! Transformed material matrix B for a ply - REAL(DOUBLE) :: PLY_D(3,3) ! Transformed material matrix D for a ply - REAL(DOUBLE) :: PLY_T(2,2) ! Transformed material matrix T for a ply + REAL(DOUBLE) :: PLY_A(3,3) ! Transformed material matrix A for a ply + REAL(DOUBLE) :: PLY_B(3,3) ! Transformed material matrix B for a ply + REAL(DOUBLE) :: PLY_D(3,3) ! Transformed material matrix D for a ply + REAL(DOUBLE) :: PLY_T(2,2) ! Transformed material matrix T for a ply REAL(DOUBLE) :: SB ! Allowable interlaminar shear stress. Required if FT is specified REAL(DOUBLE) :: TREFK ! Ref temperature for ply K REAL(DOUBLE) :: Z0 ! Coord from ref plane to bottom surface of element diff --git a/Source/Interfaces/SHELL_ENGR_FORCE_OGEL_Interface.f90 b/Source/Interfaces/SHELL_ENGR_FORCE_OGEL_Interface.f90 index f7270dba..1beac136 100644 --- a/Source/Interfaces/SHELL_ENGR_FORCE_OGEL_Interface.f90 +++ b/Source/Interfaces/SHELL_ENGR_FORCE_OGEL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHELL_ENGR_FORCE_OGEL_Interface @@ -30,7 +30,7 @@ MODULE SHELL_ENGR_FORCE_OGEL_Interface SUBROUTINE SHELL_ENGR_FORCE_OGEL ( NUM1 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NGRID @@ -40,10 +40,10 @@ SUBROUTINE SHELL_ENGR_FORCE_OGEL ( NUM1 ) USE LINK9_STUFF, ONLY : MAXREQ, MAXREQ, OGEL IMPLICIT NONE - + INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr - + END SUBROUTINE SHELL_ENGR_FORCE_OGEL END INTERFACE diff --git a/Source/Interfaces/SHELL_STRAIN_OUTPUTS_Interface.f90 b/Source/Interfaces/SHELL_STRAIN_OUTPUTS_Interface.f90 index 11ad1e85..edae91f0 100644 --- a/Source/Interfaces/SHELL_STRAIN_OUTPUTS_Interface.f90 +++ b/Source/Interfaces/SHELL_STRAIN_OUTPUTS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHELL_STRAIN_OUTPUTS_Interface @@ -30,10 +30,10 @@ MODULE SHELL_STRAIN_OUTPUTS_Interface SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : ANY_FAILURE_THEORY, FAILURE_THEORY, PCOMP_PROPS, STRAIN, STRESS, TYPE, ZS @@ -41,17 +41,17 @@ SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG USE LINK9_STUFF, ONLY : FTNAME, OGEL USE FEMAP_ARRAYS, ONLY : FEMAP_EL_VECS USE PARAMS, ONLY : PRTNEU - + IMPLICIT NONE CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP_EL_VECS - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr - + END SUBROUTINE SHELL_STRAIN_OUTPUTS END INTERFACE diff --git a/Source/Interfaces/SHELL_STRESS_OUTPUTS_Interface.f90 b/Source/Interfaces/SHELL_STRESS_OUTPUTS_Interface.f90 index 6bee1ee5..a408fe0b 100644 --- a/Source/Interfaces/SHELL_STRESS_OUTPUTS_Interface.f90 +++ b/Source/Interfaces/SHELL_STRESS_OUTPUTS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHELL_STRESS_OUTPUTS_Interface @@ -30,10 +30,10 @@ MODULE SHELL_STRESS_OUTPUTS_Interface SUBROUTINE SHELL_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : ANY_FAILURE_THEORY, FAILURE_THEORY, PCOMP_PROPS, STRAIN, STRESS, TYPE, ZS @@ -41,17 +41,17 @@ SUBROUTINE SHELL_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG USE LINK9_STUFF, ONLY : FTNAME, OGEL USE FEMAP_ARRAYS, ONLY : FEMAP_EL_VECS USE PARAMS, ONLY : PRTNEU - + IMPLICIT NONE CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP_EL_VECS - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr - + END SUBROUTINE SHELL_STRESS_OUTPUTS END INTERFACE diff --git a/Source/Interfaces/SHP2DQ_Interface.f90 b/Source/Interfaces/SHP2DQ_Interface.f90 index 9a170ae6..7b87e777 100644 --- a/Source/Interfaces/SHP2DQ_Interface.f90 +++ b/Source/Interfaces/SHP2DQ_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHP2DQ_Interface @@ -37,7 +37,7 @@ SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, TWO, FOUR USE MODEL_STUF, ONLY : EID, EMG_IFE, ERR_SUB_NAM, NUM_EMG_FATAL_ERRS, TYPE - + IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr (used for debug output) @@ -50,14 +50,14 @@ SUBROUTINE SHP2DQ ( IGAUS, JGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI INTEGER(LONG), INTENT(IN) :: IORZZZ ! Integration order (used for debug output) INTEGER(LONG), INTENT(IN) :: NUM_NODES ! Number of element nodes - + REAL(DOUBLE) , INTENT(IN) :: SSI ! Gauss point location component REAL(DOUBLE) , INTENT(IN) :: SSJ ! Gauss point location component REAL(DOUBLE) , INTENT(OUT) :: PSH(NUM_NODES) ! Shape functions for all grid points for this Gauss point REAL(DOUBLE) , INTENT(OUT) :: DPSHG(2,NUM_NODES)! Derivatives of PSH with respect to xi and eta. REAL(DOUBLE) :: A1,A2,A3 ! Intermediate variables used in calculating outputs REAL(DOUBLE) :: B1,B2,B3 ! Intermediate variables used in calculating outputs - + END SUBROUTINE SHP2DQ END INTERFACE diff --git a/Source/Interfaces/SHP3DH_Interface.f90 b/Source/Interfaces/SHP3DH_Interface.f90 index 44552698..2dc15d8b 100644 --- a/Source/Interfaces/SHP3DH_Interface.f90 +++ b/Source/Interfaces/SHP3DH_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHP3DH_Interface @@ -38,9 +38,9 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, TWO, FOUR, EIGHT USE MODEL_STUF, ONLY : EID, TYPE - + IMPLICIT NONE - + CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR ! Subr that called this subr (used for debug output) CHARACTER(LEN=*) , INTENT(IN) :: IORD_MSG ! Character name of the integration order (used for debug output) CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -52,13 +52,13 @@ SUBROUTINE SHP3DH ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZ INTEGER(LONG), INTENT(IN) :: IORZZZ ! Integration order (used for debug output) INTEGER(LONG), INTENT(IN) :: NUM_NODES ! Number of element nodes - + REAL(DOUBLE) , INTENT(IN) :: SSI ! Gauss point location component 1 REAL(DOUBLE) , INTENT(IN) :: SSJ ! Gauss point location component 2 REAL(DOUBLE) , INTENT(IN) :: SSK ! Gauss point location component 3 REAL(DOUBLE) , INTENT(OUT) :: PSH(NUM_NODES) ! Shape functions for all grid points for this Gauss point REAL(DOUBLE) , INTENT(OUT) :: DPSHG(3,NUM_NODES)! Derivatives of PSH with respect to xi, eta, zi. - + END SUBROUTINE SHP3DH END INTERFACE diff --git a/Source/Interfaces/SHP3DP_Interface.f90 b/Source/Interfaces/SHP3DP_Interface.f90 index 8a7d90c2..4e3c215c 100644 --- a/Source/Interfaces/SHP3DP_Interface.f90 +++ b/Source/Interfaces/SHP3DP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHP3DP_Interface @@ -38,9 +38,9 @@ SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, TWO, HALF USE MODEL_STUF, ONLY : EID, TYPE - + IMPLICIT NONE - + CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR ! Subr that called this subr (used for debug output) CHARACTER(LEN=*) , INTENT(IN) :: IORD_MSG ! Character name of the integration order (used for debug output) CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -53,13 +53,13 @@ SUBROUTINE SHP3DP ( IGAUS, JGAUS, KGAUS, NUM_NODES, CALLING_SUBR, IORD_MSG, INT_ INTEGER(LONG), INTENT(IN) :: INT_ORD_K ! Integration order along z (used for debug output) INTEGER(LONG), INTENT(IN) :: NUM_NODES ! Number of element nodes - + REAL(DOUBLE) , INTENT(IN) :: SSI ! Gauss point location component 1 REAL(DOUBLE) , INTENT(IN) :: SSJ ! Gauss point location component 2 REAL(DOUBLE) , INTENT(IN) :: SSK ! Gauss point location component 3 REAL(DOUBLE) , INTENT(OUT) :: PSH(NUM_NODES) ! Shape functions for all grid points for this Gauss point REAL(DOUBLE) , INTENT(OUT) :: DPSHG(3,NUM_NODES)! Derivatives of PSH with respect to xi, eta, zi. - + END SUBROUTINE SHP3DP END INTERFACE diff --git a/Source/Interfaces/SHP3DT_Interface.f90 b/Source/Interfaces/SHP3DT_Interface.f90 index 5f0322b0..b6073c1c 100644 --- a/Source/Interfaces/SHP3DT_Interface.f90 +++ b/Source/Interfaces/SHP3DT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHP3DT_Interface @@ -38,9 +38,9 @@ SUBROUTINE SHP3DT ( GAUSS_PT, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SS USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, TWO, FOUR USE MODEL_STUF, ONLY : EID, TYPE - + IMPLICIT NONE - + CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR ! Subr that called this subr (used for debug output) CHARACTER(LEN=*) , INTENT(IN) :: IORD_MSG ! Character name of the integration order (used for debug output) CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to @@ -50,13 +50,13 @@ SUBROUTINE SHP3DT ( GAUSS_PT, NUM_NODES, CALLING_SUBR, IORD_MSG, IORZZZ, SSI, SS INTEGER(LONG), INTENT(IN) :: IORZZZ ! Integration order (used for debug output) INTEGER(LONG), INTENT(IN) :: NUM_NODES ! Number of element nodes - + REAL(DOUBLE) , INTENT(IN) :: SSI ! Gauss point location component 1 REAL(DOUBLE) , INTENT(IN) :: SSJ ! Gauss point location component 2 REAL(DOUBLE) , INTENT(IN) :: SSK ! Gauss point location component 3 REAL(DOUBLE) , INTENT(OUT) :: PSH(NUM_NODES) ! Shape functions for all grid points for this Gauss point REAL(DOUBLE) , INTENT(OUT) :: DPSHG(3,NUM_NODES)! Derivatives of PSH with respect to xi, eta, zi. - + END SUBROUTINE SHP3DT END INTERFACE diff --git a/Source/Interfaces/SLOAD_PROC_Interface.f90 b/Source/Interfaces/SLOAD_PROC_Interface.f90 index 2aaf9e6d..5884e156 100644 --- a/Source/Interfaces/SLOAD_PROC_Interface.f90 +++ b/Source/Interfaces/SLOAD_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SLOAD_PROC_Interface @@ -30,7 +30,7 @@ MODULE SLOAD_PROC_Interface SUBROUTINE SLOAD_PROC - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : FILE_NAM_MAXLEN, WRT_ERR, ERR, F06, L1W, LINK1W, L1W_MSG, L1WSTAT USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LLOADC, NGRID, NLOAD, NSLOAD, NSUB, WARN_ERR @@ -39,9 +39,9 @@ SUBROUTINE SLOAD_PROC USE PARAMS, ONLY : EPSIL, SUPWARN USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : LOAD_SIDS, LOAD_FACS, SYS_LOAD, SUBLOD, GRID, GRID_ID - + IMPLICIT NONE - + END SUBROUTINE SLOAD_PROC diff --git a/Source/Interfaces/SOLID_STRAIN_OUTPUTS_Interface.f90 b/Source/Interfaces/SOLID_STRAIN_OUTPUTS_Interface.f90 index 9842d6eb..cedafefb 100644 --- a/Source/Interfaces/SOLID_STRAIN_OUTPUTS_Interface.f90 +++ b/Source/Interfaces/SOLID_STRAIN_OUTPUTS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLID_STRAIN_OUTPUTS_Interface @@ -30,10 +30,10 @@ MODULE SOLID_STRAIN_OUTPUTS_Interface SUBROUTINE SOLID_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : STRAIN, TYPE @@ -41,17 +41,17 @@ SUBROUTINE SOLID_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG USE LINK9_STUFF, ONLY : OGEL USE FEMAP_ARRAYS, ONLY : FEMAP_EL_VECS USE PARAMS, ONLY : PRTNEU - + IMPLICIT NONE CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP_EL_VECS - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr - + END SUBROUTINE SOLID_STRAIN_OUTPUTS END INTERFACE diff --git a/Source/Interfaces/SOLID_STRESS_OUTPUTS_Interface.f90 b/Source/Interfaces/SOLID_STRESS_OUTPUTS_Interface.f90 index b1f50231..5f52c1c2 100644 --- a/Source/Interfaces/SOLID_STRESS_OUTPUTS_Interface.f90 +++ b/Source/Interfaces/SOLID_STRESS_OUTPUTS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLID_STRESS_OUTPUTS_Interface @@ -30,10 +30,10 @@ MODULE SOLID_STRESS_OUTPUTS_Interface SUBROUTINE SOLID_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : STRESS, TYPE @@ -41,17 +41,17 @@ SUBROUTINE SOLID_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG USE LINK9_STUFF, ONLY : OGEL USE FEMAP_ARRAYS, ONLY : FEMAP_EL_VECS USE PARAMS, ONLY : PRTNEU - + IMPLICIT NONE CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP_EL_VECS - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr - + END SUBROUTINE SOLID_STRESS_OUTPUTS END INTERFACE diff --git a/Source/Interfaces/SOLVE_DLR_Interface.f90 b/Source/Interfaces/SOLVE_DLR_Interface.f90 index 17a73e89..d9afe50e 100644 --- a/Source/Interfaces/SOLVE_DLR_Interface.f90 +++ b/Source/Interfaces/SOLVE_DLR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLVE_DLR_Interface @@ -39,14 +39,14 @@ SUBROUTINE SOLVE_DLR USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC USE CONSTANTS_1, ONLY : ZERO, ONE USE SPARSE_MATRICES, ONLY : I2_DLR, I_DLR, J_DLR, DLR, I_DLRt, I2_DLRt, J_DLRt, DLRt, I_KRL, J_KRL, KRL, & - I_KLL, I2_KLL, J_KLL, KLL - + I_KLL, I2_KLL, J_KLL, KLL + USE LAPACK_LIN_EQN_DPB IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + END SUBROUTINE SOLVE_DLR diff --git a/Source/Interfaces/SOLVE_GMN_Interface.f90 b/Source/Interfaces/SOLVE_GMN_Interface.f90 index 47f90b77..6e23ddd4 100644 --- a/Source/Interfaces/SOLVE_GMN_Interface.f90 +++ b/Source/Interfaces/SOLVE_GMN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLVE_GMN_Interface @@ -30,23 +30,23 @@ MODULE SOLVE_GMN_Interface SUBROUTINE SOLVE_GMN ( PART_VEC_G_NM, PART_VEC_M ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SCR, L2A, LINK2A, L2A_MSG, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, NDOFM, NTERM_RMG, NTERM_RMN, NTERM_RMM, NTERM_GMN USE PARAMS, ONLY : EPSIL, PRTRMG, PRTGMN, SOLLIB, SPARSE_FLAVOR, SUPINFO USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ONE - USE SPARSE_MATRICES, ONLY : I_RMG, J_RMG, RMG, I_RMN, J_RMN, RMN, I_RMM, J_RMM, RMM, I_GMN, J_GMN, GMN + USE SPARSE_MATRICES, ONLY : I_RMG, J_RMG, RMG, I_RMN, J_RMN, RMN, I_RMM, J_RMM, RMM, I_GMN, J_GMN, GMN USE SPARSE_MATRICES, ONLY : SYM_RMG, SYM_RMN, SYM_RMM USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - - INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_M(NDOFM) ! Partitioning vector (1's for all M set DOF's) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_M(NDOFM) ! Partitioning vector (1's for all M set DOF's) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices diff --git a/Source/Interfaces/SOLVE_GOA_Interface.f90 b/Source/Interfaces/SOLVE_GOA_Interface.f90 index 6c87d55e..b28e5ee3 100644 --- a/Source/Interfaces/SOLVE_GOA_Interface.f90 +++ b/Source/Interfaces/SOLVE_GOA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLVE_GOA_Interface @@ -45,7 +45,7 @@ SUBROUTINE SOLVE_GOA IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + END SUBROUTINE SOLVE_GOA diff --git a/Source/Interfaces/SOLVE_PHIZL1_Interface.f90 b/Source/Interfaces/SOLVE_PHIZL1_Interface.f90 index 845bcde5..168b66c5 100644 --- a/Source/Interfaces/SOLVE_PHIZL1_Interface.f90 +++ b/Source/Interfaces/SOLVE_PHIZL1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLVE_PHIZL1_Interface @@ -46,8 +46,8 @@ SUBROUTINE SOLVE_PHIZL1 ( NTERM_CRS3 ) IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - - INTEGER(LONG), INTENT(IN) :: NTERM_CRS3 ! Number of terms in matrix CRS3 + + INTEGER(LONG), INTENT(IN) :: NTERM_CRS3 ! Number of terms in matrix CRS3 END SUBROUTINE SOLVE_PHIZL1 diff --git a/Source/Interfaces/SOLVE_SHELL_ALP_Interface.f90 b/Source/Interfaces/SOLVE_SHELL_ALP_Interface.f90 index d40777a4..5f8e5c89 100644 --- a/Source/Interfaces/SOLVE_SHELL_ALP_Interface.f90 +++ b/Source/Interfaces/SOLVE_SHELL_ALP_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLVE_SHELL_ALP_Interface diff --git a/Source/Interfaces/SOLVE_UO0_Interface.f90 b/Source/Interfaces/SOLVE_UO0_Interface.f90 index 08a4411d..942b58a1 100644 --- a/Source/Interfaces/SOLVE_UO0_Interface.f90 +++ b/Source/Interfaces/SOLVE_UO0_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLVE_UO0_Interface @@ -40,11 +40,11 @@ SUBROUTINE SOLVE_UO0 USE SPARSE_MATRICES, ONLY : I_PO, J_PO, PO, I_KOO, J_KOO, KOO USE COL_VECS, ONLY : UO0_COL USE LAPACK_LIN_EQN_DPB - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + ! LAPACK_S values not used so null this vector diff --git a/Source/Interfaces/SORTLEN_Interface.f90 b/Source/Interfaces/SORTLEN_Interface.f90 index d51cc96c..f06622c9 100644 --- a/Source/Interfaces/SORTLEN_Interface.f90 +++ b/Source/Interfaces/SORTLEN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORTLEN_Interface @@ -30,20 +30,20 @@ MODULE SORTLEN_Interface SUBROUTINE SORTLEN ( NLEN, JCT ) - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM USE CONSTANTS_1, ONLY : TWO USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: NLEN ! Length of the array that will be sorted in the calling procedure INTEGER(LONG), INTENT(OUT) :: JCT ! Sort parameter to be used by calling procedure INTEGER(LONG) :: MAX_JCT ! Max practical value of JCT to use in sort by the calling procedure. - + END SUBROUTINE SORTLEN END INTERFACE diff --git a/Source/Interfaces/SORT_GRID_RGRID_Interface.f90 b/Source/Interfaces/SORT_GRID_RGRID_Interface.f90 index fc74244d..b2df2358 100644 --- a/Source/Interfaces/SORT_GRID_RGRID_Interface.f90 +++ b/Source/Interfaces/SORT_GRID_RGRID_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_GRID_RGRID_Interface @@ -30,28 +30,28 @@ MODULE SORT_GRID_RGRID_Interface SUBROUTINE SORT_GRID_RGRID ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MGRID, MRGRID USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY INTEGER(LONG), INTENT(INOUT) :: IARRAY(NSIZE,MGRID) ! Array GRID - INTEGER(LONG) :: IDUM1 ! Dummy values in IARRAY used when switching IARRAY rows during sort + INTEGER(LONG) :: IDUM1 ! Dummy values in IARRAY used when switching IARRAY rows during sort INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: SORTPK ! Intermediate variable used in setting a DO loop range. - - REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE,MRGRID)! Array RGRID + + REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE,MRGRID)! Array RGRID REAL(DOUBLE) :: RDUM1 ! Dummy values in RARRAY used when switching RARRAY rows during sort - + END SUBROUTINE SORT_GRID_RGRID END INTERFACE diff --git a/Source/Interfaces/SORT_INT1_Interface.f90 b/Source/Interfaces/SORT_INT1_Interface.f90 index ba50620d..ddde7413 100644 --- a/Source/Interfaces/SORT_INT1_Interface.f90 +++ b/Source/Interfaces/SORT_INT1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT1_Interface @@ -30,21 +30,21 @@ MODULE SORT_INT1_Interface SUBROUTINE SORT_INT1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY INTEGER(LONG), INTENT(INOUT) :: IARRAY(NSIZE) ! Integer array - INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: SORTPK ! Intermediate variable used in setting a DO loop range. diff --git a/Source/Interfaces/SORT_INT1_REAL1_Interface.f90 b/Source/Interfaces/SORT_INT1_REAL1_Interface.f90 index 811f3b4b..9ab32089 100644 --- a/Source/Interfaces/SORT_INT1_REAL1_Interface.f90 +++ b/Source/Interfaces/SORT_INT1_REAL1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT1_REAL1_Interface @@ -30,26 +30,26 @@ MODULE SORT_INT1_REAL1_Interface SUBROUTINE SORT_INT1_REAL1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY INTEGER(LONG), INTENT(INOUT) :: IARRAY(NSIZE) ! Array of integer values - INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: SORTPK ! Intermediate variable used in setting a DO loop range. - REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE) ! Array of real values + REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE) ! Array of real values REAL(DOUBLE) :: RDUM ! Dummy values in RARRAY used when switching RARRAY rows during the sort. END SUBROUTINE SORT_INT1_REAL1 diff --git a/Source/Interfaces/SORT_INT1_REAL3_Interface.f90 b/Source/Interfaces/SORT_INT1_REAL3_Interface.f90 index 40b52892..e881de86 100644 --- a/Source/Interfaces/SORT_INT1_REAL3_Interface.f90 +++ b/Source/Interfaces/SORT_INT1_REAL3_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT1_REAL3_Interface @@ -30,26 +30,26 @@ MODULE SORT_INT1_REAL3_Interface SUBROUTINE SORT_INT1_REAL3 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY INTEGER(LONG), INTENT(INOUT) :: IARRAY(NSIZE) ! Array of integer values - INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: SORTPK ! Intermediate variable used in setting a DO loop range. - REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE,3) ! Array of real values + REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE,3) ! Array of real values REAL(DOUBLE) :: RDUM ! Dummy values in RARRAY used when switching RARRAY rows during the sort. END SUBROUTINE SORT_INT1_REAL3 diff --git a/Source/Interfaces/SORT_INT2_Interface.f90 b/Source/Interfaces/SORT_INT2_Interface.f90 index 5d8368d7..3fd48ba9 100644 --- a/Source/Interfaces/SORT_INT2_Interface.f90 +++ b/Source/Interfaces/SORT_INT2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT2_Interface @@ -30,22 +30,22 @@ MODULE SORT_INT2_Interface SUBROUTINE SORT_INT2 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY INTEGER(LONG), INTENT(INOUT) :: IARRAY1(NSIZE) ! Integer array INTEGER(LONG), INTENT(INOUT) :: IARRAY2(NSIZE) ! Integer array - INTEGER(LONG) :: IDUM1,IDUM2 ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM1,IDUM2 ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: SORTPK ! Intermediate variable used in setting a DO loop range. diff --git a/Source/Interfaces/SORT_INT2_REAL1_Interface.f90 b/Source/Interfaces/SORT_INT2_REAL1_Interface.f90 index b1673bff..2890ab1c 100644 --- a/Source/Interfaces/SORT_INT2_REAL1_Interface.f90 +++ b/Source/Interfaces/SORT_INT2_REAL1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT2_REAL1_Interface @@ -30,27 +30,27 @@ MODULE SORT_INT2_REAL1_Interface SUBROUTINE SORT_INT2_REAL1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, RARRAY ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY INTEGER(LONG), INTENT(INOUT) :: IARRAY1(NSIZE) ! Array of integer values INTEGER(LONG), INTENT(INOUT) :: IARRAY2(NSIZE) ! Array of integer values - INTEGER(LONG) :: IDUM1,IDUM2 ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM1,IDUM2 ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: SORTPK ! Intermediate variable used in setting a DO loop range. - REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE) ! Array of real values + REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE) ! Array of real values REAL(DOUBLE) :: RDUM ! Dummy values in RARRAY used when switching RARRAY rows during the sort END SUBROUTINE SORT_INT2_REAL1 diff --git a/Source/Interfaces/SORT_INT3_CHAR2_Interface.f90 b/Source/Interfaces/SORT_INT3_CHAR2_Interface.f90 index 3ea088ea..b40592b5 100644 --- a/Source/Interfaces/SORT_INT3_CHAR2_Interface.f90 +++ b/Source/Interfaces/SORT_INT3_CHAR2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT3_CHAR2_Interface @@ -30,15 +30,15 @@ MODULE SORT_INT3_CHAR2_Interface SUBROUTINE SORT_INT3_CHAR2 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARRAY3, CARRAY1, CARRAY2 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY CHARACTER(LEN=*), INTENT(INOUT) :: CARRAY1(NSIZE) ! Character array @@ -50,7 +50,7 @@ SUBROUTINE SORT_INT3_CHAR2 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARR INTEGER(LONG), INTENT(INOUT) :: IARRAY1(NSIZE) ! Integer array INTEGER(LONG), INTENT(INOUT) :: IARRAY2(NSIZE) ! Integer array INTEGER(LONG), INTENT(INOUT) :: IARRAY3(NSIZE) ! Integer array - INTEGER(LONG) :: IDUM1,IDUM2,IDUM3 ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM1,IDUM2,IDUM3 ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: SORTPK ! Intermediate variable used in setting a DO loop range. diff --git a/Source/Interfaces/SORT_INT3_Interface.f90 b/Source/Interfaces/SORT_INT3_Interface.f90 index fbe50794..3719da50 100644 --- a/Source/Interfaces/SORT_INT3_Interface.f90 +++ b/Source/Interfaces/SORT_INT3_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT3_Interface @@ -30,15 +30,15 @@ MODULE SORT_INT3_Interface SUBROUTINE SORT_INT3 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARRAY3 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort @@ -46,7 +46,7 @@ SUBROUTINE SORT_INT3 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARRAY3 ) INTEGER(LONG), INTENT(INOUT) :: IARRAY1(NSIZE) ! Integer array INTEGER(LONG), INTENT(INOUT) :: IARRAY2(NSIZE) ! Integer array INTEGER(LONG), INTENT(INOUT) :: IARRAY3(NSIZE) ! Integer array - INTEGER(LONG) :: IDUM1,IDUM2,IDUM3 ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM1,IDUM2,IDUM3 ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: SORTPK ! Intermediate variable used in setting a DO loop range. diff --git a/Source/Interfaces/SORT_REAL1_INT1_Interface.f90 b/Source/Interfaces/SORT_REAL1_INT1_Interface.f90 index d6f46925..8b55f925 100644 --- a/Source/Interfaces/SORT_REAL1_INT1_Interface.f90 +++ b/Source/Interfaces/SORT_REAL1_INT1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_REAL1_INT1_Interface @@ -30,26 +30,26 @@ MODULE SORT_REAL1_INT1_Interface SUBROUTINE SORT_REAL1_INT1 ( CALLING_SUBR, MESSAG, NSIZE, RARRAY, IARRAY ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY INTEGER(LONG), INTENT(INOUT) :: IARRAY(NSIZE) ! Integer array - INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: SORTPK ! Intermediate variable used in setting a DO loop range. - REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE) ! Array of real values + REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE) ! Array of real values REAL(DOUBLE) :: RDUM ! Dummy values in RARRAY used when switching RARRAY rows during sort. END SUBROUTINE SORT_REAL1_INT1 diff --git a/Source/Interfaces/SORT_TDOF_Interface.f90 b/Source/Interfaces/SORT_TDOF_Interface.f90 index bef6b247..d82d279e 100644 --- a/Source/Interfaces/SORT_TDOF_Interface.f90 +++ b/Source/Interfaces/SORT_TDOF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_TDOF_Interface @@ -30,22 +30,22 @@ MODULE SORT_TDOF_Interface SUBROUTINE SORT_TDOF ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, ICOL ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MTDOF USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY INTEGER(LONG), INTENT(INOUT) :: IARRAY(NSIZE,MTDOF) ! Integer array INTEGER(LONG), INTENT(IN) :: ICOL ! Col ICOL will be the col in numerical order after sort - INTEGER(LONG) :: IDUM(MTDOF) ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM(MTDOF) ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: SORTPK ! Intermediate variable used in setting a DO loop range. diff --git a/Source/Interfaces/SPARSE_CRS_SPARSE_CCS_Interface.f90 b/Source/Interfaces/SPARSE_CRS_SPARSE_CCS_Interface.f90 index 25e8dd49..ce35b36b 100644 --- a/Source/Interfaces/SPARSE_CRS_SPARSE_CCS_Interface.f90 +++ b/Source/Interfaces/SPARSE_CRS_SPARSE_CCS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_CRS_SPARSE_CCS_Interface @@ -37,14 +37,14 @@ SUBROUTINE SPARSE_CRS_SPARSE_CCS ( NROWS_A, NCOLS_A, NTERMS_A, MAT_A_NAME, I_A, USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of input matrix in CRS format CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of output matrix in CCS format CHARACTER(LEN=*), INTENT(IN) :: WRT_SCREEN ! If 'Y' then write msgs to screen - + INTEGER(LONG), INTENT(IN) :: NCOLS_A ! Number of cols in input matrix, A (and output matrix B) INTEGER(LONG), INTENT(IN) :: NROWS_A ! Number of rows in input matrix, A (and output matrix B) INTEGER(LONG), INTENT(IN) :: NTERMS_A ! Number of nonzero terms in input matrix, A (and output matrix B) diff --git a/Source/Interfaces/SPARSE_CRS_TERM_COUNT_Interface.f90 b/Source/Interfaces/SPARSE_CRS_TERM_COUNT_Interface.f90 index fd264de4..00abaf46 100644 --- a/Source/Interfaces/SPARSE_CRS_TERM_COUNT_Interface.f90 +++ b/Source/Interfaces/SPARSE_CRS_TERM_COUNT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_CRS_TERM_COUNT_Interface @@ -30,16 +30,16 @@ MODULE SPARSE_CRS_TERM_COUNT_Interface SUBROUTINE SPARSE_CRS_TERM_COUNT ( NROWS, NTERM_IN, MATIN_NAME, I_MATIN, J_MATIN, NTERM_OUT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of input matrix - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in input matrix, MATIN INTEGER(LONG), INTENT(IN) :: NTERM_IN ! Number of nonzero terms in input matrix, MATIN INTEGER(LONG), INTENT(IN) :: I_MATIN(NROWS+1) ! I_MATIN(I+1) - I_MATIN(I) are the number of nonzeros in MATIN row I diff --git a/Source/Interfaces/SPARSE_CRS_TO_FULL_Interface.f90 b/Source/Interfaces/SPARSE_CRS_TO_FULL_Interface.f90 index 1517d81a..758f17f3 100644 --- a/Source/Interfaces/SPARSE_CRS_TO_FULL_Interface.f90 +++ b/Source/Interfaces/SPARSE_CRS_TO_FULL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_CRS_TO_FULL_Interface @@ -37,12 +37,12 @@ SUBROUTINE SPARSE_CRS_TO_FULL ( MATIN_NAME, NTERM_IN, NROWS, NCOLS, SYM_IN, I_MA USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: SYM_IN ! 'Y' or 'N' symmetry indicator for input matrix. CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of matrix - + INTEGER(LONG), INTENT(IN) :: NCOLS ! Number of cols in input matrix, MATIN INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in input matrix, MATIN INTEGER(LONG), INTENT(IN) :: NTERM_IN ! Number of nonzero terms in input matrix, MATIN diff --git a/Source/Interfaces/SPARSE_KGGD_Interface.f90 b/Source/Interfaces/SPARSE_KGGD_Interface.f90 index 8cd423b9..2bde690f 100644 --- a/Source/Interfaces/SPARSE_KGGD_Interface.f90 +++ b/Source/Interfaces/SPARSE_KGGD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_KGGD_Interface @@ -30,7 +30,7 @@ MODULE SPARSE_KGGD_Interface SUBROUTINE SPARSE_KGGD - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, SPCFIL, SPC, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, NGRID, NIND_GRDS_MPCS, & @@ -43,13 +43,13 @@ SUBROUTINE SPARSE_KGGD USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START, TDOFI, TSET USE STF_ARRAYS, ONLY : STFKEY, STF3 USE SPARSE_MATRICES, ONLY : I_KGGD, J_KGGD, KGGD - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - - + + END SUBROUTINE SPARSE_KGGD END INTERFACE diff --git a/Source/Interfaces/SPARSE_KGG_Interface.f90 b/Source/Interfaces/SPARSE_KGG_Interface.f90 index b540f6cf..9c038f22 100644 --- a/Source/Interfaces/SPARSE_KGG_Interface.f90 +++ b/Source/Interfaces/SPARSE_KGG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_KGG_Interface @@ -30,7 +30,7 @@ MODULE SPARSE_KGG_Interface SUBROUTINE SPARSE_KGG - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L1L, L1L_MSG, LINK1L, SC1, SPCFIL, SPC, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, NGRID, NIND_GRDS_MPCS, & @@ -44,12 +44,12 @@ SUBROUTINE SPARSE_KGG USE STF_ARRAYS, ONLY : STFKEY, STF3 USE SPARSE_MATRICES, ONLY : I_KGG, J_KGG, KGG USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + END SUBROUTINE SPARSE_KGG END INTERFACE diff --git a/Source/Interfaces/SPARSE_MAT_DIAG_ZEROS_Interface.f90 b/Source/Interfaces/SPARSE_MAT_DIAG_ZEROS_Interface.f90 index d1b5bbb5..7b207edf 100644 --- a/Source/Interfaces/SPARSE_MAT_DIAG_ZEROS_Interface.f90 +++ b/Source/Interfaces/SPARSE_MAT_DIAG_ZEROS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_MAT_DIAG_ZEROS_Interface diff --git a/Source/Interfaces/SPARSE_MGG_Interface.f90 b/Source/Interfaces/SPARSE_MGG_Interface.f90 index ad38ce51..83d96541 100644 --- a/Source/Interfaces/SPARSE_MGG_Interface.f90 +++ b/Source/Interfaces/SPARSE_MGG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_MGG_Interface @@ -30,7 +30,7 @@ MODULE SPARSE_MGG_Interface SUBROUTINE SPARSE_MGG - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L1R, L1R_MSG, LINK1R, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NCMASS, NDOFG, NGRID, NTERM_MGG, NTERM_MGGC, NTERM_MGGE, & @@ -44,14 +44,14 @@ SUBROUTINE SPARSE_MGG USE EMS_ARRAYS, ONLY : EMS, EMSCOL, EMSKEY, EMSPNT USE SPARSE_MATRICES, ONLY : I2_MGG, I_MGG, J_MGG, MGG, I_MGGC, J_MGGC, MGGC, I_MGGE, J_MGGE, MGGE, & I_MGGS, J_MGGS, MGGS, SYM_MGGC, SYM_MGGE, SYM_MGGS - USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1 - + USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1 + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - - + + END SUBROUTINE SPARSE_MGG END INTERFACE diff --git a/Source/Interfaces/SPARSE_PG_Interface.f90 b/Source/Interfaces/SPARSE_PG_Interface.f90 index eec18b8b..34ed78f3 100644 --- a/Source/Interfaces/SPARSE_PG_Interface.f90 +++ b/Source/Interfaces/SPARSE_PG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_PG_Interface @@ -39,13 +39,13 @@ SUBROUTINE SPARSE_PG USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP, NL_NUM_LOAD_STEPS USE MODEL_STUF, ONLY : SYS_LOAD USE SPARSE_MATRICES, ONLY : I_PG, J_PG, PG - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + END SUBROUTINE SPARSE_PG END INTERFACE diff --git a/Source/Interfaces/SPARSE_RMG_Interface.f90 b/Source/Interfaces/SPARSE_RMG_Interface.f90 index e589f5fb..65166353 100644 --- a/Source/Interfaces/SPARSE_RMG_Interface.f90 +++ b/Source/Interfaces/SPARSE_RMG_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_RMG_Interface @@ -30,7 +30,7 @@ MODULE SPARSE_RMG_Interface SUBROUTINE SPARSE_RMG - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1J, LINK1J, L1J_MSG USE SCONTR, ONLY : NDOFM, NTERM_RMG, BLNK_SUB_NAM @@ -38,11 +38,11 @@ SUBROUTINE SPARSE_RMG USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : EPSIL USE SPARSE_MATRICES, ONLY : I_RMG, J_RMG, RMG - + IMPLICIT NONE - - + + END SUBROUTINE SPARSE_RMG END INTERFACE diff --git a/Source/Interfaces/STIFF_MAT_EQUIL_CHK_Interface.f90 b/Source/Interfaces/STIFF_MAT_EQUIL_CHK_Interface.f90 index 74da66fd..0db0b99a 100644 --- a/Source/Interfaces/STIFF_MAT_EQUIL_CHK_Interface.f90 +++ b/Source/Interfaces/STIFF_MAT_EQUIL_CHK_Interface.f90 @@ -1,34 +1,34 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE STIFF_MAT_EQUIL_CHK_Interface INTERFACE - SUBROUTINE STIFF_MAT_EQUIL_CHK ( OUTPUT, X_SET, SYM_KIN, NROWS, NTERM_KIN, I_KIN, J_KIN, KIN, KIN_DIAG, KIN_MAX_DIAG, RBMAT ) + SUBROUTINE STIFF_MAT_EQUIL_CHK ( OUTPUT, X_SET, SYM_KIN, NROWS, NTERM_KIN, I_KIN, J_KIN, KIN, KIN_DIAG, KIN_MAX_DIAG, RBMAT ) USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -51,8 +51,8 @@ SUBROUTINE STIFF_MAT_EQUIL_CHK ( OUTPUT, X_SET, SYM_KIN, NROWS, NTERM_KIN, I_KIN INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in KIN INTEGER(LONG), INTENT(IN) :: NTERM_KIN ! Number of nonzero terms in KIN - INTEGER(LONG), INTENT(IN) :: I_KIN(NROWS+1) ! Row start indices for KIN - INTEGER(LONG), INTENT(IN) :: J_KIN(NTERM_KIN) ! Col numbers of terms in KIN + INTEGER(LONG), INTENT(IN) :: I_KIN(NROWS+1) ! Row start indices for KIN + INTEGER(LONG), INTENT(IN) :: J_KIN(NTERM_KIN) ! Col numbers of terms in KIN INTEGER(LONG), INTENT(IN) :: OUTPUT ! =1, output PRB, =2 output RB_STRN_ENRGY, =3 output both diff --git a/Source/Interfaces/STMERR_Interface.f90 b/Source/Interfaces/STMERR_Interface.f90 index 29ceb56f..69cfa9d3 100644 --- a/Source/Interfaces/STMERR_Interface.f90 +++ b/Source/Interfaces/STMERR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE STMERR_Interface @@ -30,20 +30,20 @@ MODULE STMERR_Interface SUBROUTINE STMERR ( XTIME, FILNAM, OUNT ) - + USE PENTIUM_II_KIND, ONLY : LONG USE IOUNT1, ONLY : FILE_NAM_MAXLEN USE SCONTR, ONLY : FATAL_ERR USE TIMDAT, ONLY : STIME - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - + INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to INTEGER(LONG), INTENT(IN) :: XTIME ! Time stamp read from file LINK1A - + END SUBROUTINE STMERR END INTERFACE diff --git a/Source/Interfaces/STOKEN_Interface.f90 b/Source/Interfaces/STOKEN_Interface.f90 index 44cb063d..0278e17d 100644 --- a/Source/Interfaces/STOKEN_Interface.f90 +++ b/Source/Interfaces/STOKEN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE STOKEN_Interface @@ -39,8 +39,8 @@ SUBROUTINE STOKEN ( CALLING_SUBR, TOKSTR, TOKEN_BEG, STRNG_END, NTOKEN, IERROR, IMPLICIT NONE - CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR! Character string to tokenize - CHARACTER(LEN=*) , INTENT(IN) :: TOKSTR ! Character string to tokenize + CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR! Character string to tokenize + CHARACTER(LEN=*) , INTENT(IN) :: TOKSTR ! Character string to tokenize CHARACTER( 3*BYTE) , INTENT(INOUT):: EXCEPT ! Flag indicating whether EXCEPT is "ON " or "OFF" CHARACTER( 3*BYTE) , INTENT(INOUT):: THRU ! Flag indicating whether THRU is "ON " or "OFF" CHARACTER(LEN=LEN(TOKSTR)), INTENT(OUT) :: ERRTOK ! Char string with data for an error to be printed by calling subr diff --git a/Source/Interfaces/STR_TENSOR_TRANSFORM_Interface.f90 b/Source/Interfaces/STR_TENSOR_TRANSFORM_Interface.f90 index 53cff29b..9ac266ca 100644 --- a/Source/Interfaces/STR_TENSOR_TRANSFORM_Interface.f90 +++ b/Source/Interfaces/STR_TENSOR_TRANSFORM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE STR_TENSOR_TRANSFORM_Interface diff --git a/Source/Interfaces/SUBCASE_PROC_Interface.f90 b/Source/Interfaces/SUBCASE_PROC_Interface.f90 index 89f3dcff..29a96ca3 100644 --- a/Source/Interfaces/SUBCASE_PROC_Interface.f90 +++ b/Source/Interfaces/SUBCASE_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SUBCASE_PROC_Interface @@ -30,12 +30,12 @@ MODULE SUBCASE_PROC_Interface SUBROUTINE SUBCASE_PROC - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1D USE SCONTR, ONLY : BLNK_SUB_NAM, CC_ENTRY_LEN, DATA_NAM_LEN, FATAL_ERR, IBIT, WARN_ERR, LSETLN, & - MELDTS, MELOUTS, METYPE, MGROUTS, NELE, NGRID, NSUB + MELDTS, MELOUTS, METYPE, MGROUTS, NELE, NGRID, NSUB USE SCONTR, ONLY : GROUT_ACCE_BIT, GROUT_DISP_BIT, GROUT_GPFO_BIT, GROUT_MPCF_BIT, GROUT_OLOA_BIT, & GROUT_SPCF_BIT, ELOUT_ELFE_BIT, ELOUT_ELFN_BIT, ELOUT_STRE_BIT, ELOUT_STRN_BIT @@ -46,15 +46,15 @@ SUBROUTINE SUBCASE_PROC USE MODEL_STUF, ONLY : CCELDT, ONE_SET_ARRAY, SC_ACCE, SC_DISP, SC_ELFN, SC_ELFE, SC_GPFO, SC_MPCF, & SC_OLOA, SC_SPCF, SC_STRE, SC_STRN, ELDT, OELDT, ELOUT, OELOUT, GROUT, OGROUT, LABEL, & SCNUM, STITLE, TITLE, SUBLOD, GRID, GRID_ID, ESORT1, ETYPE - + USE MODEL_STUF, ONLY : ANY_ACCE_OUTPUT, ANY_DISP_OUTPUT, ANY_MPCF_OUTPUT, ANY_SPCF_OUTPUT, ANY_OLOA_OUTPUT, & ANY_GPFO_OUTPUT, ANY_ELFE_OUTPUT, ANY_ELFN_OUTPUT, ANY_STRE_OUTPUT, ANY_STRN_OUTPUT IMPLICIT NONE - + CHARACTER( 1*BYTE) :: PRNTOUT ! Flag used in deciding what to output if B.D. PARAM PRTSCP = 1 INTEGER(LONG) :: ELM_BIT(METYPE) ! Array used for output warning purposes - + END SUBROUTINE SUBCASE_PROC END INTERFACE diff --git a/Source/Interfaces/SURFACE_FIT_Interface.f90 b/Source/Interfaces/SURFACE_FIT_Interface.f90 index 37d78c4c..7555e1b6 100644 --- a/Source/Interfaces/SURFACE_FIT_Interface.f90 +++ b/Source/Interfaces/SURFACE_FIT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SURFACE_FIT_Interface diff --git a/Source/Interfaces/SUSER1_Interface.f90 b/Source/Interfaces/SUSER1_Interface.f90 index 581eafcc..5b54c482 100644 --- a/Source/Interfaces/SUSER1_Interface.f90 +++ b/Source/Interfaces/SUSER1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SUSER1_Interface @@ -30,19 +30,19 @@ MODULE SUSER1_Interface SUBROUTINE SUSER1 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : TYPE - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SUSER1' - + END SUBROUTINE SUSER1 END INTERFACE diff --git a/Source/Interfaces/SYM_MAT_DECOMP_LAPACK_Interface.f90 b/Source/Interfaces/SYM_MAT_DECOMP_LAPACK_Interface.f90 index 3b754075..e01413e8 100644 --- a/Source/Interfaces/SYM_MAT_DECOMP_LAPACK_Interface.f90 +++ b/Source/Interfaces/SYM_MAT_DECOMP_LAPACK_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SYM_MAT_DECOMP_LAPACK_Interface @@ -36,22 +36,22 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FACTORED_MATRIX, FATAL_ERR, LINKNO - USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, STIME, TSEC + USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, STIME, TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, ONEPP6 USE PARAMS, ONLY : BAILOUT, EPSIL, MAXRATIO, SUPINFO USE LAPACK_DPB_MATRICES, ONLY : ABAND, LAPACK_S USE DEBUG_PARAMETERS, ONLY : DEBUG, NDEBUG - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM USE LAPACK_LIN_EQN_DPB IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=*) , INTENT(IN) :: CALC_COND_NUM ! If "Y" calc RCOND (reciprocal of condition number of MATIN) CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR ! The subr that called this subr (used for output error purposes) CHARACTER(LEN=*) , INTENT(IN) :: EQUIL_MATIN ! If "Y" attempt to equilibrate MATIN (if it needs it) - CHARACTER(1*BYTE), INTENT(OUT) :: EQUED ! 'Y' if MATIN was equilibrated in subr EQUILIBRATE (called herein) + CHARACTER(1*BYTE), INTENT(OUT) :: EQUED ! 'Y' if MATIN was equilibrated in subr EQUILIBRATE (called herein) CHARACTER(LEN=*) , INTENT(IN) :: MATIN_DIAG_RAT ! If "Y" calculate max ratio of matrix diagonal to factor diagonal CHARACTER(LEN=*) , INTENT(IN) :: MATIN_NAME ! Name of matrix to be decomposed CHARACTER(LEN=*) , INTENT(IN) :: MATIN_SET ! Set designator for the input matrix. If it corresponds to a MYSTRAN @@ -59,7 +59,7 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N CHARACTER( 1*BYTE), PARAMETER :: INORM = 'I' ! Indicates to calculate the infinity norm via LAPACK function DLANSB CHARACTER( 1*BYTE), PARAMETER :: UPLO = 'U' ! Indicates upper triang part of matrix is stored - + INTEGER(LONG), INTENT(IN) :: DEB_PRT(2) ! Debug numbers to say whether to write ABAND and/or its decomp to file INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in sparse matrix MATIN INTEGER(LONG), INTENT(IN) :: NTERMS ! Number of nonzeros in sparse matrix MATIN diff --git a/Source/Interfaces/SYM_MAT_DECOMP_SUPRLU_Interface.f90 b/Source/Interfaces/SYM_MAT_DECOMP_SUPRLU_Interface.f90 index 8fb001e6..734ccf6a 100644 --- a/Source/Interfaces/SYM_MAT_DECOMP_SUPRLU_Interface.f90 +++ b/Source/Interfaces/SYM_MAT_DECOMP_SUPRLU_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SYM_MAT_DECOMP_SUPRLU_Interface @@ -34,14 +34,14 @@ SUBROUTINE SYM_MAT_DECOMP_SUPRLU ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : CRS_CCS, SPARSTOR USE SCRATCH_MATRICES, ONLY : I_CCS1, J_CCS1, CCS1 USE SuperLU_STUF, ONLY : SLU_FACTORS IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! The subr that called this subr (used for output error purposes) diff --git a/Source/Interfaces/TDOF_COL_NUM_Interface.f90 b/Source/Interfaces/TDOF_COL_NUM_Interface.f90 index 0192219c..aac9854c 100644 --- a/Source/Interfaces/TDOF_COL_NUM_Interface.f90 +++ b/Source/Interfaces/TDOF_COL_NUM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TDOF_COL_NUM_Interface @@ -30,16 +30,16 @@ MODULE TDOF_COL_NUM_Interface SUBROUTINE TDOF_COL_NUM ( CHAR_SET, COL_NUM ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, MTDOF, FATAL_ERR USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CHAR_SET ! The char description of the displ set that was input (e.g. 'G ', 'SB') - + INTEGER(LONG), INTENT(OUT) :: COL_NUM ! Col number in array TDOF where displ set CHAR_SET exists INTEGER(LONG), PARAMETER :: OFFSET = 4 ! Columns of TDOF prior to where the G-set begins diff --git a/Source/Interfaces/TDOF_PROC_Interface.f90 b/Source/Interfaces/TDOF_PROC_Interface.f90 index cabec193..b112b666 100644 --- a/Source/Interfaces/TDOF_PROC_Interface.f90 +++ b/Source/Interfaces/TDOF_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TDOF_PROC_Interface @@ -30,7 +30,7 @@ MODULE TDOF_PROC_Interface SUBROUTINE TDOF_PROC ( TDOF_MSG ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LDOFG, MTDOF, NDOFA, NDOFF, NDOFG, NDOFL, NDOFM, NDOFN, NDOFO, & @@ -41,7 +41,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) USE DOF_TABLES, ONLY : TSET, TDOF, TDOFI, TDOF_ROW_START, USET USE DEBUG_PARAMETERS, ONLY : DEBUG USE MODEL_STUF, ONLY : EIG_N2, GRID, GRID_ID, GRID_SEQ, INV_GRID_SEQ - + IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT @@ -49,7 +49,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) INTEGER(LONG) :: I_USET_U1 ! Counter for USET U1 INTEGER(LONG) :: I_USET_U2 ! Counter for USET U2 - + END SUBROUTINE TDOF_PROC END INTERFACE diff --git a/Source/Interfaces/TEMPERATURE_DATA_PROC_Interface.f90 b/Source/Interfaces/TEMPERATURE_DATA_PROC_Interface.f90 index 694cdf22..d9d1a84d 100644 --- a/Source/Interfaces/TEMPERATURE_DATA_PROC_Interface.f90 +++ b/Source/Interfaces/TEMPERATURE_DATA_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TEMPERATURE_DATA_PROC_Interface @@ -30,7 +30,7 @@ MODULE TEMPERATURE_DATA_PROC_Interface SUBROUTINE TEMPERATURE_DATA_PROC - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1K USE IOUNT1, ONLY : WRT_ERR, LINK1K @@ -40,13 +40,13 @@ SUBROUTINE TEMPERATURE_DATA_PROC USE MODEL_STUF, ONLY : CETEMP, CETEMP_ERR, CGTEMP, CGTEMP_ERR, ETEMP, GTEMP, TDATA, TPNT, GRID_ID, ESORT1, ETYPE,& SCNUM, SUBLOD, eid USE DEBUG_PARAMETERS, ONLY : DEBUG - + IMPLICIT NONE - + CHARACTER( 1*BYTE) :: NOTE ! Used to indicate whether or not to print out a message - - + + END SUBROUTINE TEMPERATURE_DATA_PROC END INTERFACE diff --git a/Source/Interfaces/TETRA_Interface.f90 b/Source/Interfaces/TETRA_Interface.f90 index c64cab05..aed2b618 100644 --- a/Source/Interfaces/TETRA_Interface.f90 +++ b/Source/Interfaces/TETRA_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TETRA_Interface @@ -30,7 +30,7 @@ MODULE TETRA_Interface SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_ORDER_TETRA, NTSUB @@ -41,9 +41,9 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : ALPVEC, BE1, BE2, DT, EID, ELGP, NUM_EMG_FATAL_ERRS, ES, KE, KED, ME, PTE, RHO, & SE1, SE2, STE1, STRESS, TREF, TYPE - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER( 1*BYTE), INTENT(IN) :: RED_INT_SHEAR ! If 'Y', use Gaussian weighted avg of B matrices for shear terms CHARACTER( 1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not @@ -53,7 +53,7 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) INTEGER(LONG), INTENT(IN) :: INT_ELEM_ID ! Internal element ID INTEGER(LONG), INTENT(IN) :: IORD ! Gaussian integ order for element - + REAL(DOUBLE) :: CBAR(3,3*ELGP) ! Derivatives of shape fcns wrt x,y,z used in diff stiff matrix REAL(DOUBLE) :: DUM0(3*ELGP) ! Intermediate matrix used in solving for elem matrices REAL(DOUBLE) :: DUM1(3*ELGP) ! Intermediate matrix used in solving for elem matrices @@ -66,7 +66,7 @@ SUBROUTINE TETRA ( OPT, INT_ELEM_ID, IORD, RED_INT_SHEAR, WRITE_WARN ) REAL(DOUBLE) :: M0 ! An intermediate variable used in calc elem mass, ME REAL(DOUBLE) :: TEMP ! Temperature to use in PTE calc - + END SUBROUTINE TETRA END INTERFACE diff --git a/Source/Interfaces/TIME_INIT_Interface.f90 b/Source/Interfaces/TIME_INIT_Interface.f90 index 61ee027e..e161a2b5 100644 --- a/Source/Interfaces/TIME_INIT_Interface.f90 +++ b/Source/Interfaces/TIME_INIT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TIME_INIT_Interface @@ -30,11 +30,11 @@ MODULE TIME_INIT_Interface SUBROUTINE TIME_INIT - + USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC - + IMPLICIT NONE - + END SUBROUTINE TIME_INIT END INTERFACE diff --git a/Source/Interfaces/TMEM1_Interface.f90 b/Source/Interfaces/TMEM1_Interface.f90 index 4cfc05ea..5d4bed61 100644 --- a/Source/Interfaces/TMEM1_Interface.f90 +++ b/Source/Interfaces/TMEM1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TMEM1_Interface @@ -30,7 +30,7 @@ MODULE TMEM1_Interface SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG, WRT_BUG USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_BCHK_BIT, ELDT_BUG_BMAT_BIT, NSUB, NTSUB @@ -39,14 +39,14 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) USE MODEL_STUF, ONLY : ALPVEC, BE1, EID, DT, EM, ELDOF, KE, PCOMP_LAM, PCOMP_PROPS, PRESS, PPE, PTE, SE1, STE1, & SHELL_AALP, SHELL_A, SHELL_PROP_ALP, TREF, TYPE, XEB, XEL USE DEBUG_PARAMETERS, ONLY : DEBUG - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER( 1*BYTE), INTENT(IN) :: WRT_BUG_THIS_TIME ! If 'Y' then write to BUG file if WRT_BUG array says to - + REAL(DOUBLE) , INTENT(IN) :: AREA ! Element area REAL(DOUBLE) , INTENT(IN) :: X2E ! x coord of elem node 2 REAL(DOUBLE) , INTENT(IN) :: X3E ! x coord of elem node 3 @@ -61,7 +61,7 @@ SUBROUTINE TMEM1 ( OPT, AREA, X2E, X3E, Y3E, WRT_BUG_THIS_TIME, BIG_BM ) REAL(DOUBLE) :: C03 ! Intermediate variable used in calc PTE, SEi, STEi, KE REAL(DOUBLE) :: C04 ! Intermediate variable used in calc PTE, SEi, STEi, KE REAL(DOUBLE) :: CT0 ! Intermediate variable used in calc PTE thermal loads - + END SUBROUTINE TMEM1 END INTERFACE diff --git a/Source/Interfaces/TOKCHK_Interface.f90 b/Source/Interfaces/TOKCHK_Interface.f90 index 5f17ae9d..77323033 100644 --- a/Source/Interfaces/TOKCHK_Interface.f90 +++ b/Source/Interfaces/TOKCHK_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TOKCHK_Interface diff --git a/Source/Interfaces/TPLT1_Interface.f90 b/Source/Interfaces/TPLT1_Interface.f90 index 95a6613a..3fb9899a 100644 --- a/Source/Interfaces/TPLT1_Interface.f90 +++ b/Source/Interfaces/TPLT1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TPLT1_Interface @@ -30,20 +30,20 @@ MODULE TPLT1_Interface SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : f06 USE SCONTR, ONLY : BLNK_SUB_NAM, NSUB, NTSUB USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, TWO, THREE, FOUR, SIX, TWELVE USE MODEL_STUF, ONLY : ALPVEC, BE2, DT, EB, KE, PRESS, PPE, PTE, SHELL_DALP, SHELL_D, SHELL_PROP_ALP, SE2, STE2 - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices - + REAL(DOUBLE) , INTENT(IN) :: AREA ! Element area REAL(DOUBLE) , INTENT(IN) :: X2E ! x coord of elem node 2 REAL(DOUBLE) , INTENT(IN) :: X3E ! x coord of elem node 3 @@ -75,7 +75,7 @@ SUBROUTINE TPLT1 ( OPT, AREA, X2E, X3E, Y3E ) REAL(DOUBLE) :: R5 ! Intermediate variable used in calc array S REAL(DOUBLE) :: T4 ! Intermediate variable used in calc array S REAL(DOUBLE) :: T5 ! Intermediate variable used in calc array S - + END SUBROUTINE TPLT1 END INTERFACE diff --git a/Source/Interfaces/TPLT2_Interface.f90 b/Source/Interfaces/TPLT2_Interface.f90 index d977db03..950f01ae 100644 --- a/Source/Interfaces/TPLT2_Interface.f90 +++ b/Source/Interfaces/TPLT2_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TPLT2_Interface @@ -44,8 +44,8 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V USE TPLT2_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TPLT2' CHARACTER(1*BYTE), INTENT(IN) :: CALC_EMATS ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -64,7 +64,7 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V 11, & ! ID(8) = 11 means virgin 9x9 elem DOF 8 is MYSTRAN 18x18 elem DOF 11 17 /) ! ID(9) = 17 means virgin 9x9 elem DOF 9 is MYSTRAN 18x18 elem DOF 17 - + REAL(DOUBLE) , INTENT(IN) :: AREA ! Element area REAL(DOUBLE) , INTENT(IN) :: PSI ! Angle to rotate orthotropic mat'l matrix of a sub-tria to align w QUAD REAL(DOUBLE) , INTENT(IN) :: X2E ! x coord of elem node 2 @@ -124,10 +124,10 @@ SUBROUTINE TPLT2(OPT, AREA, X2E, X3E, Y3E, CALC_EMATS, IERROR, KV, PTV, PPV, B2V REAL(DOUBLE) :: TF_MB(3,3) ! Portion of TF: transforms 3x3 EM, EB, EBM from material to elem axes REAL(DOUBLE) :: TF_TS(2,2) ! Portion of TF: transforms 3x3 ET from material to elem axes REAL(DOUBLE) :: XI(3) - + ! Following are matl matrices used when sub-trias of a MIN4T QUAD4 need to be transformed to align with orthotropic matl angles - REAL(DOUBLE) :: ALPVEC_TRIA(6,MEMATC) + REAL(DOUBLE) :: ALPVEC_TRIA(6,MEMATC) REAL(DOUBLE) :: EALP_TRIA(3) ! Intermed var used in calc STEi therm stress coeffs REAL(DOUBLE) :: EB0(3,3) ! Plane stress matl matrix for bending before coord transformation REAL(DOUBLE) :: EBM0(3,3) ! Bend/membr coupling matl matrix before coord transformation diff --git a/Source/Interfaces/TRANSFORM_NODE_FORCES_Interface.f90 b/Source/Interfaces/TRANSFORM_NODE_FORCES_Interface.f90 index e2f18845..01e437ae 100644 --- a/Source/Interfaces/TRANSFORM_NODE_FORCES_Interface.f90 +++ b/Source/Interfaces/TRANSFORM_NODE_FORCES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TRANSFORM_NODE_FORCES_Interface @@ -30,7 +30,7 @@ MODULE TRANSFORM_NODE_FORCES_Interface SUBROUTINE TRANSFORM_NODE_FORCES ( COORD_SYS ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, MELGP, NCORD @@ -40,17 +40,17 @@ SUBROUTINE TRANSFORM_NODE_FORCES ( COORD_SYS ) TYPE IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: COORD_SYS ! 'B" for basic, 'G' for global - + INTEGER(LONG), PARAMETER :: NCOLA = 3 ! An input to subr MATMULT_FFF called herein INTEGER(LONG), PARAMETER :: NCOLB = 1 ! An input to subr MATMULT_FFF called herein INTEGER(LONG), PARAMETER :: NROWA = 3 ! An input to subr MATMULT_FFF called herein INTEGER(LONG), PARAMETER :: NROW = 3 ! An input to subr MATPUT, MATGET called herein INTEGER(LONG), PARAMETER :: NCOL = 1 ! An input to subr MATPUT, MATGET called herein - INTEGER(LONG), PARAMETER :: PCOL = 1 ! An input to subr MATPUT, MATGET called herein + INTEGER(LONG), PARAMETER :: PCOL = 1 ! An input to subr MATPUT, MATGET called herein + - REAL(DOUBLE) :: THETAD,PHID ! Returns from subr GEN_T0L (not used here) END SUBROUTINE TRANSFORM_NODE_FORCES diff --git a/Source/Interfaces/TRANSFORM_SHELL_STR_Interface.f90 b/Source/Interfaces/TRANSFORM_SHELL_STR_Interface.f90 index 1634d98d..b954c063 100644 --- a/Source/Interfaces/TRANSFORM_SHELL_STR_Interface.f90 +++ b/Source/Interfaces/TRANSFORM_SHELL_STR_Interface.f90 @@ -1,39 +1,39 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TRANSFORM_SHELL_STR_Interface INTERFACE SUBROUTINE TRANSFORM_SHELL_STR ( T, STR_VEC, SHR_FAC ) - + USE PENTIUM_II_KIND, ONLY : DOUBLE USE CONSTANTS_1, ONLY : ZERO - IMPLICIT NONE + IMPLICIT NONE REAL(DOUBLE), INTENT(IN) :: T(3,3) REAL(DOUBLE), INTENT(INOUT) :: STR_VEC(9) diff --git a/Source/Interfaces/TREL1_Interface.f90 b/Source/Interfaces/TREL1_Interface.f90 index ee5dc578..82f519be 100644 --- a/Source/Interfaces/TREL1_Interface.f90 +++ b/Source/Interfaces/TREL1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TREL1_Interface @@ -30,7 +30,7 @@ MODULE TREL1_Interface SUBROUTINE TREL1 ( OPT, WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, MEWE, NSUB, NTSUB, WARN_ERR @@ -40,16 +40,16 @@ SUBROUTINE TREL1 ( OPT, WRITE_WARN ) USE MODEL_STUF, ONLY : EID, ELDOF, EMG_IWE, EMG_RWE, INTL_MID, KE, MASS_PER_UNIT_AREA, ME, & NUM_EMG_FATAL_ERRS, PCOMP_LAM, PCOMP_PROPS, SHELL_B, TYPE, XEB, XEL USE MODEL_STUF, ONLY : BENSUM, SHRSUM, PHI_SQ, PSI_HAT, XTB, XTL - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices CHARACTER(LEN=*), INTENT(IN) :: WRITE_WARN ! If 'Y" write warning messages, otherwise do not REAL(DOUBLE) :: M0 ! An intermediate variable used in calc elem mass, ME - + CHARACTER(LEN=1), PARAMETER :: MN4T_QD = 'N' INTEGER(LONG) , PARAMETER :: TRIA_NUM = 1 REAL(DOUBLE) , PARAMETER :: PSI = 0.0D0 diff --git a/Source/Interfaces/TSET_PROC_FOR_MPCS_Interface.f90 b/Source/Interfaces/TSET_PROC_FOR_MPCS_Interface.f90 index ccc83b3b..b8c9a7a6 100644 --- a/Source/Interfaces/TSET_PROC_FOR_MPCS_Interface.f90 +++ b/Source/Interfaces/TSET_PROC_FOR_MPCS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TSET_PROC_FOR_MPCS_Interface @@ -30,23 +30,23 @@ MODULE TSET_PROC_FOR_MPCS_Interface SUBROUTINE TSET_PROC_FOR_MPCS ( IERRT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1S, L1S_MSG, LINK1S USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LIND_GRDS_MPCS, LMPCADDC, NDOFM, NGRID, NIND_GRDS_MPCS, NMPC, & - NMPCADD, NTERM_RMG, NUM_MPCSIDS + NMPCADD, NTERM_RMG, NUM_MPCSIDS USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TSET_CHR_LEN, TSET USE MODEL_STUF, ONLY : GRID_ID, MPC_IND_GRIDS, MPCSET, MPCSIDS - + IMPLICIT NONE CHARACTER( 1*BYTE) :: MPC_SET_USED ! 'Y'/'N' indicator if an MPC set in B.D. is used - + INTEGER(LONG), INTENT(INOUT) :: IERRT ! Sum of all grid and DOF errors - + END SUBROUTINE TSET_PROC_FOR_MPCS END INTERFACE diff --git a/Source/Interfaces/TSET_PROC_FOR_OMITS_Interface.f90 b/Source/Interfaces/TSET_PROC_FOR_OMITS_Interface.f90 index f47924e0..50cdfacf 100644 --- a/Source/Interfaces/TSET_PROC_FOR_OMITS_Interface.f90 +++ b/Source/Interfaces/TSET_PROC_FOR_OMITS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TSET_PROC_FOR_OMITS_Interface @@ -30,19 +30,19 @@ MODULE TSET_PROC_FOR_OMITS_Interface SUBROUTINE TSET_PROC_FOR_OMITS ( IERRT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1N, L1N_MSG, LINK1N USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NAOCARD, NDOFO, NGRID USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TSET_CHR_LEN, TSET USE MODEL_STUF, ONLY : GRID, GRID_ID - + IMPLICIT NONE INTEGER(LONG), INTENT(INOUT) :: IERRT ! Sum of all grid and DOF errors - + END SUBROUTINE TSET_PROC_FOR_OMITS END INTERFACE diff --git a/Source/Interfaces/TSET_PROC_FOR_RIGELS_Interface.f90 b/Source/Interfaces/TSET_PROC_FOR_RIGELS_Interface.f90 index 3c04c8b7..e719c7e5 100644 --- a/Source/Interfaces/TSET_PROC_FOR_RIGELS_Interface.f90 +++ b/Source/Interfaces/TSET_PROC_FOR_RIGELS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TSET_PROC_FOR_RIGELS_Interface @@ -30,14 +30,14 @@ MODULE TSET_PROC_FOR_RIGELS_Interface SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L1F, L1F_MSG, LINK1F USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LIND_GRDS_MPCS, NDOFM, NGRID, NIND_GRDS_MPCS, NRECARD USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TSET_CHR_LEN, TSET USE MODEL_STUF, ONLY : GRID, GRID_ID, MPC_IND_GRIDS - + IMPLICIT NONE INTEGER(LONG), INTENT(INOUT) :: IERRT ! Sum of all grid and DOF errors diff --git a/Source/Interfaces/TSET_PROC_FOR_SPCS_Interface.f90 b/Source/Interfaces/TSET_PROC_FOR_SPCS_Interface.f90 index c27c1622..17462c26 100644 --- a/Source/Interfaces/TSET_PROC_FOR_SPCS_Interface.f90 +++ b/Source/Interfaces/TSET_PROC_FOR_SPCS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TSET_PROC_FOR_SPCS_Interface @@ -30,7 +30,7 @@ MODULE TSET_PROC_FOR_SPCS_Interface SUBROUTINE TSET_PROC_FOR_SPCS ( IERRT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1H, L1O, L1O_MSG, LINK1O USE SCONTR, ONLY : BLNK_SUB_NAM, ENFORCED, FATAL_ERR, LSPCADDC, NDOFSB, NDOFSE, NDOFSG, NGRID, NSPCADD, & @@ -39,12 +39,12 @@ SUBROUTINE TSET_PROC_FOR_SPCS ( IERRT ) USE PARAMS, ONLY : EPSIL USE DOF_TABLES, ONLY : TSET_CHR_LEN, TSET USE MODEL_STUF, ONLY : GRID, GRID_ID, SPCADD_SIDS, SPCSET, SPCSIDS - + IMPLICIT NONE INTEGER(LONG), INTENT(INOUT) :: IERRT ! Sum of all grid and DOF errors - + END SUBROUTINE TSET_PROC_FOR_SPCS END INTERFACE diff --git a/Source/Interfaces/TSET_PROC_FOR_SUPORTS_Interface.f90 b/Source/Interfaces/TSET_PROC_FOR_SUPORTS_Interface.f90 index 4a528192..f8202372 100644 --- a/Source/Interfaces/TSET_PROC_FOR_SUPORTS_Interface.f90 +++ b/Source/Interfaces/TSET_PROC_FOR_SUPORTS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TSET_PROC_FOR_SUPORTS_Interface @@ -30,7 +30,7 @@ MODULE TSET_PROC_FOR_SUPORTS_Interface SUBROUTINE TSET_PROC_FOR_SUPORTS ( IERRT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1T, L1T_MSG, LINK1T USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFR, NGRID, NUM_SUPT_CARDS @@ -38,12 +38,12 @@ SUBROUTINE TSET_PROC_FOR_SUPORTS ( IERRT ) USE PARAMS, ONLY : EPSIL USE DOF_TABLES, ONLY : TSET_CHR_LEN, TSET USE MODEL_STUF, ONLY : GRID, GRID_ID - + IMPLICIT NONE INTEGER(LONG), INTENT(INOUT) :: IERRT ! Sum of all grid and DOF errors - + END SUBROUTINE TSET_PROC_FOR_SUPORTS END INTERFACE diff --git a/Source/Interfaces/TSET_PROC_Interface.f90 b/Source/Interfaces/TSET_PROC_Interface.f90 index 8cd900c5..70ac26df 100644 --- a/Source/Interfaces/TSET_PROC_Interface.f90 +++ b/Source/Interfaces/TSET_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TSET_PROC_Interface @@ -30,7 +30,7 @@ MODULE TSET_PROC_Interface SUBROUTINE TSET_PROC - + END SUBROUTINE TSET_PROC END INTERFACE diff --git a/Source/Interfaces/USERIN_Interface.f90 b/Source/Interfaces/USERIN_Interface.f90 index 6eb728b0..1fd783f0 100644 --- a/Source/Interfaces/USERIN_Interface.f90 +++ b/Source/Interfaces/USERIN_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE USERIN_Interface @@ -30,7 +30,7 @@ MODULE USERIN_Interface SUBROUTINE USERIN ( INT_ELEM_ID, OPT, EMG_CALLING_SUBR, WRITE_WARN ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN4, IN4_MSG, IN4FIL USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MEDAT0_CUSERIN, MELDOF, NDOFG, NGRID, NSUB @@ -40,16 +40,16 @@ SUBROUTINE USERIN ( INT_ELEM_ID, OPT, EMG_CALLING_SUBR, WRITE_WARN ) USE DOF_TABLES, ONLY : TDOF, TDOFI, TDOF_ROW_START USE PARAMS, ONLY : grdpnt, WTMASS USE INPUTT4_MATRICES, ONLY : IN4_COL_MAP, IN4_MAT - USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET, TR6_0 + USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET, TR6_0 USE MODEL_STUF, ONLY : AGRID, EDAT, EID, ELDOF, ELGP, EPNT, GRID_ID, INTL_PID, KE, ME, PPE, PUSERIN, TYPE, & NUM_EMG_FATAL_ERRS USE MODEL_STUF, ONLY : USERIN_ACT_GRIDS, USERIN_ACT_COMPS, USERIN_CID0, USERIN_IN4_INDEX, USERIN_RBM0, & USERIN_NUM_BDY_DOF, USERIN_NUM_ACT_GRDS, USERIN_NUM_SPOINTS, & USERIN_MASS_MAT_NAME, USERIN_LOAD_MAT_NAME, USERIN_RBM0_MAT_NAME, USERIN_STIF_MAT_NAME - - IMPLICIT NONE - + + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'USERIN' CHARACTER(LEN=*) , INTENT(IN) :: EMG_CALLING_SUBR ! Subr that called EMG which, in turn, called this subr CHARACTER( 1*BYTE), INTENT(IN) :: OPT(6) ! 'Y'/'N' flags for whether to calc certain elem matrices @@ -60,7 +60,7 @@ SUBROUTINE USERIN ( INT_ELEM_ID, OPT, EMG_CALLING_SUBR, WRITE_WARN ) ! cols (1 col has all comps, others each indiv comp) for USERIN bdy DOF's INTEGER(LONG) :: USERIN_CID0_ICID ! Internal coordinate system ID for USERIN_CID0 - + REAL(DOUBLE) :: DX ! X offset of USERIN elem CG from overall model basic sys origin REAL(DOUBLE) :: DY ! Y offset of USERIN elem CG from overall model basic sys origin REAL(DOUBLE) :: DZ ! Z offset of USERIN elem CG from overall model basic sys origin diff --git a/Source/Interfaces/USET_PROC_Interface.f90 b/Source/Interfaces/USET_PROC_Interface.f90 index ea2792b3..9d699142 100644 --- a/Source/Interfaces/USET_PROC_Interface.f90 +++ b/Source/Interfaces/USET_PROC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE USET_PROC_Interface @@ -30,7 +30,7 @@ MODULE USET_PROC_Interface SUBROUTINE USET_PROC - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06, L1X, L1X_MSG, LINK1X USE SCONTR, ONLY : BLNK_SUB_NAM, ENFORCED, FATAL_ERR, NGRID, NUM_USET_RECORDS, NUM_USET_U1, NUM_USET_U2 @@ -38,14 +38,14 @@ SUBROUTINE USET_PROC USE PARAMS, ONLY : EPSIL USE DOF_TABLES, ONLY : TSET_CHR_LEN, USET USE MODEL_STUF, ONLY : GRID, GRID_ID - + IMPLICIT NONE CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'USET_PROC' - + INTEGER(LONG) :: USET_ERR = 0 ! Count of errors that result from setting displ sets in USET - + END SUBROUTINE USET_PROC END INTERFACE diff --git a/Source/Interfaces/VECINORM_Interface.f90 b/Source/Interfaces/VECINORM_Interface.f90 index e8a33cb2..5f062705 100644 --- a/Source/Interfaces/VECINORM_Interface.f90 +++ b/Source/Interfaces/VECINORM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE VECINORM_Interface @@ -42,7 +42,7 @@ SUBROUTINE VECINORM ( X, N, X_INORM ) INTEGER(LONG), INTENT(IN) :: N ! Dimension of the input vector X - REAL(DOUBLE), INTENT(IN) :: X(N) ! The input vector for which the infinity norm is calc'd + REAL(DOUBLE), INTENT(IN) :: X(N) ! The input vector for which the infinity norm is calc'd REAL(DOUBLE), INTENT(OUT) :: X_INORM ! The calc'd infinity norm of X END SUBROUTINE VECINORM diff --git a/Source/Interfaces/VECTOR_NORM_Interface.f90 b/Source/Interfaces/VECTOR_NORM_Interface.f90 index 84af80af..b5f545fa 100644 --- a/Source/Interfaces/VECTOR_NORM_Interface.f90 +++ b/Source/Interfaces/VECTOR_NORM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE VECTOR_NORM_Interface @@ -30,20 +30,20 @@ MODULE VECTOR_NORM_Interface SUBROUTINE VECTOR_NORM ( VEC, NSIZE, WHICH, VEC_NORM, IERR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ZERO + USE CONSTANTS_1, ONLY : ZERO IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: WHICH ! Which norm to calculate (see below) INTEGER(LONG) , INTENT(IN) :: NSIZE ! Extent of VEC INTEGER(LONG) , INTENT(OUT) :: IERR ! Error indicator - + REAL(DOUBLE) , INTENT(IN) :: VEC(NSIZE) ! The vector for which the norm will be calculated REAL(DOUBLE) , INTENT(OUT) :: VEC_NORM ! The norm calculated for VEC diff --git a/Source/Interfaces/WRITE_ALLOC_MEM_TABLE_Interface.f90 b/Source/Interfaces/WRITE_ALLOC_MEM_TABLE_Interface.f90 index 5125740e..313f0d6e 100644 --- a/Source/Interfaces/WRITE_ALLOC_MEM_TABLE_Interface.f90 +++ b/Source/Interfaces/WRITE_ALLOC_MEM_TABLE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ALLOC_MEM_TABLE_Interface diff --git a/Source/Interfaces/WRITE_BAR_Interface.f90 b/Source/Interfaces/WRITE_BAR_Interface.f90 index 68dd298f..ef51f49f 100644 --- a/Source/Interfaces/WRITE_BAR_Interface.f90 +++ b/Source/Interfaces/WRITE_BAR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_BAR_Interface @@ -32,7 +32,7 @@ SUBROUTINE WRITE_BAR (NUM, FILL_F06, ISUBCASE, ITABLE, & TITLE, SUBTITLE, LABEL, & FIELD5_INT_MODE, FIELD6_EIGENVALUE, WRITE_F06 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BARTOR, BLNK_SUB_NAM, MOGEL @@ -40,9 +40,9 @@ SUBROUTINE WRITE_BAR (NUM, FILL_F06, ISUBCASE, ITABLE, & USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, MAXREQ, MSPRNT, OGEL - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: FILL_F06 ! Padding for output format INTEGER(LONG), INTENT(IN) :: NUM ! The number of rows of OGEL to write out INTEGER(LONG), INTENT(IN) :: ISUBCASE ! The subcase ID diff --git a/Source/Interfaces/WRITE_DOF_TABLES_Interface.f90 b/Source/Interfaces/WRITE_DOF_TABLES_Interface.f90 index 4d65d44f..2642c74b 100644 --- a/Source/Interfaces/WRITE_DOF_TABLES_Interface.f90 +++ b/Source/Interfaces/WRITE_DOF_TABLES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_DOF_TABLES_Interface diff --git a/Source/Interfaces/WRITE_EDAT_Interface.f90 b/Source/Interfaces/WRITE_EDAT_Interface.f90 index b7356f1b..a4d8b71e 100644 --- a/Source/Interfaces/WRITE_EDAT_Interface.f90 +++ b/Source/Interfaces/WRITE_EDAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_EDAT_Interface @@ -40,7 +40,7 @@ SUBROUTINE WRITE_EDAT MEDAT_CPENTA15, MEDAT_PLOTEL , MEDAT_CQUAD , MEDAT_CROD , & MEDAT_CSHEAR , MEDAT_CTETRA4 , MEDAT_CTETRA10, MEDAT_CTRIA , & MEDAT_CUSER1 , MEDAT0_CUSERIN, METYPE - + USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, EPNT, ETYPE USE PARAMS, ONLY : SUPWARN diff --git a/Source/Interfaces/WRITE_ELEM_ENGR_FORCE_Interface.f90 b/Source/Interfaces/WRITE_ELEM_ENGR_FORCE_Interface.f90 index 31561df0..60c85aae 100644 --- a/Source/Interfaces/WRITE_ELEM_ENGR_FORCE_Interface.f90 +++ b/Source/Interfaces/WRITE_ELEM_ENGR_FORCE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ELEM_ENGR_FORCE_Interface @@ -30,7 +30,7 @@ MODULE WRITE_ELEM_ENGR_FORCE_Interface SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, OP2 USE SCONTR, ONLY : BLNK_SUB_NAM, INT_SC_NUM, NDOFR, NUM_CB_DOFS, NVEC, SOL_NAME @@ -64,7 +64,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) REAL(DOUBLE) :: ABS_ANS(8) ! Max ABS for all element output REAL(DOUBLE) :: MAX_ANS(8) ! Max for all element output REAL(DOUBLE) :: MIN_ANS(8) ! Min for all element output - + ! op2 info CHARACTER( 8*BYTE) :: TABLE_NAME ! the name of the op2 table @@ -85,7 +85,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) INTEGER(LONG) :: NTOTAL ! the number of bytes for all NVALUES INTEGER(LONG) :: ISUBCASE ! the subcase ID INTEGER(LONG) :: NELEMENTS - + END SUBROUTINE WRITE_ELEM_ENGR_FORCE END INTERFACE diff --git a/Source/Interfaces/WRITE_ELEM_NODE_FORCE_Interface.f90 b/Source/Interfaces/WRITE_ELEM_NODE_FORCE_Interface.f90 index 87a08fda..1939fa09 100644 --- a/Source/Interfaces/WRITE_ELEM_NODE_FORCE_Interface.f90 +++ b/Source/Interfaces/WRITE_ELEM_NODE_FORCE_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ELEM_NODE_FORCE_Interface @@ -30,7 +30,7 @@ MODULE WRITE_ELEM_NODE_FORCE_Interface SUBROUTINE WRITE_ELEM_NODE_FORCE ( JSUB, NUM_ELGP, NUM, IHDR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, INT_SC_NUM, NDOFR, NUM_CB_DOFS, MOGEL, NVEC, SOL_NAME @@ -40,17 +40,17 @@ SUBROUTINE WRITE_ELEM_NODE_FORCE ( JSUB, NUM_ELGP, NUM, IHDR ) USE DEBUG_PARAMETERS, ONLY : DEBUG USE LINK9_STUFF, ONLY : GID_OUT_ARRAY, EID_OUT_ARRAY, MAXREQ, OGEL USE MODEL_STUF, ONLY : ELEM_ONAME, LABEL, SCNUM, STITLE, TITLE - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM - + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: IHDR ! Indicator of whether to write output header - + INTEGER(LONG), INTENT(IN) :: JSUB ! Solution vector number INTEGER(LONG), INTENT(IN) :: NUM ! The number of rows of OGEL to write out INTEGER(LONG), INTENT(IN) :: NUM_ELGP ! The number of grid points for the elem being processed - + END SUBROUTINE WRITE_ELEM_NODE_FORCE END INTERFACE diff --git a/Source/Interfaces/WRITE_ELEM_STRAINS_Interface.f90 b/Source/Interfaces/WRITE_ELEM_STRAINS_Interface.f90 index 821a2a68..1ef7af20 100644 --- a/Source/Interfaces/WRITE_ELEM_STRAINS_Interface.f90 +++ b/Source/Interfaces/WRITE_ELEM_STRAINS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ELEM_STRAINS_Interface @@ -30,7 +30,7 @@ MODULE WRITE_ELEM_STRAINS_Interface SUBROUTINE WRITE_ELEM_STRAINS ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, BARTOR, INT_SC_NUM, MAX_NUM_STR, NDOFR, NUM_CB_DOFS, & @@ -42,9 +42,9 @@ SUBROUTINE WRITE_ELEM_STRAINS ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, GID_OUT_ARRAY, OGEL, POLY_FIT_ERR, POLY_FIT_ERR_INDEX USE MODEL_STUF, ONLY : ELEM_ONAME, ELMTYP, LABEL, SCNUM, STITLE, TITLE, TYPE USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_LOC, STRN_OPT - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: IHDR ! Indicator of whether to write an output header INTEGER(LONG), INTENT(IN) :: JSUB ! Solution vector number @@ -52,7 +52,7 @@ SUBROUTINE WRITE_ELEM_STRAINS ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) INTEGER(LONG), INTENT(IN) :: NUM_PTS ! Num diff strain points for one element (3rd dim in arrays SEi, STEi) INTEGER(LONG), INTENT(INOUT) :: ITABLE ! the current op2 subtable, should be -3, -5, ... - + END SUBROUTINE WRITE_ELEM_STRAINS END INTERFACE diff --git a/Source/Interfaces/WRITE_ELEM_STRESSES_Interface.f90 b/Source/Interfaces/WRITE_ELEM_STRESSES_Interface.f90 index d9b53315..ed505667 100644 --- a/Source/Interfaces/WRITE_ELEM_STRESSES_Interface.f90 +++ b/Source/Interfaces/WRITE_ELEM_STRESSES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ELEM_STRESSES_Interface @@ -30,7 +30,7 @@ MODULE WRITE_ELEM_STRESSES_Interface SUBROUTINE WRITE_ELEM_STRESSES ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, BARTOR, INT_SC_NUM, MAX_NUM_STR, NDOFR, NUM_CB_DOFS, & @@ -42,9 +42,9 @@ SUBROUTINE WRITE_ELEM_STRESSES ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, GID_OUT_ARRAY, OGEL, POLY_FIT_ERR, POLY_FIT_ERR_INDEX USE MODEL_STUF, ONLY : ELEM_ONAME, ELMTYP, LABEL, SCNUM, STITLE, TITLE, TYPE USE CC_OUTPUT_DESCRIBERS, ONLY : STRE_LOC, STRE_OPT - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: IHDR ! Indicator of whether to write an output header INTEGER(LONG), INTENT(IN) :: JSUB ! Solution vector number @@ -52,7 +52,7 @@ SUBROUTINE WRITE_ELEM_STRESSES ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) INTEGER(LONG), INTENT(IN) :: NUM_PTS ! Num diff stress points for one element (3rd dim in arrays SEi, STEi) INTEGER(LONG), INTENT(IN) :: ITABLE ! the current op2 subtable, should be -3, -5, ... - + END SUBROUTINE WRITE_ELEM_STRESSES END INTERFACE diff --git a/Source/Interfaces/WRITE_ELM_OT4_Interface.f90 b/Source/Interfaces/WRITE_ELM_OT4_Interface.f90 index 099e2152..da4278f3 100644 --- a/Source/Interfaces/WRITE_ELM_OT4_Interface.f90 +++ b/Source/Interfaces/WRITE_ELM_OT4_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ELM_OT4_Interface @@ -30,14 +30,14 @@ MODULE WRITE_ELM_OT4_Interface SUBROUTINE WRITE_ELM_OT4 ( MAT_NAME, NROWS_MAT, NROWS_TXT, NCOLS, TXT, UNT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_LOC, STRE_LOC - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: NROWS_TXT ! Number of rows in TXT CHARACTER(LEN=*), INTENT(IN) :: MAT_NAME ! Matrix name of the OTM that MAT describes @@ -47,7 +47,7 @@ SUBROUTINE WRITE_ELM_OT4 ( MAT_NAME, NROWS_MAT, NROWS_TXT, NCOLS, TXT, UNT ) INTEGER(LONG), INTENT(IN) :: NROWS_MAT ! Number of rows in MAT INTEGER(LONG), INTENT(IN) :: UNT ! Unit number where to write matrix - + END SUBROUTINE WRITE_ELM_OT4 END INTERFACE diff --git a/Source/Interfaces/WRITE_ENF_TO_L1O_Interface.f90 b/Source/Interfaces/WRITE_ENF_TO_L1O_Interface.f90 index 876f4106..ef035c63 100644 --- a/Source/Interfaces/WRITE_ENF_TO_L1O_Interface.f90 +++ b/Source/Interfaces/WRITE_ENF_TO_L1O_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ENF_TO_L1O_Interface @@ -30,7 +30,7 @@ MODULE WRITE_ENF_TO_L1O_Interface SUBROUTINE WRITE_ENF_TO_L1O - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ENF, ENFFIL, ENFSTAT, ENF_MSG, ERR, F06, L1O, LINK1O, L1OSTAT, L1O_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, NDOFSG, NGRID, NSPC, NUM_SPC_RECORDS, NUM_SPC1_RECORDS, WARN_ERR @@ -38,9 +38,9 @@ SUBROUTINE WRITE_ENF_TO_L1O USE PARAMS, ONLY : SUPWARN USE DOF_TABLES, ONLY : TSET_CHR_LEN, TSET USE MODEL_STUF, ONLY : SPCSET - + IMPLICIT NONE - + END SUBROUTINE WRITE_ENF_TO_L1O diff --git a/Source/Interfaces/WRITE_FEMAP_ELFO_VECS_Interface.f90 b/Source/Interfaces/WRITE_FEMAP_ELFO_VECS_Interface.f90 index 7da3c2a6..d07df7f0 100644 --- a/Source/Interfaces/WRITE_FEMAP_ELFO_VECS_Interface.f90 +++ b/Source/Interfaces/WRITE_FEMAP_ELFO_VECS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_FEMAP_ELFO_VECS_Interface @@ -30,16 +30,16 @@ MODULE WRITE_FEMAP_ELFO_VECS_Interface SUBROUTINE WRITE_FEMAP_ELFO_VECS ( ELEM_TYP, NUM_FEMAP_ROWS, FEMAP_SET_ID ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, NEU USE PARAMS, ONLY : SUPWARN USE SCONTR, ONLY : BLNK_SUB_NAM, NGRID, WARN_ERR USE TIMDAT, ONLY : TSEC USE FEMAP_ARRAYS, ONLY : FEMAP_EL_NUMS, FEMAP_EL_VECS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: ELEM_TYP ! Element type INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows of FEMAP data to write diff --git a/Source/Interfaces/WRITE_FEMAP_GRID_VECS_Interface.f90 b/Source/Interfaces/WRITE_FEMAP_GRID_VECS_Interface.f90 index bd628b94..941c14cc 100644 --- a/Source/Interfaces/WRITE_FEMAP_GRID_VECS_Interface.f90 +++ b/Source/Interfaces/WRITE_FEMAP_GRID_VECS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_FEMAP_GRID_VECS_Interface @@ -30,23 +30,23 @@ MODULE WRITE_FEMAP_GRID_VECS_Interface SUBROUTINE WRITE_FEMAP_GRID_VECS ( GRID_VEC, FEMAP_SET_ID, WHAT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, NEU USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NCORD, NDOFG, NGRID USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : CORD, GRID, GRID_ID, INV_GRID_SEQ - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: WHAT ! Indicator if GRID_VEC is DISP, OLOA, SPCF or MPCF INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! FEMAP set ID to write out REAL(DOUBLE) , INTENT(IN) :: GRID_VEC(NDOFG) ! G-set Vector to process - + END SUBROUTINE WRITE_FEMAP_GRID_VECS END INTERFACE diff --git a/Source/Interfaces/WRITE_FEMAP_STRE_VECS_Interface.f90 b/Source/Interfaces/WRITE_FEMAP_STRE_VECS_Interface.f90 index ddcf34e4..f80549c7 100644 --- a/Source/Interfaces/WRITE_FEMAP_STRE_VECS_Interface.f90 +++ b/Source/Interfaces/WRITE_FEMAP_STRE_VECS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_FEMAP_STRE_VECS_Interface @@ -30,7 +30,7 @@ MODULE WRITE_FEMAP_STRE_VECS_Interface SUBROUTINE WRITE_FEMAP_STRE_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET_ID ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, NEU USE PARAMS, ONLY : SUPWARN @@ -38,9 +38,9 @@ SUBROUTINE WRITE_FEMAP_STRE_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : STRE_OPT USE FEMAP_ARRAYS, ONLY : FEMAP_EL_NUMS, FEMAP_EL_VECS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: ELEM_TYP ! Element type CHARACTER(LEN=*), INTENT(IN) :: IS_PCOMP ! 'Y'/'N' for whether elements are PCOMP diff --git a/Source/Interfaces/WRITE_FEMAP_STRN_VECS_Interface.f90 b/Source/Interfaces/WRITE_FEMAP_STRN_VECS_Interface.f90 index 16c1420f..c60f1e0f 100644 --- a/Source/Interfaces/WRITE_FEMAP_STRN_VECS_Interface.f90 +++ b/Source/Interfaces/WRITE_FEMAP_STRN_VECS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_FEMAP_STRN_VECS_Interface @@ -30,7 +30,7 @@ MODULE WRITE_FEMAP_STRN_VECS_Interface SUBROUTINE WRITE_FEMAP_STRN_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET_ID ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, NEU USE PARAMS, ONLY : SUPWARN @@ -38,9 +38,9 @@ SUBROUTINE WRITE_FEMAP_STRN_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_OPT USE FEMAP_ARRAYS, ONLY : FEMAP_EL_NUMS, FEMAP_EL_VECS - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: ELEM_TYP ! Element type CHARACTER(LEN=*), INTENT(IN) :: IS_PCOMP ! 'Y'/'N' for whether elements are PCOMP diff --git a/Source/Interfaces/WRITE_FIJFIL_Interface.f90 b/Source/Interfaces/WRITE_FIJFIL_Interface.f90 index 12d0d9da..35165222 100644 --- a/Source/Interfaces/WRITE_FIJFIL_Interface.f90 +++ b/Source/Interfaces/WRITE_FIJFIL_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_FIJFIL_Interface @@ -30,22 +30,22 @@ MODULE WRITE_FIJFIL_Interface SUBROUTINE WRITE_FIJFIL ( WHICH, JVEC ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : F06, F21, F22, F23, F24, F25, F21_MSG, F22_MSG, F23_MSG, F24_MSG, F25_MSG USE DEBUG_PARAMETERS USE SCONTR, ONLY : BLNK_SUB_NAM, MAX_STRESS_POINTS, NSUB, NTSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EID, TYPE, ELGP, ELDOF, KE, ME, PEB, PEG, PEL, PPE, PTE, & - SE1, SE2, SE3, STE1, STE2, STE3, UEB, UEG, UEL + SE1, SE2, SE3, STE1, STE2, STE3, UEB, UEG, UEL USE PARAMS, ONLY : ELFORCEN IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: JVEC ! Internal subcase or vector number for data to be written INTEGER(LONG), INTENT(IN) :: WHICH ! Which F2j file to write to - + END SUBROUTINE WRITE_FIJFIL END INTERFACE diff --git a/Source/Interfaces/WRITE_FILNAM_Interface.f90 b/Source/Interfaces/WRITE_FILNAM_Interface.f90 index ead38ac5..b3927c4d 100644 --- a/Source/Interfaces/WRITE_FILNAM_Interface.f90 +++ b/Source/Interfaces/WRITE_FILNAM_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_FILNAM_Interface @@ -33,14 +33,14 @@ SUBROUTINE WRITE_FILNAM ( FILNAM, UNT, BLEN ) USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : FILE_NAM_MAXLEN, SC1 - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - + INTEGER(LONG), INTENT(IN) :: UNT ! Unit number of file FILNAM to write to INTEGER(LONG), INTENT(IN) :: BLEN ! Length, in char's, of blanks to print before filnam - + END SUBROUTINE WRITE_FILNAM END INTERFACE diff --git a/Source/Interfaces/WRITE_GRD_OT4_Interface.f90 b/Source/Interfaces/WRITE_GRD_OT4_Interface.f90 index a90ef8c3..7ddf5840 100644 --- a/Source/Interfaces/WRITE_GRD_OT4_Interface.f90 +++ b/Source/Interfaces/WRITE_GRD_OT4_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_GRD_OT4_Interface @@ -30,13 +30,13 @@ MODULE WRITE_GRD_OT4_Interface SUBROUTINE WRITE_GRD_OT4 ( MAT_NAME, NROWS_MAT, NROWS_TXT, NCOLS, TXT, UNT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: NROWS_TXT ! Number of rows in TXT CHARACTER(LEN=*), INTENT(IN) :: MAT_NAME ! Matrix name of the OTM that MAT describes @@ -46,7 +46,7 @@ SUBROUTINE WRITE_GRD_OT4 ( MAT_NAME, NROWS_MAT, NROWS_TXT, NCOLS, TXT, UNT ) INTEGER(LONG), INTENT(IN) :: NROWS_MAT ! Number of rows in MAT INTEGER(LONG), INTENT(IN) :: UNT ! Unit number where to write matrix - + END SUBROUTINE WRITE_GRD_OT4 END INTERFACE diff --git a/Source/Interfaces/WRITE_GRD_PCH_OUTPUTS_Interface.f90 b/Source/Interfaces/WRITE_GRD_PCH_OUTPUTS_Interface.f90 index 9f4bdbfe..60051edd 100644 --- a/Source/Interfaces/WRITE_GRD_PCH_OUTPUTS_Interface.f90 +++ b/Source/Interfaces/WRITE_GRD_PCH_OUTPUTS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_GRD_PCH_OUTPUTS_Interface @@ -30,7 +30,7 @@ MODULE WRITE_GRD_PCH_OUTPUTS_Interface SUBROUTINE WRITE_GRD_PCH_OUTPUTS ( JSUB, NUM, WHAT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, PCH USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, INT_SC_NUM, PCH_LINE_NUM, SOL_NAME @@ -39,7 +39,7 @@ SUBROUTINE WRITE_GRD_PCH_OUTPUTS ( JSUB, NUM, WHAT ) USE LINK9_STUFF, ONLY : GID_OUT_ARRAY, OGEL USE MODEL_STUF, ONLY : GRID, LABEL, SCNUM, SUBLOD, STITLE, TITLE USE EIGEN_MATRICES_1 , ONLY : EIGEN_VAL - + IMPLICIT NONE CHARACTER(LEN=*) , INTENT(IN) :: WHAT ! Indicator whether to process displ or force output requests diff --git a/Source/Interfaces/WRITE_GRD_PRT_OUTPUTS_Interface.f90 b/Source/Interfaces/WRITE_GRD_PRT_OUTPUTS_Interface.f90 index 7ff0da84..30a3736c 100644 --- a/Source/Interfaces/WRITE_GRD_PRT_OUTPUTS_Interface.f90 +++ b/Source/Interfaces/WRITE_GRD_PRT_OUTPUTS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_GRD_PRT_OUTPUTS_Interface @@ -30,7 +30,7 @@ MODULE WRITE_GRD_PRT_OUTPUTS_Interface SUBROUTINE WRITE_GRD_PRT_OUTPUTS ( JVEC, NUM, WHAT, IHDR, ALL_SAME_CID, WRITE_OGEL ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, PCH USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, INT_SC_NUM, MELGP, MOGEL, NDOFR, NVEC, NUM_CB_DOFS, & @@ -41,10 +41,10 @@ SUBROUTINE WRITE_GRD_PRT_OUTPUTS ( JVEC, NUM, WHAT, IHDR, ALL_SAME_CID, WRITE_OG USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP USE LINK9_STUFF, ONLY : GID_OUT_ARRAY, MAXREQ, OGEL USE MODEL_STUF, ONLY : LABEL, SCNUM, SUBLOD, STITLE, TITLE - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM - + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + IMPLICIT NONE - + CHARACTER(LEN=*) , INTENT(IN) :: IHDR ! Indicator of whether to write an output header in this use of this subr CHARACTER(LEN=*) , INTENT(IN) :: WHAT ! Indicator whether to process displ or force output requests CHARACTER(1*BYTE), INTENT(IN) :: ALL_SAME_CID ! Indicator of whether all grids, for the output set, have the same diff --git a/Source/Interfaces/WRITE_GRID_COORDS_Interface.f90 b/Source/Interfaces/WRITE_GRID_COORDS_Interface.f90 index b67fc895..775bad90 100644 --- a/Source/Interfaces/WRITE_GRID_COORDS_Interface.f90 +++ b/Source/Interfaces/WRITE_GRID_COORDS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_GRID_COORDS_Interface diff --git a/Source/Interfaces/WRITE_INTEGER_VEC_Interface.f90 b/Source/Interfaces/WRITE_INTEGER_VEC_Interface.f90 index b1de88e0..1a066f27 100644 --- a/Source/Interfaces/WRITE_INTEGER_VEC_Interface.f90 +++ b/Source/Interfaces/WRITE_INTEGER_VEC_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_INTEGER_VEC_Interface @@ -30,14 +30,14 @@ MODULE WRITE_INTEGER_VEC_Interface SUBROUTINE WRITE_INTEGER_VEC ( ARRAY_DESCR, INT_VEC, NROWS ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : WRT_ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: ARRAY_DESCR ! Character descriptor of the integer array to be printed INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in matrix MATOUT diff --git a/Source/Interfaces/WRITE_L1A_Interface.f90 b/Source/Interfaces/WRITE_L1A_Interface.f90 index 5a0bc969..79d24ba5 100644 --- a/Source/Interfaces/WRITE_L1A_Interface.f90 +++ b/Source/Interfaces/WRITE_L1A_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_L1A_Interface @@ -30,7 +30,7 @@ MODULE WRITE_L1A_Interface SUBROUTINE WRITE_L1A ( CLOSE_STAT, CALL_OUTA_HERE ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : MOT4, MOU4, WRT_ERR @@ -79,7 +79,7 @@ SUBROUTINE WRITE_L1A ( CLOSE_STAT, CALL_OUTA_HERE ) MATSPARS, MIN4TRED, QUAD4TYP, QUADAXIS, SPARSTOR IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CLOSE_STAT ! STATUS when closing file LINK1A CHARACTER(LEN=*), INTENT(IN) :: CALL_OUTA_HERE ! 'Y'/'N' indicator of whether to call OUTA_HERE (this should be 'Y' diff --git a/Source/Interfaces/WRITE_L1M_Interface.f90 b/Source/Interfaces/WRITE_L1M_Interface.f90 index 09305ca0..0c187239 100644 --- a/Source/Interfaces/WRITE_L1M_Interface.f90 +++ b/Source/Interfaces/WRITE_L1M_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_L1M_Interface @@ -30,9 +30,9 @@ MODULE WRITE_L1M_Interface SUBROUTINE WRITE_L1M - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - + USE SCONTR, ONLY : LINKNO, NUM_EIGENS USE IOUNT1, ONLY : ERR, F06, L1M, L1M_MSG, L1MSTAT, LINK1M, SC1, WRT_ERR USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, STIME, TSEC @@ -44,7 +44,7 @@ SUBROUTINE WRITE_L1M MIJ_COL, MIJ_ROW, NUM_FAIL_CRIT IMPLICIT NONE - + END SUBROUTINE WRITE_L1M END INTERFACE diff --git a/Source/Interfaces/WRITE_L1Z_Interface.f90 b/Source/Interfaces/WRITE_L1Z_Interface.f90 index 3cfe9198..2253c483 100644 --- a/Source/Interfaces/WRITE_L1Z_Interface.f90 +++ b/Source/Interfaces/WRITE_L1Z_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_L1Z_Interface @@ -30,17 +30,17 @@ MODULE WRITE_L1Z_Interface SUBROUTINE WRITE_L1Z - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : F06, L1Z, LINK1Z, L1Z_MSG, L1ZSTAT USE SCONTR, ONLY : BLNK_SUB_NAM, NSUB, SOL_NAME USE TIMDAT, ONLY : STIME, TSEC USE MODEL_STUF, ONLY : CC_EIGR_SID, MPCSET, SPCSET, SUBLOD - + IMPLICIT NONE - - + + END SUBROUTINE WRITE_L1Z END INTERFACE diff --git a/Source/Interfaces/WRITE_MATRIX_1_Interface.f90 b/Source/Interfaces/WRITE_MATRIX_1_Interface.f90 index 2402500b..956e291f 100644 --- a/Source/Interfaces/WRITE_MATRIX_1_Interface.f90 +++ b/Source/Interfaces/WRITE_MATRIX_1_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_MATRIX_1_Interface @@ -43,7 +43,7 @@ SUBROUTINE WRITE_MATRIX_1 ( FILNAM, UNT, CLOSE_IT, CLOSE_STAT, MESSAG, NAME, NTE CHARACTER(LEN=*), INTENT(IN) :: CLOSE_STAT ! What to do with file when it is closed CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name CHARACTER(LEN=*), INTENT(IN) :: NAME ! Matrix name - CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in MATIN INTEGER(LONG), INTENT(IN) :: NTERM ! Number of matrix terms that should be in FILNAM diff --git a/Source/Interfaces/WRITE_MATRIX_BY_COLS_Interface.f90 b/Source/Interfaces/WRITE_MATRIX_BY_COLS_Interface.f90 index 915b9eb8..9197a212 100644 --- a/Source/Interfaces/WRITE_MATRIX_BY_COLS_Interface.f90 +++ b/Source/Interfaces/WRITE_MATRIX_BY_COLS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_MATRIX_BY_COLS_Interface @@ -30,14 +30,14 @@ MODULE WRITE_MATRIX_BY_COLS_Interface SUBROUTINE WRITE_MATRIX_BY_COLS ( MAT_DESCR, MATOUT, NROWS, NCOLS, OUT_UNT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MAT_DESCR ! Character descriptor of the matrix to be printed INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in matrix MATOUT @@ -46,7 +46,7 @@ SUBROUTINE WRITE_MATRIX_BY_COLS ( MAT_DESCR, MATOUT, NROWS, NCOLS, OUT_UNT ) REAL(DOUBLE) , INTENT(IN) :: MATOUT(NROWS,NCOLS)! Matrix to write out - + END SUBROUTINE WRITE_MATRIX_BY_COLS END INTERFACE diff --git a/Source/Interfaces/WRITE_MATRIX_BY_ROWS_Interface.f90 b/Source/Interfaces/WRITE_MATRIX_BY_ROWS_Interface.f90 index 3f8aa402..8f4cdbca 100644 --- a/Source/Interfaces/WRITE_MATRIX_BY_ROWS_Interface.f90 +++ b/Source/Interfaces/WRITE_MATRIX_BY_ROWS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_MATRIX_BY_ROWS_Interface @@ -30,14 +30,14 @@ MODULE WRITE_MATRIX_BY_ROWS_Interface SUBROUTINE WRITE_MATRIX_BY_ROWS ( MAT_DESCR, MATOUT, NROWS, NCOLS, OUT_UNT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MAT_DESCR ! Character descriptor of the matrix to be printed INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in matrix MATOUT @@ -46,7 +46,7 @@ SUBROUTINE WRITE_MATRIX_BY_ROWS ( MAT_DESCR, MATOUT, NROWS, NCOLS, OUT_UNT ) REAL(DOUBLE) , INTENT(IN) :: MATOUT(NROWS,NCOLS)! Matrix to write out - + END SUBROUTINE WRITE_MATRIX_BY_ROWS END INTERFACE diff --git a/Source/Interfaces/WRITE_MEFFMASS_Interface.f90 b/Source/Interfaces/WRITE_MEFFMASS_Interface.f90 index 874f5cff..bd8fcf5d 100644 --- a/Source/Interfaces/WRITE_MEFFMASS_Interface.f90 +++ b/Source/Interfaces/WRITE_MEFFMASS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_MEFFMASS_Interface @@ -30,7 +30,7 @@ MODULE WRITE_MEFFMASS_Interface SUBROUTINE WRITE_MEFFMASS - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, NVEC @@ -40,9 +40,9 @@ SUBROUTINE WRITE_MEFFMASS USE EIGEN_MATRICES_1, ONLY : EIGEN_VAL, MEFFMASS USE MODEL_STUF, ONLY : MEFM_RB_MASS, LABEL, STITLE, TITLE USE PARAMS, ONLY : EPSIL, GRDPNT, MEFMCORD, MEFMGRID, MEFMLOC, SUPINFO, WTMASS - + IMPLICIT NONE - + END SUBROUTINE WRITE_MEFFMASS diff --git a/Source/Interfaces/WRITE_MPFACTOR_Interface.f90 b/Source/Interfaces/WRITE_MPFACTOR_Interface.f90 index 1b53a8f6..7b601e9b 100644 --- a/Source/Interfaces/WRITE_MPFACTOR_Interface.f90 +++ b/Source/Interfaces/WRITE_MPFACTOR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_MPFACTOR_Interface @@ -30,7 +30,7 @@ MODULE WRITE_MPFACTOR_Interface SUBROUTINE WRITE_MPFACTOR ! ( IHDR ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, NDOFG, NDOFR, NVEC, SOL_NAME @@ -41,9 +41,9 @@ SUBROUTINE WRITE_MPFACTOR ! ( IHDR ) USE MODEL_STUF, ONLY : LABEL, STITLE, TITLE USE PARAMS, ONLY : GRDPNT, MEFMCORD, MEFMGRID, MEFMLOC, MPFOUT USE DOF_TABLES, ONLY : TDOFI - + IMPLICIT NONE - + END SUBROUTINE WRITE_MPFACTOR diff --git a/Source/Interfaces/WRITE_OU4_FULL_MAT_Interface.f90 b/Source/Interfaces/WRITE_OU4_FULL_MAT_Interface.f90 index 1f21cebd..dba37dee 100644 --- a/Source/Interfaces/WRITE_OU4_FULL_MAT_Interface.f90 +++ b/Source/Interfaces/WRITE_OU4_FULL_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_OU4_FULL_MAT_Interface @@ -30,16 +30,16 @@ MODULE WRITE_OU4_FULL_MAT_Interface SUBROUTINE WRITE_OU4_FULL_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, MAT, UNT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : F06, LEN_INPUT_FNAME, OU4, OU4FIL, MOU4 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : PRTOU4 - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MAT_NAME ! Matrix name (only 1st 8 characters will be written) CHARACTER(LEN=*), INTENT(IN) :: SYM ! 'Y' if input matrix is symmetric @@ -53,7 +53,7 @@ SUBROUTINE WRITE_OU4_FULL_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, MAT, UNT ) REAL(DOUBLE) , INTENT(IN) :: MAT(NROWS,NCOLS) ! Array of terms in matrix MAT - + END SUBROUTINE WRITE_OU4_FULL_MAT END INTERFACE diff --git a/Source/Interfaces/WRITE_OU4_SPARSE_MAT_Interface.f90 b/Source/Interfaces/WRITE_OU4_SPARSE_MAT_Interface.f90 index d120cc0c..439661bd 100644 --- a/Source/Interfaces/WRITE_OU4_SPARSE_MAT_Interface.f90 +++ b/Source/Interfaces/WRITE_OU4_SPARSE_MAT_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_OU4_SPARSE_MAT_Interface @@ -30,7 +30,7 @@ MODULE WRITE_OU4_SPARSE_MAT_Interface SUBROUTINE WRITE_OU4_SPARSE_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, NTERM_MAT, I_MAT, J_MAT, MAT, UNT ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, LEN_INPUT_FNAME, OU4, OU4FIL, mou4 USE SCONTR, ONLY : BLNK_SUB_NAM @@ -38,9 +38,9 @@ SUBROUTINE WRITE_OU4_SPARSE_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, NTERM_MAT, USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : PRTOU4, SPARSTOR USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1, I_CCS1, J_CCS1, CCS1 - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MAT_NAME ! Matrix name (only 1st 8 characters will be written) CHARACTER(LEN=*), INTENT(IN) :: SYM ! 'Y' if input matrix is symmetric @@ -51,13 +51,13 @@ SUBROUTINE WRITE_OU4_SPARSE_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, NTERM_MAT, INTEGER(LONG), INTENT(IN) :: I_MAT(NROWS+1) ! Row indicators for MAT: I_MAT(I+1)-I_MAT(i) = no. terms in row I INTEGER(LONG), INTENT(IN) :: J_MAT(NTERM_MAT) ! Col numbers in MAT INTEGER(LONG), INTENT(IN) :: UNT ! Unit number where to write matrix - INTEGER(LONG), PARAMETER :: IROW = 1 ! + INTEGER(LONG), PARAMETER :: IROW = 1 ! INTEGER(LONG), PARAMETER :: PREC = 2 ! Matrix precision (2 indicates double precision) INTEGER(LONG), PARAMETER :: ROW_BEG = 1 ! 1st row of matrix output to UNT is row 1 REAL(DOUBLE) , INTENT(IN) :: MAT(NTERM_MAT) ! Array of terms in matrix MAT - + END SUBROUTINE WRITE_OU4_SPARSE_MAT END INTERFACE diff --git a/Source/Interfaces/WRITE_PARTNd_MAT_HDRS_Interface.f90 b/Source/Interfaces/WRITE_PARTNd_MAT_HDRS_Interface.f90 index 7d73fa6e..16d81104 100644 --- a/Source/Interfaces/WRITE_PARTNd_MAT_HDRS_Interface.f90 +++ b/Source/Interfaces/WRITE_PARTNd_MAT_HDRS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_PARTNd_MAT_HDRS_Interface diff --git a/Source/Interfaces/WRITE_PCOMP_EQUIV_Interface.f90 b/Source/Interfaces/WRITE_PCOMP_EQUIV_Interface.f90 index 574094c6..71e2db7a 100644 --- a/Source/Interfaces/WRITE_PCOMP_EQUIV_Interface.f90 +++ b/Source/Interfaces/WRITE_PCOMP_EQUIV_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_PCOMP_EQUIV_Interface diff --git a/Source/Interfaces/WRITE_PLY_STRAINS_Interface.f90 b/Source/Interfaces/WRITE_PLY_STRAINS_Interface.f90 index cdea1422..abae1395 100644 --- a/Source/Interfaces/WRITE_PLY_STRAINS_Interface.f90 +++ b/Source/Interfaces/WRITE_PLY_STRAINS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_PLY_STRAINS_Interface @@ -30,7 +30,7 @@ MODULE WRITE_PLY_STRAINS_Interface SUBROUTINE WRITE_PLY_STRAINS ( JSUB, NUM, IHDR, ETYPE, ITABLE ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, BARTOR, INT_SC_NUM, LPCOMP_PLIES, NDOFR, NUM_CB_DOFS, & @@ -42,19 +42,19 @@ SUBROUTINE WRITE_PLY_STRAINS ( JSUB, NUM, IHDR, ETYPE, ITABLE ) USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, FTNAME, OGEL USE MODEL_STUF, ONLY : ANY_FAILURE_THEORY, ELEM_ONAME, LABEL, PCOMP, SCNUM, STITLE, TITLE USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_OPT - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM - + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: IHDR ! Indicator of whether to write an output header - + INTEGER(LONG), INTENT(IN) :: JSUB ! Solution vector number INTEGER(LONG), INTENT(IN) :: NUM ! The number of rows of OGEL to write out CHARACTER(8*BYTE), INTENT(IN) :: ETYPE ! the name of the element INTEGER(LONG), INTENT(INOUT) :: ITABLE ! the op2 subtable name INTEGER(LONG) :: STRESS_CODE ! flag for op2 - + END SUBROUTINE WRITE_PLY_STRAINS END INTERFACE diff --git a/Source/Interfaces/WRITE_PLY_STRESSES_Interface.f90 b/Source/Interfaces/WRITE_PLY_STRESSES_Interface.f90 index 9d84a82a..fe63650d 100644 --- a/Source/Interfaces/WRITE_PLY_STRESSES_Interface.f90 +++ b/Source/Interfaces/WRITE_PLY_STRESSES_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_PLY_STRESSES_Interface @@ -30,7 +30,7 @@ MODULE WRITE_PLY_STRESSES_Interface SUBROUTINE WRITE_PLY_STRESSES ( JSUB, NUM, IHDR, ETYPE, ITABLE ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, BARTOR, INT_SC_NUM, LPCOMP_PLIES, NDOFR, NUM_CB_DOFS, & @@ -42,19 +42,19 @@ SUBROUTINE WRITE_PLY_STRESSES ( JSUB, NUM, IHDR, ETYPE, ITABLE ) USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, FTNAME, OGEL USE MODEL_STUF, ONLY : ANY_FAILURE_THEORY, ELEM_ONAME, LABEL, PCOMP, SCNUM, STITLE, TITLE USE CC_OUTPUT_DESCRIBERS, ONLY : STRE_OPT - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM - + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: IHDR ! Indicator of whether to write an output header - + INTEGER(LONG), INTENT(IN) :: JSUB ! Solution vector number INTEGER(LONG), INTENT(IN) :: NUM ! The number of rows of OGEL to write out CHARACTER(8*BYTE), INTENT(IN) :: ETYPE ! the name of the element INTEGER(LONG), INTENT(INOUT) :: ITABLE ! the op2 subtable name INTEGER(LONG) :: STRESS_CODE ! flag for op2 - + END SUBROUTINE WRITE_PLY_STRESSES END INTERFACE diff --git a/Source/Interfaces/WRITE_ROD_Interface.f90 b/Source/Interfaces/WRITE_ROD_Interface.f90 index e9a09d3a..b115aad7 100644 --- a/Source/Interfaces/WRITE_ROD_Interface.f90 +++ b/Source/Interfaces/WRITE_ROD_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ROD_Interface @@ -31,7 +31,7 @@ MODULE WRITE_ROD_Interface SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, TITLE, SUBTITLE, LABEL, & FIELD5_INT_MODE, FIELD6_EIGENVALUE, WRITE_OP2 ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM @@ -39,9 +39,9 @@ SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, TITLE, SUBTITLE, LABEL, USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, MSPRNT, OGEL - + IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: ISUBCASE ! the current subcase CHARACTER(LEN=*), INTENT(IN) :: FILL_F06 ! Padding for output format CHARACTER(LEN=128), INTENT(IN) :: TITLE ! the model TITLE @@ -55,7 +55,7 @@ SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, TITLE, SUBTITLE, LABEL, REAL(DOUBLE), INTENT(IN) :: FIELD6_EIGENVALUE - + END SUBROUTINE WRITE_ROD END INTERFACE diff --git a/Source/Interfaces/WRITE_SPARSE_CRS_Interface.f90 b/Source/Interfaces/WRITE_SPARSE_CRS_Interface.f90 index be02975a..8f4eed2e 100644 --- a/Source/Interfaces/WRITE_SPARSE_CRS_Interface.f90 +++ b/Source/Interfaces/WRITE_SPARSE_CRS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_SPARSE_CRS_Interface @@ -30,28 +30,28 @@ MODULE WRITE_SPARSE_CRS_Interface SUBROUTINE WRITE_SPARSE_CRS ( MAT_NAME, ROW_SET, COL_SET, NTERM_A, NROWS_A, I_AXX, J_AXX, AXX ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : SPARSTOR, TINY - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: COL_SET ! Set designator for cols of matrix CHARACTER(LEN=*), INTENT(IN) :: ROW_SET ! Set designator for rows of matrix CHARACTER(LEN=*), INTENT(IN) :: MAT_NAME ! Input matrix descriptor - INTEGER(LONG), INTENT(IN) :: NTERM_A ! No. of terms in sparse matrix - INTEGER(LONG), INTENT(IN) :: NROWS_A ! No. of rows in sparse matrix + INTEGER(LONG), INTENT(IN) :: NTERM_A ! No. of terms in sparse matrix + INTEGER(LONG), INTENT(IN) :: NROWS_A ! No. of rows in sparse matrix INTEGER(LONG), INTENT(IN) :: I_AXX(NROWS_A+1) ! Array of starting indices for the 1-st term in rows of AXX INTEGER(LONG), INTENT(IN) :: J_AXX(NTERM_A) ! Array of col no's for terms in matrix AXX REAL(DOUBLE) , INTENT(IN) :: AXX(NTERM_A) ! Array of terms in matrix AXX - + END SUBROUTINE WRITE_SPARSE_CRS END INTERFACE diff --git a/Source/Interfaces/WRITE_TDOF_Interface.f90 b/Source/Interfaces/WRITE_TDOF_Interface.f90 index 4a648aee..53a5742f 100644 --- a/Source/Interfaces/WRITE_TDOF_Interface.f90 +++ b/Source/Interfaces/WRITE_TDOF_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_TDOF_Interface diff --git a/Source/Interfaces/WRITE_TSET_Interface.f90 b/Source/Interfaces/WRITE_TSET_Interface.f90 index ddc485b2..fc00bd7d 100644 --- a/Source/Interfaces/WRITE_TSET_Interface.f90 +++ b/Source/Interfaces/WRITE_TSET_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_TSET_Interface diff --git a/Source/Interfaces/WRITE_USERIN_BD_CARDS_Interface.f90 b/Source/Interfaces/WRITE_USERIN_BD_CARDS_Interface.f90 index 3fcc9864..79a4d997 100644 --- a/Source/Interfaces/WRITE_USERIN_BD_CARDS_Interface.f90 +++ b/Source/Interfaces/WRITE_USERIN_BD_CARDS_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_USERIN_BD_CARDS_Interface @@ -38,7 +38,7 @@ SUBROUTINE WRITE_USERIN_BD_CARDS ( NROWS, X_SET ) USE DOF_TABLES, ONLY : TDOFI USE PARAMS, ONLY : CUSERIN_EID, CUSERIN_IN4, CUSERIN_PID, CUSERIN_SPNT_ID, CUSERIN_XSET, & CUSERIN_COMPTYP, SUPWARN - USE MODEL_STUF, ONLY : CORD, RCORD, GRID_ID, GRID, RGRID + USE MODEL_STUF, ONLY : CORD, RCORD, GRID_ID, GRID, RGRID USE OUTPUT4_MATRICES, ONLY : ACT_OU4_OUTPUT_NAMES, NUM_OU4_REQUESTS, OU4_FILE_UNITS IMPLICIT NONE diff --git a/Source/Interfaces/WRITE_USETSTR_Interface.f90 b/Source/Interfaces/WRITE_USETSTR_Interface.f90 index abe97fce..ec3ed641 100644 --- a/Source/Interfaces/WRITE_USETSTR_Interface.f90 +++ b/Source/Interfaces/WRITE_USETSTR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_USETSTR_Interface diff --git a/Source/Interfaces/WRITE_USET_Interface.f90 b/Source/Interfaces/WRITE_USET_Interface.f90 index ed21abb0..f38cc19b 100644 --- a/Source/Interfaces/WRITE_USET_Interface.f90 +++ b/Source/Interfaces/WRITE_USET_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_USET_Interface diff --git a/Source/Interfaces/WRITE_VECTOR_Interface.f90 b/Source/Interfaces/WRITE_VECTOR_Interface.f90 index a7af50d8..51eaa3e3 100644 --- a/Source/Interfaces/WRITE_VECTOR_Interface.f90 +++ b/Source/Interfaces/WRITE_VECTOR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_VECTOR_Interface @@ -30,14 +30,14 @@ MODULE WRITE_VECTOR_Interface SUBROUTINE WRITE_VECTOR ( VEC_NAME, WHAT, NUM, UX ) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: VEC_NAME ! Name of vector being output CHARACTER(LEN=*), INTENT(IN) :: WHAT ! Title over output vector (e.g. DISPL, FORCE, etc.) @@ -45,7 +45,7 @@ SUBROUTINE WRITE_VECTOR ( VEC_NAME, WHAT, NUM, UX ) REAL(DOUBLE) , INTENT(IN) :: UX(NUM) ! Vector to write out - + END SUBROUTINE WRITE_VECTOR END INTERFACE diff --git a/Source/Interfaces/WRT_REAL_TO_CHAR_VAR_Interface.f90 b/Source/Interfaces/WRT_REAL_TO_CHAR_VAR_Interface.f90 index a428e6ae..97d80294 100644 --- a/Source/Interfaces/WRT_REAL_TO_CHAR_VAR_Interface.f90 +++ b/Source/Interfaces/WRT_REAL_TO_CHAR_VAR_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRT_REAL_TO_CHAR_VAR_Interface @@ -44,7 +44,7 @@ SUBROUTINE WRT_REAL_TO_CHAR_VAR ( REAL_VAR, NROWS, NCOLS, ROW_NUM, CHAR_VAR ) INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in array REAL_VAR INTEGER(LONG), INTENT(IN) :: ROW_NUM ! Row number in array REAL_VAR to write - REAL(DOUBLE) , INTENT(IN) :: REAL_VAR(NROWS,NCOLS)! + REAL(DOUBLE) , INTENT(IN) :: REAL_VAR(NROWS,NCOLS)! END SUBROUTINE WRT_REAL_TO_CHAR_VAR diff --git a/Source/Interfaces/YS_ARRAY_Interface.f90 b/Source/Interfaces/YS_ARRAY_Interface.f90 index 2b85cd34..94b1bef8 100644 --- a/Source/Interfaces/YS_ARRAY_Interface.f90 +++ b/Source/Interfaces/YS_ARRAY_Interface.f90 @@ -1,28 +1,28 @@ ! ############################################################################################################################### -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE YS_ARRAY_Interface @@ -30,7 +30,7 @@ MODULE YS_ARRAY_Interface SUBROUTINE YS_ARRAY - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1H USE IOUNT1, ONLY : WRT_ERR, LINK1H @@ -40,11 +40,11 @@ SUBROUTINE YS_ARRAY USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : GRID_ID USE COL_VECS, ONLY : YSe - + IMPLICIT NONE - - + + END SUBROUTINE YS_ARRAY END INTERFACE diff --git a/Source/LK1/L1A-BD/BD_ASET.f90 b/Source/LK1/L1A-BD/BD_ASET.f90 index 9edc6e32..01b47d14 100644 --- a/Source/LK1/L1A-BD/BD_ASET.f90 +++ b/Source/LK1/L1A-BD/BD_ASET.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_ASET ( CARD ) - + ! Processes ASET, OMIT Bulk Data Cards ! Data is written to file LINK1N for later processing after checks on format of data. ! Each record contains: @@ -33,97 +33,97 @@ SUBROUTINE BD_ASET ( CARD ) ! COMPJ, GRIDJ, GRIDJ, SET ! GRIDJ is written twice to be compatible with the data written to file LINK1N for ASET1 data - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1N USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NAOCARD USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TSET_CHR_LEN - + USE BD_ASET_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_ASET' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 8*BYTE) :: IP6TYP ! An output from subr IP6CHK called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARDO ! An output from subr IP6CHK called herein CHARACTER(LEN=LEN(TSET_CHR_LEN)):: SET ! 'A' or 'O' depending on whether the B.D card is ASET or OMIT - + INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: JERR = 0 ! Count of no. of errors when data fields are read from ASET/OMIT cards INTEGER(LONG) :: COMPJ = 0 ! Displ component(s) read from a B.D. ASET/OMIT card INTEGER(LONG) :: GRIDJ = 0 ! A grid point number read from a B.D. ASET/OMIT card - + ! ********************************************************************************************************************************** ! ASET, OMIT Bulk Data Card routine - -! FIELD ITEM -! ----- ------------ -! 2,4,6,8 Grid ID's + +! FIELD ITEM +! ----- ------------ +! 2,4,6,8 Grid ID's ! 3,5,7,9 Displ Components - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Find out if card is ASET or OMIT (must be one, otherwise this ! subroutine would not have been invoked): - + IF (JCARD(1)(1:4) == 'ASET') THEN SET = 'A' ELSE IF (JCARD(1)(1:4) == 'OMIT') THEN SET = 'O' ENDIF - + ! Process 8 fields of CARD (pairs of Grid ID's and DOF's) - + DO J=1,4 - IF ((JCARD(2*J)(1:) == ' ') .AND. (JCARD(2*J+1)(1:) == ' ')) THEN + IF ((JCARD(2*J)(1:) == ' ') .AND. (JCARD(2*J+1)(1:) == ' ')) THEN CYCLE ENDIF - + ! Get Grid ID. If Grid ID field blank, error - + IF (JCARD(2*J)(1:) == ' ') THEN JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1125) 'GRID POINT', JF(2*J), JCARD(1) WRITE(F06,1125) 'GRID POINT', JF(2*J), JCARD(1) - ELSE + ELSE CALL I4FLD ( JCARD(2*J), JF(2*J), GRIDJ ) ENDIF - + ! Get DOF components (and put into integer COMPJ). - + CALL IP6CHK ( JCARD(2*J+1), JCARDO, IP6TYP, IDUM ) IF ((IP6TYP == 'COMP NOS') .OR. (IP6TYP == 'ZERO ') .OR. (IP6TYP == 'BLANK ')) THEN CALL I4FLD ( JCARDO, JF(2*J+1), COMPJ ) ELSE JERR = JERR + 1 - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1123) JF(2*J+1),JCARD(1),JF(2*J+1),JCARD(2*J+1) WRITE(F06,1123) JF(2*J+1),JCARD(1),JF(2*J+1),JCARD(2*J+1) ENDIF - + ! Write data to file LINK1N if there were no errors. Note, GRIDJ is written twice. This is done since ! ASET1 entries (processed in another subr), can have a format of GRID1 THRU GRID2. - + IF ((JERR == 0) .AND. (IERRFL(2*J) == 'N') .AND. (IERRFL(2*J+1) == 'N')) THEN WRITE(L1N) COMPJ,GRIDJ,GRIDJ,SET NAOCARD = NAOCARD + 1 ENDIF - + ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,2,0,4,0,6,0,8,0 ) ! Make sure that there are no imbedded blanks in fields 2, 4, 6, 8 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN @@ -131,9 +131,9 @@ SUBROUTINE BD_ASET ( CARD ) ! ********************************************************************************************************************************** 1123 FORMAT(' *ERROR 1123: INVALID DOF NUMBER IN FIELD ',I3,' ON ',A,' CARD. MUST BE A COMBINATION OF DIGITS 1-6' & ,/,14X,' HOWEVER, FIELD ',I3, ' HAS: "',A,'"') - + 1125 FORMAT(' *ERROR 1125: NO ',A,' SPECIFIED IN FIELD',I4,' ON ',A,' CARD') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_ASET diff --git a/Source/LK1/L1A-BD/BD_ASET1.f90 b/Source/LK1/L1A-BD/BD_ASET1.f90 index 95488f6b..7b35aeed 100644 --- a/Source/LK1/L1A-BD/BD_ASET1.f90 +++ b/Source/LK1/L1A-BD/BD_ASET1.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_ASET1 ( CARD, LARGE_FLD_INP ) - + ! Processes ASET1, OMIT1 Bulk Data Cards ! Data is written to file LINK1N for later processing after checks on format of data. ! Each record contains: COMPJ, GRIDJ1, GRIDJ2, SET @@ -35,11 +35,11 @@ SUBROUTINE BD_ASET1 ( CARD, LARGE_FLD_INP ) USE SCONTR, ONLY : FATAL_ERR, IERRFL, JCARD_LEN, JF, NAOCARD, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TSET_CHR_LEN - + USE BD_ASET1_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_ASET1' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -50,7 +50,7 @@ SUBROUTINE BD_ASET1 ( CARD, LARGE_FLD_INP ) CHARACTER(LEN(TSET_CHR_LEN)) :: SET ! 'A' or 'O' depending on whether the B.D card is ASET or OMIT CHARACTER( 8*BYTE) :: TOKEN ! The 1st 8 characters from a JCARD CHARACTER( 8*BYTE) :: TOKTYP ! An output from subr TOKCHK called herein - + INTEGER(LONG) :: ICONT ! Indicator of whether a continuation card exists for this parent card INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein INTEGER(LONG) :: IERR ! Error indicator returned from subr NEXTC called herein @@ -61,48 +61,48 @@ SUBROUTINE BD_ASET1 ( CARD, LARGE_FLD_INP ) INTEGER(LONG) :: GRIDJ1 = 0 ! 1st grid in format #1 of ASET/OMIT input INTEGER(LONG) :: GRIDJ2 = 0 ! 2nd grid in format #1 of ASET/OMIT input - + ! ********************************************************************************************************************************** ! ASET1, OMIT1 Bulk Data Card routine - -! FIELD ITEM -! ----- ------------ + +! FIELD ITEM +! ----- ------------ ! Format #1: ! 2 COMPJ, Displ component(s) ! 3-9 GRIDJ's, Grid ID's ! on optional continuation cards: ! 2-9 Grid ID's - + ! Format #2: ! 2 COMPJ , Displ component(s) ! 3 GRIDJ1, Grid ID number 1 ! 4 "THRU" ! 5 GRIDJ2, Grid ID number 2 - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Find out if card is ASET1 or OMIT1: - + IF (JCARD(1)(1:5) == 'ASET1') THEN SET = 'A ' ELSE IF (JCARD(1)(1:5) == 'OMIT1') THEN SET = 'O ' ENDIF - + ! Field 4 of ASET1 or OMIT1 must have "THRU" or a grid pt number or blank. TOKEN = JCARD(4)(1:8) ! Only send the 1st 8 chars of this JCARD. It has been left justified CALL TOKCHK ( TOKEN, TOKTYP ) ! TOKTYP must be THRU', 'INTEGR', or 'BLANK' - + ! ********************************************************************************************************************************** ! Format # 2 - - IF (TOKTYP == 'THRU ') THEN - + + IF (TOKTYP == 'THRU ') THEN + JERR = 0 CALL IP6CHK ( JCARD(2), JCARDO, IP6TYP, IDUM ) ! Get components (and put into integer COMPJ) @@ -110,29 +110,29 @@ SUBROUTINE BD_ASET1 ( CARD, LARGE_FLD_INP ) CALL I4FLD ( JCARDO, JF(2), COMPJ ) ELSE JERR = JERR + 1 - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1123) JF(2),JCARD(1),JF(2),JCARD(2) WRITE(F06,1123) JF(2),JCARD(1),JF(2),JCARD(2) ENDIF - + IF (JCARD(3)(1:) /= ' ') THEN ! Get 1st Grid ID, GRIDJ1 CALL I4FLD ( JCARD(3), JF(3), GRIDJ1 ) - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1125) 'GRID POINT', JF(3), JCARD(1) WRITE(F06,1125) 'GRID POINT', JF(3), JCARD(1) ENDIF - + IF (JCARD(5)(1:) /= ' ') THEN ! Get 2nd Grid ID, GRIDJ2 CALL I4FLD ( JCARD(5), JF(5), GRIDJ2 ) - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1125) 'GRID POINT', JF(5), JCARD(1) WRITE(F06,1125) 'GRID POINT', JF(5), JCARD(1) ENDIF - + IF ((IERRFL(3)=='N') .AND. (IERRFL(5)=='N')) THEN ! Check GRIDJ2 > GRIDJ1 if there were no errors reading them IF (GRIDJ2 <= GRIDJ1) THEN JERR = JERR + 1 @@ -140,8 +140,8 @@ SUBROUTINE BD_ASET1 ( CARD, LARGE_FLD_INP ) WRITE(ERR,1128) JCARD(1) WRITE(F06,1128) JCARD(1) ENDIF - ENDIF - + ENDIF + CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,5,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 3, 5 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,6,7,8,9 )! Issue warning if fields 6, 7, 8, 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -150,13 +150,13 @@ SUBROUTINE BD_ASET1 ( CARD, LARGE_FLD_INP ) WRITE(L1N) COMPJ,GRIDJ1,GRIDJ2,SET ! Write data to file LINK1N if no errors NAOCARD = NAOCARD + 1 ENDIF - - + + ! ********************************************************************************************************************************** -! Format #1 - - ELSE IF ((TOKTYP == 'INTEGER ') .OR. (TOKTYP == 'BLANK ')) THEN - +! Format #1 + + ELSE IF ((TOKTYP == 'INTEGER ') .OR. (TOKTYP == 'BLANK ')) THEN + JERR = 0 CALL IP6CHK ( JCARD(2), JCARDO, IP6TYP, IDUM ) ! Get components (and put into integer COMPJ) @@ -164,15 +164,15 @@ SUBROUTINE BD_ASET1 ( CARD, LARGE_FLD_INP ) CALL I4FLD ( JCARDO, JF(2), COMPJ ) ELSE JERR = JERR + 1 - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1123) JF(2),JCARD(1),JF(2),JCARD(2) WRITE(F06,1123) JF(2),JCARD(1),JF(2),JCARD(2) ENDIF - + DO J=3,9 ! Get Grid ID's in fields 3 - 9 and write data to LINK1N IF (JCARD(J)(1:) == ' ') THEN CYCLE - ELSE + ELSE CALL I4FLD ( JCARD(J), JF(J), GRIDJ ) IF ((JERR == 0) .AND. (IERRFL(J) == 'N')) THEN WRITE(L1N) COMPJ,GRIDJ,GRIDJ,SET ! Note, GRIDJ is written twice to be compatible w/ Format #2 @@ -180,11 +180,11 @@ SUBROUTINE BD_ASET1 ( CARD, LARGE_FLD_INP ) ENDIF ENDIF ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,0,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 3-9 - CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - - DO ! Optional continuation cards w/ grid ID's, or blank, in fields 2-9 + CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields + + DO ! Optional continuation cards w/ grid ID's, or blank, in fields 2-9 IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC ( CARD, ICONT, IERR ) ELSE @@ -196,24 +196,24 @@ SUBROUTINE BD_ASET1 ( CARD, LARGE_FLD_INP ) DO J=2,9 IF (JCARD(J)(1:) == ' ') THEN CYCLE ! CYCLE to next field when a field is blank - ELSE + ELSE CALL I4FLD ( JCARD(J), JF(J), GRIDJ ) IF ((JERR == 0) .AND. (IERRFL(J) == 'N')) THEN WRITE(L1N) COMPJ,GRIDJ,GRIDJ,SET ! Note we don't write if error in either COMPJ or GRIDJ NAOCARD = NAOCARD + 1 ENDIF ENDIF - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields CYCLE ELSE EXIT ENDIF - ENDDO - - ELSE ! Error - Field 4 did not have "THRU", or an integer, or was blank - + ENDDO + + ELSE ! Error - Field 4 did not have "THRU", or an integer, or was blank + FATAL_ERR = FATAL_ERR+1 WRITE(ERR,1127) JF(4), JCARD(1) WRITE(F06,1127) JF(4), JCARD(1) @@ -228,14 +228,14 @@ SUBROUTINE BD_ASET1 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** 1123 FORMAT(' *ERROR 1123: INVALID DOF NUMBER IN FIELD ',I3,' ON ',A,' CARD. MUST BE A COMBINATION OF DIGITS 1-6' & ,/,14X,' HOWEVER, FIELD ',I3, ' HAS: "',A,'"') - + 1125 FORMAT(' *ERROR 1125: NO ',A,' SPECIFIED IN FIELD',I4,' ON ',A,' CARD') 1127 FORMAT(' *ERROR 1127: INVALID DATA IN FIELD ',I2,' OF ',A,' CARD. FIELD MUST HAVE THRU OR A GRID NUMBER OR BE BLANK') 1128 FORMAT(' *ERROR 1128: ON ',A,' THE IDs MUST BE IN INCREASING ORDER FOR THRU OPTION') - + ! ********************************************************************************************************************************** - + END SUBROUTINE BD_ASET1 diff --git a/Source/LK1/L1A-BD/BD_BAROR.f90 b/Source/LK1/L1A-BD/BD_BAROR.f90 index 4d27b24a..759c81ec 100644 --- a/Source/LK1/L1A-BD/BD_BAROR.f90 +++ b/Source/LK1/L1A-BD/BD_BAROR.f90 @@ -1,41 +1,41 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_BAROR ( CARD ) - + ! Processes BAROR Bulk Data Cards. Reads and checks the property ID, if present, and the V vector, ! if present. The BAROR V vector type (BAROR_VVEC_TYPE) was determined in subr BAROR0 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LVVEC, NBAROR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : BAROR_VVEC_TYPE, BAROR_G0, BAROR_VV, BAROR_PID - + USE BD_BAROR_USE_IFs IMPLICIT NONE @@ -43,12 +43,12 @@ SUBROUTINE BD_BAROR ( CARD ) CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_BAROR' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: I4INP ! A value read from input file that should be an integer value INTEGER(LONG) :: PGM_ERR = 0 ! A count of the number of coding errors - + REAL(DOUBLE) :: EPS1 ! A small value to compare zero to REAL(DOUBLE) :: R8INP ! A value read from input file that should be a real value @@ -56,18 +56,18 @@ SUBROUTINE BD_BAROR ( CARD ) ! ********************************************************************************************************************************** ! BAROR Bulk Data Card routine - -! FIELD ITEM -! ----- ------------ -! 3 Property ID -! 6-8 V-Vector -! + +! FIELD ITEM +! ----- ------------ +! 3 Property ID +! 6-8 V-Vector +! EPS1 = EPSIL(1) ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Read and check data IF (JCARD(3)(1:) /= ' ') THEN ! Read prop ID @@ -75,8 +75,8 @@ SUBROUTINE BD_BAROR ( CARD ) IF (IERRFL(3) == 'N') THEN IF (I4INP /= BAROR_PID) THEN PGM_ERR = PGM_ERR + 1 ! Coding error: This value doesn't agree with that read in LOADB0 - WRITE(ERR,11851) SUBR_NAME, JF(3), JCARD(1), BAROR_PID, I4INP - WRITE(F06,11851) SUBR_NAME, JF(3), JCARD(1), BAROR_PID, I4INP + WRITE(ERR,11851) SUBR_NAME, JF(3), JCARD(1), BAROR_PID, I4INP + WRITE(F06,11851) SUBR_NAME, JF(3), JCARD(1), BAROR_PID, I4INP ENDIF IF (I4INP <= 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -94,19 +94,19 @@ SUBROUTINE BD_BAROR ( CARD ) IF (IERRFL(J+5) == 'N') THEN IF (DABS(R8INP - BAROR_VV(J)) > EPS1) THEN PGM_ERR = PGM_ERR + 1 ! Coding error: This value doesn't agree with that read in LOADB0 - WRITE(ERR,11852) SUBR_NAME, JF(J+5), JCARD(1), BAROR_VV(J), R8INP - WRITE(F06,11852) SUBR_NAME, JF(J+5), JCARD(1), BAROR_VV(J), R8INP + WRITE(ERR,11852) SUBR_NAME, JF(J+5), JCARD(1), BAROR_VV(J), R8INP + WRITE(F06,11852) SUBR_NAME, JF(J+5), JCARD(1), BAROR_VV(J), R8INP ENDIF ENDIF - ENDIF + ENDIF ENDDO ELSE IF (BAROR_VVEC_TYPE == 'GRID ') THEN CALL I4FLD ( JCARD(6), JF(6), I4INP ) IF (IERRFL(6) == 'N') THEN IF (I4INP /= BAROR_G0) THEN PGM_ERR = PGM_ERR + 1 ! Coding error: This value doesn't agree with that read in LOADB0 - WRITE(ERR,11851) SUBR_NAME, JF(6), JCARD(1), BAROR_G0, I4INP - WRITE(F06,11851) SUBR_NAME, JF(6), JCARD(1), BAROR_G0, I4INP + WRITE(ERR,11851) SUBR_NAME, JF(6), JCARD(1), BAROR_G0, I4INP + WRITE(F06,11851) SUBR_NAME, JF(6), JCARD(1), BAROR_G0, I4INP ENDIF IF (I4INP <= 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -119,7 +119,7 @@ SUBROUTINE BD_BAROR ( CARD ) WRITE(ERR,1102) WRITE(F06,1102) ENDIF - + CALL CARD_FLDS_NOT_BLANK ( JCARD,2,0,4,5,0,0,0,9 ) ! Issue warning if fields 2, 4, 5, 9 are not blank CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,6,7,8,0 ) ! Make sure that there are no imbedded blanks in fields 3, 6-8 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -151,5 +151,5 @@ SUBROUTINE BD_BAROR ( CARD ) 1192 FORMAT(' *ERROR 1192: ID IN FIELD ',I3,' OF ',A,A,' MUST BE ',A,' BUT IS = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_BAROR diff --git a/Source/LK1/L1A-BD/BD_BAROR0.f90 b/Source/LK1/L1A-BD/BD_BAROR0.f90 index 87602329..8612f2ca 100644 --- a/Source/LK1/L1A-BD/BD_BAROR0.f90 +++ b/Source/LK1/L1A-BD/BD_BAROR0.f90 @@ -1,68 +1,68 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_BAROR0 ( CARD ) - + ! Processes BAROR Bulk Data Card to increment LVVEC if the BAROR card ! has a V vector. Also, determine type of V vector is on this BAROR card. ! When this subr finishes, BAROR_VVEC_TYPE will be either: ! a) 'VECTOR ' means this BAROR card had V vector in fields 6-8 ! b) 'GRID ' means this BAROR card had an integer in field 6 -! and blank fields 7 and 8 (indicating a grid for V vector). +! and blank fields 7 and 8 (indicating a grid for V vector). ! c) 'UNDEFINED' means this BAROR card had blank fields 6, 7 and 8 ! d) 'ERROR ' means anything but (a), (b), or (c). Subr BD_BAROR will print error - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF, LVVEC, NBAROR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : BAROR_PID, BAROR_G0, BAROR_VV, BAROR_VVEC_TYPE, JBAROR - + USE BD_BAROR0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_BAROR0' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: I4INP = 0 ! A value read from input file that should be an integer value INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: JERR = 0 ! A local error count - + REAL(DOUBLE) :: R8INP ! A value read from input file that should be a real value ! ********************************************************************************************************************************** ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Count the number of BAROR cards. The count will be checked to make sure that there is no more than 1 in subr LOADB NBAROR = NBAROR + 1 @@ -74,7 +74,7 @@ SUBROUTINE BD_BAROR0 ( CARD ) DO J=1,10 ! Set JBAROR to JCARD. We need JBAROR(3) (the prop ID) in subr ELEPRO JBAROR(J) = JCARD(J) - ENDDO + ENDDO IF (JCARD(3)(1:) /= ' ') THEN CALL I4FLD ( JCARD(3), JF(3), I4INP ) @@ -107,7 +107,7 @@ SUBROUTINE BD_BAROR0 ( CARD ) ENDIF ENDDO IF (JERR /= 0) THEN - BAROR_VVEC_TYPE = 'ERROR ' ! Found err in V vector components, so reset BAROR_VVEC_TYPE to 'ERROR' + BAROR_VVEC_TYPE = 'ERROR ' ! Found err in V vector components, so reset BAROR_VVEC_TYPE to 'ERROR' ENDIF ELSE ! Check to see if there is a grid no. for specifying VVEC @@ -136,7 +136,7 @@ SUBROUTINE BD_BAROR0 ( CARD ) ENDIF ENDIF - + ENDIF @@ -144,5 +144,5 @@ SUBROUTINE BD_BAROR0 ( CARD ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_BAROR0 diff --git a/Source/LK1/L1A-BD/BD_BEAMOR.f90 b/Source/LK1/L1A-BD/BD_BEAMOR.f90 index ab9c94ad..d2e2be00 100644 --- a/Source/LK1/L1A-BD/BD_BEAMOR.f90 +++ b/Source/LK1/L1A-BD/BD_BEAMOR.f90 @@ -1,41 +1,41 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_BEAMOR ( CARD ) - + ! Processes BEAMOR Bulk Data Cards. Reads and checks the property ID, if present, and the V vector, ! if present. The BEAMOR V vector type (BEAMOR_VVEC_TYPE) was determined in subr BEAMOR0 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LVVEC, NBEAMOR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : BEAMOR_VVEC_TYPE, BEAMOR_G0, BEAMOR_VV, BEAMOR_PID - + USE BD_BEAMOR_USE_IFs IMPLICIT NONE @@ -43,12 +43,12 @@ SUBROUTINE BD_BEAMOR ( CARD ) CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_BEAMOR' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: I4INP ! A value read from input file that should be an integer value INTEGER(LONG) :: PGM_ERR = 0 ! A count of the number of coding errors - + REAL(DOUBLE) :: EPS1 ! A small value to compare zero to REAL(DOUBLE) :: R8INP ! A value read from input file that should be a real value @@ -56,18 +56,18 @@ SUBROUTINE BD_BEAMOR ( CARD ) ! ********************************************************************************************************************************** ! BEAMOR Bulk Data Card routine - -! FIELD ITEM -! ----- ------------ -! 3 Property ID -! 6-8 V-Vector -! + +! FIELD ITEM +! ----- ------------ +! 3 Property ID +! 6-8 V-Vector +! EPS1 = EPSIL(1) ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Read and check data IF (JCARD(3)(1:) /= ' ') THEN ! Read prop ID @@ -75,8 +75,8 @@ SUBROUTINE BD_BEAMOR ( CARD ) IF (IERRFL(3) == 'N') THEN IF (I4INP /= BEAMOR_PID) THEN PGM_ERR = PGM_ERR + 1 ! Coding error: This value doesn't agree with that read in LOADB0 - WRITE(ERR,11851) SUBR_NAME, JF(3), JCARD(1), BEAMOR_PID, I4INP - WRITE(F06,11851) SUBR_NAME, JF(3), JCARD(1), BEAMOR_PID, I4INP + WRITE(ERR,11851) SUBR_NAME, JF(3), JCARD(1), BEAMOR_PID, I4INP + WRITE(F06,11851) SUBR_NAME, JF(3), JCARD(1), BEAMOR_PID, I4INP ENDIF IF (I4INP <= 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -94,19 +94,19 @@ SUBROUTINE BD_BEAMOR ( CARD ) IF (IERRFL(J+5) == 'N') THEN IF (DABS(R8INP - BEAMOR_VV(J)) > EPS1) THEN PGM_ERR = PGM_ERR + 1 ! Coding error: This value doesn't agree with that read in LOADB0 - WRITE(ERR,11852) SUBR_NAME, JF(J+5), JCARD(1), BEAMOR_VV(J), R8INP - WRITE(F06,11852) SUBR_NAME, JF(J+5), JCARD(1), BEAMOR_VV(J), R8INP + WRITE(ERR,11852) SUBR_NAME, JF(J+5), JCARD(1), BEAMOR_VV(J), R8INP + WRITE(F06,11852) SUBR_NAME, JF(J+5), JCARD(1), BEAMOR_VV(J), R8INP ENDIF ENDIF - ENDIF + ENDIF ENDDO ELSE IF (BEAMOR_VVEC_TYPE == 'GRID ') THEN CALL I4FLD ( JCARD(6), JF(6), I4INP ) IF (IERRFL(6) == 'N') THEN IF (I4INP /= BEAMOR_G0) THEN PGM_ERR = PGM_ERR + 1 ! Coding error: This value doesn't agree with that read in LOADB0 - WRITE(ERR,11851) SUBR_NAME, JF(6), JCARD(1), BEAMOR_G0, I4INP - WRITE(F06,11851) SUBR_NAME, JF(6), JCARD(1), BEAMOR_G0, I4INP + WRITE(ERR,11851) SUBR_NAME, JF(6), JCARD(1), BEAMOR_G0, I4INP + WRITE(F06,11851) SUBR_NAME, JF(6), JCARD(1), BEAMOR_G0, I4INP ENDIF IF (I4INP <= 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -119,7 +119,7 @@ SUBROUTINE BD_BEAMOR ( CARD ) WRITE(ERR,1102) WRITE(F06,1102) ENDIF - + CALL CARD_FLDS_NOT_BLANK ( JCARD,2,0,4,5,0,0,0,9 ) ! Issue warning if fields 2, 4, 5, 9 are not blank CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,6,7,8,0 ) ! Make sure that there are no imbedded blanks in fields 3, 6-8 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -151,5 +151,5 @@ SUBROUTINE BD_BEAMOR ( CARD ) 1192 FORMAT(' *ERROR 1192: ID IN FIELD ',I3,' OF ',A,A,' MUST BE ',A,' BUT IS = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_BEAMOR diff --git a/Source/LK1/L1A-BD/BD_BEAMOR0.f90 b/Source/LK1/L1A-BD/BD_BEAMOR0.f90 index 25de48fb..1b594f31 100644 --- a/Source/LK1/L1A-BD/BD_BEAMOR0.f90 +++ b/Source/LK1/L1A-BD/BD_BEAMOR0.f90 @@ -1,68 +1,68 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_BEAMOR0 ( CARD ) - + ! Processes BEAMOR Bulk Data Card to increment LVVEC if the BEAMOR card ! has a V vector. Also, determine type of V vector is on this BEAMOR card. ! When this subr finishes, BEAMOR_VVEC_TYPE will be either: ! a) 'VECTOR ' means this BEAMOR card had V vector in fields 6-8 ! b) 'GRID ' means this BEAMOR card had an integer in field 6 -! and blank fields 7 and 8 (indicating a grid for V vector). +! and blank fields 7 and 8 (indicating a grid for V vector). ! c) 'UNDEFINED' means this BEAMOR card had blank fields 6, 7 and 8 ! d) 'ERROR ' means anything but (a), (b), or (c). Subr BD_BEAMOR will print error - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF, LVVEC, NBEAMOR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : BEAMOR_PID, BEAMOR_G0, BEAMOR_VV, BEAMOR_VVEC_TYPE, JBEAMOR - + USE BD_BEAMOR0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_BEAMOR0' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: I4INP = 0 ! A value read from input file that should be an integer value INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: JERR = 0 ! A local error count - + REAL(DOUBLE) :: R8INP ! A value read from input file that should be a real value ! ********************************************************************************************************************************** ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Count the number of BEAMOR cards. The count will be checked to make sure that there is no more than 1 in subr LOADB NBEAMOR = NBEAMOR + 1 @@ -74,7 +74,7 @@ SUBROUTINE BD_BEAMOR0 ( CARD ) DO J=1,10 ! Set JBEAMOR to JCARD. We need JBEAMOR(3) (the prop ID) in subr ELEPRO JBEAMOR(J) = JCARD(J) - ENDDO + ENDDO IF (JCARD(3)(1:) /= ' ') THEN CALL I4FLD ( JCARD(3), JF(3), I4INP ) @@ -107,7 +107,7 @@ SUBROUTINE BD_BEAMOR0 ( CARD ) ENDIF ENDDO IF (JERR /= 0) THEN - BEAMOR_VVEC_TYPE = 'ERROR ' ! Found err in V vec components, so reset BEAMOR_VVEC_TYPE to 'ERROR' + BEAMOR_VVEC_TYPE = 'ERROR ' ! Found err in V vec components, so reset BEAMOR_VVEC_TYPE to 'ERROR' ENDIF ELSE ! Check to see if there is a grid no. for specifying VVEC @@ -136,7 +136,7 @@ SUBROUTINE BD_BEAMOR0 ( CARD ) ENDIF ENDIF - + ENDIF @@ -144,5 +144,5 @@ SUBROUTINE BD_BEAMOR0 ( CARD ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_BEAMOR0 diff --git a/Source/LK1/L1A-BD/BD_CBAR.f90 b/Source/LK1/L1A-BD/BD_CBAR.f90 index df05d86f..c3f0d331 100644 --- a/Source/LK1/L1A-BD/BD_CBAR.f90 +++ b/Source/LK1/L1A-BD/BD_CBAR.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) - + ! Processes CBAR and CBEAM Bulk Data Cards: USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -40,7 +40,7 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) USE BD_CBAR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CBAR' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -52,8 +52,8 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN=JCARD_LEN) :: JCARD_EDAT(10) ! JCARD values sent to subr ELEPRO CHARACTER(LEN=JCARD_LEN) :: JCARDO ! An output from subr IP6CHK called herein - CHARACTER( 9*BYTE) :: VVEC_TYPE ! Type of V vector on this CBAR/CBEAM - + CHARACTER( 9*BYTE) :: VVEC_TYPE ! Type of V vector on this CBAR/CBEAM + INTEGER(LONG) :: G0 = 0 ! Grid specifying V vector for this CBAR/CBEAM, if input INTEGER(LONG) :: I4INP = 0 ! A value read from input file that should be an integer value INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC @@ -63,18 +63,18 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) INTEGER(LONG) :: JERR = 0 ! A local error count INTEGER(LONG) :: VVEC_NUM = 0 ! V vector number - + REAL(DOUBLE) :: VV(3) ! The 3 components of the V vector for this CBAR/CBEAM elem REAL(DOUBLE) :: EPS1 ! A small number to compare real zero REAL(DOUBLE) :: R8INP = ZERO ! A value read from input file that should be a real value - + INTRINSIC :: DABS ! ********************************************************************************************************************************** ! CBAR element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 1 Element type ETYPE(nele) =B1 for CBAR @@ -89,15 +89,15 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) ! 3 Pin Flag B EDAT(nedat+7) ! 4-9 Offsets (see BAROFF explanation below) ! Offset key goes in EDAT(nedat+8) - + ! NOTES: - + ! If fields 3, 6-8 are blank, they are loaded with the data from the BAROR/BEAMOR entry (these will remain blank if ! no BAROR/BEAMOR card exists). If V-vector is specfied via a grid point then EDAT(nedat+5) is set to that grid number. ! If V-vector is specified via an actual vector, the vector is loaded into array VVEC(NVVEC,J) (J=1,2,3) unless ! a vector equal to it has been put in VVEC. EDAT(nedat+5) is set equal to -NVVEC, where NVVEC is the row number ! in array VVEC. - + ! Offsets are in fields 4 - 9 of the first continuation card. If there are any offsets for this element, they are written to ! array BAROFF in row NBAROFF and NBAROFF is written in EDAT(nedat+8). If there are no offsets for this element, a zero is entered ! in array EDAT(nedat+8). @@ -107,27 +107,27 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) BAR_OR_BEAM = JCARD(1) ELID = JCARD(2) - + ! Set JCARD_EDAT to JCARD DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Initialize variables VVEC_TYPE = 'UNDEFINED' - ! Check property ID field. Set to BAROR prop ID, if present, or to this elem ID, if not + ! Check property ID field. Set to BAROR prop ID, if present, or to this elem ID, if not IF (JCARD(3)(1:) == ' ') THEN ! Prop ID field is blank, so use one of the following: IF (BAR_OR_BEAM(1:4) == 'CBAR') THEN IF (BAROR_PID /= 0) THEN ! Use BAROR prop ID for this CBAR prop ID JCARD_EDAT(3) = JBAROR(3) - ELSE ! Use CBAR elem ID for this CBAR prop ID + ELSE ! Use CBAR elem ID for this CBAR prop ID JCARD_EDAT(3) = JCARD(2) ENDIF ELSE IF (BEAMOR_PID /= 0) THEN ! Use BEAMOR prop ID for this CBEAM prop ID JCARD_EDAT(3) = JBEAMOR(3) - ELSE ! Use CBEAM elem ID for this CBEAM prop ID + ELSE ! Use CBEAM elem ID for this CBEAM prop ID JCARD_EDAT(3) = JCARD(2) ENDIF ENDIF @@ -146,13 +146,13 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) ! Get the V vector for this CBAR/CBEAM (either from this CBAR/CBEAM or from BAROR/BEAMOR values, if present) ! Null all components. Some may be read from CBAR card - DO J=1,3 + DO J=1,3 VV(J) = ZERO ENDDO IF (BAR_OR_BEAM(1:4) == 'CBAR') THEN IF (NBAROR > 0) THEN ! Set VVEC fields to BAROR values if this CBAR's VVEC fields are blank - IF ((JCARD(6)(1:) == ' ') .AND. (JCARD(7)(1:) == ' ') .AND. (JCARD(8)(1:) == ' ')) THEN + IF ((JCARD(6)(1:) == ' ') .AND. (JCARD(7)(1:) == ' ') .AND. (JCARD(8)(1:) == ' ')) THEN IF (BAROR_VVEC_TYPE == 'GRID ') THEN VVEC_TYPE = 'BAROR_GRD' G0 = BAROR_G0 @@ -162,12 +162,12 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) VV(J) = BAROR_VV(J) ENDDO ENDIF ! We checked on BAROR_VVEC_TYPE = 'ERROR' in subr BD_BAROR and we will - ENDIF ! check case where fields 6, 7, 8 are blank below + ENDIF ! check case where fields 6, 7, 8 are blank below ENDIF ELSE IF (NBEAMOR > 0) THEN ! Set VVEC fields to BEAMOR values if this CBEAM's VVEC fields are blank - IF ((JCARD(6)(1:) == ' ') .AND. (JCARD(7)(1:) == ' ') .AND. (JCARD(8)(1:) == ' ')) THEN + IF ((JCARD(6)(1:) == ' ') .AND. (JCARD(7)(1:) == ' ') .AND. (JCARD(8)(1:) == ' ')) THEN IF (BEAMOR_VVEC_TYPE == 'GRID ') THEN VVEC_TYPE = 'BEAMOR_GRD' G0 = BEAMOR_G0 @@ -177,11 +177,11 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) VV(J) = BEAMOR_VV(J) ENDDO ENDIF ! We checked on BEAMOR_VVEC_TYPE = 'ERROR' in subr BD_BEAMOR and we will - ENDIF ! check case where fields 6, 7, 8 are blank below + ENDIF ! check case where fields 6, 7, 8 are blank below ENDIF - ENDIF + ENDIF - IF (VVEC_TYPE == 'UNDEFINED') THEN ! We did not find a V vector so look for one on this CBAR/CBEAM + IF (VVEC_TYPE == 'UNDEFINED') THEN ! We did not find a V vector so look for one on this CBAR/CBEAM DO J=1,JCARD_LEN ! See if there is an actual V vector. IF ((JCARD(6)(J:J) == '.') .OR. (JCARD(7)(J:J) == '.') .OR. (JCARD(8)(J:J) == '.')) THEN VVEC_TYPE = 'VECTOR ' @@ -201,11 +201,11 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) ENDIF ENDDO IF (JERR /= 0) THEN - VVEC_TYPE = 'ERROR ' ! Found error in V vector components, so reset VVEC_TYPE + VVEC_TYPE = 'ERROR ' ! Found error in V vector components, so reset VVEC_TYPE ENDIF ELSE ! Check to see if there is a grid no. for specifying VVEC IF ((JCARD(6)(1:) /= ' ') .AND. (JCARD(7)(1:) == ' ') .AND. (JCARD(8)(1:) == ' ')) THEN - VVEC_TYPE = 'GRID ' + VVEC_TYPE = 'GRID ' CALL I4FLD ( JCARD(6), JF(6), I4INP ) IF (IERRFL(6) == 'N') THEN G0 = I4INP @@ -250,7 +250,7 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) ENDIF ENDDO - IF (FOUND == 'N') THEN + IF (FOUND == 'N') THEN NVVEC = NVVEC + 1 IF (NVVEC > LVVEC) THEN FATAL_ERR = FATAL_ERR + 1 @@ -267,12 +267,12 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) NEDAT = NEDAT + 1 EDAT(NEDAT) = -VVEC_NUM ENDIF - + ! Write warnings and errors if any CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,0 ) ! Make sure that there are no imbedded blanks in fields 2-8 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,0,9 ) - CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields + ! Optional Second Card: IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC ( CARD, ICONT, IERR ) @@ -348,14 +348,14 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** 1130 FORMAT(' *ERROR 1130: INVALID PINFLAG = ',A,' IN FIELD ',I2,' ON CONTINUATION ENTRY OF ',A,' ID = ',A & - ,/,14X,' PINFLAGS CAN CONTAIN ONLY DIGITS 1-6') + ,/,14X,' PINFLAGS CAN CONTAIN ONLY DIGITS 1-6') 1132 FORMAT(' *ERROR 1132: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY V VECTORS. LIMIT IS ',I8) - + 1161 FORMAT(' *ERROR 1161: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' TOO MANY CBAR/CBEAM OFFSETS. LIMIT IS ',I8) - + ,/,14X,' TOO MANY CBAR/CBEAM OFFSETS. LIMIT IS ',I8) + 1186 FORMAT(' *ERROR 1186: ERROR IN SPECIFYING V VECTOR ON ',A,A,'. EITHER FIELD 6 MUST BE A POSITIVE INTEGER GRID POINT' & ,/,14X,' OR FIELDS 6, 7, 8 MUST CONTAIN REAL VECTOR COMPONENTS (WITH DECIMAL POINTS)') @@ -364,5 +364,5 @@ SUBROUTINE BD_CBAR ( CARD, LARGE_FLD_INP ) 1188 FORMAT(' *ERROR 1188: NO V VECTOR SPECIFIED FOR ',A,' ELEMENT ID = ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CBAR diff --git a/Source/LK1/L1A-BD/BD_CBAR0.f90 b/Source/LK1/L1A-BD/BD_CBAR0.f90 index 60fffa56..922d6285 100644 --- a/Source/LK1/L1A-BD/BD_CBAR0.f90 +++ b/Source/LK1/L1A-BD/BD_CBAR0.f90 @@ -1,63 +1,63 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CBAR0 ( CARD, LARGE_FLD_INP ) - + ! Processes CBAR or CBEAM Bulk Data Cards to increment LVVEC and LBAROFF if the CBAR or CBEAM entry has a V vector or offsets - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, LBAROFF, LVVEC USE TIMDAT, ONLY : TSEC - + USE BD_CBAR0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CBAR0' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER( 1*BYTE) :: FND_VVEC ! Indicator of whether there is an actual V vec on this CBAR card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: J INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + ! ********************************************************************************************************************************** ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! See if there is an actual V vector (not a grid point). If so, increment LVVEC - - FND_VVEC = 'N' + + FND_VVEC = 'N' DO J=1,JCARD_LEN IF ((JCARD(6)(J:J) == '.') .OR. (JCARD(7)(J:J) == '.') .OR. (JCARD(8)(J:J) == '.')) THEN FND_VVEC = 'Y' @@ -67,9 +67,9 @@ SUBROUTINE BD_CBAR0 ( CARD, LARGE_FLD_INP ) IF (FND_VVEC == 'Y') THEN LVVEC = LVVEC + 1 ENDIF - + ! Optional Second Card - see if there are any offsets. If so, increment LBAROFF - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC0 ( CARD, ICONT, IERR ) ELSE @@ -83,11 +83,11 @@ SUBROUTINE BD_CBAR0 ( CARD, LARGE_FLD_INP ) LBAROFF = LBAROFF + 1 ENDIF ENDIF - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CBAR0 diff --git a/Source/LK1/L1A-BD/BD_CBUSH.f90 b/Source/LK1/L1A-BD/BD_CBUSH.f90 index 3acefa6f..4f89d6c1 100644 --- a/Source/LK1/L1A-BD/BD_CBUSH.f90 +++ b/Source/LK1/L1A-BD/BD_CBUSH.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BD_CBUSH ( CARD, LARGE_FLD_INP ) @@ -50,7 +50,7 @@ SUBROUTINE BD_CBUSH ( CARD, LARGE_FLD_INP ) CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of 8 characters making up CARD CHARACTER(LEN=JCARD_LEN) :: JCARD_EDAT(10) ! JCARD values sent to subr ELEPRO CHARACTER(LEN=JCARD_LEN) :: NAME ! Name of this entry (field 1) - CHARACTER( 9*BYTE) :: VVEC_TYPE ! Type of V vector on this CBUSH + CHARACTER( 9*BYTE) :: VVEC_TYPE ! Type of V vector on this CBUSH INTEGER(LONG) :: CID ! Coord sys ID for v vector (required under some circumstances) INTEGER(LONG) :: G0 = 0 ! Grid specifying V vector for this CBUSH, if input @@ -84,7 +84,7 @@ SUBROUTINE BD_CBUSH ( CARD, LARGE_FLD_INP ) ! 4 Grid A EDAT(nedat+4) ! 5 Grid B EDAT(nedat+5) ! 6-8 V-Vector EDAT(nedat+6) (see VVEC explanation below) -! 9 CID EDAT(nedat+7) Elem coord sys identification. 0 is basic. blank means to use G0 or X1,2,3 +! 9 CID EDAT(nedat+7) Elem coord sys identification. 0 is basic. blank means to use G0 or X1,2,3 ! on optional second card: ! 2 S Location of spring/damper (def = 0.5). This is a relative distance = offset/BUSH length @@ -114,7 +114,7 @@ SUBROUTINE BD_CBUSH ( CARD, LARGE_FLD_INP ) DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Check property ID field. Set to EID if blank @@ -167,11 +167,11 @@ SUBROUTINE BD_CBUSH ( CARD, LARGE_FLD_INP ) ENDIF ENDDO IF (JERR /= 0) THEN - VVEC_TYPE = 'ERROR ' ! Found error in V vector components, so reset VVEC_TYPE + VVEC_TYPE = 'ERROR ' ! Found error in V vector components, so reset VVEC_TYPE ENDIF ELSE ! Check to see if there is a grid no. for specifying VVEC IF ((JCARD(6)(1:) /= ' ') .AND. (JCARD(7)(1:) == ' ') .AND. (JCARD(8)(1:) == ' ')) THEN - VVEC_TYPE = 'GRID ' + VVEC_TYPE = 'GRID ' CALL I4FLD ( JCARD(6), JF(6), I4INP ) IF (IERRFL(6) == 'N') THEN G0 = I4INP @@ -200,7 +200,7 @@ SUBROUTINE BD_CBUSH ( CARD, LARGE_FLD_INP ) ! Load V vector data into EDAT and into VVEC, if not already there IF (VVEC_TYPE == 'GRID ') THEN - EDAT(NEDAT_START+6) = G0 ! --- Slot 6 in EDAT is VVEC defined by grid G0 + EDAT(NEDAT_START+6) = G0 ! --- Slot 6 in EDAT is VVEC defined by grid G0 ELSE IF (VVEC_TYPE == 'VECTOR ') THEN @@ -214,7 +214,7 @@ SUBROUTINE BD_CBUSH ( CARD, LARGE_FLD_INP ) ENDIF ENDDO - IF (FOUND == 'N') THEN + IF (FOUND == 'N') THEN NVVEC = NVVEC + 1 IF (NVVEC > LVVEC) THEN FATAL_ERR = FATAL_ERR + 1 @@ -267,7 +267,7 @@ SUBROUTINE BD_CBUSH ( CARD, LARGE_FLD_INP ) ! Write warnings and errors for parent entry, if any CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 - CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields + CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields ! Optional Second Card: NOTE: The offset on this entry is relative to grid A and has only 3 components. ! The offset from grid B will be to the same location in space as where the offset from grid A is (since the CBUSH is a zero @@ -378,7 +378,7 @@ SUBROUTINE BD_CBUSH ( CARD, LARGE_FLD_INP ) 1188 FORMAT(' *ERROR 1188: NO V VECTOR SPECIFIED FOR ',A,' ELEMENT ID = ',A) 1189 FORMAT(' *ERROR 1189: ',A,A,' MUST HAVE NON-NEGATIVE VALUE FOR CID IF FIELD ',I2,' IS NOT BLANK. VALUE READ WAS ',I8) - + diff --git a/Source/LK1/L1A-BD/BD_CBUSH0.f90 b/Source/LK1/L1A-BD/BD_CBUSH0.f90 index 2fd44e81..091286a5 100644 --- a/Source/LK1/L1A-BD/BD_CBUSH0.f90 +++ b/Source/LK1/L1A-BD/BD_CBUSH0.f90 @@ -1,63 +1,63 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CBUSH0 ( CARD, LARGE_FLD_INP ) - + ! Processes CBUSH Bulk Data Cards to increment LVVEC and LBUSHOFF if the CBUSH entry has a V vector or offsets - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, LBUSHOFF, LVVEC USE TIMDAT, ONLY : TSEC - + USE BD_CBUSH0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CBUSH0' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER( 1*BYTE) :: FND_VVEC ! Indicator of whether there is an actual V vec on this CBUSH card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: J INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + ! ********************************************************************************************************************************** ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! See if there is an actual V vector (not a grid point). If so, increment LVVEC - - FND_VVEC = 'N' + + FND_VVEC = 'N' DO J=1,JCARD_LEN IF ((JCARD(6)(J:J) == '.') .OR. (JCARD(7)(J:J) == '.') .OR. (JCARD(8)(J:J) == '.')) THEN FND_VVEC = 'Y' @@ -67,9 +67,9 @@ SUBROUTINE BD_CBUSH0 ( CARD, LARGE_FLD_INP ) IF (FND_VVEC == 'Y') THEN LVVEC = LVVEC + 1 ENDIF - + ! Optional Second Card - see if there are any offsets. If so, increment LBUSHOFF - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC0 ( CARD, ICONT, IERR ) ELSE @@ -86,11 +86,11 @@ SUBROUTINE BD_CBUSH0 ( CARD, LARGE_FLD_INP ) LBUSHOFF = LBUSHOFF + 1 ! This adds one more that may not be needed ENDIF ENDIF - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CBUSH0 diff --git a/Source/LK1/L1A-BD/BD_CELAS1.f90 b/Source/LK1/L1A-BD/BD_CELAS1.f90 index fd5cfec3..96f8c932 100644 --- a/Source/LK1/L1A-BD/BD_CELAS1.f90 +++ b/Source/LK1/L1A-BD/BD_CELAS1.f90 @@ -1,60 +1,60 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CELAS1 ( CARD ) - + ! Processes CELAS1 Bulk Data Cards ! 1) Sets ETYPE for this element type ! 2) Calls subr ELEPRO to read element ID, property ID and connection data into array EDAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, MEDAT_CELAS1, NCELAS1, NELE, NEDAT USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE - + USE BD_CELAS1_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CELAS1' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: CELAS_ELID ! Field 2 of CELAS1 card (this CELAS1's elem ID) CHARACTER(LEN(JCARD)) :: JCARD_EDAT(10) ! JCARD but with fields 5 and 6 switched to get G.P.'s together in EDAT - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IDOF ! Displ component (1,2,3,4,5 or 6) that one end of CELSA conn. to - + ! ********************************************************************************************************************************** ! CELAS1 scalar spring element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 1 Element type ETYPE(nele) =E1 for CELAS1 @@ -64,36 +64,36 @@ SUBROUTINE BD_CELAS1 ( CARD ) ! 5 Comp-A EDAT(nedat+5) ! 6 Grid-B EDAT(nedat+4) ! 7 Comp-B EDAT(nedat+6) - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) CELAS_ELID = JCARD(2) - + ! Make JCARD_EDAT, which is the version that will have JCARD fields 5, 6 switched when subr ELEPRO called DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Check property ID field. Set to element ID if blank - + IF (JCARD(3)(1:) == ' ') THEN JCARD_EDAT(3) = JCARD(2) ENDIF ! Flip Comp-A and Grid-B in JCARD_EDAT so when ELEPRO runs it will have Grid-A and Grid-B back-to-back - + JCARD_EDAT(5) = JCARD(6) JCARD_EDAT(6) = JCARD(5) CALL ELEPRO ( 'Y', JCARD_EDAT, 6, MEDAT_CELAS1, 'Y', 'Y', 'Y', 'Y', 'N', 'N', 'N', 'N' ) NCELAS1 = NCELAS1+1 ETYPE(NELE) = 'ELAS1 ' - + ! Check to make sure that numbers in fields 5 and 7 are valid component numbers - + IF (IERRFL(JF(5)) == 'N') THEN CALL I4FLD ( JCARD(5), JF(5), IDOF ) IF ((IDOF <= 0) .OR. (IDOF > 6)) THEN @@ -102,7 +102,7 @@ SUBROUTINE BD_CELAS1 ( CARD ) WRITE(F06,1133) IDOF, JF(5), CELAS_ELID ENDIF ENDIF - + IF (IERRFL(JF(7)) == 'N') THEN CALL I4FLD ( JCARD(7), JF(7), IDOF ) IF ((IDOF <= 0) .OR. (IDOF > 6)) THEN @@ -111,13 +111,13 @@ SUBROUTINE BD_CELAS1 ( CARD ) WRITE(F06,1133) IDOF, JF(7), CELAS_ELID ENDIF ENDIF - + ! Issue warning if fields 8, 9 are not blank CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-7 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,8,9 ) ! Issue warning if fields 8, 9 are not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN @@ -126,5 +126,5 @@ SUBROUTINE BD_CELAS1 ( CARD ) 1133 FORMAT(' *ERROR 1133: INVALID COMPONEMT NUMBER = ',I8,' IN FIELD ',I2,' ON CELAS1 ID = ',A8,' .MUST BE SINGLE DIGIT 1-6') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CELAS1 diff --git a/Source/LK1/L1A-BD/BD_CELAS2.f90 b/Source/LK1/L1A-BD/BD_CELAS2.f90 index 1a9aa9b0..4054627b 100644 --- a/Source/LK1/L1A-BD/BD_CELAS2.f90 +++ b/Source/LK1/L1A-BD/BD_CELAS2.f90 @@ -1,65 +1,65 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CELAS2 ( CARD ) - + ! Processes CELAS2 Bulk Data Cards ! 1) Sets ETYPE for this element type ! 2) Calls subr ELEPRO to read element ID, property ID and connection data into array EDAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, MEDAT_CELAS2, NCELAS2, NELE, NEDAT, NPELAS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE, PELAS, RPELAS - + USE BD_CELAS2_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CELAS2' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: CELAS_ELID ! Field 2 of CELAS2 card (this CELAS2's elem ID) CHARACTER(LEN(JCARD)) :: JCARD_EDAT(10) ! JCARD but with fields 5 and 6 switched to get G.P.'s together in EDAT - + INTEGER(LONG) :: ELEM_ID ! Elem ID from field 2 INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: I4INP ! An integer read INTEGER(LONG) :: IDOF ! Displ component (1,2,3,4,5 or 6) that one end of CELSA conn. to INTEGER(LONG) :: IERR ! Error count - + REAL(DOUBLE) :: R8INP ! A real value read ! ********************************************************************************************************************************** ! CELAS2 scalar spring element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 1 Element type ETYPE(nele) =E1 for CELAS2 @@ -74,9 +74,9 @@ SUBROUTINE BD_CELAS2 ( CARD ) ! none Prop ID, PID EDAT(nedat,2) (created: PID = -EID) ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! First, check that fields 2-9 have the proper data type (we are going to have to rearrange the fields prior to calling ELEPRO). ! If any erors, return @@ -114,7 +114,7 @@ SUBROUTINE BD_CELAS2 ( CARD ) DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Now change JCARD(3) to be a property ID so that subr ELEPRO will handle EDAT data correctly. We want PID = -EID but we send ! JCARD(3) = JCARD(2) (which has PID = EID) to ELEPRO. When ELEPRO returns change term in EDAT for PID to be -PID (i.e. PID = -EID) @@ -122,20 +122,20 @@ SUBROUTINE BD_CELAS2 ( CARD ) JCARD_EDAT(3) = JCARD_EDAT(2) ! Flip Comp-A and Grid-B in JCARD_EDAT so when ELEPRO runs it will have Grid-A and Grid-B back-to-back - + JCARD_EDAT(5) = JCARD(6) JCARD_EDAT(6) = JCARD(5) ! Do not check fields. That was already done above CALL ELEPRO ( 'Y', JCARD_EDAT, 6, MEDAT_CELAS2, 'N', 'N', 'N', 'N', 'N', 'N', 'N', 'N' ) NCELAS2 = NCELAS2+1 ETYPE(NELE) = 'ELAS2 ' - + ! Now change PID in EDAT to -PID - EDAT(NEDAT-4) = -EDAT(NEDAT-4) + EDAT(NEDAT-4) = -EDAT(NEDAT-4) ! Check to make sure that numbers in fields 5 and 7 are valid component numbers - + IF (IERRFL(JF(5)) == 'N') THEN CALL I4FLD ( JCARD(5), JF(5), IDOF ) IF ((IDOF <= 0) .OR. (IDOF > 6)) THEN @@ -144,7 +144,7 @@ SUBROUTINE BD_CELAS2 ( CARD ) WRITE(F06,1133) IDOF,JF(5),CELAS_ELID ENDIF ENDIF - + IF (IERRFL(JF(7)) == 'N') THEN CALL I4FLD ( JCARD(7), JF(7), IDOF ) IF ((IDOF <= 0) .OR. (IDOF > 6)) THEN @@ -153,10 +153,10 @@ SUBROUTINE BD_CELAS2 ( CARD ) WRITE(F06,1133) IDOF,JF(7),CELAS_ELID ENDIF ENDIF - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-7 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN @@ -165,5 +165,5 @@ SUBROUTINE BD_CELAS2 ( CARD ) 1133 FORMAT(' *ERROR 1133: INVALID COMPONEMT NUMBER = ',I8,' IN FIELD ',I2,' ON CELAS2 ID = ',A8,' .MUST BE SINGLE DIGIT 1-6') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CELAS2 diff --git a/Source/LK1/L1A-BD/BD_CELAS3.f90 b/Source/LK1/L1A-BD/BD_CELAS3.f90 index e7c198ea..202d8f4a 100644 --- a/Source/LK1/L1A-BD/BD_CELAS3.f90 +++ b/Source/LK1/L1A-BD/BD_CELAS3.f90 @@ -1,58 +1,58 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CELAS3 ( CARD ) - + ! Processes CELAS3 Bulk Data Cards ! 1) Sets ETYPE for this element type ! 2) Calls subr ELEPRO to read element ID, property ID and connection data into array EDAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, MEDAT_CELAS3, NCELAS3, NELE, NEDAT USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE - + USE BD_CELAS3_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CELAS3' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARD_EDAT(10) ! JCARD but with fields 5 and 6 switched to get G.P.'s together in EDAT - + INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** ! CELAS3 scalar spring element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 1 Element type ETYPE(nele) =E1 for CELAS3 @@ -60,20 +60,20 @@ SUBROUTINE BD_CELAS3 ( CARD ) ! 3 Property ID EDAT(nedat+2) ! 4 Scalar point A EDAT(nedat+3) ! 5 Scalar point B EDAT(nedat+5) - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Make JCARD_EDAT, which is the version that will have JCARD fields 5, 6 switched when subr ELEPRO called DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Check property ID field. Set to element ID if blank - + IF (JCARD(3)(1:) == ' ') THEN JCARD_EDAT(3) = JCARD(2) ENDIF @@ -81,17 +81,17 @@ SUBROUTINE BD_CELAS3 ( CARD ) CALL ELEPRO ( 'Y', JCARD_EDAT, 4, MEDAT_CELAS3, 'Y', 'Y', 'Y', 'Y', 'Y', 'Y', 'N', 'N' ) NCELAS3 = NCELAS3+1 ETYPE(NELE) = 'ELAS3 ' - + ! Issue warning if fields 6-9 are not blank CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-7 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,6,7,8,9 ) ! Issue warning if fields 6-9 are not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CELAS3 diff --git a/Source/LK1/L1A-BD/BD_CELAS4.f90 b/Source/LK1/L1A-BD/BD_CELAS4.f90 index d54f8758..18d87df8 100644 --- a/Source/LK1/L1A-BD/BD_CELAS4.f90 +++ b/Source/LK1/L1A-BD/BD_CELAS4.f90 @@ -1,63 +1,63 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CELAS4 ( CARD ) - + ! Processes CELAS4 Bulk Data Cards ! 1) Sets ETYPE for this element type ! 2) Calls subr ELEPRO to read element ID, property ID and connection data into array EDAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, MEDAT_CELAS4, NCELAS4, NELE, NEDAT, NPELAS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE, PELAS, RPELAS - + USE BD_CELAS4_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CELAS4' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARD_EDAT(10) ! JCARD but with fields 5 and 6 switched to get G.P.'s together in EDAT - + INTEGER(LONG) :: ELEM_ID ! Elem ID from field 2 INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: I4INP ! Integer value read from a field of the CELAS4 entry INTEGER(LONG) :: IERR ! Error count - + REAL(DOUBLE) :: R8INP ! Real value read from a field on the PSHEAR entry ! ********************************************************************************************************************************** ! CELAS4 scalar spring element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 1 Element type ETYPE(nele) =E1 for CELAS4 @@ -66,11 +66,11 @@ SUBROUTINE BD_CELAS4 ( CARD ) ! 3 Stiffness PELAS(npelas,1) ! 4 Scalar point A EDAT(nedat+3) ! 5 Scalar point B EDAT(nedat+5) - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! First, check that fields 2-5 have the proper data type (we are going to have to rearrange the fields prior to calling ELEPRO). ! If any erors, return @@ -104,7 +104,7 @@ SUBROUTINE BD_CELAS4 ( CARD ) DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Now change JCARD(3) to be a property ID so that subr ELEPRO will handle EDAT data correctly. We want PID = -EID but we send ! JCARD(3) = JCARD(2) (which has PID = EID) to ELEPRO. When ELEPRO returns we change term in EDAT for PID to be -PID (i.e. -EID) @@ -114,15 +114,15 @@ SUBROUTINE BD_CELAS4 ( CARD ) CALL ELEPRO ( 'Y', JCARD_EDAT, 4, MEDAT_CELAS4, 'N', 'N', 'N', 'N', 'N', 'N', 'N', 'N' ) NCELAS4 = NCELAS4+1 ETYPE(NELE) = 'ELAS4 ' - + ! Now change PID in EDAT to -PID - EDAT(NEDAT-2) = -EDAT(NEDAT-2) + EDAT(NEDAT-2) = -EDAT(NEDAT-2) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CELAS4 diff --git a/Source/LK1/L1A-BD/BD_CHEXA.f90 b/Source/LK1/L1A-BD/BD_CHEXA.f90 index 80cf2bb4..14cde84f 100644 --- a/Source/LK1/L1A-BD/BD_CHEXA.f90 +++ b/Source/LK1/L1A-BD/BD_CHEXA.f90 @@ -1,45 +1,45 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CHEXA ( CARD, LARGE_FLD_INP, NUM_GRD ) - + ! Processes CHEXA Bulk Data Cards ! 1) Sets ETYPE for this element type ! 2) Calls subr ELEPRO to read element ID, property ID and connection data into array EDAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, JCARD_LEN, NCHEXA8, NCHEXA20, NEDAT, NELE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ETYPE - + USE BD_CHEXA_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CHEXA' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -48,18 +48,18 @@ SUBROUTINE BD_CHEXA ( CARD, LARGE_FLD_INP, NUM_GRD ) CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN=JCARD_LEN) :: JCARD_EDAT(10) ! JCARD values sent to subr ELEPRO CHARACTER(LEN=JCARD_LEN) :: NAME ! Field 1 of CARD - + INTEGER(LONG), INTENT(OUT) :: NUM_GRD ! Number of GRID's + SPOINT's for the elem INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + ! ********************************************************************************************************************************** ! CHEXA element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ --------------------------------- @@ -81,17 +81,17 @@ SUBROUTINE BD_CHEXA ( CARD, LARGE_FLD_INP, NUM_GRD ) ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) NAME = JCARD(1) ID = JCARD(2) - + ! Set JCARD_EDAT to JCARD DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Read and check data @@ -99,7 +99,7 @@ SUBROUTINE BD_CHEXA ( CARD, LARGE_FLD_INP, NUM_GRD ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + ! Required 2nd card: ETYPE(NELE) = ' ' @@ -161,7 +161,7 @@ SUBROUTINE BD_CHEXA ( CARD, LARGE_FLD_INP, NUM_GRD ) DO I=1,10 JCARD_EDAT(I) = JCARD(I) ENDDO - + CALL ELEPRO ( 'N', JCARD_EDAT, 6, 6, 'Y', 'Y', 'Y', 'Y', 'Y', 'Y', 'N', 'N' ) CALL BD_IMBEDDED_BLANK( JCARD,2,3,4,5,6,7,0,0 )! Make sure that there are no imbedded blanks in fields 2-7 @@ -184,7 +184,7 @@ SUBROUTINE BD_CHEXA ( CARD, LARGE_FLD_INP, NUM_GRD ) ! ********************************************************************************************************************************** 1136 FORMAT(' *ERROR 1136: REQUIRED CONTINUATION FOR ',A,' ID = ',A,' MISSING') - + ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CHEXA diff --git a/Source/LK1/L1A-BD/BD_CHEXA0.f90 b/Source/LK1/L1A-BD/BD_CHEXA0.f90 index eab77901..4a2de82f 100644 --- a/Source/LK1/L1A-BD/BD_CHEXA0.f90 +++ b/Source/LK1/L1A-BD/BD_CHEXA0.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CHEXA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) - + ! Processes CHEXA Bulk Data Cards to determine how many words to allocate to array EDAT for this element - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, MEDAT_CHEXA8, MEDAT_CHEXA20 USE TIMDAT, ONLY : TSEC - + USE BD_CHEXA0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CHEXA' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -46,10 +46,10 @@ SUBROUTINE BD_CHEXA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + INTEGER(LONG), INTENT(OUT) :: DELTA_LEDAT ! Delta number of words to add to LEDAT for this element - + ! ********************************************************************************************************************************** @@ -60,9 +60,9 @@ SUBROUTINE BD_CHEXA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) ! of 20 nodes for safety ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC0 ( CARD, ICONT, IERR ) ELSE @@ -85,5 +85,5 @@ SUBROUTINE BD_CHEXA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CHEXA0 diff --git a/Source/LK1/L1A-BD/BD_CMASS1.f90 b/Source/LK1/L1A-BD/BD_CMASS1.f90 index d5303f32..d75766bd 100644 --- a/Source/LK1/L1A-BD/BD_CMASS1.f90 +++ b/Source/LK1/L1A-BD/BD_CMASS1.f90 @@ -1,57 +1,57 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CMASS1 ( CARD ) - + ! Processes CMASS1 Bulk Data Cards. NOTE: MYSTRAN scalar masses must be attached to only 1 point - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NCMASS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CMASS - + USE BD_CMASS1_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CMASS1' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: CMASS_ELID ! Element ID INTEGER(LONG) :: GPOINT1,GPOINT2 ! 2 grid points (1 must be blank or zero) INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** ! CMASS1 scalar spring element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Element ID CMASS(ncmass,1) @@ -61,14 +61,14 @@ SUBROUTINE BD_CMASS1 ( CARD ) ! 5 Comp-A CMASS(ncmass,5) ! 6 Grid-B CMASS(ncmass,6) ! 7 Comp-B CMASS(ncmass,7) - - + + NCMASS = NCMASS + 1 ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Get element ID and check for duplicate CALL I4FLD ( JCARD(2), JF(2), CMASS_ELID ) @@ -80,7 +80,7 @@ SUBROUTINE BD_CMASS1 ( CARD ) WRITE(F06,1145) JCARD(1),CMASS_ELID EXIT ENDIF - ENDDO + ENDDO CMASS(NCMASS,1) = CMASS_ELID ENDIF @@ -131,7 +131,7 @@ SUBROUTINE BD_CMASS1 ( CARD ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-7 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,8,9 ) ! Issue warning if fields 8, 9 are not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN @@ -143,5 +143,5 @@ SUBROUTINE BD_CMASS1 ( CARD ) 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CMASS1 diff --git a/Source/LK1/L1A-BD/BD_CMASS2.f90 b/Source/LK1/L1A-BD/BD_CMASS2.f90 index d2e25d07..239b49e8 100644 --- a/Source/LK1/L1A-BD/BD_CMASS2.f90 +++ b/Source/LK1/L1A-BD/BD_CMASS2.f90 @@ -1,57 +1,57 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CMASS2 ( CARD ) - + ! Processes CMASS2 Bulk Data Cards. NOTE: MYSTRAN scalar masses must be attached to only 1 point - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NCMASS, NPMASS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CMASS, PMASS, RPMASS - + USE BD_CMASS2_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CMASS2' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: CMASS_ELID ! Element ID INTEGER(LONG) :: GPOINT1,GPOINT2 ! 2 grid points (1 must be blank or zero) INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** ! CMASS2 scalar spring element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Element ID CMASS(ncmass,1) @@ -62,14 +62,14 @@ SUBROUTINE BD_CMASS2 ( CARD ) ! 6 Grid-B CMASS(ncmass,6) ! 7 Comp-B CMASS(ncmass,7) ! none Prop ID, PID PMASS(npmass,1) (created: PID = -EID) - + NCMASS = NCMASS + 1 NPMASS = NPMASS + 1 ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Get element ID and check for duplicate. Set prop ID = -elem ID and put mass in field 3 into RPMASS CALL I4FLD ( JCARD(2), JF(2), CMASS_ELID ) @@ -81,7 +81,7 @@ SUBROUTINE BD_CMASS2 ( CARD ) WRITE(F06,1145) JCARD(1),CMASS_ELID EXIT ENDIF - ENDDO + ENDDO CMASS(NCMASS,1) = CMASS_ELID ! CMASS2 elem ID CMASS(NCMASS,3) = -CMASS_ELID ! Prop ID of CMASS2 set = -elem ID PMASS(NPMASS,1) = -CMASS_ELID ! Mass value @@ -135,7 +135,7 @@ SUBROUTINE BD_CMASS2 ( CARD ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-7 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,8,9 ) ! Issue warning if fields 8, 9 are not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN @@ -147,5 +147,5 @@ SUBROUTINE BD_CMASS2 ( CARD ) 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CMASS2 diff --git a/Source/LK1/L1A-BD/BD_CMASS3.f90 b/Source/LK1/L1A-BD/BD_CMASS3.f90 index c0f8b822..d2a37ecd 100644 --- a/Source/LK1/L1A-BD/BD_CMASS3.f90 +++ b/Source/LK1/L1A-BD/BD_CMASS3.f90 @@ -1,57 +1,57 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CMASS3 ( CARD ) - + ! Processes CMASS3 Bulk Data Cards. NOTE: MYSTRAN scalar masses must be attached to only 1 scalar point - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NCMASS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CMASS - + USE BD_CMASS3_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CMASS3' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: CMASS_ELID ! Element ID INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: SPOINT1,SPOINT2 ! 2 scalar points (1 must be blank or zero) - + ! ********************************************************************************************************************************** ! CMASS3 scalar spring element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Element ID CMASS(ncmass,1) @@ -59,14 +59,14 @@ SUBROUTINE BD_CMASS3 ( CARD ) ! 3 Prop ID, PID CMASS(ncmass,3) ! 4 Grid-A CMASS(ncmass,4) ! 5 Grid-B CMASS(ncmass,6) - - + + NCMASS = NCMASS + 1 ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Get element ID and check for duplicate CALL I4FLD ( JCARD(2), JF(2), CMASS_ELID ) @@ -78,7 +78,7 @@ SUBROUTINE BD_CMASS3 ( CARD ) WRITE(F06,1145) JCARD(1),CMASS_ELID EXIT ENDIF - ENDDO + ENDDO CMASS(NCMASS,1) = CMASS_ELID ENDIF @@ -134,7 +134,7 @@ SUBROUTINE BD_CMASS3 ( CARD ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-5 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,6,7,8,9 ) ! Issue warning if fields 6-9 are not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN @@ -146,5 +146,5 @@ SUBROUTINE BD_CMASS3 ( CARD ) 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CMASS3 diff --git a/Source/LK1/L1A-BD/BD_CMASS4.f90 b/Source/LK1/L1A-BD/BD_CMASS4.f90 index 062f389e..293a7f33 100644 --- a/Source/LK1/L1A-BD/BD_CMASS4.f90 +++ b/Source/LK1/L1A-BD/BD_CMASS4.f90 @@ -1,57 +1,57 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CMASS4 ( CARD ) - + ! Processes CMASS4 Bulk Data Cards. NOTE: MYSTRAN scalar masses must be attached to only 1 scalar point - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NCMASS, NPMASS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CMASS, PMASS, RPMASS - + USE BD_CMASS4_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CMASS4' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: CMASS_ELID ! Element ID INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: SPOINT1,SPOINT2 ! 2 scalar points (1 must be blank or zero) - + ! ********************************************************************************************************************************** ! CMASS4 scalar spring element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Element ID CMASS(ncmass,1) @@ -60,14 +60,14 @@ SUBROUTINE BD_CMASS4 ( CARD ) ! 4 Grid-A CMASS(ncmass,4) ! 6 Grid-B CMASS(ncmass,6) ! none Prop ID, PID PMASS(npmass,1) (created: PID = -EID) - + NCMASS = NCMASS + 1 NPMASS = NPMASS + 1 ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Get element ID and check for duplicate. Set prop ID = -elem ID and put mass in field 3 into RPMASS CALL I4FLD ( JCARD(2), JF(2), CMASS_ELID ) @@ -79,7 +79,7 @@ SUBROUTINE BD_CMASS4 ( CARD ) WRITE(F06,1145) JCARD(1),CMASS_ELID EXIT ENDIF - ENDDO + ENDDO CMASS(NCMASS,1) = CMASS_ELID ! CMASS4 elem ID CMASS(NCMASS,3) = -CMASS_ELID ! Prop ID of CMASS4 set = -elem ID PMASS(NPMASS,1) = -CMASS_ELID ! Mass value @@ -136,7 +136,7 @@ SUBROUTINE BD_CMASS4 ( CARD ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-7 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,8,9 ) ! Issue warning if fields 8, 9 are not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN @@ -148,5 +148,5 @@ SUBROUTINE BD_CMASS4 ( CARD ) 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CMASS4 diff --git a/Source/LK1/L1A-BD/BD_CONM2.f90 b/Source/LK1/L1A-BD/BD_CONM2.f90 index 834fa933..5af5727c 100644 --- a/Source/LK1/L1A-BD/BD_CONM2.f90 +++ b/Source/LK1/L1A-BD/BD_CONM2.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CONM2 ( CARD, LARGE_FLD_INP ) - + ! Processes CONM2 Bulk Data Cards ! 1) Reads CONM2 ID, grid ID and coord system ID and puts them into array CONM2 -! 2) Reads mass, offsets, and moments of inertia and puts them into array RCONM2 - +! 2) Reads mass, offsets, and moments of inertia and puts them into array RCONM2 + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, LCONM2, NCONM2, WARN_ERR @@ -37,7 +37,7 @@ SUBROUTINE BD_CONM2 ( CARD, LARGE_FLD_INP ) USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : CONM2, RCONM2 - + USE BD_CONM2_USE_IFs IMPLICIT NONE @@ -48,20 +48,20 @@ SUBROUTINE BD_CONM2 ( CARD, LARGE_FLD_INP ) CHARACTER(LEN=LEN(CARD)) :: CARDP ! Parent card CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - CHARACTER(LEN(JCARD)) :: JCARD_ID ! The COMN2 ID + CHARACTER(LEN(JCARD)) :: JCARD_ID ! The COMN2 ID CHARACTER(16*BYTE) :: NAME ! Name for output error purposes - + INTEGER(LONG) :: CONM2_ID = 0 ! The ID for this CONM2 (field 2) INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + ! ********************************************************************************************************************************** ! CONM2 Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Element ID CONM2(nconm2,1) @@ -78,13 +78,13 @@ SUBROUTINE BD_CONM2 ( CARD, LARGE_FLD_INP ) ! 5 I31 moi-31 RCONM2(nconm2,8) ! 6 I32 moi-32 RCONM2(nconm2,9) ! 7 I33 moi-33 RCONM2(nconm2,10) - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) CARDP = CARD JCARD_ID = JCARD(2) - + ! Check for overflow NCONM2 = NCONM2+1 @@ -100,7 +100,7 @@ SUBROUTINE BD_CONM2 ( CARD, LARGE_FLD_INP ) WRITE(F06,1145) JCARD(1),CONM2_ID EXIT ENDIF - ENDDO + ENDDO CONM2(NCONM2,1) = CONM2_ID ENDIF @@ -116,7 +116,7 @@ SUBROUTINE BD_CONM2 ( CARD, LARGE_FLD_INP ) CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields ! Optional Second Card: - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC ( CARD, ICONT, IERR ) ELSE @@ -150,11 +150,11 @@ SUBROUTINE BD_CONM2 ( CARD, LARGE_FLD_INP ) ENDIF ENDIF - + ! Check for negative mass/MOI's - + IF((RCONM2(NCONM2, 1) < ZERO) .OR. (RCONM2(NCONM2, 1) < ZERO) .OR. & - (RCONM2(NCONM2, 1) < ZERO) .OR. (RCONM2(NCONM2, 1) < ZERO)) THEN + (RCONM2(NCONM2, 1) < ZERO) .OR. (RCONM2(NCONM2, 1) < ZERO)) THEN WRITE(ERR,101) CARDP IF (ECHO == 'NONE ') THEN IF (SUPWARN == 'N') THEN @@ -167,38 +167,38 @@ SUBROUTINE BD_CONM2 ( CARD, LARGE_FLD_INP ) IF (RCONM2(NCONM2, 1) < ZERO) THEN WARN_ERR = WARN_ERR + 1 NAME = 'MASS ' - WRITE(ERR,1134) JCARD_ID,NAME,RCONM2(NCONM2, 1) + WRITE(ERR,1134) JCARD_ID,NAME,RCONM2(NCONM2, 1) IF (SUPWARN == 'N') THEN WRITE(F06,1134) JCARD_ID,NAME,RCONM2(NCONM2, 1) ENDIF - ENDIF + ENDIF IF (RCONM2(NCONM2, 5) < ZERO) THEN WARN_ERR = WARN_ERR + 1 NAME = 'PRINCIPAL MOI-11' - WRITE(ERR,1134) JCARD_ID,NAME,RCONM2(NCONM2, 5) + WRITE(ERR,1134) JCARD_ID,NAME,RCONM2(NCONM2, 5) IF (SUPWARN == 'N') THEN WRITE(F06,1134) JCARD_ID,NAME,RCONM2(NCONM2, 5) ENDIF - ENDIF + ENDIF IF (RCONM2(NCONM2, 7) < ZERO) THEN WARN_ERR = WARN_ERR + 1 NAME = 'PRINCIPAL MOI-22' - WRITE(ERR,1134) JCARD_ID,NAME,RCONM2(NCONM2, 7) + WRITE(ERR,1134) JCARD_ID,NAME,RCONM2(NCONM2, 7) IF (SUPWARN == 'N') THEN WRITE(F06,1134) JCARD_ID,NAME,RCONM2(NCONM2, 7) ENDIF - ENDIF + ENDIF IF (RCONM2(NCONM2,10) < ZERO) THEN WARN_ERR = WARN_ERR + 1 NAME = 'PRINCIPAL MOI-33' - WRITE(ERR,1134) JCARD_ID, NAME, RCONM2(NCONM2,10) + WRITE(ERR,1134) JCARD_ID, NAME, RCONM2(NCONM2,10) IF (SUPWARN == 'N') THEN WRITE(F06,1134) JCARD_ID, NAME, RCONM2(NCONM2,10) ENDIF - ENDIF + ENDIF @@ -207,13 +207,13 @@ SUBROUTINE BD_CONM2 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** 101 FORMAT(A) - 1134 FORMAT(' *WARNING : NEGATIVE MASS OR PRINCIPAL MOI VALUE ON CONM2 ',A,': ',A16,' = ',ES14.6) - + 1134 FORMAT(' *WARNING : NEGATIVE MASS OR PRINCIPAL MOI VALUE ON CONM2 ',A,': ',A16,' = ',ES14.6) + 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CONM2 diff --git a/Source/LK1/L1A-BD/BD_CONROD.f90 b/Source/LK1/L1A-BD/BD_CONROD.f90 index 4b8e0fda..940ce97f 100644 --- a/Source/LK1/L1A-BD/BD_CONROD.f90 +++ b/Source/LK1/L1A-BD/BD_CONROD.f90 @@ -1,64 +1,64 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CONROD ( CARD ) - + ! Processes CONROD Bulk Data Cards ! 1) Sets ETYPE for this element type ! 2) Calls subr ELEPRO to read element ID, property ID and connection data into array EDAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF, MEDAT_CROD, NCROD, NELE, NEDAT, NPROD USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE, PROD, RPROD - + USE BD_CONROD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CONROD' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARD_EDAT(10) ! JCARD but with fields 5 and 6 switched to get G.P.'s together in EDAT - + INTEGER(LONG) :: ELEM_ID ! Elem ID from field 2 INTEGER(LONG) :: MATL_ID ! Matl ID from field 5 INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: I4INP ! An integer read INTEGER(LONG) :: IERR ! Error count - + REAL(DOUBLE) :: R8INP ! A real value read ! ********************************************************************************************************************************** ! CONROD element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 1 Element type ETYPE(nele) = 'ROD ' @@ -72,11 +72,11 @@ SUBROUTINE BD_CONROD ( CARD ) ! 7 J RPROD(nprod,2) ! 8 Tors stress C RPROD(nprod,3) ! 9 NSM RPROD(nprod,4) - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! First, check that fields 2-9 have the proper data type (we are going to have to rearrange the fields prior to calling ELEPRO). ! If any erors, return @@ -114,10 +114,10 @@ SUBROUTINE BD_CONROD ( CARD ) CALL ELEPRO ( 'Y', JCARD_EDAT, 4, MEDAT_CROD, 'Y', 'Y', 'Y', 'Y', 'N', 'N', 'N', 'N' ) NCROD = NCROD+1 ETYPE(NELE) = 'ROD ' - + ! Now change PID in EDAT to -PID so EMG can find the properties - EDAT(NEDAT-2) = -EDAT(NEDAT-2) + EDAT(NEDAT-2) = -EDAT(NEDAT-2) ! Put property ID (neg of elem ID) and material ID's into array PROD @@ -136,7 +136,7 @@ SUBROUTINE BD_CONROD ( CARD ) ENDIF ! Put real data from CONROD into array RPROD. We already checked that the data in theses fields can be read by R8FLD - + CALL R8FLD ( JCARD(6), JF(6), RPROD(NPROD,1) ) CALL R8FLD ( JCARD(7), JF(7), RPROD(NPROD,2) ) CALL R8FLD ( JCARD(8), JF(8), RPROD(NPROD,3) ) @@ -147,5 +147,5 @@ SUBROUTINE BD_CONROD ( CARD ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CONROD diff --git a/Source/LK1/L1A-BD/BD_CORD.f90 b/Source/LK1/L1A-BD/BD_CORD.f90 index 8a7d4ba8..cc5562e0 100644 --- a/Source/LK1/L1A-BD/BD_CORD.f90 +++ b/Source/LK1/L1A-BD/BD_CORD.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CORD ( CARD, LARGE_FLD_INP ) - + ! Processes CORD1C, CORD1R, CORD1S and CORD2C, CORD2R, CORD2S Bulk Data Cards ! 1) Sets coord type (0 {2R},1 {2C},2 {2S}) and enters it into array CORD ! 2) Reads coord system ID and reference ID and enters it into array CORD @@ -36,11 +36,11 @@ SUBROUTINE BD_CORD ( CARD, LARGE_FLD_INP ) USE SCONTR, ONLY : FATAL_ERR, IERRFL, JCARD_LEN, JF, LCORD, NCORD, NCORD1, NCORD2, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CORD, RCORD - + USE BD_CORD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CORD' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -48,32 +48,32 @@ SUBROUTINE BD_CORD ( CARD, LARGE_FLD_INP ) CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: CORD_CID ! Field 2 of CORD card (coord sys ID) CHARACTER(LEN(JCARD)) :: CORD_NAME ! Name of coors sys - + INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: I4INP = 0 ! A value read from input file that should be an integer value INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + ! ********************************************************************************************************************************** ! CORD1R Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- -! 1 Cord Type CORD(ncord,1) 11 is CORD1R, 21 is CORD2R, 22 is CORD2C, 23 is CORD2S +! 1 Cord Type CORD(ncord,1) 11 is CORD1R, 21 is CORD2R, 22 is CORD2C, 23 is CORD2S ! 2 CID CORD(ncord,2) ! 3 GA Temporarily put into CORD(ncord,3) ! 3 GB Temporarily put into CORD(ncord,4) ! 3 GC Temporarily put into CORD(ncord,5) -! 3 RID CORD(ncord,3) ref sys for grid A (will be entered later when GRID array is sorted and we can find GA -! 4 RID CORD(ncord,4) ref sys for grid B (will be entered later when GRID array is sorted and we can find GB -! 5 RID CORD(ncord,5) ref sys for grid C (will be entered later when GRID array is sorted and we can find GC +! 3 RID CORD(ncord,3) ref sys for grid A (will be entered later when GRID array is sorted and we can find GA +! 4 RID CORD(ncord,4) ref sys for grid B (will be entered later when GRID array is sorted and we can find GB +! 5 RID CORD(ncord,5) ref sys for grid C (will be entered later when GRID array is sorted and we can find GC ! CORD2C, CORD2R, CORD2S Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! on first card: @@ -90,12 +90,12 @@ SUBROUTINE BD_CORD ( CARD, LARGE_FLD_INP ) ! 2 C1 RCORD(ncord,7) ! 3 C2 RCORD(ncord,8) ! 4 C3 RCORD(ncord,9) - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) CORD_NAME = JCARD(1) - + ! --------------------------------------------------------------------------------------------------------------------------------- IF (CORD_NAME(1:5) == 'CORD1') THEN ! Read data for 1st coord system defined on this entry @@ -110,7 +110,7 @@ SUBROUTINE BD_CORD ( CARD, LARGE_FLD_INP ) ELSE IF (JCARD(1)(1:6) == 'CORD1S') THEN CORD(NCORD,1) = 13 ENDIF - + CALL I4FLD ( JCARD(2), JF(2), I4INP ) ! Read CID and make sure it is > 0 (cannot define 0, or basic, system) IF (IERRFL(2) == 'N') THEN IF (I4INP < 0) THEN ! --- CID cannot be negative @@ -242,7 +242,7 @@ SUBROUTINE BD_CORD ( CARD, LARGE_FLD_INP ) ELSE IF (JCARD(1)(1:6) == 'CORD2S') THEN CORD(NCORD,1) = 23 ENDIF - + CALL I4FLD ( JCARD(2), JF(2), I4INP ) ! Read CID and make sure it is > 0 (cannot define 0, or basic, system) IF (IERRFL(2) == 'N') THEN IF (I4INP < 0) THEN ! --- CID cannot be negative @@ -272,10 +272,10 @@ SUBROUTINE BD_CORD ( CARD, LARGE_FLD_INP ) DO J = 1,6 ! Read real data on parent card CALL R8FLD ( JCARD(J+3), JF(J+3), RCORD(NCORD,J) ) ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) CALL CRDERR ( CARD ) - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC ( CARD, ICONT, IERR ) ! Read 2nd card ELSE @@ -297,7 +297,7 @@ SUBROUTINE BD_CORD ( CARD, LARGE_FLD_INP ) WRITE(ERR,1136) CORD_NAME, CORD_CID WRITE(F06,1136) CORD_NAME, CORD_CID ENDIF - + ! ---------------------------------------------------------------------------------------------------------------------------------- ENDIF @@ -307,7 +307,7 @@ SUBROUTINE BD_CORD ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** 1136 FORMAT(' *ERROR 1136: REQUIRED CONTINUATION FOR ',A,' ID = ',A,' MISSING') - + 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) @@ -316,5 +316,5 @@ SUBROUTINE BD_CORD ( CARD, LARGE_FLD_INP ) 1170 FORMAT(' *ERROR 1170: FIELD ',I3,' ON ',A,' ID ',A,' CANNOT BE 0 (CANNOT DEFINE BASIC SYSTEM). VALUE IS = ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CORD diff --git a/Source/LK1/L1A-BD/BD_CPENTA.f90 b/Source/LK1/L1A-BD/BD_CPENTA.f90 index ca4682c9..6a512a9d 100644 --- a/Source/LK1/L1A-BD/BD_CPENTA.f90 +++ b/Source/LK1/L1A-BD/BD_CPENTA.f90 @@ -1,45 +1,45 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CPENTA ( CARD, LARGE_FLD_INP, NUM_GRD ) - + ! Processes CPENTA Bulk Data Cards ! 1) Sets ETYPE for this element type ! 2) Calls subr ELEPRO to read element ID, property ID and connection data into array EDAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, JCARD_LEN, NCPENTA6, NCPENTA15, NEDAT, NELE, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ETYPE - + USE BD_CPENTA_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CPENTA' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -48,18 +48,18 @@ SUBROUTINE BD_CPENTA ( CARD, LARGE_FLD_INP, NUM_GRD ) CHARACTER(LEN(JCARD)) :: ID ! Character value of element ID (field 2 of parent card) CHARACTER(LEN(JCARD)) :: JCARD_EDAT(10) ! JCARD values sent to subr ELEPRO CHARACTER(LEN(JCARD)) :: NAME ! JCARD(1) from parent entry - + INTEGER(LONG), INTENT(OUT) :: NUM_GRD ! Number of GRID's + SPOINT's for the elem INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + ! ********************************************************************************************************************************** ! CPENTA element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ --------------------------------- @@ -80,16 +80,16 @@ SUBROUTINE BD_CPENTA ( CARD, LARGE_FLD_INP, NUM_GRD ) ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) NAME = JCARD(1) ID = JCARD(2) - + ! Set JCARD_EDAT to JCARD DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Read and check data @@ -97,7 +97,7 @@ SUBROUTINE BD_CPENTA ( CARD, LARGE_FLD_INP, NUM_GRD ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + ! Check for continuation (if so must be a PENTA15 which then requires 3rd card also) ETYPE(NELE)(1:) = ' ' @@ -142,7 +142,7 @@ SUBROUTINE BD_CPENTA ( CARD, LARGE_FLD_INP, NUM_GRD ) DO I=1,10 JCARD_EDAT(I) = JCARD(I) ENDDO - + CALL ELEPRO ( 'N', JCARD_EDAT, 1, 1, 'Y', 'N', 'N', 'N', 'N', 'N', 'N', 'N' ) CALL BD_IMBEDDED_BLANK( JCARD,2,0,0,0,0,0,0,0 ) @@ -172,7 +172,7 @@ SUBROUTINE BD_CPENTA ( CARD, LARGE_FLD_INP, NUM_GRD ) ! ********************************************************************************************************************************** 1136 FORMAT(' *ERROR 1136: REQUIRED CONTINUATION FOR ',A,' ID = ',A,' MISSING') - + ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CPENTA diff --git a/Source/LK1/L1A-BD/BD_CPENTA0.f90 b/Source/LK1/L1A-BD/BD_CPENTA0.f90 index fe64c63f..2946a6bd 100644 --- a/Source/LK1/L1A-BD/BD_CPENTA0.f90 +++ b/Source/LK1/L1A-BD/BD_CPENTA0.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CPENTA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) - + ! Processes CPENTA Bulk Data Cards to determine how many words to allocate to array EDAT for this element - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, MEDAT_CPENTA6, MEDAT_CPENTA15 USE TIMDAT, ONLY : TSEC - + USE BD_CPENTA0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CPENTA' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -45,10 +45,10 @@ SUBROUTINE BD_CPENTA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + INTEGER(LONG), INTENT(OUT) :: DELTA_LEDAT ! Delta number of words to add to LEDAT for this element - + ! ********************************************************************************************************************************** @@ -57,9 +57,9 @@ SUBROUTINE BD_CPENTA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) ! cards we assume a 6 node PENTA. If there is a continuation card we will assume it is a 15 node PENTA for safety ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC0 ( CARD, ICONT, IERR ) ELSE @@ -77,5 +77,5 @@ SUBROUTINE BD_CPENTA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CPENTA0 diff --git a/Source/LK1/L1A-BD/BD_CQUAD.f90 b/Source/LK1/L1A-BD/BD_CQUAD.f90 index 26cdb94f..6bbeb7ae 100644 --- a/Source/LK1/L1A-BD/BD_CQUAD.f90 +++ b/Source/LK1/L1A-BD/BD_CQUAD.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CQUAD ( CARD, LARGE_FLD_INP, NUM_GRD ) - + ! Processes CQUADi, CQDPLTi, CQDMEMi Bulk Data Cards ! 1) Sets ETYPE for this element type ! 2) Calls subr ELEPRO to read element ID, property ID and connection data into array EDAT @@ -37,11 +37,11 @@ SUBROUTINE BD_CQUAD ( CARD, LARGE_FLD_INP, NUM_GRD ) USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : EDAT, ETYPE, MATANGLE, PLATEOFF, PLATETHICK - + USE BD_CQUAD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CQUAD' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -58,14 +58,14 @@ SUBROUTINE BD_CQUAD ( CARD, LARGE_FLD_INP, NUM_GRD ) INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + REAL(DOUBLE) :: R8INP = ZERO ! A value read from input file that should be a real value ! ********************************************************************************************************************************** ! CQUADi element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 1 Element type ETYPE(nele) = Q1, Q2, Q3, QA, QB @@ -81,19 +81,19 @@ SUBROUTINE BD_CQUAD ( CARD, LARGE_FLD_INP, NUM_GRD ) ! on optional second card: ! 4-7 Ti Membrane thicknes at grids 1-4. These will go into array PLATETHICK ! EDAT(nedat+10) will hold NPLATETHICK the row in PLATETHICK where Ti is located - + ! Make JCARD from CARD CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Set JCARD_EDAT to JCARD DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Check property ID field. Set to element ID if blank - + IF (JCARD(3)(1:) == ' ') THEN JCARD_EDAT(3) = JCARD(2) ENDIF @@ -101,7 +101,7 @@ SUBROUTINE BD_CQUAD ( CARD, LARGE_FLD_INP, NUM_GRD ) ! Read and check data ! Load 6 items into EDAT CALL ELEPRO ( 'Y', JCARD_EDAT, 6, MEDAT_CQUAD, 'Y', 'Y', 'Y', 'Y', 'Y', 'Y', 'N', 'N' ) - + NUM_GRD = 4 IF (JCARD(1)(1:7) == 'CQUAD4K') THEN NCQUAD4K = NCQUAD4K + 1 @@ -110,9 +110,9 @@ SUBROUTINE BD_CQUAD ( CARD, LARGE_FLD_INP, NUM_GRD ) NCQUAD4 = NCQUAD4 + 1 ETYPE(NELE) = 'QUAD4 ' ENDIF - + ! Read material property orientation angle. It takes 2 values put into EDAT to cover all of the possibilities of field 8: -! (a) If field 8 is a real value it is the angle of the material axis relative to the element x axis. +! (a) If field 8 is a real value it is the angle of the material axis relative to the element x axis. ! (1) the 2 values to put into EDAT are: the value in field 8 (this will be the row in MATANGLE to get the angle), and a 0 ! (b) If field 8 is an integer it means that the angle is identified by a coord system. ! (2) if field 8 is a positive number the 2 values to put into EDAT are: the neg of field 8 integer and a 2 @@ -190,7 +190,7 @@ SUBROUTINE BD_CQUAD ( CARD, LARGE_FLD_INP, NUM_GRD ) ENDIF ELSE - NEDAT = NEDAT + 1 + NEDAT = NEDAT + 1 EDAT(NEDAT) = 0 ENDIF @@ -208,7 +208,7 @@ SUBROUTINE BD_CQUAD ( CARD, LARGE_FLD_INP, NUM_GRD ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + ! Optional second card (to define membrane thicknesses as grid values): IF (LARGE_FLD_INP == 'N') THEN @@ -252,15 +252,15 @@ SUBROUTINE BD_CQUAD ( CARD, LARGE_FLD_INP, NUM_GRD ) ! ********************************************************************************************************************************** 1141 FORMAT(' *ERROR 1141: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' TOO MANY PLATE ELEMENT MATERIAL PROPERTY ANGLES. LIMIT IS NMATANGLE = ',I8) + ,/,14X,' TOO MANY PLATE ELEMENT MATERIAL PROPERTY ANGLES. LIMIT IS NMATANGLE = ',I8) 1144 FORMAT(' *ERROR 1144: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,A,I8) + ,/,14X,A,I8) 1196 FORMAT(' *ERROR 1196: VALUE FOR MATERIAL ANGLE ON ',A,A,' MUST BE AN INTEGER OR REAL NUMBER BUT VALUE READ WAS ',A) 1197 FORMAT(' *ERROR 1197: FOR ',A,A,' THE COORD SYS ID IN FIELD ',I2,' MUST BE >= 0. HOWEVER, THE VALUE INPUT WAS ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CQUAD diff --git a/Source/LK1/L1A-BD/BD_CROD.f90 b/Source/LK1/L1A-BD/BD_CROD.f90 index e5658749..7a72fd7a 100644 --- a/Source/LK1/L1A-BD/BD_CROD.f90 +++ b/Source/LK1/L1A-BD/BD_CROD.f90 @@ -1,58 +1,58 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CROD ( CARD ) - + ! Processes CROD Bulk Data Cards ! 1) Sets ETYPE for this element type ! 2) Calls subr ELEPRO to read element ID, property ID and connection data into array EDAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, MEDAT_CROD, NCROD, NEDAT, NELE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ETYPE - + USE BD_CROD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CROD' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARD_EDAT(10) ! JCARD values sent to subr ELEPRO - + INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** ! CROD element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 1 Element type ETYPE(nele) =R1 for CROD @@ -60,20 +60,20 @@ SUBROUTINE BD_CROD ( CARD ) ! 3 Property ID EDAT(nedat+2) ! 4 Grid A EDAT(nedat+3) ! 5 Grid B EDAT(nedat+4) - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Set JCARD_EDAT to JCARD DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Check property ID field. Set to element ID if blank - + IF (JCARD(3)(1:) == ' ') THEN JCARD_EDAT(3) = JCARD(2) ENDIF @@ -87,11 +87,11 @@ SUBROUTINE BD_CROD ( CARD ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-5 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,6,7,8,9 ) ! Issue warning if fields 6, 7, 8, 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CROD diff --git a/Source/LK1/L1A-BD/BD_CSHEAR.f90 b/Source/LK1/L1A-BD/BD_CSHEAR.f90 index 6b1294f8..cd1926ef 100644 --- a/Source/LK1/L1A-BD/BD_CSHEAR.f90 +++ b/Source/LK1/L1A-BD/BD_CSHEAR.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CSHEAR ( CARD, NUM_GRD ) - + ! Processes CSHEAR Bulk Data Cards USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -33,11 +33,11 @@ SUBROUTINE BD_CSHEAR ( CARD, NUM_GRD ) USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF, MEDAT_CSHEAR, NCSHEAR, NELE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE - + USE BD_CSHEAR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CSHEAR' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD @@ -51,7 +51,7 @@ SUBROUTINE BD_CSHEAR ( CARD, NUM_GRD ) ! ********************************************************************************************************************************** ! CSHEAR element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 1 Element type ETYPE(nele) = Q1, Q2, Q3, QA, QB @@ -61,19 +61,19 @@ SUBROUTINE BD_CSHEAR ( CARD, NUM_GRD ) ! 5 Grid B EDAT(nedat+4) ! 6 Grid C EDAT(nedat+5) ! 7 Grid D EDAT(nedat+6) - + ! Make JCARD from CARD CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Set JCARD_EDAT to JCARD DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Check property ID field. Set to EID if blank - + IF (JCARD(3)(1:) == ' ') THEN JCARD_EDAT(3) = JCARD(2) ENDIF @@ -81,7 +81,7 @@ SUBROUTINE BD_CSHEAR ( CARD, NUM_GRD ) ! Read and check data ! Load 6 items into EDAT CALL ELEPRO ( 'Y', JCARD_EDAT, 6, MEDAT_CSHEAR, 'Y', 'Y', 'Y', 'Y', 'Y', 'Y', 'N', 'N' ) - + ETYPE(NELE) = 'SHEAR ' NCSHEAR = NCSHEAR + 1 NUM_GRD = 4 @@ -89,11 +89,11 @@ SUBROUTINE BD_CSHEAR ( CARD, NUM_GRD ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-7 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,8,9 )! Issue warning if fields 8, 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CSHEAR diff --git a/Source/LK1/L1A-BD/BD_CTETRA.f90 b/Source/LK1/L1A-BD/BD_CTETRA.f90 index 7fdfdd91..9cf6f711 100644 --- a/Source/LK1/L1A-BD/BD_CTETRA.f90 +++ b/Source/LK1/L1A-BD/BD_CTETRA.f90 @@ -1,45 +1,45 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CTETRA ( CARD, LARGE_FLD_INP, NUM_GRD ) - + ! Processes CTETRA Bulk Data Cards ! 1) Sets ETYPE for this element type ! 2) Calls subr ELEPRO to read element ID, property ID and connection data into array EDAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, FATAL_ERR, NCTETRA4, NCTETRA10, NEDAT, NELE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ETYPE - + USE BD_CTETRA_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CTETRA' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -48,18 +48,18 @@ SUBROUTINE BD_CTETRA ( CARD, LARGE_FLD_INP, NUM_GRD ) CHARACTER(LEN(JCARD)) :: ID ! Character value of element ID (field 2 of parent card) CHARACTER(LEN(JCARD)) :: JCARD_EDAT(10) ! JCARD values sent to subr ELEPRO CHARACTER(LEN(JCARD)) :: NAME ! JCARD(1) from parent entry - + INTEGER(LONG), INTENT(OUT) :: NUM_GRD ! Number of GRID's + SPOINT's for the elem INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** ! CTETRA element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ --------------------------------- @@ -76,16 +76,16 @@ SUBROUTINE BD_CTETRA ( CARD, LARGE_FLD_INP, NUM_GRD ) ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) NAME = JCARD(1) ID = JCARD(2) - + ! Set JCARD_EDAT to JCARD DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Read and check data @@ -144,7 +144,7 @@ SUBROUTINE BD_CTETRA ( CARD, LARGE_FLD_INP, NUM_GRD ) ! ********************************************************************************************************************************** 1136 FORMAT(' *ERROR 1136: REQUIRED CONTINUATION FOR ',A,' ID = ',A,' MISSING') - + ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CTETRA diff --git a/Source/LK1/L1A-BD/BD_CTETRA0.f90 b/Source/LK1/L1A-BD/BD_CTETRA0.f90 index 0b537d98..6ced40e2 100644 --- a/Source/LK1/L1A-BD/BD_CTETRA0.f90 +++ b/Source/LK1/L1A-BD/BD_CTETRA0.f90 @@ -1,53 +1,53 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CTETRA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) - + ! Processes CTETRA Bulk Data Cards to determine how many words to allocate to array EDAT for this element - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, MEDAT_CTETRA4, MEDAT_CTETRA10 USE TIMDAT, ONLY : TSEC - + USE BD_CTETRA0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CTETRA' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG), INTENT(OUT) :: DELTA_LEDAT ! Delta number of words to add to LEDAT for this element INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + ! ********************************************************************************************************************************** @@ -57,9 +57,9 @@ SUBROUTINE BD_CTETRA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) ! fields 8 and 9 of parent card and if they are blank, assume a 4 node TETRA; otherwise assume a 10 node TETRA (again for safety) ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC0 ( CARD, ICONT, IERR ) ELSE @@ -81,5 +81,5 @@ SUBROUTINE BD_CTETRA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CTETRA0 diff --git a/Source/LK1/L1A-BD/BD_CTRIA.f90 b/Source/LK1/L1A-BD/BD_CTRIA.f90 index 599cc6c9..274def6f 100644 --- a/Source/LK1/L1A-BD/BD_CTRIA.f90 +++ b/Source/LK1/L1A-BD/BD_CTRIA.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CTRIA ( CARD, LARGE_FLD_INP, NUM_GRD ) - + ! Processes CTRIAi, CTRPLTi, CTRMEMi BULK DATA Cards ! 1) Sets ETYPE for this element type ! 2) Calls subr ELEPRO to read element ID, property ID and connection data into array EDAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, FATAL_ERR, JCARD_LEN, JF, LMATANGLE, LPLATEOFF, LPLATETHICK, & @@ -37,11 +37,11 @@ SUBROUTINE BD_CTRIA ( CARD, LARGE_FLD_INP, NUM_GRD ) USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : EDAT, ETYPE, MATANGLE, PLATEOFF, PLATETHICK - + USE BD_CTRIA_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CTRIA' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -50,7 +50,7 @@ SUBROUTINE BD_CTRIA ( CARD, LARGE_FLD_INP, NUM_GRD ) CHARACTER(LEN(JCARD)) :: JCARD_EDAT(10) ! JCARD values sent to subr ELEPRO CHARACTER( 8*BYTE) :: TOKEN ! The 1st 8 characters from a JCARD CHARACTER( 8*BYTE) :: TOKTYP ! Indicator of the type of val found in a B.D. field (e.g. int, real,...) - + INTEGER(LONG), INTENT(OUT) :: NUM_GRD ! Number of GRID's + SPOINT's for the elem INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: I4INP ! A value read from input file that should be an integer @@ -58,14 +58,14 @@ SUBROUTINE BD_CTRIA ( CARD, LARGE_FLD_INP, NUM_GRD ) INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + REAL(DOUBLE) :: R8INP = ZERO ! A value read from input file that should be a real value ! ********************************************************************************************************************************** ! CTRIAi, CTRPLTi, CTRMEM element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 1 Element type ETYPE(nele) = T1, T2, T3, TA, TB @@ -80,20 +80,20 @@ SUBROUTINE BD_CTRIA ( CARD, LARGE_FLD_INP, NUM_GRD ) ! on optional second card: ! 4-7 Ti Membrane thicknes at grids 1-4. These will go into array PLATETHICK ! EDAT(nedat+9) will hold NPLATETHICK the row in PLATETHICK where Ti is located - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Set JCARD_EDAT to JCARD DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Check property ID field. Set to element ID if blank - + IF (JCARD(3)(1:) == ' ') THEN JCARD_EDAT(3) = JCARD(2) ENDIF @@ -101,7 +101,7 @@ SUBROUTINE BD_CTRIA ( CARD, LARGE_FLD_INP, NUM_GRD ) ! Read and check data ! Load 5 items into EDAT CALL ELEPRO ( 'Y', JCARD_EDAT, 5, MEDAT_CTRIA, 'Y', 'Y', 'Y', 'Y', 'Y', 'N', 'N', 'N' ) - + NUM_GRD = 3 IF (JCARD(1)(1:7) == 'CTRIA3K') THEN NCTRIA3K = NCTRIA3K + 1 @@ -110,9 +110,9 @@ SUBROUTINE BD_CTRIA ( CARD, LARGE_FLD_INP, NUM_GRD ) NCTRIA3 = NCTRIA3 + 1 ETYPE(NELE) = 'TRIA3 ' ENDIF - + ! Read material property orientation angle. It takes 2 values put into EDAT to cover all of the possibilities of field 7: -! (a) If field 7 is a real value it is the angle of the material axis relative to the element x axis. +! (a) If field 7 is a real value it is the angle of the material axis relative to the element x axis. ! (1) the 2 values to put into EDAT are: the value in field 7 (this will be the row in MATANGLE to get the angle), and a 0 ! (b) If field 7 is an integer it means that the angle is identified by a coord system. ! (2) if field 7 is a positive number the 2 values to put into EDAT are: the neg of field 7 integer and a 2 @@ -209,7 +209,7 @@ SUBROUTINE BD_CTRIA ( CARD, LARGE_FLD_INP, NUM_GRD ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,0 ) ! Make sure that there are no imbedded blanks in fields 2-6 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,0,9 ) ! Issue warning if field 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + ! Optional second card: IF (LARGE_FLD_INP == 'N') THEN @@ -251,15 +251,15 @@ SUBROUTINE BD_CTRIA ( CARD, LARGE_FLD_INP, NUM_GRD ) ! ********************************************************************************************************************************** 1141 FORMAT(' *ERROR 1141: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' TOO MANY PLATE ELEMENT MATERIAL PROPERTY ANGLES. LIMIT IS NMATANGLE = ',I8) + ,/,14X,' TOO MANY PLATE ELEMENT MATERIAL PROPERTY ANGLES. LIMIT IS NMATANGLE = ',I8) 1144 FORMAT(' *ERROR 1144: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,A,I8) + ,/,14X,A,I8) 1196 FORMAT(' *ERROR 1196: VALUE FOR MATERIAL ANGLE ON ',A,A,' MUST BE AN INTEGER OR REAL NUMBER BUT VALUE READ WAS ',A) 1197 FORMAT(' *ERROR 1197: FOR ',A,A,' THE COORD SYS ID IN FIELD ',I2,' MUST BE >= 0. HOWEVER, THE VALUE INPUT WAS ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CTRIA diff --git a/Source/LK1/L1A-BD/BD_CTRIA0.f90 b/Source/LK1/L1A-BD/BD_CTRIA0.f90 index 5b759afe..83ff936d 100644 --- a/Source/LK1/L1A-BD/BD_CTRIA0.f90 +++ b/Source/LK1/L1A-BD/BD_CTRIA0.f90 @@ -1,65 +1,65 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CTRIA0 ( CARD, LARGE_FLD_INP ) - + ! Processes CTRIA Bulk Data Cards to increment LMATANGLE if the elem has a material property angle - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, LMATANGLE, LPLATEOFF, LPLATETHICK USE TIMDAT, ONLY : TSEC - + USE BD_CTRIA0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CTRIA0' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + ! ********************************************************************************************************************************** ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! See if there is a material orientation angle. If so, increment LMATANGLE - + IF (JCARD(7)(1:) /= ' ') THEN LMATANGLE = LMATANGLE + 1 ENDIF - + ! See if there is a plate offset. If so, increment LPLATEOFF IF (JCARD(8)(1:) /= ' ') THEN @@ -83,5 +83,5 @@ SUBROUTINE BD_CTRIA0 ( CARD, LARGE_FLD_INP ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CTRIA0 diff --git a/Source/LK1/L1A-BD/BD_CUSER1.f90 b/Source/LK1/L1A-BD/BD_CUSER1.f90 index cce21ad3..e8d38b39 100644 --- a/Source/LK1/L1A-BD/BD_CUSER1.f90 +++ b/Source/LK1/L1A-BD/BD_CUSER1.f90 @@ -1,63 +1,63 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CUSER1 ( CARD, LARGE_FLD_INP, NUM_GRD ) - + ! Processes CUSER1 Bulk Data Cards ! 1) Sets ETYPE for this element type ! 2) Calls subr ELEPRO to read element ID, property ID and connection data into array EDAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, JF, MEDAT_CUSER1, NCUSER1, NEDAT, NELE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE - + USE BD_CUSER1_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CUSER1' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARD_EDAT(10) ! JCARD values sent to subr ELEPRO - + INTEGER(LONG), INTENT(OUT) :: NUM_GRD ! Number of GRID's + SPOINT's for the elem INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + ! ********************************************************************************************************************************** ! CUSER1 element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 1 Element type ETYPE(nele) @@ -73,20 +73,20 @@ SUBROUTINE BD_CUSER1 ( CARD, LARGE_FLD_INP, NUM_GRD ) ! 3 Pin Flag B EDAT(nedat+9) ! 4 Pin Flag C EDAT(nedat+10) ! 5 Pin Flag D EDAT(nedat+11) - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Set JCARD_EDAT to JCARD DO I=1,10 JCARD_EDAT(I) = JCARD(I) - ENDDO + ENDDO ! Check property ID field. Set to element ID if blank - + IF (JCARD(3)(1:) == ' ') THEN JCARD_EDAT(3) = JCARD(2) ENDIF @@ -101,7 +101,7 @@ SUBROUTINE BD_CUSER1 ( CARD, LARGE_FLD_INP, NUM_GRD ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,0 ) ! Make sure that there are no imbedded blanks in fields 2-8 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,0,9 ) ! Issue warning if field 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + ! Optional Second Card: IF (LARGE_FLD_INP == 'N') THEN @@ -115,22 +115,22 @@ SUBROUTINE BD_CUSER1 ( CARD, LARGE_FLD_INP, NUM_GRD ) DO J = 1,4 NEDAT = NEDAT + 1 CALL I4FLD ( JCARD(J+1), JF(J+1), EDAT(NEDAT) ) - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,0,0,0,0 )! Make sure that there are no imbedded blanks in fields 2-5 - CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,6,7,8,9 )! Issue warning if fields 6-9 not blank + CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,6,7,8,9 )! Issue warning if fields 6-9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields ELSE ! Null EDAT fields for variables on cont card that was not there DO J=1,4 NEDAT = NEDAT + 1 EDAT(NEDAT) = 0 - ENDDO + ENDDO ENDIF - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CUSER1 diff --git a/Source/LK1/L1A-BD/BD_CUSERIN.f90 b/Source/LK1/L1A-BD/BD_CUSERIN.f90 index c6df4e97..60a7dd10 100644 --- a/Source/LK1/L1A-BD/BD_CUSERIN.f90 +++ b/Source/LK1/L1A-BD/BD_CUSERIN.f90 @@ -1,47 +1,47 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CUSERIN ( CARD, LARGE_FLD_INP, NG, NS ) - + ! Processes CUSERIN Bulk Data Cards ! 1) Sets ETYPE for this element type ! 2) Calls subr ELEPRO to read element ID, property ID and connection data into array EDAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LGUSERIN, LSUSERIN, MEDAT0_CUSERIN, & - NCUSERIN, NEDAT, NELE, WARN_ERR + NCUSERIN, NEDAT, NELE, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : EDAT, ETYPE - + USE BD_CUSERIN_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CUSERIN' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -54,7 +54,7 @@ SUBROUTINE BD_CUSERIN ( CARD, LARGE_FLD_INP, NG, NS ) CHARACTER(LEN=JCARD_LEN) :: NAME ! JCARD(1) from parent entry CHARACTER( 8*BYTE) :: TOKEN ! The 1st 8 characters from a JCARD CHARACTER( 8*BYTE) :: TOKTYP ! An output from subr TOKCHK called herein - + INTEGER(LONG), INTENT(OUT) :: NG ! Number of GRID's for the elem as defined on parent card field 5 INTEGER(LONG), INTENT(OUT) :: NS ! Number of SPOINT's for the elem as defined on parent card field 5 INTEGER(LONG) :: FIELDS_NOT_BLANK ! Indicator of problem with fields not being blank on CARD @@ -81,12 +81,12 @@ SUBROUTINE BD_CUSERIN ( CARD, LARGE_FLD_INP, NG, NS ) INTEGER(LONG) :: USERIN_COMPS(LGUSERIN) - + ! ********************************************************************************************************************************** ! CUSERIN element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ---------------- ----------------- ! 1 Elem type ETYPE(nele) = 'USERIN ' @@ -95,7 +95,7 @@ SUBROUTINE BD_CUSERIN ( CARD, LARGE_FLD_INP, NG, NS ) ! 4 NG , Num GRID's EDAT(nedat+3) ! 5 NS , Num SPOINT's EDAT(nedat+4) ! 6 CID0, basic coord sys ID EDAT(nedat+5) - + ! Cont cards defining NG GRIDCOMP pairs ! 2-9 NG GRID/COMP pairs EDAT(nedat+?) @@ -104,20 +104,20 @@ SUBROUTINE BD_CUSERIN ( CARD, LARGE_FLD_INP, NG, NS ) ! 2-9 SPOINT ID's ! on optional continuation cards: ! 2-9 Grid ID's - + ! Format #2: ! 2 SPOINT ID 1 ! 3 "THRU" ! 4 SPOINT ID 2 - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) NAME = JCARD(1) ID = JCARD(2) - + ! Read fields 4 and 5 since we need the values of NG, NS below NG = 0 @@ -274,28 +274,28 @@ SUBROUTINE BD_CUSERIN ( CARD, LARGE_FLD_INP, NG, NS ) TOKEN = JCARD(3)(1:8) ! Only send the 1st 8 chars of this JCARD. It has been left justified CALL TOKCHK ( TOKEN, TOKTYP ) ! TOKTYP must be THRU', 'INTEGR', or 'BLANK' -tok: IF (TOKTYP == 'THRU ') THEN +tok: IF (TOKTYP == 'THRU ') THEN JERR = 0 IF (JCARD(2)(1:) /= ' ') THEN ! Get 1st SPOINT ID CALL I4FLD ( JCARD(2), JF(2), SPOINT1 ) - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1125) 'SCALAR POINT', JF(2), JCARD(1) WRITE(F06,1125) 'SCALAR POINT', JF(2), JCARD(1) ENDIF - + IF (JCARD(4)(1:) /= ' ') THEN ! Get 2nd SPOINT ID CALL I4FLD ( JCARD(4), JF(4), SPOINT2 ) - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1125) 'SCALAR POINT', JF(4), JCARD(1) WRITE(F06,1125) 'SCALAR POINT', JF(4), JCARD(1) ENDIF - + IF ((IERRFL(2)=='N') .AND. (IERRFL(4)=='N')) THEN ! Check SPOINT2 > SPOINT1 if there were no errors reading them IF (SPOINT2 <= SPOINT1) THEN JERR = JERR + 1 @@ -303,8 +303,8 @@ SUBROUTINE BD_CUSERIN ( CARD, LARGE_FLD_INP, NG, NS ) WRITE(ERR,1128) JCARD(1) WRITE(F06,1128) JCARD(1) ENDIF - ENDIF - + ENDIF + CALL BD_IMBEDDED_BLANK ( JCARD,2,0,4,0,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2, 4 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,5,6,7,8,9 )! Issue warning if fields 5, 6, 7, 8, 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -315,7 +315,7 @@ SUBROUTINE BD_CUSERIN ( CARD, LARGE_FLD_INP, NG, NS ) USERIN_SPOINTS(NS_FOUND) = SPOINT1 + J - 1 ENDDO ENDIF - + IF (NS_FOUND /= NS) THEN ! make sure we found the correct amount of SPOINT's FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1149) NAME, ID, NS, ' SPOINTs ', NS_FOUND @@ -423,9 +423,9 @@ SUBROUTINE BD_CUSERIN ( CARD, LARGE_FLD_INP, NG, NS ) 1125 FORMAT(' *ERROR 1125: NO ',A,' SPECIFIED IN FIELD',I4,' ON ',A,' CARD') 1128 FORMAT(' *ERROR 1128: ON ',A,' THE IDs MUST BE IN INCREASING ORDER FOR THRU OPTION') - + 1136 FORMAT(' *ERROR 1136: REQUIRED CONTINUATION FOR ',A,' ID = ',A,' MISSING') - + 1149 FORMAT(' *ERROR 1149: ',A,A,' HAS ',I8,A,' SPECIFIED ON THE PARENT ENTRY BUT ',I8,' HAVE BEEN FOUND ON CONTINUATION ENTRIES') 1150 FORMAT(' *ERROR 1150: ',A,A,' HAS BLANK FIELDS BETWEEN FIELDS OF DATA FROM FIELD ',I2,' TO FIELD 9. NOT ALLOWED') @@ -440,5 +440,5 @@ SUBROUTINE BD_CUSERIN ( CARD, LARGE_FLD_INP, NG, NS ) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CUSERIN diff --git a/Source/LK1/L1A-BD/BD_CUSERIN0.f90 b/Source/LK1/L1A-BD/BD_CUSERIN0.f90 index c3e9a77e..7831b2f1 100644 --- a/Source/LK1/L1A-BD/BD_CUSERIN0.f90 +++ b/Source/LK1/L1A-BD/BD_CUSERIN0.f90 @@ -1,50 +1,50 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_CUSERIN0 ( CARD, NG, NS ) - + ! Processes CUSERIN Bulk Data Cards to determine how many grids and SPOINT's are defined (so arrays can be allocated) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF USE TIMDAT, ONLY : TSEC - + USE BD_CUSERIN0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_CUSERIN' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG), INTENT(OUT) :: NG ! Number of GRID's INTEGER(LONG), INTENT(OUT) :: NS ! Number of SPOINT's INTEGER(LONG) :: I4INP = 0 ! A value read from input file that should be an integer value - + ! ********************************************************************************************************************************** @@ -56,11 +56,11 @@ SUBROUTINE BD_CUSERIN0 ( CARD, NG, NS ) ! 3 PID, "Prop" ID ! 4 NG , Num GRID's ! 5 NS , Num SPOINT's - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + NG = 0 CALL I4FLD ( JCARD(4), JF(4), I4INP ) IF (IERRFL(4) == 'N') THEN @@ -68,7 +68,7 @@ SUBROUTINE BD_CUSERIN0 ( CARD, NG, NS ) ELSE IERRFL(4) = 'N' ENDIF - + NS = 0 CALL I4FLD ( JCARD(5), JF(5), I4INP ) IF (IERRFL(5) == 'N') THEN @@ -76,11 +76,11 @@ SUBROUTINE BD_CUSERIN0 ( CARD, NG, NS ) ELSE IERRFL(5) = 'N' ENDIF - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_CUSERIN0 diff --git a/Source/LK1/L1A-BD/BD_DEBUG.f90 b/Source/LK1/L1A-BD/BD_DEBUG.f90 index 931a400b..557ecde7 100644 --- a/Source/LK1/L1A-BD/BD_DEBUG.f90 +++ b/Source/LK1/L1A-BD/BD_DEBUG.f90 @@ -1,63 +1,63 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_DEBUG ( CARD ) - + ! Processes DEBUG Bulk Data Cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, IERRFL, JCARD_LEN, JF, WARN_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, IERRFL, JCARD_LEN, JF, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE DEBUG_PARAMETERS, ONLY : DEBUG, NDEBUG - + USE BD_DEBUG_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_DEBUG' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: INDEX ! An index into array DEBUG read on B.D. DEBUG card INTEGER(LONG), PARAMETER :: LOWER = 1 ! Lower allowable value for an integer parameter INTEGER(LONG) :: UPPER = NDEBUG ! Upper allowable value for an integer parameter INTEGER(LONG) :: VALUE ! Value for DEBUG(INDEX) read on B.D. DEBUG card - + ! ********************************************************************************************************************************** ! DEBUG Bulk Data Card routine - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Read DEBUG index and DEBUG(INDEX) value CALL I4FLD ( JCARD(2), JF(2), INDEX ) @@ -79,11 +79,11 @@ SUBROUTINE BD_DEBUG ( CARD ) ENDIF ENDIF ENDIF - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,0,0,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2, 3 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 ) ! Issue warning if fields 4-9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN @@ -92,7 +92,7 @@ SUBROUTINE BD_DEBUG ( CARD ) 101 FORMAT(A) 1120 FORMAT(' *WARNING : DEBUG INDEX MUST BE >= ',I4,' AND <= ',I4,' BUT INPUT VALUE IS: ',I8,'. ENTRY IGNORED') - + ! ********************************************************************************************************************************** - + END SUBROUTINE BD_DEBUG diff --git a/Source/LK1/L1A-BD/BD_DEBUG0.f90 b/Source/LK1/L1A-BD/BD_DEBUG0.f90 index 3ffc8907..244561c9 100644 --- a/Source/LK1/L1A-BD/BD_DEBUG0.f90 +++ b/Source/LK1/L1A-BD/BD_DEBUG0.f90 @@ -1,62 +1,62 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_DEBUG0 ( CARD ) - + ! Processes DEBUG Bulk Data Cards in an initial pass through the Bulk Data. This is done to catch some DEBUG values that have to be ! set before LOADB is run. If there is an error here the DEBUG value is just not set. An error message is written when LOADB runs - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, IERRFL, JCARD_LEN, JF, WARN_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, IERRFL, JCARD_LEN, JF, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE DEBUG_PARAMETERS, ONLY : DEBUG, NDEBUG - + USE BD_DEBUG0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_DEBUG0' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: INDEX ! An index into array DEBUG read on B.D. DEBUG card INTEGER(LONG), PARAMETER :: LOWER = 1 ! Lower allowable value for an integer parameter INTEGER(LONG) :: UPPER = NDEBUG ! Upper allowable value for an integer parameter INTEGER(LONG) :: VALUE ! Value for DEBUG(INDEX) read on B.D. DEBUG card - + ! ********************************************************************************************************************************** ! DEBUG Bulk Data Card routine - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Read DEBUG index and DEBUG(INDEX) value CALL I4FLD ( JCARD(2), JF(2), INDEX ) @@ -68,10 +68,10 @@ SUBROUTINE BD_DEBUG0 ( CARD ) ENDIF ENDIF ENDIF - + ! ********************************************************************************************************************************** 101 FORMAT(A) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_DEBUG0 diff --git a/Source/LK1/L1A-BD/BD_EIGR.f90 b/Source/LK1/L1A-BD/BD_EIGR.f90 index 8eea0460..78c78a24 100644 --- a/Source/LK1/L1A-BD/BD_EIGR.f90 +++ b/Source/LK1/L1A-BD/BD_EIGR.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_EIGR ( CARD, LARGE_FLD_INP, EIGFND ) - + ! Processes EIGR Bulk Data Cards. Reads and checks data and write data to file LINK1M. USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -60,9 +60,9 @@ SUBROUTINE BD_EIGR ( CARD, LARGE_FLD_INP, EIGFND ) ! ********************************************************************************************************************************** ! EIGR Bulk Data Card routine - + ! Card 1: - + ! Field Item Description Type ! ----- ------------ ----------- ---- ! 2 EIG_SID EIGR set ID Integer @@ -74,17 +74,17 @@ SUBROUTINE BD_EIGR ( CARD, LARGE_FLD_INP, EIGFND ) ! 8 EIG_VECS Are eigenvecs requested Char (def = Y) ! 9 EIG_CRIT Criteria for ortho check Real >= 0. or blank (used for orthog. check) ! Required card 2: - -! Field Item Description Type + +! Field Item Description Type ! ----- ------------ ------------- ---- ! 2 EIG_NORM Type of eigenvec normalization Char ! 3 EIG_GRID Grid to normailze on Integer ! 4 EIG_COMP DOF comp to normalize on Integer -! 5 EIG_SIGMA Shift eigen Real - +! 5 EIG_SIGMA Shift eigen Real + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) JERR = 0 @@ -124,7 +124,7 @@ SUBROUTINE BD_EIGR ( CARD, LARGE_FLD_INP, EIGFND ) WRITE(F06,1164) CHRINP ENDIF ENDIF - + CALL R8FLD ( JCARD(4), JF(4), EIG_FRQ1 ) ! Read lower frequency of search range CALL R8FLD ( JCARD(5), JF(5), EIG_FRQ2 ) ! Read higher frequency of search range CALL I4FLD ( JCARD(6), JF(6), EIG_N1 ) ! Read 1st mode number @@ -146,17 +146,17 @@ SUBROUTINE BD_EIGR ( CARD, LARGE_FLD_INP, EIGFND ) CALL EIGR_DATA_CHECK CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 - CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields + CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields IF ((IERRFL(2) == 'Y') .OR. (IERRFL(3) == 'Y') .OR. &! Increment JERR if there were errors reading any of the data fields (IERRFL(4) == 'Y') .OR. (IERRFL(5) == 'Y') .OR. & (IERRFL(6) == 'Y') .OR. (IERRFL(7) == 'Y') .OR. & (IERRFL(8) == 'Y') .OR. (IERRFL(9) == 'Y')) THEN - JERR = JERR + 1 + JERR = JERR + 1 ENDIF ! Second Card only required if user wants other than default renormalization of eigenvectors: - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC ( CARD, ICONT, IERR ) ELSE @@ -177,7 +177,7 @@ SUBROUTINE BD_EIGR ( CARD, LARGE_FLD_INP, EIGFND ) IF (EIG_NORM == 'POINT ') THEN CALL I4FLD ( JCARD(3), JF(3), EIG_GRID ) CALL I4FLD ( JCARD(4), JF(4), EIG_COMP ) - IF(IERRFL(4) == 'N') THEN + IF(IERRFL(4) == 'N') THEN IF ((EIG_COMP < 1) .OR. (EIG_COMP > 6)) THEN JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 @@ -185,7 +185,7 @@ SUBROUTINE BD_EIGR ( CARD, LARGE_FLD_INP, EIGFND ) WRITE(F06,1118) JF(4), EIG_SID, EIG_COMP ENDIF ENDIF - + IF ((IERRFL(3) == 'Y') .OR. (IERRFL(4) == 'Y')) THEN JERR = JERR + 1 ENDIF @@ -239,20 +239,20 @@ SUBROUTINE BD_EIGR ( CARD, LARGE_FLD_INP, EIGFND ) 1118 FORMAT(' *ERROR 1118: DOF COMPONENT NUMBER IN FIELD ',I3,' OF EIGR CONTINUATION ENTRY WITH ID = ',I8,' MUST BE A SINGLE', & ' DIGIT 1-6' & - ,/,14X,' BUT VALUE IS = ',I8) + ,/,14X,' BUT VALUE IS = ',I8) 1164 FORMAT(' *ERROR 1164: METHOD MUST BE GIV, MGIV, OR INV ON EIGR ENTRY. VALUE IS ',A) 1165 FORMAT(' *ERROR 1165: NORMALIZATION FACTOR ON EIGR CONTINUATION ENTRY MUST BE MASS, MAX, POINT or NONE. VALUE INPUT IS = ',A) - + 1117 FORMAT(' *ERROR 1117: ',A,' ENTRY WITH SET ID = ',A,' IS A DUPLICATE SET ID.') ! ********************************************************************************************************************************* ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE EIGR_DATA_CHECK @@ -270,7 +270,7 @@ SUBROUTINE EIGR_DATA_CHECK ENDIF EIG_SEARCH_CRIT(1:) = ' ' - + IF (JCARD(7)(1:) /= ' ') THEN ! Search criteria must be mode number so check EIG_N1,2 EIG_SEARCH_CRIT = 'MODE NMBR' IF (JCARD(6)(1:) == ' ') THEN diff --git a/Source/LK1/L1A-BD/BD_FORMOM.f90 b/Source/LK1/L1A-BD/BD_FORMOM.f90 index 3211cc54..821a7400 100644 --- a/Source/LK1/L1A-BD/BD_FORMOM.f90 +++ b/Source/LK1/L1A-BD/BD_FORMOM.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_FORMOM ( CARD, CC_LOAD_FND ) - + ! Processes FORCE, MOMENT Bulk Data Cards. Also, the set ID is written to array FORMOM_SIDS which is checked ! in subroutine LOADB to make sure that all set ID's requested in Case Control were found in the Bulk Data. ! A record is written to file LINK1I for each FORCE or MOMENT Bulk Data card with the following data: ! SETID, GRID_NO, CID, FORMON1, FORMON2, FORMON3, FOR_OR_MOM - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1I USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, LFORCE, LSUB, NFORCE, NSUB, WARN_ERR @@ -39,24 +39,24 @@ SUBROUTINE BD_FORMOM ( CARD, CC_LOAD_FND ) USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : EPSIL, SUPWARN USE MODEL_STUF, ONLY : FORMOM_SIDS, SUBLOD - + USE BD_FORMOM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_FORMOM' CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: FOR_OR_MOM ! = 'FORCE' or 'MOMENT' (JCARD(1) from parent entry) CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2) ! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID - + INTEGER(LONG) :: CID = 0 ! Coord ID on the FORCE/MOMENT card INTEGER(LONG) :: GRID_NO = 0 ! Grid ID on the FORCE/MOMENT card INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: JERR = 0 ! A local error count INTEGER(LONG) :: SETID = 0 ! Set ID on the FORCE/MOMENT card - + REAL(DOUBLE) :: EPS1 ! A small number to compare real zero REAL(DOUBLE) :: FORMON1 = ZERO ! Force/moment magnitude for 1st dir in coord sys CID (= SCALEF*V1) REAL(DOUBLE) :: FORMON2 = ZERO ! Force/moment magnitude for 2nd dir in coord sys CID (= SCALEF*V2) @@ -66,14 +66,14 @@ SUBROUTINE BD_FORMOM ( CARD, CC_LOAD_FND ) REAL(DOUBLE) :: V2 = ZERO ! Amplitude of force/mom on FORCE/MOMENT card in 2nd direction of CID REAL(DOUBLE) :: V3 = ZERO ! Amplitude of force/mom on FORCE/MOMENT card in 3rd direction of CID REAL(DOUBLE) :: VMAG = ZERO ! V!**2 + V2**2 + V3**2 - + INTRINSIC :: DABS ! ********************************************************************************************************************************** ! FORCE / MOMENT Bulk Data Card routine - + ! FIELD ITEM VARIABLE ! ----- ------------ ------------- ! 2 Load set ID FORMOM_SIDS(I), SETID @@ -83,14 +83,14 @@ SUBROUTINE BD_FORMOM ( CARD, CC_LOAD_FND ) ! 6 Vect. comp. 1 V1 ! 7 Vect. comp. 2 V2 ! 8 Vect. comp. 3 V3 - + ! SCALEF, V1, V2, and V3 are processed to force component ! form ( Fx,Fy,Fz or Mx,My,Mz ) and stored in FORMON1-3 - + EPS1 = EPSIL(1) ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) IF (JCARD(1)(1:5) == 'FORCE' ) THEN @@ -98,7 +98,7 @@ SUBROUTINE BD_FORMOM ( CARD, CC_LOAD_FND ) ELSE IF (JCARD(1)(1:6) == 'MOMENT') THEN FOR_OR_MOM = 'MOMENT ' ENDIF - + ! Check for overflow NFORCE = NFORCE+1 @@ -110,7 +110,7 @@ SUBROUTINE BD_FORMOM ( CARD, CC_LOAD_FND ) !xx ENDIF ! Read and check data - + CALL I4FLD ( JCARD(2), JF(2), SETID ) IF (IERRFL(2) == 'N') THEN DO I=1,NSUB @@ -120,7 +120,7 @@ SUBROUTINE BD_FORMOM ( CARD, CC_LOAD_FND ) ENDDO FORMOM_SIDS(NFORCE) = SETID ENDIF - + CALL I4FLD ( JCARD(3), JF(3), GRID_NO ) ! Read grid that force is at CALL I4FLD ( JCARD(4), JF(4), CID ) ! Read coord system force is described in CALL R8FLD ( JCARD(5), JF(5), SCALEF ) ! Read force scale factor @@ -137,7 +137,7 @@ SUBROUTINE BD_FORMOM ( CARD, CC_LOAD_FND ) JERR = JERR + 1 ENDIF ENDDO - + ! Write data to file LINK1I if there were no errors IF (JERR == 0) THEN @@ -155,14 +155,14 @@ SUBROUTINE BD_FORMOM ( CARD, CC_LOAD_FND ) FORMON1 = ZERO FORMON2 = ZERO FORMON3 = ZERO - ELSE + ELSE FORMON1 = SCALEF*V1 FORMON2 = SCALEF*V2 FORMON3 = SCALEF*V3 ENDIF WRITE(L1I) SETID, GRID_NO, CID, FORMON1, FORMON2, FORMON3, FOR_OR_MOM ENDIF - + RETURN @@ -176,5 +176,5 @@ SUBROUTINE BD_FORMOM ( CARD, CC_LOAD_FND ) ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_FORMOM diff --git a/Source/LK1/L1A-BD/BD_GRAV.f90 b/Source/LK1/L1A-BD/BD_GRAV.f90 index 3c79d6fd..d37b7678 100644 --- a/Source/LK1/L1A-BD/BD_GRAV.f90 +++ b/Source/LK1/L1A-BD/BD_GRAV.f90 @@ -1,48 +1,48 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_GRAV ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) - + ! Processes GRAV Bulk Data Cards. Also, the set ID is written to array GRAV_SIDS which is checked in subroutine ! LOADB to make sure that all set ID's requested in Case Control were found in the Bulk Data. ! A record is written to file LINK1P for each GRAV Bulk Data card with the following data: ! SETID, CID, ACCEL(1-6) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1P USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LGRAV, LSUB, NGRAV, NSUB USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : GRAV_SIDS, SUBLOD - + USE BD_GRAV_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_GRAV' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -50,7 +50,7 @@ SUBROUTINE BD_GRAV ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of 8 characters making up CARD CHARACTER(LEN(JCARD)) :: NAME ! JCARD(1) from parent entry CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2)! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID - + INTEGER(LONG) :: CID = 0 ! Coord ID on the GRAV card INTEGER(LONG) :: CONT_COUNT = 0 ! Count of number of continuation entries INTEGER(LONG) :: I ! DO loop index @@ -61,18 +61,18 @@ SUBROUTINE BD_GRAV ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) INTEGER(LONG) :: JERR = 0 ! A local error count INTEGER(LONG) :: SETID = 0 ! Set ID on the GRAV card - + REAL(DOUBLE) :: ACCEL(6) ! Gravity magnitudes in the 3 translational and 3 rotational dirs REAL(DOUBLE) :: SCALEF = ZERO ! Scale factor on the GRAV card REAL(DOUBLE) :: VEC(6) ! Vector components of gravity read from the GRAV entry - + INTRINSIC :: DABS ! ********************************************************************************************************************************** ! GRAV Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Load set ID GRAV_SIDS(ngrav) @@ -83,7 +83,7 @@ SUBROUTINE BD_GRAV ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ! on optional second card: ! 2 GID ! 3-5 Vector comps VEC(4-6) - + ! Initialize variables DO I=1,6 @@ -92,10 +92,10 @@ SUBROUTINE BD_GRAV ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ENDDO ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) NAME = JCARD(1) - + ! Check for overflow NGRAV = NGRAV+1 @@ -107,33 +107,33 @@ SUBROUTINE BD_GRAV ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) !xx ENDIF ! Read and check data - + CALL I4FLD ( JCARD(2), JF(2), SETID ) IF (IERRFL(2) == 'N') THEN DO I=1,NSUB IF (SETID == SUBLOD(I,1)) THEN CC_LOAD_FND(I,1) = 'Y' ENDIF - ENDDO + ENDDO GRAV_SIDS(NGRAV) = SETID ENDIF - + CALL I4FLD ( JCARD(3), JF(3), CID ) CALL R8FLD ( JCARD(4), JF(4), SCALEF ) CALL R8FLD ( JCARD(5), JF(5), VEC(1) ) CALL R8FLD ( JCARD(6), JF(6), VEC(2) ) CALL R8FLD ( JCARD(7), JF(7), VEC(3) ) - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-7 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,8,9 ) ! Issue warning if fields 8,9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + DO I=2,7 IF (IERRFL(I) == 'Y') THEN JERR = JERR + 1 ENDIF ENDDO - + ! Optional Second Card: IF (LARGE_FLD_INP == 'N') THEN @@ -156,7 +156,7 @@ SUBROUTINE BD_GRAV ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) WRITE(F06,1194) NAME, JF(2), CONT_COUNT, JCARD(2) ENDIF ENDIF - + CALL R8FLD ( JCARD(3), JF(3), VEC(4) ) CALL R8FLD ( JCARD(4), JF(4), VEC(5) ) CALL R8FLD ( JCARD(5), JF(5), VEC(6) ) @@ -181,7 +181,7 @@ SUBROUTINE BD_GRAV ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ENDDO WRITE(L1P) SETID, CID, GID, (ACCEL(I),I=1,6) ENDIF - + RETURN @@ -194,5 +194,5 @@ SUBROUTINE BD_GRAV ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ,I3,' IS = ',A) ! ********************************************************************************************************************************* - + END SUBROUTINE BD_GRAV diff --git a/Source/LK1/L1A-BD/BD_GRDSET.f90 b/Source/LK1/L1A-BD/BD_GRDSET.f90 index 8c3005fe..f74b2fb2 100644 --- a/Source/LK1/L1A-BD/BD_GRDSET.f90 +++ b/Source/LK1/L1A-BD/BD_GRDSET.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_GRDSET ( CARD ) - + ! Processes GRDSET Bulk Data Cards. Subr GRDSET0 read fields 3, 7 and 8 of the GRDSET card so that those values ! could be used on GRID cards that may have been in the deck before the GRDSET card. This subr reads tham again ! and checks them for error: @@ -33,28 +33,28 @@ SUBROUTINE BD_GRDSET ( CARD ) ! 1) GRDSET3 is field 3 for a GRID card (the input coord system) ! 2) GRDSET7 is field 7 for a GRID card (the global coord system) ! 2) GRDSET7 is field 8 for a GRID card (the perm SPC's) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NGRDSET USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRDSET3, GRDSET7, GRDSET8 - + USE BD_GRDSET_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_GRDSET' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 8*BYTE) :: IP6TYP ! An output from subr IP6CHK called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARDO ! An output from subr IP6CHK called herein - + INTEGER(LONG) :: I4INP = 0 ! A value read from input file that should be an integer value INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein INTEGER(LONG) :: PGM_ERR = 0 ! A count of the number of coding errors - + ! ********************************************************************************************************************************** @@ -62,18 +62,18 @@ SUBROUTINE BD_GRDSET ( CARD ) ! read when B.D. deck was scanned originally. Here, we read card to detect ! and report read errors and to check for coding error (if values don't ! agree with those read in BD_GRDSET0) - + ! FIELD ITEM ARRAY ELEMENT ! ----- ---------------- ------------ ! 3 Input Coord sys GRDSET3 ! 7 Displ Coord sys GRDSET7 ! 8 PSPC GRDSET8 - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Read and check data IF (JCARD(3)(1:) /= ' ') THEN ! Read input coord sys ID in field 3 and store in GRDSET3 @@ -81,32 +81,32 @@ SUBROUTINE BD_GRDSET ( CARD ) IF (IERRFL(3) == 'N') THEN IF (I4INP /= GRDSET3) THEN PGM_ERR = PGM_ERR + 1 ! Coding error: This value doesn't agree with that read in LOADB0 - WRITE(ERR,1185) SUBR_NAME,JF(3),JCARD(1),GRDSET3,I4INP - WRITE(F06,1185) SUBR_NAME,JF(3),JCARD(1),GRDSET3,I4INP + WRITE(ERR,1185) SUBR_NAME,JF(3),JCARD(1),GRDSET3,I4INP + WRITE(F06,1185) SUBR_NAME,JF(3),JCARD(1),GRDSET3,I4INP ENDIF ENDIF ENDIF - + IF (JCARD(7)(1:) /= ' ') THEN ! Read global coord sys ID in field 7 and store in GRDSET7 CALL I4FLD ( JCARD(7), JF(7), I4INP ) IF (IERRFL(7) == 'N') THEN IF (I4INP /= GRDSET7) THEN - PGM_ERR = PGM_ERR + 1 ! Coding error: This value doesn't agree with that read in LOADB0 - WRITE(ERR,1185) SUBR_NAME,JF(7),JCARD(1),GRDSET7,I4INP - WRITE(F06,1185) SUBR_NAME,JF(7),JCARD(1),GRDSET7,I4INP + PGM_ERR = PGM_ERR + 1 ! Coding error: This value doesn't agree with that read in LOADB0 + WRITE(ERR,1185) SUBR_NAME,JF(7),JCARD(1),GRDSET7,I4INP + WRITE(F06,1185) SUBR_NAME,JF(7),JCARD(1),GRDSET7,I4INP ENDIF ENDIF ENDIF - + IF (JCARD(8)(1:) /= ' ') THEN ! Read perm SPC's in field 8 and store in GRDSET8 CALL IP6CHK ( JCARD(8), JCARDO, IP6TYP, IDUM ) IF (IP6TYP == 'COMP NOS') THEN CALL I4FLD ( JCARDO, JF(8), I4INP ) IF (IERRFL(8) == 'N') THEN IF (I4INP /= GRDSET8) THEN - PGM_ERR = PGM_ERR + 1 ! Coding error: This value doesn't agree with that read in LOADB0 - WRITE(ERR,1185) SUBR_NAME,JF(8),JCARD(1),GRDSET8,I4INP - WRITE(F06,1185) SUBR_NAME,JF(8),JCARD(1),GRDSET8,I4INP + PGM_ERR = PGM_ERR + 1 ! Coding error: This value doesn't agree with that read in LOADB0 + WRITE(ERR,1185) SUBR_NAME,JF(8),JCARD(1),GRDSET8,I4INP + WRITE(F06,1185) SUBR_NAME,JF(8),JCARD(1),GRDSET8,I4INP ENDIF ENDIF ELSE @@ -115,7 +115,7 @@ SUBROUTINE BD_GRDSET ( CARD ) WRITE(F06,1123) JF(8),JCARD(1),JF(8),JCARD(8) ENDIF ENDIF - + CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,0,7,0,0 ) ! Make sure that there are no imbed blanks in fields 3,7. Field 8 is PSPC CALL CARD_FLDS_NOT_BLANK ( JCARD,2,0,4,5,6,0,0,9 ) ! Issue warning if fields 2, 4, 5, 6, 9 are not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -139,5 +139,5 @@ SUBROUTINE BD_GRDSET ( CARD ) ,/,14X,' AND: ',I8,' (HERE)') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_GRDSET diff --git a/Source/LK1/L1A-BD/BD_GRDSET0.f90 b/Source/LK1/L1A-BD/BD_GRDSET0.f90 index bc4ac064..ba495df4 100644 --- a/Source/LK1/L1A-BD/BD_GRDSET0.f90 +++ b/Source/LK1/L1A-BD/BD_GRDSET0.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_GRDSET0 ( CARD ) - + ! Processes GRDSET Bulk Data Cards from LOADB0 to set GRDSET3, 7, 8 prior ! to reading bulk data in LOADB. If there are errors reading the GRDSET ! card entries, messages are not printed out until LOADB calls BD_GRDSET @@ -33,43 +33,43 @@ SUBROUTINE BD_GRDSET0 ( CARD ) ! 1) GRDSET3 is field 3 for a GRID card (the input coord system) ! 2) GRDSET7 is field 7 for a GRID card (the global coord system) ! 2) GRDSET7 is field 8 for a GRID card (the perm SPC's) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, JF, IERRFL, NGRDSET USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRDSET3, GRDSET7, GRDSET8 - + USE BD_GRDSET0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_GRDSET0' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 8*BYTE) :: IP6TYP ! An output from subr IP6CHK called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARDO ! An output from subr IP6CHK called herein - + INTEGER(LONG) :: I4INP = 0 ! A value read from input file that should be an integer value INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein - + ! ********************************************************************************************************************************** ! GRDSET Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ---------------- ------------ ! 3 Input Coord sys GRDSET3 ! 7 Displ Coord sys GRDSET7 ! 8 PSPC GRDSET8 - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Count the number of GRDSET cards. The count will be checked to make sure that there is no more than 1 in subr LOADB NGRDSET = NGRDSET + 1 @@ -87,7 +87,7 @@ SUBROUTINE BD_GRDSET0 ( CARD ) IERRFL(3) = 'N' ENDIF ENDIF - + IF (JCARD(7)(1:) /= ' ') THEN CALL I4FLD ( JCARD(7), JF(7), I4INP ) IF (IERRFL(7) == 'N') THEN @@ -96,7 +96,7 @@ SUBROUTINE BD_GRDSET0 ( CARD ) IERRFL(7) = 'N' ENDIF ENDIF - + IF (JCARD(8)(1:) /= ' ') THEN CALL IP6CHK ( JCARD(8), JCARDO, IP6TYP, IDUM ) IF (IP6TYP == 'COMP NOS') THEN @@ -116,5 +116,5 @@ SUBROUTINE BD_GRDSET0 ( CARD ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_GRDSET0 diff --git a/Source/LK1/L1A-BD/BD_GRID.f90 b/Source/LK1/L1A-BD/BD_GRID.f90 index 3f171089..a4100c49 100644 --- a/Source/LK1/L1A-BD/BD_GRID.f90 +++ b/Source/LK1/L1A-BD/BD_GRID.f90 @@ -1,66 +1,66 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_GRID ( CARD ) - + ! Processes GRID Bulk Data Cards. Reads and checks: ! 1) Grid ID (field 2) and enters it into array GRID ! 2) Input coord sys (field 3) and enters it into array GRID (or uses GRDSET3, if input on a GRDSET card) ! 3) Global coord sys (field 7) and enters it into array GRID (or uses GRDSET7, if input on a GRDSET card) ! 4) Permanent SPC's (field 8) and enters it into array GRID (or uses GRDSET8, if input on a GRDSET card) -! 5) Grid coordinates (fields 4, 5 and 6) and enters tham into array RGRID - +! 5) Grid coordinates (fields 4, 5 and 6) and enters tham into array RGRID + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LGRID, NGRID, NGRDSET USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRID, RGRID, GRDSET3, GRDSET7, GRDSET8 - + USE BD_GRID_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_GRID' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 8*BYTE) :: IP6TYP ! An output from subr IP6CHK called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARDO ! An output from subr IP6CHK called herein CHARACTER( 8*BYTE) :: TOKEN ! The 1st 8 characters from a JCARD - CHARACTER( 8*BYTE) :: TOKTYP ! The type of TOKEN (looking for 'INTEGER ') - + CHARACTER( 8*BYTE) :: TOKTYP ! The type of TOKEN (looking for 'INTEGER ') + INTEGER(LONG) :: I4INP = 0 ! A value read from input file that should be an integer value INTEGER(LONG) :: IDUM ! Dummy arg in subr IP^CHK not used herein - + ! ********************************************************************************************************************************** ! GRID Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Grid number GRID (ngrid,1) @@ -71,12 +71,12 @@ SUBROUTINE BD_GRID ( CARD ) ! 7 Disp. co-ord GRID (ngrid,3) ! 8 PSPC GRID (ngrid,4) ! 10 LB = 1 GRID (ngrid,5) key to put a line break into F06 file after outputs for this grid -! none GRID/SPOINT GRID (ngrid,6) = 6 for a physical grid - +! none GRID/SPOINT GRID (ngrid,6) = 6 for a physical grid + ! Make JCARD from ARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow NGRID = NGRID+1 @@ -86,7 +86,7 @@ SUBROUTINE BD_GRID ( CARD ) !xx WRITE(F06,1163) SUBR_NAME,JCARD(1),LGRID !xx CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit !xx ENDIF - + ! Read and check data CALL I4FLD ( JCARD(2), JF(2), I4INP ) ! Read grid ID @@ -99,7 +99,7 @@ SUBROUTINE BD_GRID ( CARD ) WRITE(F06,1168) JCARD(2) ENDIF ENDIF - + IF (JCARD(3)(1:) == ' ') THEN ! Read input coord sys or set to GRDSET value IF (NGRDSET > 0) THEN GRID(NGRID,2) = GRDSET3 @@ -109,11 +109,11 @@ SUBROUTINE BD_GRID ( CARD ) ELSE CALL I4FLD ( JCARD(3), JF(3), GRID(NGRID,2) ) ENDIF - + CALL R8FLD ( JCARD(4), JF(4), RGRID(NGRID,1) ) ! Read 1st component of grid coordinates CALL R8FLD ( JCARD(5), JF(5), RGRID(NGRID,2) ) ! Read 2nd component of grid coordinates CALL R8FLD ( JCARD(6), JF(6), RGRID(NGRID,3) ) ! Read 3rd component of grid coordinates - + IF (JCARD(7)(1:) == ' ') THEN ! Read global coord sys or set to GRDSET value IF (NGRDSET > 0) THEN GRID(NGRID,3) = GRDSET7 @@ -123,7 +123,7 @@ SUBROUTINE BD_GRID ( CARD ) ELSE CALL I4FLD ( JCARD(7), JF(7), GRID(NGRID,3) ) ENDIF - + IF (JCARD(8)(1:) == ' ') THEN ! Read perm SPC's or set to GRDSET value IF (NGRDSET > 0) THEN GRID(NGRID,4) = GRDSET8 @@ -140,7 +140,7 @@ SUBROUTINE BD_GRID ( CARD ) WRITE(F06,1124) JF(8), JCARD(1), JCARD(2), JF(8), JCARD(8) ENDIF ENDIF - + TOKEN = JCARD(10)(1:8) ! Only send the 1st 8 chars of this JCARD. It has been left justified CALL TOKCHK ( TOKEN, TOKTYP ) ! See if field 10 has an integer. If so call it LB IF (TOKTYP == 'INTEGER ') THEN @@ -155,7 +155,7 @@ SUBROUTINE BD_GRID ( CARD ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,0,0 ) ! Make sure that there are no imb blanks in fields 2-7. Field 8 is PSPC CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,0,9 ) ! Issue warning if field 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN @@ -170,5 +170,5 @@ SUBROUTINE BD_GRID ( CARD ) 1168 FORMAT(' *ERROR 1168: ZERO OR NEGATIVE GRID ID NOT ALLOWED ON GRID CARD. VALUE IS = ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_GRID diff --git a/Source/LK1/L1A-BD/BD_IMBEDDED_BLANK.f90 b/Source/LK1/L1A-BD/BD_IMBEDDED_BLANK.f90 index bb90648a..d1eea936 100644 --- a/Source/LK1/L1A-BD/BD_IMBEDDED_BLANK.f90 +++ b/Source/LK1/L1A-BD/BD_IMBEDDED_BLANK.f90 @@ -1,46 +1,46 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_IMBEDDED_BLANK ( JCARD, CF2, CF3, CF4, CF5, CF6, CF7, CF8, CF9 ) - + ! Prepares message when some fields of a B.D card have imbedded blanks when they should not (but field can be completely blank) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, BLNK_SUB_NAM, JCARD_LEN USE TIMDAT, ONLY : TSEC - + USE BD_IMBEDDED_BLANK_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_IMBEDDED_BLANK' CHARACTER(LEN=*), INTENT(IN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER( 1*BYTE) :: IMB_BLANK(2:9) ! 'Y'/'N' indicator of whether fields 2-9 have imbedded blanks - + INTEGER(LONG), INTENT(IN) :: CF2 ! = 2 if field 2 is to be checked, or 0 otherwise INTEGER(LONG), INTENT(IN) :: CF3 ! = 3 if field 3 is to be checked, or 0 otherwise INTEGER(LONG), INTENT(IN) :: CF4 ! = 4 if field 4 is to be checked, or 0 otherwise @@ -55,7 +55,7 @@ SUBROUTINE BD_IMBEDDED_BLANK ( JCARD, CF2, CF3, CF4, CF5, CF6, CF7, CF8, CF9 ) INTEGER(LONG) :: JCARDI_END ! Position where data ends in one JCARD INTEGER(LONG) :: NUMBER(2:9) ! Number of imbedded blanks found in a Bulk Data card field - + ! ********************************************************************************************************************************** @@ -74,9 +74,9 @@ SUBROUTINE BD_IMBEDDED_BLANK ( JCARD, CF2, CF3, CF4, CF5, CF6, CF7, CF8, CF9 ) DO I=2,9 IMB_BLANK(I) = 'N' - ENDDO + ENDDO -! Find beginning and end of data in +! Find beginning and end of data in ! Check fields for any imbedded blanks and set error if so @@ -102,7 +102,7 @@ SUBROUTINE BD_IMBEDDED_BLANK ( JCARD, CF2, CF3, CF4, CF5, CF6, CF7, CF8, CF9 ) JCARDI_BEG = J EXIT j_do1 ENDIF - ENDDO j_do1 + ENDDO j_do1 j_do2: DO J=JCARD_LEN,1,-1 ! Find where data ends in this field IF (JCARD(I)(J:J) == ' ') THEN @@ -154,8 +154,8 @@ SUBROUTINE BD_IMBEDDED_BLANK ( JCARD, CF2, CF3, CF4, CF5, CF6, CF7, CF8, CF9 ) 1122 FORMAT(' *ERROR 1122: THERE WERE ',I2,' IMBEDDED BLANKS FOUND IN FIELD ',I2,' OF BULK DATA ENTRY ',A,' ',A, & '. IMBEDDED BLANKS NOT ALLOWED HERE') - + ! ********************************************************************************************************************************** - + END SUBROUTINE BD_IMBEDDED_BLANK diff --git a/Source/LK1/L1A-BD/BD_LOAD.f90 b/Source/LK1/L1A-BD/BD_LOAD.f90 index 8b90f952..d8dcdcb6 100644 --- a/Source/LK1/L1A-BD/BD_LOAD.f90 +++ b/Source/LK1/L1A-BD/BD_LOAD.f90 @@ -1,46 +1,46 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) - + ! Processes LOAD Bulk Data Cards. Reads and checks data and enters data into arrays LOAD_SIDS and LOAD_FACS ! 1) Load set ID's from the LOAD Bulk Data card are entered into array LOAD_SIDS ! 2) Scale factors (overall for this LOAD card and individual for each set ID) are entered into array LOAD_FACS - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LLOADR, LSUB, NLOAD, LLOADC, NSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : LOAD_SIDS, LOAD_FACS, SUBLOD - + USE BD_LOAD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_LOAD' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2) ! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID @@ -48,19 +48,19 @@ SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: NAME ! JCARD(1) from parent entry - + INTEGER(LONG) :: I,J,K ! DO loop index INTEGER(LONG) :: NUM_PAIRS ! Counter on number of pairs of set ID's and scale factors on LOAD card INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: SETID ! Set ID for this LOAD Bulk Data card - + ! ********************************************************************************************************************************** ! LOAD Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 SID LOAD_SIDS(nload,1) @@ -71,9 +71,9 @@ SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ! 7 L2 LOAD_SIDS(nload,3) ! 8 S3 LOAD_FACS(nload,4) ! 9 L3 LOAD_SIDS(nload,4) - + ! Optiona continuation cards: -! +! ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 S4 LOAD_FACS(nload,5) @@ -84,14 +84,14 @@ SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ! 7 L6 LOAD_SIDS(nload,7) ! 8 S7 LOAD_FACS(nload,8) ! 9 L7 LOAD_SIDS(nload,8) - + ! Subsequent con't cards follow the same patterm as the 1st - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + NAME = JCARD(1) ! Check for overflow @@ -103,7 +103,7 @@ SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) !xx WRITE(F06,1163) SUBR_NAME,JCARD(1),LLOADR !xx CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit !xx ENDIF - + ! Read and check data on parent card CALL I4FLD ( JCARD(2), JF(2), LOAD_SIDS(NLOAD,1) ) ! Read set ID for this LOAD Bulk Data card @@ -114,8 +114,8 @@ SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) CC_LOAD_FND(I,1) = 'Y' ENDIF ENDDO - ENDIF - + ENDIF + CALL R8FLD ( JCARD(3), JF(3), LOAD_FACS(NLOAD,1) ) ! Read overall scale factor on LOAD card NUM_PAIRS = 1 ! Read pairs of load mags and load ID's on parent card. @@ -129,7 +129,7 @@ SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) WRITE(ERR,1139) SETID, NAME, NAME, LLOADC WRITE(F06,1139) SETID, NAME, NAME, LLOADC CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit - ENDIF + ENDIF CALL R8FLD ( JCARD(J) , JF(J) , LOAD_FACS(NLOAD,NUM_PAIRS) ) CALL I4FLD ( JCARD(J+1), JF(J+1), LOAD_SIDS(NLOAD,NUM_PAIRS) ) DO K=1,NUM_PAIRS-1 ! Check for duplicate set ID's @@ -138,7 +138,7 @@ SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) WRITE(ERR,1140) LOAD_SIDS(NLOAD,NUM_PAIRS),NAME,SETID WRITE(F06,1140) LOAD_SIDS(NLOAD,NUM_PAIRS),NAME,SETID ENDIF - ENDDO + ENDDO IF (IERRFL(J+1) == 'N') THEN IF (LOAD_SIDS(NLOAD,NUM_PAIRS) <= 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -147,11 +147,11 @@ SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ENDIF ENDIF ENDIF - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + ! Read and check data on optional continuation cards DO @@ -172,7 +172,7 @@ SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) WRITE(ERR,1139) SETID, NAME, NAME, LLOADC WRITE(F06,1139) SETID, NAME, NAME, LLOADC CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit - ENDIF + ENDIF CALL R8FLD ( JCARD(J) , JF(J) , LOAD_FACS(NLOAD,NUM_PAIRS) ) CALL I4FLD ( JCARD(J+1), JF(J+1), LOAD_SIDS(NLOAD,NUM_PAIRS) ) DO K=1,NUM_PAIRS-1 ! Check for duplicate set ID's @@ -181,7 +181,7 @@ SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) WRITE(ERR,1140) LOAD_SIDS(NLOAD,NUM_PAIRS),NAME,SETID WRITE(F06,1140) LOAD_SIDS(NLOAD,NUM_PAIRS),NAME,SETID ENDIF - ENDDO + ENDDO IF (IERRFL(J+1) == 'N') THEN IF (LOAD_SIDS(NLOAD,NUM_PAIRS) <= 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -191,7 +191,7 @@ SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ENDIF ENDIF ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9)! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -200,8 +200,8 @@ SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) EXIT ENDIF - ENDDO - + ENDDO + RETURN @@ -219,5 +219,5 @@ SUBROUTINE BD_LOAD ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) 1176 FORMAT(' *ERROR 1176: LOAD SET ID ON BULK DATA LOAD ENTRY ID = ',I8,' IN FIELD ',I3,' IS = ',I8,'. MUST BE > 0') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_LOAD diff --git a/Source/LK1/L1A-BD/BD_LOAD0.f90 b/Source/LK1/L1A-BD/BD_LOAD0.f90 index 671a828a..5833fd57 100644 --- a/Source/LK1/L1A-BD/BD_LOAD0.f90 +++ b/Source/LK1/L1A-BD/BD_LOAD0.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_LOAD0 ( CARD, LARGE_FLD_INP, ILOAD ) - + ! Processes LOAD Bulk Data Cards to determine the number of pairs of load SID's and magnitudes on the LOAD B.D. card. Blank entries ! for pairs are not counted (specifically, if the load SID is 0 the pair is not counted). ! The number of pairs defined on this LOAD card will be returned to the calling routine so that the max number of pairs ! over all LOAD cards can be determined. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN @@ -39,58 +39,58 @@ SUBROUTINE BD_LOAD0 ( CARD, LARGE_FLD_INP, ILOAD ) USE BD_LOAD0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_LOAD0' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG), INTENT(OUT) :: ILOAD ! Count of no. real load factors on this card. Starts with 1 INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: J ! DO loop index - + ! ********************************************************************************************************************************** ! LOAD Bulk Data Card: - -! FIELD ITEM EXPLANATION + +! FIELD ITEM EXPLANATION ! ----- ------------ ------------- ! 2 SID LOAD set ID ! 3 S0 Overall scale factor ! 4 S1 Scale factor for set whose ID is L1 -! 5 L1 Set ID of a FORCE, MOMENT or GRAV load +! 5 L1 Set ID of a FORCE, MOMENT or GRAV load ! 6 S2 Scale factor for set whose ID is L2 -! 7 L2 Set ID of a FORCE, MOMENT or GRAV load +! 7 L2 Set ID of a FORCE, MOMENT or GRAV load ! 8 S3 Scale factor for set whose ID is L3 -! 9 L3 Set ID of a FORCE, MOMENT or GRAV load - +! 9 L3 Set ID of a FORCE, MOMENT or GRAV load + ! 1st continuation card: -! +! ! FIELD ITEM EXPLANATION ! ----- ------------ ------------- -! 2 S4 Scale factor for set whose ID is L4 -! 3 L4 Set ID of a FORCE, MOMENT or GRAV load -! 4 S5 Scale factor for set whose ID is L5 -! 5 L5 Set ID of a FORCE, MOMENT or GRAV load +! 2 S4 Scale factor for set whose ID is L4 +! 3 L4 Set ID of a FORCE, MOMENT or GRAV load +! 4 S5 Scale factor for set whose ID is L5 +! 5 L5 Set ID of a FORCE, MOMENT or GRAV load ! 6 S6 Scale factor for set whose ID is L6 -! 7 L6 Set ID of a FORCE, MOMENT or GRAV load -! 8 S7 Scale factor for set whose ID is L7 -! 9 L7 Set ID of a FORCE, MOMENT or GRAV load - +! 7 L6 Set ID of a FORCE, MOMENT or GRAV load +! 8 S7 Scale factor for set whose ID is L7 +! 9 L7 Set ID of a FORCE, MOMENT or GRAV load + ! Subsequent continuation cards follow the same pattern as the 1st continuation card - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! ILOAD will count the number of real load factors on this LOAD card. It starts with 1 since there is an overall factor on the LOAD ! card, and continues as factors for the individual loads defined on the card are read - + ! Count pairs of load ID's/factors on parent card ILOAD = 1 @@ -100,11 +100,11 @@ SUBROUTINE BD_LOAD0 ( CARD, LARGE_FLD_INP, ILOAD ) ELSE ILOAD = ILOAD + 1 ENDIF - ENDDO - + ENDDO + ! Count pairs of load ID's/factors on optional continuation cards - - DO + + DO IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC0 ( CARD, ICONT, IERR ) ELSE @@ -119,16 +119,16 @@ SUBROUTINE BD_LOAD0 ( CARD, LARGE_FLD_INP, ILOAD ) ELSE ILOAD = ILOAD + 1 ENDIF - ENDDO + ENDDO ELSE EXIT ENDIF - ENDDO - + ENDDO + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_LOAD0 diff --git a/Source/LK1/L1A-BD/BD_MAT1.f90 b/Source/LK1/L1A-BD/BD_MAT1.f90 index aa459033..a524a02e 100644 --- a/Source/LK1/L1A-BD/BD_MAT1.f90 +++ b/Source/LK1/L1A-BD/BD_MAT1.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BD_MAT1 ( CARD, LARGE_FLD_INP ) @@ -49,7 +49,7 @@ SUBROUTINE BD_MAT1 ( CARD, LARGE_FLD_INP ) CHARACTER(LEN(JCARD)) :: JCARD_E ! The field that contains E (Young's modulus) CHARACTER(LEN(JCARD)) :: JCARD_G ! The field that contains G (shear modulus) CHARACTER(LEN(JCARD)) :: JCARD_NU ! The field that contains NU (Poisson's ratio) - + INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: J ! DO loop index @@ -104,7 +104,7 @@ SUBROUTINE BD_MAT1 ( CARD, LARGE_FLD_INP ) WRITE(F06,1145) JCARD(1),MATL_ID EXIT ENDIF - ENDDO + ENDDO MATL(NMATL,1) = MATL_ID MATL(NMATL,2) = 1 ! Type is 1 for MAT1 card ENDIF @@ -132,7 +132,7 @@ SUBROUTINE BD_MAT1 ( CARD, LARGE_FLD_INP ) DO J=8,MRMATLC ! Null optional data on 2nd, 3rd cards: RMATL(NMATL,J) = ZERO - ENDDO + ENDDO ! Optional second card: @@ -169,9 +169,9 @@ SUBROUTINE BD_MAT1 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE MAT1_VALUE_CHECK @@ -188,7 +188,7 @@ SUBROUTINE MAT1_VALUE_CHECK IF ((RMATL(NMATL,3) < ZERO) .OR. (RMATL(NMATL,3) > HALF)) THEN MAT1_WERR(1) = 1 ENDIF - ENDIF + ENDIF ! If E, G, NU fields are all input, make sure 1-|E/(2*(1+NU)*G)| is greater than .01 @@ -230,10 +230,10 @@ SUBROUTINE MAT1_VALUE_CHECK IF (JCARD_G(1:) /= ' ') THEN ! G was input IF (JCARD_NU(1:) /= ' ') THEN ! NU was input. Calc E - RMATL(NMATL,1) = TWO*RMATL(NMATL,2)*(ONE + RMATL(NMATL,3)) + RMATL(NMATL,1) = TWO*RMATL(NMATL,2)*(ONE + RMATL(NMATL,3)) WRITE(ERR,1385) MATL(NMATL,1),RMATL(NMATL,1) WRITE(F06,1385) MATL(NMATL,1),RMATL(NMATL,1) - ELSE ! NU was not input. Set E, NU = 0 + ELSE ! NU was not input. Set E, NU = 0 RMATL(NMATL,1) = ZERO RMATL(NMATL,3) = ZERO WRITE(ERR,1386) MATL(NMATL,1),RMATL(NMATL,1),RMATL(NMATL,3) @@ -241,8 +241,8 @@ SUBROUTINE MAT1_VALUE_CHECK ENDIF ELSE ! G was not input (error: E or G must be input) FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1119) MATL(NMATL,1) - WRITE(F06,1119) MATL(NMATL,1) + WRITE(ERR,1119) MATL(NMATL,1) + WRITE(F06,1119) MATL(NMATL,1) ENDIF ENDIF diff --git a/Source/LK1/L1A-BD/BD_MAT2.f90 b/Source/LK1/L1A-BD/BD_MAT2.f90 index 98121eba..9328f4f9 100644 --- a/Source/LK1/L1A-BD/BD_MAT2.f90 +++ b/Source/LK1/L1A-BD/BD_MAT2.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BD_MAT2 ( CARD, LARGE_FLD_INP ) @@ -45,7 +45,7 @@ SUBROUTINE BD_MAT2 ( CARD, LARGE_FLD_INP ) CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: J ! DO loop index @@ -103,7 +103,7 @@ SUBROUTINE BD_MAT2 ( CARD, LARGE_FLD_INP ) WRITE(F06,1145) JCARD(1),MATL_ID EXIT ENDIF - ENDDO + ENDDO MATL(NMATL,1) = MATL_ID MATL(NMATL,2) = 2 ! Type is 2 for MAT2 card ENDIF @@ -120,7 +120,7 @@ SUBROUTINE BD_MAT2 ( CARD, LARGE_FLD_INP ) DO J=8,15 RMATL(NMATL,J) = ZERO - ENDDO + ENDDO ! Optional second card: diff --git a/Source/LK1/L1A-BD/BD_MAT8.f90 b/Source/LK1/L1A-BD/BD_MAT8.f90 index e34aaee1..0fd60b9f 100644 --- a/Source/LK1/L1A-BD/BD_MAT8.f90 +++ b/Source/LK1/L1A-BD/BD_MAT8.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BD_MAT8 ( CARD, LARGE_FLD_INP ) @@ -46,7 +46,7 @@ SUBROUTINE BD_MAT8 ( CARD, LARGE_FLD_INP ) CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: SETID ! The set ID in field 2 - + INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: J ! DO loop index @@ -112,7 +112,7 @@ SUBROUTINE BD_MAT8 ( CARD, LARGE_FLD_INP ) WRITE(F06,1145) JCARD(1),MATL_ID EXIT ENDIF - ENDDO + ENDDO MATL(NMATL,1) = MATL_ID MATL(NMATL,2) = 8 ! Type is 8 for MAT8 card ENDIF @@ -143,7 +143,7 @@ SUBROUTINE BD_MAT8 ( CARD, LARGE_FLD_INP ) DO J = 8,18 RMATL(NMATL,J) = ZERO - ENDDO + ENDDO ! Optional second card: @@ -203,9 +203,9 @@ SUBROUTINE BD_MAT8 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE MAT8_VALUE_CHECK @@ -224,7 +224,7 @@ SUBROUTINE MAT8_VALUE_CHECK ! ********************************************************************************************************************************** EPS1 = DABS(EPSIL(1)) - + ! Make sure E1 and E2 > 0. IF (DABS(E1) < EPS1) THEN diff --git a/Source/LK1/L1A-BD/BD_MAT9.f90 b/Source/LK1/L1A-BD/BD_MAT9.f90 index 0b79a59c..6de72563 100644 --- a/Source/LK1/L1A-BD/BD_MAT9.f90 +++ b/Source/LK1/L1A-BD/BD_MAT9.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BD_MAT9 ( CARD, LARGE_FLD_INP ) @@ -47,7 +47,7 @@ SUBROUTINE BD_MAT9 ( CARD, LARGE_FLD_INP ) CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of 8 characters making up CARD CHARACTER(LEN(JCARD)) :: ID ! Character value of element ID (field 2 of parent card) CHARACTER(LEN(JCARD)) :: NAME ! JCARD(1) from parent entry - + INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: J ! DO loop index @@ -125,7 +125,7 @@ SUBROUTINE BD_MAT9 ( CARD, LARGE_FLD_INP ) WRITE(F06,1145) JCARD(1),MATL_ID EXIT ENDIF - ENDDO + ENDDO MATL(NMATL,1) = MATL_ID MATL(NMATL,2) = 9 ! Type is 9 for MAT9 card ENDIF @@ -194,7 +194,7 @@ SUBROUTINE BD_MAT9 ( CARD, LARGE_FLD_INP ) DO J=24,MRMATLC RMATL(NMATL,J) = ZERO - ENDDO + ENDDO ! Optional third continuation card: @@ -224,7 +224,7 @@ SUBROUTINE BD_MAT9 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** 1136 FORMAT(' *ERROR 1136: REQUIRED CONTINUATION FOR ',A,' ID = ',A,' MISSING') - + 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & diff --git a/Source/LK1/L1A-BD/BD_MPC.f90 b/Source/LK1/L1A-BD/BD_MPC.f90 index 9a8ee915..2873943b 100644 --- a/Source/LK1/L1A-BD/BD_MPC.f90 +++ b/Source/LK1/L1A-BD/BD_MPC.f90 @@ -1,51 +1,51 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) - + ! Processes MPC Bulk Data Cards. Writes MPC card data to file L1S - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1S USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LMPC, LSUB, MMPC, NMPC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : MPCSET, MPC_SIDS - + USE BD_MPC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_MPC' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_MPC_FND ! ='Y' if this MPC is a set requested in Case Control CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: MPC_COMP(MMPC) ! Array of GRID displ comp values (1-6) found on this logical MPC card INTEGER(LONG) :: MPC_GRID(MMPC) ! Array of GRID ID's found on this logical MPC card INTEGER(LONG) :: I4INP = 0 ! A value read from input file that should be an integer value @@ -57,50 +57,50 @@ SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) INTEGER(LONG) :: JERR = 0 ! A local error count INTEGER(LONG) :: SETID ! Set ID for this LOAD Bulk Data card - + REAL(DOUBLE) :: MPC_COEFF(MMPC) ! Array of MPC coeff values found on this MPC logical card ! ********************************************************************************************************************************** ! MPC Bulk Data Card: - -! FIELD ITEM EXPLANATION + +! FIELD ITEM EXPLANATION ! ----- ------------ ------------- ! 2 SID MPC set ID ! 3 DEP_GRD Dependent grid -! 4 DCOMP Component for dependent grid -! 5 DVAL Coeff (value) for dep grid/comp +! 4 DCOMP Component for dependent grid +! 5 DVAL Coeff (value) for dep grid/comp ! 6 IND_GRD 1st independent grid -! 7 ICOMP Component for 1st indep grid +! 7 ICOMP Component for 1st indep grid ! 8 IVAL Coeff (value) for 1st indep grid/comp - + ! 1st continuation card: -! +! ! FIELD ITEM EXPLANATION ! ----- ------------ ------------- ! 3 IND_GRD 2nd independent grid -! 4 ICOMP Component for 2nd indep grid +! 4 ICOMP Component for 2nd indep grid ! 5 IVAL Coeff (value) for 2nd indep grid/comp ! 6 IND_GRD 3rd independent grid -! 7 ICOMP Component for 3rd indep grid +! 7 ICOMP Component for 3rd indep grid ! 8 IVAL Coeff (value) for 3rd indep grid/comp - + ! Subsequent con't cards follow the same patterm as the 1st - - + + ! Initialize arrays DO J=1,MMPC MPC_GRID(J) = 0 MPC_COMP(J) = 0 MPC_COEFF(J) = ZERO - ENDDO + ENDDO ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow NMPC = NMPC+1 @@ -110,7 +110,7 @@ SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) !xx WRITE(F06,1163) SUBR_NAME,JCARD(1),LMPC !xx CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit !xx ENDIF - + ! Read MPC set ID in field 2 CALL I4FLD ( JCARD(2), JF(2), SETID ) @@ -122,7 +122,7 @@ SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) ELSE JERR = JERR + 1 ENDIF - + ! Read and check dependent grid/comp/coeff in fields 3, 4, 5 on parent card. If fields 3, 4 or 5 are blank then dep ! grid, comp, or coeff was not input which is an error (must have dependent grid/comp/coeff) @@ -139,7 +139,7 @@ SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) WRITE(F06,1120) SUBR_NAME,JCARD(1),LMPC CALL OUTA_HERE ( 'Y' ) ENDIF - + CALL I4FLD (JCARD(3),JF(3),MPC_GRID(NUM_TRIPLES)) ! Read parent card field 3: dependent grid IF (IERRFL(3) == 'Y') THEN JERR = JERR + 1 @@ -149,7 +149,7 @@ SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) IF ( IERRFL(4) == 'N' ) THEN IF ((I4INP >= 0) .AND. (I4INP <= 6)) THEN MPC_COMP(NUM_TRIPLES) = I4INP - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1124) JF(4),JCARD(1),JCARD(2),JF(4),JCARD(4) @@ -177,7 +177,7 @@ SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) WRITE(F06,1120) SUBR_NAME,JCARD(1),LMPC CALL OUTA_HERE ( 'Y' ) ENDIF - + CALL I4FLD (JCARD(6),JF(6),MPC_GRID (NUM_TRIPLES))! Read parent card field 6: independent grid IF (IERRFL(6) == 'Y') THEN JERR = JERR + 1 @@ -187,7 +187,7 @@ SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) IF ( IERRFL(7) == 'N' ) THEN IF ((I4INP >= 0) .AND. (I4INP <= 6)) THEN MPC_COMP(NUM_TRIPLES) = I4INP - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1124) JF(7),JCARD(1),JCARD(2),JF(7),JCARD(7) @@ -221,7 +221,7 @@ SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) IF (ICONT == 1) THEN DO J=1,2 - + IF ((JCARD(3*J)(1:) == ' ') .AND. (JCARD(3*J+1)(1:) == ' ') .AND. (JCARD(3*J+2)(1:) == ' ')) THEN CONTINUE ELSE ! Increment NUM_TRIPLES and check for overflow @@ -231,7 +231,7 @@ SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) WRITE(F06,1120) SUBR_NAME,JCARD(1),LMPC CALL OUTA_HERE ( 'Y' ) ENDIF - + CALL I4FLD (JCARD(3*J),JF(3*J),MPC_GRID (NUM_TRIPLES))! Read independent grid IF (IERRFL(3*J) == 'Y') THEN JERR = JERR + 1 @@ -241,7 +241,7 @@ SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) IF ( IERRFL(3*J+1) == 'N' ) THEN IF ((I4INP >= 0) .AND. (I4INP <= 6)) THEN MPC_COMP(NUM_TRIPLES) = I4INP - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1124) JF(3*J+1),JCARD(1),JCARD(2),JF(3*J+1),JCARD(3*J+1) @@ -258,7 +258,7 @@ SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) ENDIF - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,3,0,5,6,0,8,0)! Make sure there are no imbedded blanks (except 4,7: comps & 9: blank) CALL CARD_FLDS_NOT_BLANK(JCARD,0,0,0,0,0,0,0,9)! Issue warning if field 9 not blank @@ -269,8 +269,8 @@ SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) EXIT ENDIF - ENDDO - + ENDDO + ! Write data to file L1S IF (JERR == 0) THEN @@ -300,5 +300,5 @@ SUBROUTINE BD_MPC ( CARD, LARGE_FLD_INP, CC_MPC_FND ) ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_MPC diff --git a/Source/LK1/L1A-BD/BD_MPC0.f90 b/Source/LK1/L1A-BD/BD_MPC0.f90 index 52da0e32..1b6cf4ca 100644 --- a/Source/LK1/L1A-BD/BD_MPC0.f90 +++ b/Source/LK1/L1A-BD/BD_MPC0.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_MPC0 ( CARD, LARGE_FLD_INP, IMPC ) - + ! Processes MPC Bulk Data Cards to determine the number of triplets of grid/comp/coeff on logical MPC B.D.card. Blank entries ! for triplets are not counted. ! The number of triplets defined on this MPC card will be returned to the calling routine so that the max number of triplets ! over all MPC cards can be determined. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN @@ -39,62 +39,62 @@ SUBROUTINE BD_MPC0 ( CARD, LARGE_FLD_INP, IMPC ) USE BD_MPC0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_MPC0' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG), INTENT(OUT) :: IMPC ! Count of number of grid/comp/coeff triplets on this MPC logical card INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: J ! DO loop index - + ! ********************************************************************************************************************************** ! MPC Bulk Data Card: - -! FIELD ITEM EXPLANATION + +! FIELD ITEM EXPLANATION ! ----- ------------ ------------- ! 2 SID MPC set ID ! 3 DEP_GRD Dependent grid -! 4 DCOMP Component for dependent grid -! 5 DVAL Coeff (value) for dep grid/comp +! 4 DCOMP Component for dependent grid +! 5 DVAL Coeff (value) for dep grid/comp ! 6 IND_GRD 1st independent grid -! 7 ICOMP Component for 1st indep grid +! 7 ICOMP Component for 1st indep grid ! 8 IVAL Coeff (value) for 1st indep grid/comp - -! + +! ! FIELD ITEM EXPLANATION ! ----- ------------ ------------- ! 3 IND_GRD 2nd independent grid -! 4 ICOMP Component for 2nd indep grid +! 4 ICOMP Component for 2nd indep grid ! 5 IVAL Coeff (value) for 2nd indep grid/comp ! 6 IND_GRD 3rd independent grid -! 7 ICOMP Component for 3rd indep grid +! 7 ICOMP Component for 3rd indep grid ! 8 IVAL Coeff (value) for 3rd indep grid/comp - + ! Subsequent continuation cards follow the same pattern as the 1st continuation card - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! IMPC will count the number of grid/comp/coeff triplets. We will start with 1 since there must be a dependent grid/comp/coeff ! defined in fields 3, 4, 5 and count the independent triplets (the 1st of which is on the parent card in fields 6, 7, 8) - + IMPC = 1 IF ((JCARD(6)(1:) /= ' ') .OR. (JCARD(7)(1:) /= ' ') .OR. (JCARD(8)(1:) /= ' ')) THEN IMPC = IMPC + 1 ENDIF - + ! Count triplets of grid/comp/coeff on optional continuation cards - - DO + + DO IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC0 ( CARD, ICONT, IERR ) ELSE @@ -109,16 +109,16 @@ SUBROUTINE BD_MPC0 ( CARD, LARGE_FLD_INP, IMPC ) ELSE CYCLE ENDIF - ENDDO + ENDDO ELSE EXIT ENDIF - ENDDO - + ENDDO + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_MPC0 diff --git a/Source/LK1/L1A-BD/BD_MPCADD.f90 b/Source/LK1/L1A-BD/BD_MPCADD.f90 index 6a077df0..90886852 100644 --- a/Source/LK1/L1A-BD/BD_MPCADD.f90 +++ b/Source/LK1/L1A-BD/BD_MPCADD.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) - + ! Processes MPCADD Bulk Data Cards. Reads and checks data and enters data into array MPCADD_SIDS USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -33,11 +33,11 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LMPCADDR, LSUB, NMPCADD, LMPCADDC, NSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : MPCADD_SIDS, MPCSET, SUBLOD - + USE BD_MPCADD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_MPCADD' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_MPC_FND ! 'Y' if B.D card w/ same set ID as C.C. MPC = SID @@ -46,20 +46,20 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER( 3*BYTE) :: NAME1 = 'MPC' ! Name for output error message use CHARACTER( 6*BYTE) :: NAME2 = 'MPCADD'! Name for output error message use - + INTEGER(LONG) :: I,J,K ! DO loop index INTEGER(LONG) :: NUM_SETIDS ! Counter on number of set ID's on MPCADD card. The SID defining this -! MPCADD card is counted as the first one. +! MPCADD card is counted as the first one. INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: SETID ! Set ID for this MPCADD Bulk Data card - + ! ********************************************************************************************************************************** ! MPCADD Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 MPCADD set ID MPCADD(nspcadd, 1) @@ -70,9 +70,9 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) ! 7 MPC/MPC1 set ID MPCADD(nspcadd, 6) ! 8 MPC/MPC1 set ID MPCADD(nspcadd, 7) ! 9 MPC/MPC1 set ID MPCADD(nspcadd, 8) - + ! 1st continuation card: -! +! ! 2 MPC/MPC1 set ID MPCADD(nspcadd, 9) ! 3 MPC/MPC1 set ID MPCADD(nspcadd,10) ! 4 MPC/MPC1 set ID MPCADD(nspcadd,11) @@ -81,14 +81,14 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) ! 7 MPC/MPC1 set ID MPCADD(nspcadd,14) ! 8 MPC/MPC1 set ID MPCADD(nspcadd,15) ! 9 MPC/MPC1 set ID MPCADD(nspcadd,16) - + ! Subsequent con't cards follow the same patterm as the 1st - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow NMPCADD = NMPCADD+1 @@ -98,7 +98,7 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) !xx WRITE(F06,1163) SUBR_NAME,JCARD(1),LMPCADDR !xx CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit !xx ENDIF - + ! Read and check data on parent card CALL I4FLD ( JCARD(2), JF(2), SETID ) ! Read set ID for this MPCADD Bulk Data card @@ -109,8 +109,8 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) CC_MPC_FND = 'Y' ENDIF ENDDO - ENDIF - + ENDIF + NUM_SETIDS = 1 ! Read MPCADD ID's on parent card. DO J=3,9 IF (JCARD(J)(1:) == ' ') THEN @@ -121,7 +121,7 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) WRITE(ERR,1139) SETID,NAME1,NAME2,LMPCADDC WRITE(F06,1139) SETID,NAME1,NAME2,LMPCADDC CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit - ENDIF + ENDIF CALL I4FLD ( JCARD(J), JF(J), MPCADD_SIDS(NMPCADD,NUM_SETIDS) ) DO K=1,NUM_SETIDS-1 ! Check for duplicate set ID's IF (MPCADD_SIDS(NMPCADD,NUM_SETIDS) == MPCADD_SIDS(NMPCADD,K)) THEN @@ -129,7 +129,7 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) WRITE(ERR,1140) MPCADD_SIDS(NMPCADD,NUM_SETIDS),NAME2,SETID WRITE(F06,1140) MPCADD_SIDS(NMPCADD,NUM_SETIDS),NAME2,SETID ENDIF - ENDDO + ENDDO IF (IERRFL(J) == 'N') THEN IF (MPCADD_SIDS(NMPCADD,NUM_SETIDS) <= 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -138,11 +138,11 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) ENDIF ENDIF ENDIF - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + ! Read and check data on optional continuation cards DO @@ -163,7 +163,7 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) WRITE(ERR,1139) SETID,NAME1,NAME2,LMPCADDC WRITE(F06,1139) SETID,NAME1,NAME2,LMPCADDC CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit - ENDIF + ENDIF CALL I4FLD ( JCARD(J), JF(J), MPCADD_SIDS(NMPCADD,NUM_SETIDS) ) DO K=1,NUM_SETIDS-1 ! Check for duplicate set ID's IF (MPCADD_SIDS(NMPCADD,NUM_SETIDS) == MPCADD_SIDS(NMPCADD,K)) THEN @@ -171,7 +171,7 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) WRITE(ERR,1140) MPCADD_SIDS(NMPCADD,NUM_SETIDS),NAME2,SETID WRITE(ERR,1140) MPCADD_SIDS(NMPCADD,NUM_SETIDS),NAME2,SETID ENDIF - ENDDO + ENDDO IF (IERRFL(J) == 'N') THEN IF (MPCADD_SIDS(NMPCADD,NUM_SETIDS) <= 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -181,7 +181,7 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) ENDIF ENDIF ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9)! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -190,7 +190,7 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) EXIT ENDIF - ENDDO + ENDDO RETURN @@ -208,5 +208,5 @@ SUBROUTINE BD_MPCADD ( CARD, LARGE_FLD_INP, CC_MPC_FND ) 1175 FORMAT(' *ERROR 1175: ',A,' SET ID ON BULK DATA ',A,' ENTRY ID = ',I8,' IN FIELD ',I3,' IS = ',I8,'. MUST BE > 0') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_MPCADD diff --git a/Source/LK1/L1A-BD/BD_MPCADD0.f90 b/Source/LK1/L1A-BD/BD_MPCADD0.f90 index ef811a5c..b3aca2dd 100644 --- a/Source/LK1/L1A-BD/BD_MPCADD0.f90 +++ b/Source/LK1/L1A-BD/BD_MPCADD0.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_MPCADD0 ( CARD, LARGE_FLD_INP, IMPCADD ) - + ! Processes MPCADD Bulk Data Cards to count the number of MPC set ID's on this logical MPCADD card. The calling routine ! determines the max number of set ID's over all MPCADD cards in the data deck - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN @@ -37,13 +37,13 @@ SUBROUTINE BD_MPCADD0 ( CARD, LARGE_FLD_INP, IMPCADD ) USE BD_MPCADD0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_MPCADD0' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG), INTENT(OUT) :: IMPCADD ! Count of number of MPC set ID's defined on the MPCADD INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein @@ -54,7 +54,7 @@ SUBROUTINE BD_MPCADD0 ( CARD, LARGE_FLD_INP, IMPCADD ) ! ********************************************************************************************************************************** ! MPCADD Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 MPCADD set ID MPCADD(nmpcadd, 1) @@ -65,9 +65,9 @@ SUBROUTINE BD_MPCADD0 ( CARD, LARGE_FLD_INP, IMPCADD ) ! 7 MPC MPC set ID MPCADD(nmpcadd, 6) ! 8 MPC MPC set ID MPCADD(nmpcadd, 7) ! 9 MPC MPC set ID MPCADD(nmpcadd, 8) - + ! 1st continuation card: -! +! ! 2 MPC MPC set ID MPCADD(nmpcadd, 9) ! 3 MPC MPC set ID MPCADD(nmpcadd,10) ! 4 MPC MPC set ID MPCADD(nmpcadd,11) @@ -76,16 +76,16 @@ SUBROUTINE BD_MPCADD0 ( CARD, LARGE_FLD_INP, IMPCADD ) ! 7 MPC MPC set ID MPCADD(nmpcadd,14) ! 8 MPC MPC set ID MPCADD(nmpcadd,15) ! 9 MPC MPC set ID MPCADD(nmpcadd,16) - + ! Subsequent con't cards follow the same patterm as the 1st - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! IMPCADD will count the number of MPC set ID's on this MPCADD card. It starts with 1 since there is the MPCADD set ID. - + ! Count MPC set ID's on parent card IMPCADD = 1 @@ -95,11 +95,11 @@ SUBROUTINE BD_MPCADD0 ( CARD, LARGE_FLD_INP, IMPCADD ) ELSE IMPCADD = IMPCADD + 1 ENDIF - ENDDO - + ENDDO + ! Count MPC set ID's on optional continuation cards - - DO + + DO IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC0 ( CARD, ICONT, IERR ) ELSE @@ -114,16 +114,16 @@ SUBROUTINE BD_MPCADD0 ( CARD, LARGE_FLD_INP, IMPCADD ) ELSE IMPCADD = IMPCADD + 1 ENDIF - ENDDO + ENDDO ELSE EXIT ENDIF - ENDDO - + ENDDO + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_MPCADD0 diff --git a/Source/LK1/L1A-BD/BD_NLPARM.f90 b/Source/LK1/L1A-BD/BD_NLPARM.f90 index 28b3c153..d7801220 100644 --- a/Source/LK1/L1A-BD/BD_NLPARM.f90 +++ b/Source/LK1/L1A-BD/BD_NLPARM.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_NLPARM ( CARD, CC_NLSID_FND ) - + ! Processes NLPARM Bulk Data Cards. USE PENTIUM_II_KIND, ONLY : BYTE, LONG @@ -33,18 +33,18 @@ SUBROUTINE BD_NLPARM ( CARD, CC_NLSID_FND ) USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LSUB USE TIMDAT, ONLY : TSEC USE NONLINEAR_PARAMS, ONLY : NL_MAXITER, NL_NUM_LOAD_STEPS, NL_SID - + USE BD_NLPARM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_NLPARM' CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_NLSID_FND(LSUB)! 'Y' if B.D NLPARM card w/ same set ID (SID) as C.C. NLPARM = SID CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: CARD_NAME ! Field 1 of CARD CHARACTER(LEN(JCARD)) :: CHAR_SID ! Field 2 of CARD - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: I4INP ! An integer value read from GRAV entry INTEGER(LONG) :: SETID ! NLPARM set id @@ -54,24 +54,24 @@ SUBROUTINE BD_NLPARM ( CARD, CC_NLSID_FND ) ! ********************************************************************************************************************************** ! NLPARM Bulk Data Card routine - + ! FIELD ITEM VARIABLE ! ----- ------------ ------------- ! 2 NL_SID Set ID ! 3 NL_NUM_LOAD_STEPS Number of increments into which the load is to be subdivided -! 7 NL_MAXITER Maximum number of iterations for convergence in any 1 load step +! 7 NL_MAXITER Maximum number of iterations for convergence in any 1 load step ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Initialize NL_NUM_LOAD_STEPS = 1 ! Read and check data - + CARD_NAME = JCARD(1) CHAR_SID = JCARD(2) @@ -83,7 +83,7 @@ SUBROUTINE BD_NLPARM ( CARD, CC_NLSID_FND ) ENDIF ENDDO ENDIF - + CALL I4FLD ( JCARD(3), JF(3), I4INP ) IF (IERRFL(3) == 'N') THEN IF (I4INP >= 0) THEN @@ -111,7 +111,7 @@ SUBROUTINE BD_NLPARM ( CARD, CC_NLSID_FND ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,0,0,0,7,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-3 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,0,8,9 ) ! Issue warning if fields 4,5,6,8,9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN @@ -120,5 +120,5 @@ SUBROUTINE BD_NLPARM ( CARD, CC_NLSID_FND ) 1156 FORMAT(' *ERROR 1156: ILLEGAL ENTRY IN FIELD ',I2,' OF ',A,A,' CARD. ENTRY MUST BE > 0 BUT WAS = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_NLPARM diff --git a/Source/LK1/L1A-BD/BD_PARAM0.f90 b/Source/LK1/L1A-BD/BD_PARAM0.f90 index bbc352c7..a9dcbfdf 100644 --- a/Source/LK1/L1A-BD/BD_PARAM0.f90 +++ b/Source/LK1/L1A-BD/BD_PARAM0.f90 @@ -1,50 +1,50 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PARAM0 ( CARD ) - + ! Processes several PARAM Bulk Data entries that need to be pre-processed before LOADB reads the Bulk data deck - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, EPSIL1_SET, IERRFL, JCARD_LEN, JF, MEPSIL, MPBARLU USE IOUNT1, ONLY : WRT_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : EPSIL, GRIDSEQ, PBARLDEC, PBARLSHR - + USE BD_PARAM0_USE_IFs IMPLICIT NONE - + INTEGER(LONG) :: I ! DO loop index CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PARAM0' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: CHARINP ! A character field from CARD - + INTEGER(LONG) :: I4INP ! An integer value read @@ -54,10 +54,10 @@ SUBROUTINE BD_PARAM0 ( CARD ) ! ********************************************************************************************************************************** ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) CALL LEFT_ADJ_BDFLD ( JCARD(3) ) - + IF (JCARD(2) == 'GRIDSEQ ') THEN IF (JCARD(3)(1:6) == 'BANDIT' ) THEN @@ -96,12 +96,12 @@ SUBROUTINE BD_PARAM0 ( CARD ) ENDIF ENDIF - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PARAM0 diff --git a/Source/LK1/L1A-BD/BD_PARVEC.f90 b/Source/LK1/L1A-BD/BD_PARVEC.f90 index 447f224a..8625ae70 100644 --- a/Source/LK1/L1A-BD/BD_PARVEC.f90 +++ b/Source/LK1/L1A-BD/BD_PARVEC.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PARVEC ( CARD ) - + ! Processes PARVEC Bulk Data Cards. Reads and checks data and then writes a record to file LINK1V for later processing. ! Each record in file LINK1V has: -! PARTVEC_NAME, COMPJ, GRIDJ, DOFSET - +! PARTVEC_NAME, COMPJ, GRIDJ, DOFSET + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1V USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, NUM_PARTVEC_RECORDS, WARN_ERR @@ -43,7 +43,7 @@ SUBROUTINE BD_PARVEC ( CARD ) USE BD_PARVEC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PARVEC' CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: CHRFLD ! A character field from the entry @@ -53,34 +53,34 @@ SUBROUTINE BD_PARVEC ( CARD ) CHARACTER(LEN(ACT_OU4_MYSTRAN_NAMES)) & :: PARTVEC_NAME ! Name in field 2 of the PARTVEC entry - + INTEGER(LONG) :: COMPJ = 0 ! Displ components constrained at GRIDJ INTEGER(LONG) :: GRIDJ = 0 ! Grid ID on PARTVEC card INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IDUM ! Dummy arg in subr IP6CHK not used herein INTEGER(LONG) :: JERR = 0 ! A local error count - + ! ********************************************************************************************************************************** ! PARTVEC Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- -! 2 PARTVEC name (i.e. "PHIG", "PHIGZ") -! 3 Grid ID -! 4 Comp. numbers -! 5 Grid ID -! 6 Comp.numbers -! 7 Grid ID -! 8 Comp.numbers - - +! 2 PARTVEC name (i.e. "PHIG", "PHIGZ") +! 3 Grid ID +! 4 Comp. numbers +! 5 Grid ID +! 6 Comp.numbers +! 7 Grid ID +! 8 Comp.numbers + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Read PARTVEC name CALL CHAR_FLD ( JCARD(2), JF(2), CHRFLD ) ! Read field 2: PARTVEC name @@ -105,11 +105,11 @@ SUBROUTINE BD_PARVEC ( CARD ) IF (JCARD(I)(1:) /= ' ') THEN - CALL I4FLD ( JCARD(I), JF(I), GRIDJ ) ! Read Grid ID + CALL I4FLD ( JCARD(I), JF(I), GRIDJ ) ! Read Grid ID ! Read displ components CALL IP6CHK ( JCARD(I+1), JCARDO, IP6TYP, IDUM ) IF ((IP6TYP == 'COMP NOS') .OR. (IP6TYP == 'ZERO ') .OR. (IP6TYP == 'BLANK ')) THEN - CALL I4FLD ( JCARDO, JF(I+1), COMPJ ) + CALL I4FLD ( JCARDO, JF(I+1), COMPJ ) ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 @@ -123,7 +123,7 @@ SUBROUTINE BD_PARVEC ( CARD ) ENDIF ELSE ! Field 3, 5 or 7 is blank - + IF (JCARD(I+1)(1:) /= ' ') THEN WARN_ERR = WARN_ERR + 1 WRITE(ERR,101) CARD @@ -139,7 +139,7 @@ SUBROUTINE BD_PARVEC ( CARD ) ENDIF ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,5,0,7,0,0 ) ! Make sure that there are no imbedded blanks in fields 2,3,5,6,8,9 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,8,9 ) CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -159,5 +159,5 @@ SUBROUTINE BD_PARVEC ( CARD ) ,/,14X,' MUST BE A COMBINATION OF DIGITS 1-6. HOWEVER, FIELD ',I3, ' HAS: "',A,'"') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PARVEC diff --git a/Source/LK1/L1A-BD/BD_PARVEC1.f90 b/Source/LK1/L1A-BD/BD_PARVEC1.f90 index 1acfe7b2..9a69afac 100644 --- a/Source/LK1/L1A-BD/BD_PARVEC1.f90 +++ b/Source/LK1/L1A-BD/BD_PARVEC1.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BD_PARVEC1 ( CARD, LARGE_FLD_INP ) ! Processes PARTVEC1 Bulk Data Cards. Reads and checks data and then write a record to file LINK1V for later processing. ! Each record in file LINK1V has: -! PARTVEC1_NAME, COMPJ, GRIDJ, DOFSET +! PARTVEC1_NAME, COMPJ, GRIDJ, DOFSET USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1V @@ -56,7 +56,7 @@ SUBROUTINE BD_PARVEC1 ( CARD, LARGE_FLD_INP ) CHARACTER(LEN(ACT_OU4_MYSTRAN_NAMES)) & :: PARTVEC1_NAME ! Name in field 2 of the PARTVEC1 entry - + INTEGER(LONG) :: COMPJ = 0 ! DOF's constrained at GRIDJ INTEGER(LONG) :: GRIDJ1 = 0 ! Grid ID on PARTVEC1 card @@ -72,15 +72,15 @@ SUBROUTINE BD_PARVEC1 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** ! PARTVEC1 Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! Format #1: ! 2 PARTVEC1 name (e.g. "PHIG", "PHIGZ", etc) -! 3 Comp. numbers -! 4-9 Grid ID's +! 3 Comp. numbers +! 4-9 Grid ID's ! Optional continuation cards -! 2-9 Grid ID's +! 2-9 Grid ID's ! Format #2: ! 2 PARTVEC1 name (e.g. "U1", "U2", "R", etc) @@ -117,7 +117,7 @@ SUBROUTINE BD_PARVEC1 ( CARD, LARGE_FLD_INP ) CALL IP6CHK ( JCARD(3), JCARDO, IP6TYP, IDUM ) ! Read field 3: components IF (IERRFL(3) == 'N') THEN IF ((IP6TYP == 'COMP NOS') .OR. (IP6TYP == 'ZERO ') .OR. (IP6TYP == 'BLANK ')) THEN - CALL I4FLD ( JCARDO, JF(3), COMPJ ) + CALL I4FLD ( JCARDO, JF(3), COMPJ ) ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 @@ -136,37 +136,37 @@ SUBROUTINE BD_PARVEC1 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** ! Format # 2 - IF (TOKTYP == 'THRU ') THEN - + IF (TOKTYP == 'THRU ') THEN + JERR = 0 IF (JCARD(4)(1:) /= ' ') THEN ! Get 1st Grid ID, GRIDJ1 CALL I4FLD ( JCARD(4), JF(4), GRIDJ1 ) - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1125) 'GRID POINT', JF(4), JCARD(1) WRITE(F06,1125) 'GRID POINT', JF(4), JCARD(1) ENDIF - + IF (JCARD(6)(1:) /= ' ') THEN ! Get 2nd Grid ID, GRIDJ2 CALL I4FLD ( JCARD(6), JF(6), GRIDJ2 ) - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1125) 'GRID POINT', JF(6), JCARD(1) WRITE(F06,1125) 'GRID POINT', JF(6), JCARD(1) ENDIF - + IF ((IERRFL(4)=='N') .AND. (IERRFL(5)=='N')) THEN ! Check GRIDJ2 > GRIDJ1 if there were no errors reading them IF (GRIDJ2 < GRIDJ1) THEN JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1128) JCARD(1), JCARD(2) - WRITE(F06,1128) JCARD(1), JCARD(2) + WRITE(ERR,1128) JCARD(1), JCARD(2) + WRITE(F06,1128) JCARD(1), JCARD(2) ENDIF - ENDIF - + ENDIF + CALL BD_IMBEDDED_BLANK ( JCARD,2,0,4,5,6,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2,4,5,6 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,7,8,9 )! Issue warning if fields 7,8,9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -179,8 +179,8 @@ SUBROUTINE BD_PARVEC1 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** ! Format # 1 - ELSE IF ((TOKTYP == 'INTEGER ') .OR. (TOKTYP == 'BLANK ')) THEN - + ELSE IF ((TOKTYP == 'INTEGER ') .OR. (TOKTYP == 'BLANK ')) THEN + ! Read and check data on parent card DO J=4,9 ! Read fields 4-9: Grid ID's. @@ -188,14 +188,14 @@ SUBROUTINE BD_PARVEC1 ( CARD, LARGE_FLD_INP ) CYCLE ELSE CALL I4FLD ( JCARD(J), JF(J), GRIDJ1 ) ! Read another grid ID - IF ((JERR == 0) .AND. (IERRFL(J) == 'N')) THEN + IF ((JERR == 0) .AND. (IERRFL(J) == 'N')) THEN NUM_PARTVEC_RECORDS = NUM_PARTVEC_RECORDS + 1 ! Incr count of number of entries written to file LINK1V WRITE(L1V) PARTVEC1_NAME, COMPJ, GRIDJ1, GRIDJ1 ELSE JERR = JERR + 1 ENDIF ENDIF - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,0,4,5,6,7,8,9 ) ! Make sure there are no imbeded blanks fields 2-9, except 3 (components) CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -243,8 +243,8 @@ SUBROUTINE BD_PARVEC1 ( CARD, LARGE_FLD_INP ) WRITE(F06,1100) JCARD(1) ENDIF - ELSE ! Error - Field 5 did not have "THRU", or an integer, or was blank - + ELSE ! Error - Field 5 did not have "THRU", or an integer, or was blank + FATAL_ERR = FATAL_ERR+1 WRITE(ERR,1127) JF(5), JCARD(1) WRITE(F06,1127) JF(5), JCARD(1) diff --git a/Source/LK1/L1A-BD/BD_PBAR.f90 b/Source/LK1/L1A-BD/BD_PBAR.f90 index de69eed8..28ca017f 100644 --- a/Source/LK1/L1A-BD/BD_PBAR.f90 +++ b/Source/LK1/L1A-BD/BD_PBAR.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PBAR ( CARD, LARGE_FLD_INP ) ! Processes PBAR Bulk Data Cards. Reads and checks: @@ -39,25 +39,25 @@ SUBROUTINE BD_PBAR ( CARD, LARGE_FLD_INP ) USE CONSTANTS_1, ONLY : ZERO USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PBAR, RPBAR - + USE BD_PBAR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PBAR' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: ID ! Character value of element ID (field 2 of parent card) CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format - + INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: MATERIAL_ID = 0 ! Material ID (field 3 of this property card) INTEGER(LONG) :: PROPERTY_ID = 0 ! Property ID (field 2 of this property card) - + REAL(DOUBLE) :: I1 = ZERO! Moment of inertia REAL(DOUBLE) :: I2 = ZERO! Moment of inertia REAL(DOUBLE) :: I12 = ZERO! Product of inertia @@ -115,13 +115,13 @@ SUBROUTINE BD_PBAR ( CARD, LARGE_FLD_INP ) ENDDO PBAR(NPBAR,1) = PROPERTY_ID ENDIF - + CALL I4FLD ( JCARD(3), JF(3), MATERIAL_ID ) ! Read material ID and enter into array PBAR IF (IERRFL(3) == 'N') THEN IF (MATERIAL_ID <= 0) THEN FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID - WRITE(F06,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID + WRITE(ERR,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID + WRITE(F06,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID ELSE PBAR(NPBAR,2) = MATERIAL_ID ENDIF @@ -132,7 +132,7 @@ SUBROUTINE BD_PBAR ( CARD, LARGE_FLD_INP ) CALL R8FLD ( JCARD(J+3), JF(J+3), RPBAR(NPBAR,J) ) ENDDO IF (IERRFL(5) == 'N') THEN - I1 = RPBAR(NPBAR,2) + I1 = RPBAR(NPBAR,2) ENDIF IF (IERRFL(6) == 'N') THEN I2 = RPBAR(NPBAR,3) @@ -204,7 +204,7 @@ SUBROUTINE BD_PBAR ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) - + 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) diff --git a/Source/LK1/L1A-BD/BD_PBARL.f90 b/Source/LK1/L1A-BD/BD_PBARL.f90 index 4da814e7..730b12e4 100644 --- a/Source/LK1/L1A-BD/BD_PBARL.f90 +++ b/Source/LK1/L1A-BD/BD_PBARL.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) - + ! Processes PBARL Bulk Data Cards. Reads and checks: ! 1) Prop ID and Material ID and enter into array PBAR ! 2) Read data on type of crossection and dimensions and calculate section props ! 3) Create an equivalent PBAR entry (data goes into arrays PBAR, RPBAR) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE DERIVED_DATA_TYPES, ONLY : CHAR1_INT1 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -42,11 +42,11 @@ SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PBAR, RPBAR - + USE BD_PBARL_USE_IFs IMPLICIT NONE - + INTEGER(LONG), PARAMETER :: NS = 25 ! Dimension of array BAR_SHAPE TYPE(CHAR1_INT1) :: BAR_SHAPE(NS) ! Array with the BAR crossection type and the num of D(i) needed for it @@ -61,7 +61,7 @@ SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) CHARACTER(LEN(JCARD)) :: ID ! Character value of element ID (field 2 of parent card) CHARACTER(99*BYTE) :: MSG ! Error message written out CHARACTER(LEN(JCARD)) :: NAME ! JCARD(1) from parent entry - + INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator INTEGER(LONG) :: I,J ! DO loop indices @@ -70,7 +70,7 @@ SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) INTEGER(LONG) :: MATL_ID = 0 ! Material ID (field 3 of this property card) INTEGER(LONG) :: PROP_ID = 0 ! Property ID (field 2 of this property card) - + REAL(DOUBLE) :: AREA = ZERO ! Cross-sectional area REAL(DOUBLE) :: D(NS) ! Dimensions of cross-secion of the bar REAL(DOUBLE) :: I1,I2 = ZERO ! Moments of inertia @@ -86,7 +86,7 @@ SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) ! ********************************************************************************************************************************** ! PBAR Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ---- ------------- ! 2 Property ID PBAR(npbar, 1) @@ -108,8 +108,8 @@ SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) ! . . ! . . ! . NSM (last entry) - - + + ! Initialize AREA = ZERO I1 = ZERO @@ -133,36 +133,36 @@ SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) ! no idea what the Col_1 and Col_2 part refer to, but it's still ! easy to add a new section - BAR_SHAPE( 1)%Col_1(1:8) = 'BAR '; BAR_SHAPE( 1)%Col_2 = 2 - BAR_SHAPE( 2)%Col_1(1:8) = 'BOX '; BAR_SHAPE( 2)%Col_2 = 4 - BAR_SHAPE( 3)%Col_1(1:8) = 'BOX1 '; BAR_SHAPE( 3)%Col_2 = 6 - BAR_SHAPE( 4)%Col_1(1:8) = 'CHAN '; BAR_SHAPE( 4)%Col_2 = 4 - BAR_SHAPE( 5)%Col_1(1:8) = 'CHAN1 '; BAR_SHAPE( 5)%Col_2 = 4 - BAR_SHAPE( 6)%Col_1(1:8) = 'CHAN2 '; BAR_SHAPE( 6)%Col_2 = 4 - BAR_SHAPE( 7)%Col_1(1:8) = 'CROSS '; BAR_SHAPE( 7)%Col_2 = 4 - BAR_SHAPE( 8)%Col_1(1:8) = 'H '; BAR_SHAPE( 8)%Col_2 = 4 - BAR_SHAPE( 9)%Col_1(1:8) = 'HAT '; BAR_SHAPE( 9)%Col_2 = 4 - BAR_SHAPE(10)%Col_1(1:8) = 'HEXA '; BAR_SHAPE(10)%Col_2 = 3 - BAR_SHAPE(11)%Col_1(1:8) = 'I '; BAR_SHAPE(11)%Col_2 = 6 - BAR_SHAPE(12)%Col_1(1:8) = 'I1 '; BAR_SHAPE(12)%Col_2 = 4 - BAR_SHAPE(13)%Col_1(1:8) = 'ROD '; BAR_SHAPE(13)%Col_2 = 1 - BAR_SHAPE(14)%Col_1(1:8) = 'T '; BAR_SHAPE(14)%Col_2 = 4 - BAR_SHAPE(15)%Col_1(1:8) = 'T1 '; BAR_SHAPE(15)%Col_2 = 4 - BAR_SHAPE(16)%Col_1(1:8) = 'T2 '; BAR_SHAPE(16)%Col_2 = 4 - BAR_SHAPE(17)%Col_1(1:8) = 'TUBE '; BAR_SHAPE(17)%Col_2 = 2 - BAR_SHAPE(18)%Col_1(1:8) = 'Z '; BAR_SHAPE(18)%Col_2 = 4 - BAR_SHAPE(19)%Col_1(1:8) = 'TUBE2 '; BAR_SHAPE(19)%Col_2 = 2 + BAR_SHAPE( 1)%Col_1(1:8) = 'BAR '; BAR_SHAPE( 1)%Col_2 = 2 + BAR_SHAPE( 2)%Col_1(1:8) = 'BOX '; BAR_SHAPE( 2)%Col_2 = 4 + BAR_SHAPE( 3)%Col_1(1:8) = 'BOX1 '; BAR_SHAPE( 3)%Col_2 = 6 + BAR_SHAPE( 4)%Col_1(1:8) = 'CHAN '; BAR_SHAPE( 4)%Col_2 = 4 + BAR_SHAPE( 5)%Col_1(1:8) = 'CHAN1 '; BAR_SHAPE( 5)%Col_2 = 4 + BAR_SHAPE( 6)%Col_1(1:8) = 'CHAN2 '; BAR_SHAPE( 6)%Col_2 = 4 + BAR_SHAPE( 7)%Col_1(1:8) = 'CROSS '; BAR_SHAPE( 7)%Col_2 = 4 + BAR_SHAPE( 8)%Col_1(1:8) = 'H '; BAR_SHAPE( 8)%Col_2 = 4 + BAR_SHAPE( 9)%Col_1(1:8) = 'HAT '; BAR_SHAPE( 9)%Col_2 = 4 + BAR_SHAPE(10)%Col_1(1:8) = 'HEXA '; BAR_SHAPE(10)%Col_2 = 3 + BAR_SHAPE(11)%Col_1(1:8) = 'I '; BAR_SHAPE(11)%Col_2 = 6 + BAR_SHAPE(12)%Col_1(1:8) = 'I1 '; BAR_SHAPE(12)%Col_2 = 4 + BAR_SHAPE(13)%Col_1(1:8) = 'ROD '; BAR_SHAPE(13)%Col_2 = 1 + BAR_SHAPE(14)%Col_1(1:8) = 'T '; BAR_SHAPE(14)%Col_2 = 4 + BAR_SHAPE(15)%Col_1(1:8) = 'T1 '; BAR_SHAPE(15)%Col_2 = 4 + BAR_SHAPE(16)%Col_1(1:8) = 'T2 '; BAR_SHAPE(16)%Col_2 = 4 + BAR_SHAPE(17)%Col_1(1:8) = 'TUBE '; BAR_SHAPE(17)%Col_2 = 2 + BAR_SHAPE(18)%Col_1(1:8) = 'Z '; BAR_SHAPE(18)%Col_2 = 4 + BAR_SHAPE(19)%Col_1(1:8) = 'TUBE2 '; BAR_SHAPE(19)%Col_2 = 2 NPBAR = NPBAR + 1 PBAR(NPBAR,3) = NPBARL ! Make JCARD from CARD CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + NAME = JCARD(1) ID = JCARD(2) - - ! Code not written for cross-section dimension data spilling over + + ! Code not written for cross-section dimension data spilling over ! to a 2nd cont entry so give error if BAR_SHAPE(i)%Col_2 > 7 DO I=1,NS IF (BAR_SHAPE(I)%Col_2 > 7) THEN @@ -183,16 +183,16 @@ SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) WRITE(F06,1145) JCARD(1),PROP_ID EXIT ENDIF - ENDDO + ENDDO PBAR(NPBAR,1) = PROP_ID ENDIF - + CALL I4FLD ( JCARD(3), JF(3), MATL_ID ) ! Read material ID and enter into array PBAR IF (IERRFL(3) == 'N') THEN IF (MATL_ID <= 0) THEN FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATL_ID - WRITE(F06,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATL_ID + WRITE(ERR,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATL_ID + WRITE(F06,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATL_ID ELSE PBAR(NPBAR,2) = MATL_ID ENDIF @@ -218,7 +218,7 @@ SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,0,5,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2,3,5 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,0,6,7,8,9 ) ! Issue warning if fields 4 and 6-9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + PBARL_TYPE(1:) = ' ' PBARL_TYPE(1:) = CS_TYPE(1:) @@ -273,7 +273,7 @@ SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) WRITE(F06,1136) NAME, ID ENDIF - + ! Call routines to calc bar cross-section props, depending on CS_TYPE IERR = 0 @@ -347,7 +347,7 @@ SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) WRITE(F06,1177) NAME, ID, CS_TYPE(1:8), MSG ENDIF - + ! Write PBAR equivalent Bulk Data entries: ! ! IF (ECHO(1:4) /= 'NONE') THEN @@ -360,9 +360,9 @@ SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) ! ********************************************************************************************************************************** 1136 FORMAT(' *ERROR 1136: REQUIRED CONTINUATION FOR ',A,' ID = ',A,' MISSING') - + 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) - + 1162 FORMAT(' *ERROR 1162: INVALID NAME = "',A,'" FOR CROSS-SECTION IN FIELD ',I2,' ON ',A,' ENTRY = ',A, & '. CHECK USERS MANUAL FOR VALID ENTRIES') @@ -380,9 +380,9 @@ SUBROUTINE BD_PBARL ( CARD, LARGE_FLD_INP, PBARL_TYPE ) ! ********************************************************************************************************************************** - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE WRITE_PBAR_EQUIV @@ -449,10 +449,10 @@ SUBROUTINE WRITE_PBAR_EQUIV WRITE(ICARD(3),FMT0) ; CALL LEFT_ADJ_BDFLD ( ICARD(3) ) ENDIF WRITE(ICARD(4),FMT1) I12 ; CALL LEFT_ADJ_BDFLD ( ICARD(4) ) - WRITE(ICARD(5),FMT0) - WRITE(ICARD(6),FMT0) - WRITE(ICARD(7),FMT0) - WRITE(ICARD(8),FMT0) + WRITE(ICARD(5),FMT0) + WRITE(ICARD(6),FMT0) + WRITE(ICARD(7),FMT0) + WRITE(ICARD(8),FMT0) WRITE(ICARD(9),FMT0) IF ((PBARLSHR == 'Y') .OR. (DABS(I12) > 0)) THEN ! Only write 2nd cont entry if we want K1, K2 included or I12 is /= 0. WRITE(F06,302) (ICARD(I),I=2,9) @@ -596,7 +596,7 @@ SUBROUTINE SECTION_PROPS_BOX1 ( JERR ) REAL(DOUBLE) :: TR ! Thickness of right web REAL(DOUBLE) :: TB ! Thickness of bottom web REAL(DOUBLE) :: TT ! Thickness of top web - + ! ********************************************************************************************************************************** JERR = 0 @@ -689,9 +689,9 @@ SUBROUTINE SECTION_PROPS_CHAN ( JERR ) I12 = ZERO JTOR = ALPHA*THIRD*(H*TW*TW*TW + (B - TW)*TF*TF*TF + (B - TW)*TF*TF*TF) - Y(1) = HALF*H ; Z(1) = -ZSHR - HALF*TW + B - Y(2) = -Y(1) ; Z(2) = Z(1) - Y(3) = -Y(1) ; Z(3) = -ZSHR - HALF*TW + Y(1) = HALF*H ; Z(1) = -ZSHR - HALF*TW + B + Y(2) = -Y(1) ; Z(2) = Z(1) + Y(3) = -Y(1) ; Z(3) = -ZSHR - HALF*TW Y(4) = Y(1) ; Z(4) = Z(3) K1 = (H - TWO*TF)/H K2 = (B - TW)/B @@ -740,9 +740,9 @@ SUBROUTINE SECTION_PROPS_CHAN1 ( JERR ) I12 = ZERO JTOR = ALPHA*THIRD*(H*TW*TW*TW + (B - TF)*TF*TF*TF) - Y(1) = HALF*H ; Z(1) = -ZSHR - HALF*TW + B - Y(2) = -Y(1) ; Z(2) = Z(1) - Y(3) = -Y(1) ; Z(3) = -ZSHR - HALF*TW + Y(1) = HALF*H ; Z(1) = -ZSHR - HALF*TW + B + Y(2) = -Y(1) ; Z(2) = Z(1) + Y(3) = -Y(1) ; Z(3) = -ZSHR - HALF*TW Y(4) = Y(1) ; Z(4) = Z(3) K1 = (H - TWO*TF)/H K2 = (B - TW)/B @@ -791,9 +791,9 @@ SUBROUTINE SECTION_PROPS_CHAN2 ( JERR ) I12 = ZERO JTOR = ALPHA*THIRD*(H*TW*TW*TW + (B - TF)*TF*TF*TF) - Y(1) = HALF*H ; Z(1) = -ZSHR - HALF*TW + B - Y(2) = -Y(1) ; Z(2) = Z(1) - Y(3) = -Y(1) ; Z(3) = -ZSHR - HALF*TW + Y(1) = HALF*H ; Z(1) = -ZSHR - HALF*TW + B + Y(2) = -Y(1) ; Z(2) = Z(1) + Y(3) = -Y(1) ; Z(3) = -ZSHR - HALF*TW Y(4) = Y(1) ; Z(4) = Z(3) K1 = (H - TWO*TF)/H K2 = (B - TW)/B @@ -843,7 +843,7 @@ SUBROUTINE SECTION_PROPS_CROSS ( JERR ) Y(1) = HALF*HV ; Z(1) = ZERO Y(2) = ZERO ; Z(2) = HALF*TV + W0 Y(3) = -Y(1) ; Z(3) = ZERO - Y(4) = ZERO ; Z(4) = -Z(2) + Y(4) = ZERO ; Z(4) = -Z(2) K1 = (FIVE/SIX)*AVERT/AREA K2 = (FIVE/SIX)*AHORZ/AREA @@ -985,7 +985,7 @@ SUBROUTINE SECTION_PROPS_HEXA ( JERR ) WAVG = HALF*(W0 + W1) HT = HALF*H0 - AREA = W1*H0 + TWO*WT*HT + AREA = W1*H0 + TWO*WT*HT I1 = W1*H0*H0*H0/TWELVE + FOUR*( WT*HT*HT*HT/(THREE*TWELVE) + HALF*WT*HT*HT*HT/NINE ) I2 = H0*W1*W1*W1/TWELVE + FOUR*( HT*WT*WT*WT/(THREE*TWELVE) + HALF*WT*HT*WT*WT/NINE ) I12 = ZERO @@ -1014,7 +1014,7 @@ SUBROUTINE SECTION_PROPS_I ( JERR ) INTEGER(LONG), INTENT(OUT) :: JERR ! Error indicator REAL(DOUBLE) :: ALPHA = 1.0D0 ! Constant in calc of JTOR for open cross-sections -! Pilkey has 1.31 in #10 and has 1.0 in #12 on Table 2.5. MSC uses 1.0 +! Pilkey has 1.31 in #10 and has 1.0 in #12 on Table 2.5. MSC uses 1.0 REAL(DOUBLE) :: ATOP ! Area of top flange REAL(DOUBLE) :: ABOT ! Area of bottom flange @@ -1153,10 +1153,10 @@ SUBROUTINE SECTION_PROPS_ROD ( JERR ) I2 = I1 I12 = ZERO JTOR = I1 + I2 - Y(1) = RAD ; Z(1) = ZERO - Y(2) = ZERO ; Z(2) = RAD + Y(1) = RAD ; Z(1) = ZERO + Y(2) = ZERO ; Z(2) = RAD Y(3) = -RAD ; Z(3) = ZERO - Y(4) = ZERO ; Z(4) = -RAD + Y(4) = ZERO ; Z(4) = -RAD K1 = SIX/SEVEN K2 = SIX/SEVEN @@ -1185,7 +1185,7 @@ SUBROUTINE SECTION_PROPS_T ( JERR ) REAL(DOUBLE) :: HW ! Height of web REAL(DOUBLE) :: TW ! Thickness of web REAL(DOUBLE) :: YCG ! Dist from bottom of web to C.G. - + ! ********************************************************************************************************************************** JERR = 0 @@ -1399,7 +1399,7 @@ SUBROUTINE SECTION_PROPS_TUBE ( JERR ) I2 = I1 I12 = ZERO JTOR = TWO*I1 - Y(1) = RAD1 ; Z(1) = ZERO + Y(1) = RAD1 ; Z(1) = ZERO Y(2) = ZERO ; Z(2) = RAD1 Y(3) = -Y(1) ; Z(3) = ZERO Y(4) = ZERO ; Z(4) = -Z(2) @@ -1446,7 +1446,7 @@ SUBROUTINE SECTION_PROPS_TUBE2 ( JERR ) I2 = I1 I12 = ZERO JTOR = TWO*I1 - Y(1) = RAD1 ; Z(1) = ZERO + Y(1) = RAD1 ; Z(1) = ZERO Y(2) = ZERO ; Z(2) = RAD1 Y(3) = -Y(1) ; Z(3) = ZERO Y(4) = ZERO ; Z(4) = -Z(2) @@ -1509,7 +1509,7 @@ SUBROUTINE SECTION_PROPS_Z ( JERR ) Y(4) = Y(1) ; Z(4) = -Z(2) K1 = AWEB/AREA K2 = (FIVE/SIX)*(ATOP + ABOT)/AREA - + END SUBROUTINE SECTION_PROPS_Z diff --git a/Source/LK1/L1A-BD/BD_PBEAM.f90 b/Source/LK1/L1A-BD/BD_PBEAM.f90 index 508088d9..ed582f97 100644 --- a/Source/LK1/L1A-BD/BD_PBEAM.f90 +++ b/Source/LK1/L1A-BD/BD_PBEAM.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) - + ! Processes PBEAM Bulk Data Cards. USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -36,11 +36,11 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PBEAM, RPBEAM USE PARAMS, ONLY : SUPINFO - + USE BD_PBEAM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PBEAM' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -49,7 +49,7 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) CHARACTER(LEN(JCARD)) :: CHRINP ! Character field read from CARD CHARACTER(LEN(JCARD)) :: ID ! Property ID for this PBEAM CHARACTER(LEN(JCARD)) :: NAME ! Char name for output error purposes - + INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator INTEGER(LONG) :: J ! DO loop index @@ -75,7 +75,7 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** ! PBEAM Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ---- ------------------ ! 2 Property ID PID PBEAM(npbeam, 1) @@ -139,11 +139,11 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) ! Increment NPBEAM - + NPBEAM = NPBEAM + 1 ! Read and check data on parent card @@ -159,16 +159,16 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) WRITE(F06,1145) JCARD(1),PROPERTY_ID EXIT ENDIF - ENDDO + ENDDO PBEAM(NPBEAM,1) = PROPERTY_ID ENDIF - + CALL I4FLD ( JCARD(3), JF(3), MATERIAL_ID ) ! Read material ID and enter into array PBEAM IF (IERRFL(3) == 'N') THEN IF (MATERIAL_ID <= 0) THEN FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID - WRITE(F06,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID + WRITE(ERR,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID + WRITE(F06,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID ELSE PBEAM(NPBEAM,2) = MATERIAL_ID ENDIF @@ -178,24 +178,24 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) CALL R8FLD ( JCARD(J+3), JF(J+3), RPBEAM(NPBEAM,J) ) ENDDO IF (IERRFL(4) == 'N') THEN - AREA_A = RPBEAM(NPBEAM,1) - ENDIF + AREA_A = RPBEAM(NPBEAM,1) + ENDIF IF (IERRFL(5) == 'N') THEN - I1_A = RPBEAM(NPBEAM,2) - ENDIF + I1_A = RPBEAM(NPBEAM,2) + ENDIF IF (IERRFL(6) == 'N') THEN I2_A = RPBEAM(NPBEAM,3) - ENDIF + ENDIF IF (IERRFL(7) == 'N') THEN I12_A = RPBEAM(NPBEAM,4) - ENDIF + ENDIF IF (IERRFL(8) == 'N') THEN JTOR_A = RPBEAM(NPBEAM,5) - ENDIF + ENDIF IF (IERRFL(9) == 'N') THEN NSM_A = RPBEAM(NPBEAM,6) - ENDIF - + ENDIF + ! Call subr to check sensibility of I1, I2, I12 combinations CALL CHECK_BAR_MOIs ( 'PBEAM', ID, I1, I2, I12, IERR ) @@ -207,7 +207,7 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) ENDIF ! Read and check data on mandatory 2nd card (needed even if all fields are blank since 3rd cont is mandatory): - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC ( CARD, ICONT, IERR ) ELSE @@ -218,7 +218,7 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) IF (ICONT == 1) THEN DO J = 7,14 ! Read real property values in fields 2-9 of 2nd card CALL R8FLD ( JCARD(J-5), JF(J-5), RPBEAM(NPBEAM,J) ) - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields ELSE @@ -228,7 +228,7 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) ENDIF ! Read and check data on mandatory 3rd card: - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC ( CARD, ICONT, IERR ) ELSE @@ -248,7 +248,7 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) ELSE FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1167) JF(2), NAME, ID, CHRINP - WRITE(F06,1167) JF(2), NAME, ID, CHRINP + WRITE(F06,1167) JF(2), NAME, ID, CHRINP ENDIF CALL R8FLD ( JCARD(3), JF(2), RPBEAM(NPBEAM,15) ) ! X/XB at next section along BEAM @@ -328,7 +328,7 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) ENDIF ! Read and check data on optional 4th card: - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC ( CARD, ICONT, IERR ) ELSE @@ -339,13 +339,13 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) IF (ICONT == 1) THEN DO J = 22,29 ! Read real property values in fields 2-9 of 2nd card CALL R8FLD ( JCARD(J-20), JF(J-20), RPBEAM(NPBEAM,J) ) - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields ENDIF ! Read and check data on optional 5th card: - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC ( CARD, ICONT, IERR ) ELSE @@ -356,13 +356,13 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) IF (ICONT == 1) THEN DO J = 30,37 ! Read real property values in fields 2-9 of 2nd card CALL R8FLD ( JCARD(J-28), JF(J-28), RPBEAM(NPBEAM,J) ) - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields ENDIF ! Read and check data on optional 6th card: - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC ( CARD, ICONT, IERR ) ELSE @@ -373,7 +373,7 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) IF (ICONT == 1) THEN DO J = 38,45 ! Read real property values in fields 2-9 of 2nd card CALL R8FLD ( JCARD(J-36), JF(J-36), RPBEAM(NPBEAM,J) ) - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields ENDIF @@ -386,7 +386,7 @@ SUBROUTINE BD_PBEAM ( CARD, LARGE_FLD_INP ) 1136 FORMAT(' *ERROR 1136: REQUIRED CONTINUATION FOR ',A,' ID = ',A,' MISSING') 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) - + 1167 FORMAT(' *ERROR 1167: INCORRECT VALUE IN FIELD ',I2,' OF ',A,A,' = ',A,' MUST BE "YES", "YESA" OR "NO"') 1192 FORMAT(' *ERROR 1192: ID IN FIELD ',I3,' OF ',A,A,' MUST BE ',A,' BUT IS = ',I8) diff --git a/Source/LK1/L1A-BD/BD_PBUSH.f90 b/Source/LK1/L1A-BD/BD_PBUSH.f90 index 5119da8a..436a6be9 100644 --- a/Source/LK1/L1A-BD/BD_PBUSH.f90 +++ b/Source/LK1/L1A-BD/BD_PBUSH.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PBUSH ( CARD, LARGE_FLD_INP ) - + ! Processes PBUSH Bulk Data Cards. Reads and checks: ! 1) Prop ID and Material ID and enter into array PBUSH ! 2) Area, moments of inertia, torsional constant ans nonstructural mass and enter into array RPBUSH ! 3) From 1st continuation card (if present): coords of 4 points for stress recovery and enter into array RPBUSH ! 4) From 2nd continuation card (if present): area factors for transverse shear and I12 and enter into array RPBUSH - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE PARAMS, ONLY : EPSIL @@ -40,18 +40,18 @@ SUBROUTINE BD_PBUSH ( CARD, LARGE_FLD_INP ) USE CONSTANTS_1, ONLY : ZERO, ONE USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PBUSH, RPBUSH - + USE BD_PBUSH_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PBUSH' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(1*BYTE) :: FOUND_RCV = 'N' ! 'Y' if RCV continuation entry is present CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: I4INP ! An integer value read from a field on this BD entry INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein @@ -60,35 +60,35 @@ SUBROUTINE BD_PBUSH ( CARD, LARGE_FLD_INP ) INTEGER(LONG) :: OFFSET ! Array index offset INTEGER(LONG) :: PROPERTY_ID = 0 ! Property ID (field 2 of this property card) - + REAL(DOUBLE) :: R8INP ! A real value read from a field on this BD entry ! ********************************************************************************************************************************** ! PBUSH Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ---- ------------- ! 2 Property ID PBUSH(npbush,1) ! 3 "K", "B", 'GE" or "RCV" ! If field 3 = "K" : -! 4-9 Ki RPBUSH(npbush,1- 6) +! 4-9 Ki RPBUSH(npbush,1- 6) ! If field 3 = "B" : -! 4-9 Bi RPBUSH(npbush,7-12) +! 4-9 Bi RPBUSH(npbush,7-12) ! If field 3 = "GE" : -! 4-9 GEi RPBUSH(npbush,13) +! 4-9 GEi RPBUSH(npbush,13) ! If field 3 = "RCV": ! 4-9 RCVi RPBUSH(npbush,14-17) -! Cont entries have the vals for "K", "B", "GE", "RCV" that are not on the 1st entry - +! Cont entries have the vals for "K", "B", "GE", "RCV" that are not on the 1st entry + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + NPBUSH = NPBUSH+1 - + ! Read and check data on parent card CALL I4FLD ( JCARD(2), JF(2), I4INP ) ! Read property ID and enter into array PBUSH @@ -101,10 +101,10 @@ SUBROUTINE BD_PBUSH ( CARD, LARGE_FLD_INP ) WRITE(F06,1145) JCARD(1),PROPERTY_ID EXIT ENDIF - ENDDO + ENDDO PBUSH(NPBUSH,1) = PROPERTY_ID ENDIF - + CALL LEFT_ADJ_BDFLD ( JCARD(3) ) ! Determine which of the inputs are on the parent entry OFFSET = 0 NUM_ENTRIES = 6 @@ -138,7 +138,7 @@ SUBROUTINE BD_PBUSH ( CARD, LARGE_FLD_INP ) RPBUSH(NPBUSH,J+OFFSET) = R8INP ENDIF ENDDO - + CALL CRDERR ( CARD ) ! Read and check data on 3 optional con't entries @@ -195,7 +195,7 @@ SUBROUTINE BD_PBUSH ( CARD, LARGE_FLD_INP ) RPBUSH(NPBUSH,J+OFFSET) = R8INP ENDIF ENDDO - + CALL CRDERR ( CARD ) ELSE @@ -219,11 +219,11 @@ SUBROUTINE BD_PBUSH ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) - + 1148 FORMAT(' *ERROR 1148: FIELD 3 OF PBUSH ', I8, ' CONTINUATION ENTRY SHOULD BE ', A, ' BUT IS: ', A) 1178 FORMAT(' *ERROR 1178: ',A,A,' HAS INCORRECT VALUE "',A,'" IN FIELD 3') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PBUSH diff --git a/Source/LK1/L1A-BD/BD_PCOMP.f90 b/Source/LK1/L1A-BD/BD_PCOMP.f90 index 82d58dc7..8707e26b 100644 --- a/Source/LK1/L1A-BD/BD_PCOMP.f90 +++ b/Source/LK1/L1A-BD/BD_PCOMP.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) - + ! Processes PCOMP Bulk Data Cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPCOMP, MPCOMP0, MRPCOMP0, MPCOMP_PLIES, & @@ -41,7 +41,7 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) USE BD_PCOMP_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PCOMP' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -52,7 +52,7 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) CHARACTER(LEN(JCARD)) :: FT ! Field 6 of parent entry CHARACTER(LEN(JCARD)) :: LAM ! Field 9 of parent entry CHARACTER(LEN(JCARD)) :: SOUT ! Field 5 or 9 of cont entry - + INTEGER(LONG) :: CONT_NUM = 0 ! Count of continuation entries for this PCOMP B.D. entry INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein @@ -64,7 +64,7 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) INTEGER(LONG) :: PCOMP_PLIES ! No. of plies in 1 PCOMP entry incl sym plies not explicitly defined INTEGER(LONG) :: PROPERTY_ID = 0 ! Property ID (field 2 of this parent property card) - + REAL(DOUBLE) :: EPS1 ! A small number REAL(DOUBLE) :: GE ! Damping coeff REAL(DOUBLE) :: NSM ! Non structural mass @@ -79,8 +79,8 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** ! PCOMP Bulk Data Card: - -! FIELD ITEM ARRAY ELEMENT EXPLANATION + +! FIELD ITEM ARRAY ELEMENT EXPLANATION ! ----- ---- --------------- ------------- ! 2 PID PCOMP(npcomp,1) Prop ID ! 3 Z0 RPCOMP(npcomp,1) Dist from ref plane to bottom surface (default = -0.5 times layer thickness) @@ -96,9 +96,9 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) ! none PCOMP_PLIES PCOMP(npcomp,5) Number of plies for this PCOMP (not an input - determined herein) ! none PCOMP(npcomp,6) Indicator whether equiv PSHELL, MAT2 entries have been written to F06 for this PCOMP ! none TT RPCOMP(npcomp,6) Total plate thickness - + ! continuation cards (2 plies specified per continuation entry: -! +! ! FIELD ITEM ARRAY ELEMENT EXPLANATION ! ----- ----- ----------------- ------------- ! 2 MIDi PCOMP(npcomp,6+i) Material ID of ply i. See Remark (a) @@ -107,12 +107,12 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) ! 5 SOUTi PCOMP(npcomp,7+i) Stress or strain output request (1=YES or 0=NO) for ply i ! 6 MIDj repeat w/ j=i+1 Same as above for ply j=i+1 -! 7 Tj -! 8 THETAj -! 9 SOUTj +! 7 Tj +! 8 THETAj +! 9 SOUTj ! none Zi RPCOMP(npcomp,8+i) z coord (+/-) from ref plane to center of ply - + ! Subsequent continuation cards follow the same pattern as the 1st continuation card ! Remarks: @@ -120,13 +120,13 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) ! (a) Blank entries for Ti (after ply 1 will indicate thickness for ply i, Ti , equals value from previous ply (i-1) ! (b) Blank entries for MIDi (after ply 1 will indicate mat'l ID for ply i, MIDi, equals value from previous ply (i-1) - + EPS1 = EPSIL(1) ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Initialize LAM(1:) = ' ' @@ -141,23 +141,23 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) !xx WRITE(F06,1163) SUBR_NAME,JCARD(1),LPCOMP !xx CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit !xx ENDIF - + ! Read and check data on parent card CALL I4FLD ( JCARD(2), JF(2), PROPERTY_ID ) ! Read PID into PCOMP(npcomp,1) and type into PCOMP(npcomp,2) IF (IERRFL(2) == 'N') THEN DO I=1,NPCOMP-1 IF (PROPERTY_ID == PCOMP(I,1)) THEN - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1145) JCARD(1),PROPERTY_ID WRITE(F06,1145) JCARD(1),PROPERTY_ID EXIT ENDIF - ENDDO + ENDDO PCOMP(NPCOMP,1) = PROPERTY_ID PCOMP(NPCOMP,2) = 0 ! 0 for PCOMP B.D entry and 1 for PCOMP1 ENDIF - + Z0 = ZERO CALC_Z0 = 'N' IF (JCARD(3)(1:) /= ' ') THEN ! Read Z0 into RPCOMP(npcomp,1) @@ -170,14 +170,14 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) CALC_Z0 = 'Y' ENDIF ENDIF - + IF (JCARD(4)(1:) /= ' ') THEN ! Read NSM into RPCOMP(npcomp,2) CALL R8FLD ( JCARD(4), JF(4), NSM ) IF (IERRFL(4) == 'N') THEN RPCOMP(NPCOMP,2) = NSM ENDIF ENDIF - + FT(1:) = ' ' IF (JCARD(6)(1:) /= ' ') THEN ! Read FT into PCOMP(npcomp,3) CALL CHAR_FLD ( JCARD(6), JF(6), FT ) @@ -199,7 +199,7 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) ENDIF ENDIF ENDIF - + SB = ZERO IF (JCARD(5)(1:) /= ' ') THEN ! Read SB into RPCOMP(npcomp,3) CALL R8FLD ( JCARD(5), JF(5), SB ) @@ -208,26 +208,26 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) ENDIF ELSE ! SB field is blank so make sure FT not specified IF ((FT(1:) /= ' ') .AND. (DABS(SB) <= EPS1)) THEN - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1112) JCARD(5) WRITE(F06,1112) JCARD(5) ENDIF ENDIF - + IF (JCARD(7)(1:) /= ' ') THEN ! Read TREF into RPCOMP(npcomp,4) CALL R8FLD ( JCARD(7), JF(7), TREF ) IF (IERRFL(7) == 'N') THEN RPCOMP(NPCOMP,4) = TREF ENDIF ENDIF - + IF (JCARD(8)(1:) /= ' ') THEN ! Read GE into RPCOMP(npcomp,5) CALL R8FLD ( JCARD(8), JF(8), GE ) IF (IERRFL(8) == 'N') THEN RPCOMP(NPCOMP,5) = GE ENDIF ENDIF - + LAM(1:) = ' ' CALL CHAR_FLD ( JCARD(9), JF(9), LAM ) ! Read LAM into PCOMP(npcomp,4) IF (LAM(1:4) == 'SYM ') THEN @@ -235,7 +235,7 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) ELSE PCOMP(NPCOMP,4) = 0 ENDIF - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -245,7 +245,7 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) ENDIF ! Get ply data from continuation entries. There must be at least 1 continuation entry - + I1 = 0 I2 = 0 CONT_NUM = 0 @@ -259,8 +259,8 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) ENDIF CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) IF (ICONT == 1) THEN - - CONT_NUM = CONT_NUM + 1 + + CONT_NUM = CONT_NUM + 1 ! Read 1st set of ply data: MID, T, THRTA, SOUT IF((JCARD(2)(1:) /= ' ') .OR. (JCARD(3)(1:) /= ' ') .OR. (JCARD(4)(1:) /= ' ') .OR. (JCARD(5)(1:) /= ' ')) THEN @@ -369,8 +369,8 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) ENDIF - ENDDO - + ENDDO + IF ((IERRFL(2) == 'Y') .OR. (IERRFL(3) == 'Y') .OR. (IERRFL(4) == 'Y') .OR. (IERRFL(5) == 'Y') .OR. (IERRFL(6) == 'Y') .OR. & (IERRFL(7) == 'Y') .OR. (IERRFL(8) == 'Y') .OR. (IERRFL(9) == 'Y')) THEN CRD_ERR = 'Y' @@ -382,13 +382,13 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) IF (CONT_NUM >= 1) THEN IF (PCOMP(NPCOMP,MPCOMP0+1) == 0) THEN - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1114) PROPERTY_ID, PCOMP(NPCOMP,MPCOMP0+1) WRITE(F06,1114) PROPERTY_ID, PCOMP(NPCOMP,MPCOMP0+1) ENDIF IF (RPCOMP(NPCOMP,MRPCOMP0+1) == ZERO) THEN - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1131) PROPERTY_ID, RPCOMP(NPCOMP,MRPCOMP0+1) WRITE(F06,1131) PROPERTY_ID, RPCOMP(NPCOMP,MRPCOMP0+1) ENDIF @@ -453,7 +453,7 @@ SUBROUTINE BD_PCOMP ( CARD, LARGE_FLD_INP ) RPCOMP(NPCOMP,I1) = ZI ENDDO -! If layup was symmetric (LAM = 'SYM') then duplicate ply data for symmetric plies +! If layup was symmetric (LAM = 'SYM') then duplicate ply data for symmetric plies IF (LAM(1:4) == 'SYM ') THEN diff --git a/Source/LK1/L1A-BD/BD_PCOMP0.f90 b/Source/LK1/L1A-BD/BD_PCOMP0.f90 index 015ffff1..d2eb6470 100644 --- a/Source/LK1/L1A-BD/BD_PCOMP0.f90 +++ b/Source/LK1/L1A-BD/BD_PCOMP0.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PCOMP0 ( CARD, LARGE_FLD_INP, IPLIES ) - + ! Processes PCOMP Bulk Data Cards to determine the number of plies there are defined for this PCOMP entry - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : f06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN @@ -36,25 +36,25 @@ SUBROUTINE BD_PCOMP0 ( CARD, LARGE_FLD_INP, IPLIES ) USE BD_PCOMP0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PCOMP0' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: LAM ! Field 9 of parent entry. Symmetry option - + INTEGER(LONG), INTENT(OUT) :: IPLIES ! Count of number of plies defined by this PCOMP INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + ! ********************************************************************************************************************************** ! PCOMP Bulk Data Card: - -! FIELD ITEM EXPLANATION + +! FIELD ITEM EXPLANATION ! ----- ------------ ------------- ! 2 PID Prop ID ! 3 Z0 Dist from ref plane to bottom surface (default = -0.5 times layer thickness) @@ -66,9 +66,9 @@ SUBROUTINE BD_PCOMP0 ( CARD, LARGE_FLD_INP, IPLIES ) ! 9 LAM Symm lamination option (if "SYM" only plies on one side of elem centerline are specified) ! (plies are numbered starting with 1 at the bottom layer. If an odd number of plies is ! desired with SYM option the center ply thickness should be 1/2 the actual thickness - + ! continuation cards (2 plies specified per continuation entry: -! +! ! FIELD ITEM EXPLANATION ! ----- ------------ ------------- ! 2 MID1 Material ID of ply 1 @@ -76,24 +76,24 @@ SUBROUTINE BD_PCOMP0 ( CARD, LARGE_FLD_INP, IPLIES ) ! 4 THETA1 Orientation angle of longitudinal direction of ply 1 wrt material axis for the composite element ! 5 SOUT1 Stress or strain output request ("YES" or "NO") ! 6 MID2 Same as above for 2nd ply -! 7 T2 -! 8 THETA2 -! 9 SOUT2 - +! 7 T2 +! 8 THETA2 +! 9 SOUT2 + ! Subsequent continuation cards follow the same pattern as the 1st continuation card - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) LAM = JCARD(9) - + ! Count number of plies on continuation cards. There can be 2 plies/cont card and a ply is assumed to exist if any of the 4 ! fields for the ply have any data - + IPLIES = 0 - - DO + + DO IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC0 ( CARD, ICONT, IERR ) ELSE @@ -114,8 +114,8 @@ SUBROUTINE BD_PCOMP0 ( CARD, LARGE_FLD_INP, IPLIES ) ELSE EXIT ENDIF - ENDDO - + ENDDO + IF (LAM(1:4) == 'SYM ') THEN IPLIES = 2*IPLIES ENDIF @@ -125,5 +125,5 @@ SUBROUTINE BD_PCOMP0 ( CARD, LARGE_FLD_INP, IPLIES ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PCOMP0 diff --git a/Source/LK1/L1A-BD/BD_PCOMP1.f90 b/Source/LK1/L1A-BD/BD_PCOMP1.f90 index dfc2cb0a..0296fd7d 100644 --- a/Source/LK1/L1A-BD/BD_PCOMP1.f90 +++ b/Source/LK1/L1A-BD/BD_PCOMP1.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) - + ! Processes PCOMP1 Bulk Data Cards. Data is somewhat different than on the more general PCOMP B.D. entry but the data from this ! PCOMP1 will be put into the same PCOMP, RPCOMP arrays. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPCOMP_PLIES, LPCOMP, MPCOMP0, MRPCOMP0, & @@ -42,7 +42,7 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) USE BD_PCOMP1_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PCOMP1' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -52,7 +52,7 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) CHARACTER( 1*BYTE) :: CRD_ERR = 'N' ! If 'Y' then this B.D. entry has error CHARACTER(LEN(JCARD)) :: FT ! Field 6 of parent entry CHARACTER(LEN(JCARD)) :: LAM ! Field 9 of parent entry - + INTEGER(LONG) :: CONT_NUM = 0 ! Count of continuation entries for this PCOMP1 B.D. entry INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein @@ -65,12 +65,12 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) INTEGER(LONG) :: PROPERTY_ID = 0 ! Property ID (field 2 of this parent property card) INTEGER(LONG) :: SOUT_INT = 0 ! Entry in array PCOMP (not defined on PCOMP1) - + REAL(DOUBLE) :: EPS1 ! A small number REAL(DOUBLE) :: NSM ! Non structural mass REAL(DOUBLE) :: R8INP ! Real value resd from a PCOMP1 field REAL(DOUBLE) :: SB = ZERO ! Allowable shear stress - REAL(DOUBLE) :: THETA(LPCOMP_PLIES)! Angle of longitudinal axis of ply + REAL(DOUBLE) :: THETA(LPCOMP_PLIES)! Angle of longitudinal axis of ply REAL(DOUBLE) :: THICK = ZERO ! Thickness of each ply REAL(DOUBLE) :: TT = ZERO ! Total plate thickness REAL(DOUBLE) :: Z0 = ZERO ! Dist (+/-) from ref plane to bottom surface @@ -80,8 +80,8 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** ! PCOMP1 Bulk Data Card: - -! FIELD ITEM ARRAY ELEMENT EXPLANATION + +! FIELD ITEM ARRAY ELEMENT EXPLANATION ! ----- ---- --------------- ------------- ! 2 PID PCOMP(npcomp,1) Prop ID ! 3 Z0 RPCOMP(npcomp,1) Dist from ref plane to bottom surface (default = -0.5 times layer thickness) @@ -99,23 +99,23 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) ! none RPCOMP(npcomp,4) TREF not defined on PCOMP1 ! none RPCOMP(npcomp,5) GE not defined on PCOMP1 ! none TT RPCOMP(npcomp,6) Total plate thickness - + ! continuation cards: -! +! ! FIELD ITEM ARRAY ELEMENT EXPLANATION ! ----- ----- ----------------- ------------- ! 2-9 THETAi RPCOMP(npcomp,7+i) Orientation angle of longitudinal dir of ply i wrt material axis for the composite elem ! none Zi RPCOMP(npcomp,8+i) z coord (+/-) from ref plane to center of ply - + ! Subsequent continuation cards follow the same pattern as the 1st continuation card EPS1 = EPSIL(1) ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Initialize LAM(1:) = ' ' @@ -129,23 +129,23 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) !xx WRITE(F06,1163) SUBR_NAME,JCARD(1),LPCOMP !xx CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit !xx ENDIF - + ! Read and check data on parent card CALL I4FLD ( JCARD(2), JF(2), PROPERTY_ID ) ! Read PID into PCOMP(npcomp,1) and type into PCOMP(npcomp,2) IF (IERRFL(2) == 'N') THEN DO I=1,NPCOMP-1 IF (PROPERTY_ID == PCOMP(I,1)) THEN - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1145) JCARD(1),PROPERTY_ID WRITE(F06,1145) JCARD(1),PROPERTY_ID EXIT ENDIF - ENDDO + ENDDO PCOMP(NPCOMP,1) = PROPERTY_ID PCOMP(NPCOMP,2) = 1 ! 1 for PCOMP1 B.D entry and 0 for PCOMP ENDIF - + FT(1:) = ' ' IF (JCARD(6)(1:) /= ' ') THEN ! Read FT into PCOMP(npcomp,3) CALL CHAR_FLD ( JCARD(6), JF(6), FT ) @@ -167,15 +167,15 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) ENDIF ENDIF ENDIF - + IF (JCARD(7)(1:) /= ' ') THEN ! Read MID. Save for later entry into array PCOMP when we know # plies CALL I4FLD ( JCARD(7), JF(7), MID ) ENDIF - + IF (JCARD(8)(1:) /= ' ') THEN ! Read THICK. Save for later entry into array RPCOMP when we know # plies CALL R8FLD ( JCARD(8), JF(8), THICK ) ENDIF - + LAM(1:) = ' ' CALL CHAR_FLD ( JCARD(9), JF(9), LAM ) ! Read LAM into PCOMP(npcomp,4) IF (LAM(1:4) == 'SYM ') THEN @@ -183,7 +183,7 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) ELSE PCOMP(NPCOMP,4) = 0 ENDIF - + Z0 = ZERO CALC_Z0 = 'N' IF (JCARD(3)(1:) /= ' ') THEN ! Read Z0 into RPCOMP(npcomp,1) @@ -196,14 +196,14 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) CALC_Z0 = 'Y' ENDIF ENDIF - + IF (JCARD(4)(1:) /= ' ') THEN ! Read NSM into RPCOMP(npcomp,2) CALL R8FLD ( JCARD(4), JF(4), NSM ) IF (IERRFL(4) == 'N') THEN RPCOMP(NPCOMP,2) = NSM ENDIF ENDIF - + SB = ZERO IF (JCARD(5)(1:) /= ' ') THEN ! Read SB into RPCOMP(npcomp,3) CALL R8FLD ( JCARD(5), JF(5), SB ) @@ -212,12 +212,12 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) ENDIF ELSE ! SB field is blank so make sure FT not specified IF ((FT(1:) /= ' ') .AND. (DABS(SB) <= EPS1)) THEN - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1112) JCARD(5) WRITE(F06,1112) JCARD(5) ENDIF ENDIF - + RPCOMP(NPCOMP,4) = -999.D0 ! Fictitous TREF and GE entries to make RPCOMP structure the same as RPCOMP(NPCOMP,5) = ZERO ! for the B.D. PCOMP entry since PCOMP1 doesn't define these @@ -230,7 +230,7 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) ENDIF ! Get ply data from continuation entries. There must be at least 1 continuation entry - + CONT_NUM = 0 PCOMP_PLIES0 = 0 DO @@ -242,8 +242,8 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) ENDIF CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) IF (ICONT == 1) THEN - - CONT_NUM = CONT_NUM + 1 + + CONT_NUM = CONT_NUM + 1 DO I=2,9 ! Read THETA's on cont entries IF (JCARD(I)(1:) /= ' ') THEN @@ -254,7 +254,7 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) ENDIF ENDIF ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9)! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -264,8 +264,8 @@ SUBROUTINE BD_PCOMP1 ( CARD, LARGE_FLD_INP ) ENDIF - ENDDO - + ENDDO + IF ((IERRFL(2) == 'Y') .OR. (IERRFL(3) == 'Y') .OR. (IERRFL(4) == 'Y') .OR. (IERRFL(5) == 'Y') .OR. (IERRFL(6) == 'Y') .OR. & (IERRFL(7) == 'Y') .OR. (IERRFL(8) == 'Y') .OR. (IERRFL(9) == 'Y')) THEN CRD_ERR = 'Y' diff --git a/Source/LK1/L1A-BD/BD_PCOMP10.f90 b/Source/LK1/L1A-BD/BD_PCOMP10.f90 index 63e8123c..bc1fb0c9 100644 --- a/Source/LK1/L1A-BD/BD_PCOMP10.f90 +++ b/Source/LK1/L1A-BD/BD_PCOMP10.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PCOMP10 ( CARD, LARGE_FLD_INP, IPLIES ) - + ! Processes PCOMP1 Bulk Data Cards to determine the number of plies for a B.D. PCOMP1 entry USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -36,34 +36,34 @@ SUBROUTINE BD_PCOMP10 ( CARD, LARGE_FLD_INP, IPLIES ) USE BD_PCOMP10_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PCOMP10' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: LAM ! Field 9 of parent entry. Symmetry option - + INTEGER(LONG), INTENT(OUT) :: IPLIES ! Count of number of plies defined by this PCOMP1 INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + ! ********************************************************************************************************************************** ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) LAM = JCARD(9) - + ! Count number of plies on continuation cards. There can be 2 plies/cont card and a ply is assumed to exist if any of the 4 ! fields for the ply have any data - + IPLIES = 0 - - DO + + DO IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC0 ( CARD, ICONT, IERR ) ELSE @@ -86,8 +86,8 @@ SUBROUTINE BD_PCOMP10 ( CARD, LARGE_FLD_INP, IPLIES ) ENDIF - ENDDO - + ENDDO + IF (LAM(1:4) == 'SYM ') THEN IPLIES = 2*IPLIES ENDIF @@ -97,5 +97,5 @@ SUBROUTINE BD_PCOMP10 ( CARD, LARGE_FLD_INP, IPLIES ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PCOMP10 diff --git a/Source/LK1/L1A-BD/BD_PELAS.f90 b/Source/LK1/L1A-BD/BD_PELAS.f90 index 81cbb490..03be5003 100644 --- a/Source/LK1/L1A-BD/BD_PELAS.f90 +++ b/Source/LK1/L1A-BD/BD_PELAS.f90 @@ -1,75 +1,75 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PELAS ( CARD ) - + ! Processes PELAS Bulk Data Cards. Read and check ! 1) Property ID and enter into array PELAS ! 2) Stiffness, damping, stress recovery coeff. and enter into array RPELAS - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPELAS, NPELAS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PELAS, RPELAS - + USE BD_PELAS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PELAS' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: PROP_ID = 0 ! Property ID (field 2 of this property card) - + ! ********************************************************************************************************************************** ! PELAS Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Prop ID PELAS(npelas,1) ! 3 Sp. Rate - K RPELAS(npelas,1) ! 4 Damping - GE RPELAS(npelas,2) ! 5 Stress recov. RPELAS(npelas,3) - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow NPELAS = NPELAS+1 - + ! Read and check data CALL I4FLD ( JCARD(2), JF(2), PROP_ID ) ! Read property ID and enter into array PELAS @@ -81,28 +81,28 @@ SUBROUTINE BD_PELAS ( CARD ) WRITE(F06,1145) JCARD(1), PROP_ID EXIT ENDIF - ENDDO + ENDDO PELAS(NPELAS,1) = PROP_ID ENDIF - + DO J = 1,3 ! Read real property values in fields 3-5 CALL R8FLD ( JCARD(J+2), JF(J+2), RPELAS(NPELAS,J) ) - ENDDO - + ENDDO + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,6,7,8,9 ) ! Issue warning if fields 6, 7, 8, 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN ! ********************************************************************************************************************************** 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) - + 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PELAS diff --git a/Source/LK1/L1A-BD/BD_PLOAD2.f90 b/Source/LK1/L1A-BD/BD_PLOAD2.f90 index fe23f03a..4aed29c4 100644 --- a/Source/LK1/L1A-BD/BD_PLOAD2.f90 +++ b/Source/LK1/L1A-BD/BD_PLOAD2.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PLOAD2 ( CARD, CC_LOAD_FND ) - + ! Processes PLOAD2 Bulk Data Cards. Reads and checks data and then writes CARD to file LINK1Q for later processing - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1Q USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPLOAD, LSUB, NPCARD, NPLOAD, NSUB @@ -35,7 +35,7 @@ SUBROUTINE BD_PLOAD2 ( CARD, CC_LOAD_FND ) USE MODEL_STUF, ONLY : PRESS_SIDS, SUBLOD USE BD_PLOAD2_USE_IFs - + IMPLICIT NONE CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PLOAD2' @@ -45,40 +45,40 @@ SUBROUTINE BD_PLOAD2 ( CARD, CC_LOAD_FND ) CHARACTER( 1*BYTE) :: THRU ! 'Y' if field 5 of parent card is "THRU" CHARACTER( 8*BYTE) :: TOKEN ! The 1st 8 characters from a JCARD CHARACTER( 8*BYTE) :: TOKTYP ! The type of token in a field of parent card. Output from subr TOKCHK - + INTEGER(LONG) :: PLOAD_ELID(6) ! Elem ID's on parent card if "THRU" not used for input INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: JERR ! Error count INTEGER(LONG) :: SETID ! Load set ID on PLOADi card - + REAL(DOUBLE) :: RPRESS - + ! ********************************************************************************************************************************** ! PLOAD2 Bulk Data card check - -! FIELD ITEM -! ----- ------------ + +! FIELD ITEM +! ----- ------------ ! 2 SID ! 3 Pressure ! 4-9 Element ID's (PLOAD_ELID's) ! or: ! 4-6 ELID1 THRU ELID2 - - + + ! Make JCARD from CARD - + JERR = 0 CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow and increment NPLOAD NPLOAD = NPLOAD+1 ! Check if load set ID on pressure card matches a Case Control request - + CALL I4FLD ( JCARD(2), JF(2), SETID ) IF (IERRFL(2) == 'N') THEN DO J=1,NSUB @@ -89,15 +89,15 @@ SUBROUTINE BD_PLOAD2 ( CARD, CC_LOAD_FND ) PRESS_SIDS(NPLOAD) = SETID ELSE JERR = JERR + 1 - ENDIF - + ENDIF + ! Read pressure value - + CALL R8FLD ( JCARD(3), JF(3), RPRESS ) ! Check for the 2 options on specifying data on the card. Either all data are PLOAD_ELID's or the THRU option is used in ! which case field 5 will have "THRU". - + IF ((JCARD(1)(1:7) == 'PLOAD1 ') .OR. (JCARD(1)(1:7) == 'PLOAD1*')) THEN WRITE(ERR,99) @@ -108,7 +108,7 @@ SUBROUTINE BD_PLOAD2 ( CARD, CC_LOAD_FND ) THRU = 'N' TOKEN = JCARD(5)(1:8) ! Only send the 1st 8 chars of this JCARD. It has been left justified CALL TOKCHK ( TOKEN, TOKTYP ) - + IF (TOKTYP == 'THRU ') THEN THRU = 'Y' ENDIF @@ -127,8 +127,8 @@ SUBROUTINE BD_PLOAD2 ( CARD, CC_LOAD_FND ) ELSE JERR = JERR + 1 ENDIF - ENDDO - ELSE + ENDDO + ELSE CALL I4FLD ( JCARD(4), JF(4), PLOAD_ELID(1) ) CALL I4FLD ( JCARD(6), JF(6), PLOAD_ELID(2) ) IF ((IERRFL(4) == 'N') .AND. (IERRFL(4) == 'N')) THEN @@ -142,7 +142,7 @@ SUBROUTINE BD_PLOAD2 ( CARD, CC_LOAD_FND ) JERR = JERR + 1 ENDIF ENDIF - + IF (THRU == 'N') THEN CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 ELSE @@ -152,15 +152,15 @@ SUBROUTINE BD_PLOAD2 ( CARD, CC_LOAD_FND ) CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields ENDIF - + ! Write data to file L1Q - + IF (JERR == 0) THEN WRITE(L1Q) CARD ENDIF NPCARD = NPCARD + 1 - + RETURN @@ -169,12 +169,12 @@ SUBROUTINE BD_PLOAD2 ( CARD, CC_LOAD_FND ) 99 FORMAT(' *ERROR : CODE NOT WRITTEN YET FOR PLOAD1') 1128 FORMAT(' *ERROR 1128: ON ',A,A,' THE IDs MUST BE IN INCREASING ORDER FOR THRU OPTION') - + 1152 FORMAT(' *ERROR 1152: ON ',A,A,' ELEM IDs MUST BE > 0') 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PLOAD2 diff --git a/Source/LK1/L1A-BD/BD_PLOAD4.f90 b/Source/LK1/L1A-BD/BD_PLOAD4.f90 index 192d9b34..bee48bc5 100644 --- a/Source/LK1/L1A-BD/BD_PLOAD4.f90 +++ b/Source/LK1/L1A-BD/BD_PLOAD4.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PLOAD4 ( CARD, CC_LOAD_FND ) - + ! Processes PLOAD4 Bulk Data Cards. Reads and checks data and then writes CARD to file LINK1Q for later processing - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1Q USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPLOAD, LSUB, NPCARD, NPLOAD, & @@ -36,29 +36,29 @@ SUBROUTINE BD_PLOAD4 ( CARD, CC_LOAD_FND ) USE MODEL_STUF, ONLY : PRESS_SIDS, SUBLOD USE BD_PLOAD4_USE_IFs - + IMPLICIT NONE CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PLOAD4' CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2)! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: ELID1,ELID2 ! Elem ID's on parent card. If "THRU" not in field 8, ELID2 is no present INTEGER(LONG) :: I4INP ! A value read from input file that should be an integer value INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: JERR ! Error count INTEGER(LONG) :: SETID ! Load set ID on PLOADi card - + REAL(DOUBLE) :: R8INP ! A value read from input file that should be a real value - + ! ********************************************************************************************************************************** -! PLOAD4 Bulk Data card check. +! PLOAD4 Bulk Data card check. ! Note that if both fields 8 and 9 are blank this is for a plate elem (and this does not need to be verified) - + ! Format 1: ! -------- ! FIELD ITEM Description @@ -85,17 +85,17 @@ SUBROUTINE BD_PLOAD4 ( CARD, CC_LOAD_FND ) ! 7 P4 Pressure at grid 4 (not used unless elem is a QUAD4) ! 8 "THRU" ! 9 ELID2 Element ID of 1st elem. Elems in the range ELID1 through ELID2 will be loaded. - - + + ! Make JCARD from CARD and up the count on NPLOAD - + JERR = 0 CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + NPLOAD = NPLOAD+1 ! Check if load set ID on pressure card matches a Case Control request - + CALL I4FLD ( JCARD(2), JF(2), SETID ) IF (IERRFL(2) == 'N') THEN DO J=1,NSUB @@ -106,15 +106,15 @@ SUBROUTINE BD_PLOAD4 ( CARD, CC_LOAD_FND ) PRESS_SIDS(NPLOAD) = SETID ELSE JERR = JERR + 1 - ENDIF - - + ENDIF + + ! Read data in fields 3-7 (same for either format). Only need to make sure data is correct format. We don't need values here ELID1 = 0 ! Element ID CALL I4FLD ( JCARD(3), JF(3), I4INP ) IF (IERRFL(3) == 'N') THEN - ELID1 = I4INP + ELID1 = I4INP ENDIF IF (JCARD(4)(1:) /= ' ') THEN @@ -134,7 +134,7 @@ SUBROUTINE BD_PLOAD4 ( CARD, CC_LOAD_FND ) CALL R8FLD ( JCARD(6), JF(6), R8INP ) ENDIF - IF (JCARD(7)(1:) /= ' ') THEN ! Pressure at grid 4 and/or default to pressure at grid 1 + IF (JCARD(7)(1:) /= ' ') THEN ! Pressure at grid 4 and/or default to pressure at grid 1 CALL R8FLD ( JCARD(7), JF(7), R8INP ) ENDIF @@ -154,7 +154,7 @@ SUBROUTINE BD_PLOAD4 ( CARD, CC_LOAD_FND ) FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1128) JCARD(1), JCARD(2) WRITE(F06,1128) JCARD(1), JCARD(2) - ENDIF + ENDIF ENDIF ! Format 1: @@ -184,13 +184,13 @@ SUBROUTINE BD_PLOAD4 ( CARD, CC_LOAD_FND ) CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields ! Write data to file L1Q - + IF (JERR == 0) THEN WRITE(L1Q) CARD ENDIF NPCARD = NPCARD + 1 - + RETURN @@ -199,7 +199,7 @@ SUBROUTINE BD_PLOAD4 ( CARD, CC_LOAD_FND ) 99 FORMAT(' *ERROR : CODE NOT WRITTEN YET FOR PLOAD4 OPTION USING G1 AND G3/G4') 1128 FORMAT(' *ERROR 1128: ON ',A,A,' THE IDs MUST BE IN INCREASING ORDER FOR THRU OPTION') - + 1152 FORMAT(' *ERROR 1152: ON ',A,A,' ELEM IDs MUST BE > 0') 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & @@ -208,5 +208,5 @@ SUBROUTINE BD_PLOAD4 ( CARD, CC_LOAD_FND ) 1198 FORMAT(' *ERROR 1198: FIELD ',I2,' ON ',A,A,' CANNOT BE BLANK') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PLOAD4 diff --git a/Source/LK1/L1A-BD/BD_PLOTEL.f90 b/Source/LK1/L1A-BD/BD_PLOTEL.f90 index 7fee5306..25bb5156 100644 --- a/Source/LK1/L1A-BD/BD_PLOTEL.f90 +++ b/Source/LK1/L1A-BD/BD_PLOTEL.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PLOTEL ( CARD ) - + ! Processes PLOTEL Bulk Data Cards USE PENTIUM_II_KIND, ONLY : BYTE, LONG @@ -33,11 +33,11 @@ SUBROUTINE BD_PLOTEL ( CARD ) USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF, MEDAT_PLOTEL, NELE, NPLOTEL USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, ETYPE - + USE BD_PLOTEL_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PLOTEL' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD @@ -52,19 +52,19 @@ SUBROUTINE BD_PLOTEL ( CARD ) ! ********************************************************************************************************************************** ! PLOTEL element Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 1 Element type ETYPE(nele) =R1 for CROD ! 2 Element ID EDAT(nedat+1) ! 3 Grid A EDAT(nedat+3) ! 4 Grid B EDAT(nedat+4) - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! First, check that fields 2-4 have the proper data type (we are going to have to rearrange the fields prior to calling ELEPRO). ! If any erors, return @@ -88,8 +88,8 @@ SUBROUTINE BD_PLOTEL ( CARD ) JCARD_EDAT(I)(1:) = ' ' ENDDO JCARD_EDAT(1) = JCARD(1) ! Elem type - JCARD_EDAT(2) = JCARD(2) ! Elem ID - JCARD_EDAT(3) = JCARD(2) ! Prop ID = elem ID (won't be used) + JCARD_EDAT(2) = JCARD(2) ! Elem ID + JCARD_EDAT(3) = JCARD(2) ! Prop ID = elem ID (won't be used) JCARD_EDAT(4) = JCARD(3) ! G1 JCARD_EDAT(5) = JCARD(4) ! G2 @@ -102,12 +102,12 @@ SUBROUTINE BD_PLOTEL ( CARD ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,0,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-4 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,5,6,7,8,9 ) ! Issue warning if fields 5-9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - - + + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PLOTEL diff --git a/Source/LK1/L1A-BD/BD_PMASS.f90 b/Source/LK1/L1A-BD/BD_PMASS.f90 index 0cdefa04..8fc9fc54 100644 --- a/Source/LK1/L1A-BD/BD_PMASS.f90 +++ b/Source/LK1/L1A-BD/BD_PMASS.f90 @@ -1,59 +1,59 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PMASS ( CARD ) - + ! Processes PMASS Bulk Data Cards. Read and check ! 1) Property ID and enter into array PMASS ! 2) Mass value and enter into array RPMASS - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NPMASS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PMASS, RPMASS - + USE BD_PMASS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PMASS' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: PMASS_PID ! Prop number from field 2,4,6,8 - + ! ********************************************************************************************************************************** ! PMASS Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Prop ID PMASS(npelas,1) @@ -64,12 +64,12 @@ SUBROUTINE BD_PMASS ( CARD ) ! 7 Mass, MI RPMASS(npelas,3) ! 8 Prop ID PMASS(npelas,4) ! 9 Mass, MI RPMASS(npelas,4) - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Read and check data DO I=1,4 @@ -86,7 +86,7 @@ SUBROUTINE BD_PMASS ( CARD ) WRITE(F06,1145) JCARD(1),PMASS_PID EXIT ENDIF - ENDDO + ENDDO PMASS(NPMASS,1) = PMASS_PID ENDIF CALL R8FLD ( JCARD(2*I+1), JF(2*I+1), RPMASS(NPMASS,1) ) @@ -111,14 +111,14 @@ SUBROUTINE BD_PMASS ( CARD ) ENDIF CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN ! ********************************************************************************************************************************** 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) - + ! ********************************************************************************************************************************** END SUBROUTINE BD_PMASS diff --git a/Source/LK1/L1A-BD/BD_PROD.f90 b/Source/LK1/L1A-BD/BD_PROD.f90 index af64c9fb..e3185aed 100644 --- a/Source/LK1/L1A-BD/BD_PROD.f90 +++ b/Source/LK1/L1A-BD/BD_PROD.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PROD ( CARD ) - + ! Processes PROD Bulk Data Cards. Reads and checks: ! 1) Property ID and material ID and enter them into array PROD ! 2) Area, torsional constant, stress recovery coeff for torsion and nonstructural mass and enter into array RPROD - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPROD, NPROD @@ -40,21 +40,21 @@ SUBROUTINE BD_PROD ( CARD ) USE BD_PROD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PROD' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: MATERIAL_ID = 0 ! Material ID (field 3 of this property card) INTEGER(LONG) :: PROPERTY_ID = 0 ! Property ID (field 2 of this property card) - + ! ********************************************************************************************************************************** ! PROD Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Prop ID PROD(nprod,1) @@ -63,16 +63,16 @@ SUBROUTINE BD_PROD ( CARD ) ! 5 Torsion J RPROD(nprod,2) ! 6 Tors stress C RPROD(nprod,3) ! 7 NSM RPROD(nprod,4) - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow NPROD = NPROD+1 - + ! Read and check data on parent card CALL I4FLD ( JCARD(2), JF(2), PROPERTY_ID ) ! Read property ID and enter into array PROD @@ -84,16 +84,16 @@ SUBROUTINE BD_PROD ( CARD ) WRITE(F06,1145) JCARD(1),PROPERTY_ID EXIT ENDIF - ENDDO + ENDDO PROD(NPROD,1) = PROPERTY_ID ENDIF - + CALL I4FLD ( JCARD(3), JF(3), MATERIAL_ID ) ! Read material ID and enter into array PROD IF (IERRFL(3) == 'N') THEN IF (MATERIAL_ID <= 0) THEN FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID - WRITE(F06,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID + WRITE(ERR,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID + WRITE(F06,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID ELSE PROD(NPROD,2) = MATERIAL_ID ENDIF @@ -101,24 +101,24 @@ SUBROUTINE BD_PROD ( CARD ) DO J = 1,4 ! Read real property values in fields 4-7 CALL R8FLD ( JCARD(J+3), JF(J+3), RPROD(NPROD,J) ) - ENDDO - + ENDDO + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,8,9 ) ! Issue warning if fields 8-9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN ! ********************************************************************************************************************************** 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) - + 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) 1192 FORMAT(' *ERROR 1192: ID IN FIELD ',I3,' OF ',A,A,' MUST BE ',A,' BUT IS = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PROD diff --git a/Source/LK1/L1A-BD/BD_PSHEAR.f90 b/Source/LK1/L1A-BD/BD_PSHEAR.f90 index af0e33ee..133925d2 100644 --- a/Source/LK1/L1A-BD/BD_PSHEAR.f90 +++ b/Source/LK1/L1A-BD/BD_PSHEAR.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PSHEAR ( CARD ) - + ! Processes PSHEAR Bulk Data Cards USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -33,11 +33,11 @@ SUBROUTINE BD_PSHEAR ( CARD ) USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, MPSHEAR, MRPSHEAR, NPSHEAR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PSHEAR, RPSHEAR - + USE BD_PSHEAR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PSHEAR' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD @@ -62,30 +62,30 @@ SUBROUTINE BD_PSHEAR ( CARD ) ! 5 NSM RPSHEAR(npshear,2) ! 6 F1 RPSHEAR(npshear,3) ! 7 F2 RPSHEAR(npshear,4) - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow NPSHEAR = NPSHEAR+1 - + ! Read and check data on parent card CALL I4FLD ( JCARD(2), JF(2), PROPERTY_ID ) ! Read PSHEAR ID IF (IERRFL(2) == 'N') THEN DO J=1,NPSHEAR-1 IF (PROPERTY_ID == PSHEAR(J,1)) THEN - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1145) JCARD(1),PROPERTY_ID WRITE(F06,1145) JCARD(1),PROPERTY_ID EXIT ENDIF - ENDDO + ENDDO PSHEAR(NPSHEAR,1) = PROPERTY_ID ENDIF - + ! Read material ID from field 3 CALL I4FLD ( JCARD(3), JF(3), MATERIAL_ID ) @@ -123,5 +123,5 @@ SUBROUTINE BD_PSHEAR ( CARD ) 1193 FORMAT(' *ERROR 1193: MATERIAL ID IN FIELD ',I3,' OF ',A,' MUST BE > 0 OR BLANK BUT IS = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PSHEAR diff --git a/Source/LK1/L1A-BD/BD_PSHEL.f90 b/Source/LK1/L1A-BD/BD_PSHEL.f90 index bead261d..cbe03069 100644 --- a/Source/LK1/L1A-BD/BD_PSHEL.f90 +++ b/Source/LK1/L1A-BD/BD_PSHEL.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PSHEL ( CARD, LARGE_FLD_INP ) - + ! Processes PSHELL Bulk Data Cards. Reads and checks data: ! 1) Property ID and 3 material ID's (membrane, bending, transverse shear) and enter into array PSHEL ! 2) Membrane thick., bending moment of inertia ratio, shear thick. ratio, nonstr mass and enter into array RPSHEL ! 3) From 1st cont card (if present): material ID for bending/membrane coupling ! 4) From 1st cont card (if present): locations for stress recovery and offset and enter into array RPSHEL - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : IERRFL, FATAL_ERR, JCARD_LEN, JF, LPSHEL, NPSHEL, BLNK_SUB_NAM @@ -40,17 +40,17 @@ SUBROUTINE BD_PSHEL ( CARD, LARGE_FLD_INP ) USE CONSTANTS_1, ONLY : ZERO, ONE, TWO USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : PSHEL, RPSHEL - + USE BD_PSHEL_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PSHEL' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: J ! DO loop index @@ -58,14 +58,14 @@ SUBROUTINE BD_PSHEL ( CARD, LARGE_FLD_INP ) INTEGER(LONG) :: N = 1 ! Counter INTEGER(LONG) :: PROPERTY_ID = 0 ! Property ID (field 2 of this parent property card) - + INTRINSIC :: DABS ! ********************************************************************************************************************************** ! PSHELL Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! on first card: @@ -88,31 +88,31 @@ SUBROUTINE BD_PSHEL ( CARD, LARGE_FLD_INP ) ! MID1 : no membrane stiffness, no membrane/coupling stiffness ! MID2 : no bending stiffness, no transverse shear stiffness, no membrane/bending coupling stiffness ! MID3 : no transverse shear flexibility -! MID4 : no membrane/coupling - +! MID4 : no membrane/coupling + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow NPSHEL = NPSHEL+1 - + ! Read and check data on parent card CALL I4FLD ( JCARD(2), JF(2), PROPERTY_ID ) ! Read PSHEL ID IF (IERRFL(2) == 'N') THEN DO J=1,NPSHEL-1 IF (PROPERTY_ID == PSHEL(J,1)) THEN - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1145) JCARD(1),PROPERTY_ID WRITE(F06,1145) JCARD(1),PROPERTY_ID EXIT ENDIF - ENDDO + ENDDO PSHEL(NPSHEL,1) = PROPERTY_ID ENDIF - + ! Read data from fields 3,5,7 (material ID's) and 2,4,6 (TM, 12I/(TM^3), TS/TM) N = 1 ! Read 3 material ID's into array PSHEL @@ -138,32 +138,32 @@ SUBROUTINE BD_PSHEL ( CARD, LARGE_FLD_INP ) !xx IF (JCARD(7)(1:) == ' ') THEN ! Reset MID3 to MID2 if MID3 field is blank !xx PSHEL(NPSHEL,4) = PSHEL(NPSHEL,3) !xx ENDIF - + IF ((IERRFL(5)=='N') .AND. (IERRFL(7)=='N')) THEN ! Check that MID3 is not > 0 when MID2 is blank (error) IF ((PSHEL(NPSHEL,4) > 0) .AND. (JCARD(5)(1:) == ' ')) THEN FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1160) PSHEL(NPSHEL,1),PSHEL(NPSHEL,3),PSHEL(NPSHEL,4) WRITE(F06,1160) PSHEL(NPSHEL,1),PSHEL(NPSHEL,3),PSHEL(NPSHEL,4) ENDIF - ENDIF - + ENDIF + IF (JCARD(6)(1:) == ' ') THEN ! Set default for bending inertia when field 6 is blank RPSHEL(NPSHEL,2) = ONE ENDIF - + IF (JCARD(8)(1:) == ' ') THEN ! Set PSHEL(npshel,6) if default value for TS/TM is to be used PSHEL(NPSHEL,6) = 1 ! Use default value ELSE PSHEL(NPSHEL,6) = 0 ! Do not use default value, a value was on the PSHEL card for TS/TM ENDIF - + CALL R8FLD ( JCARD(9), JF(9), RPSHEL(NPSHEL,4) ) ! Read NSM, nonstructural mass CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + ! Read and check data on optional continuation card: - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC ( CARD, ICONT, IERR ) ELSE @@ -192,11 +192,11 @@ SUBROUTINE BD_PSHEL ( CARD, LARGE_FLD_INP ) WRITE(F06,1194) JF(4),JCARD(1),PSHEL(NPSHEL,5) ENDIF ENDIF - CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,0,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-4 + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,0,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-4 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,5,6,7,8,9 )! Issue warning if fields 5, 6, 7, 8, 9 not blank CALL CRDERR ( CARD ) ENDIF - + RETURN @@ -205,8 +205,8 @@ SUBROUTINE BD_PSHEL ( CARD, LARGE_FLD_INP ) 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) 1160 FORMAT(' *ERROR 1160: PSHEL ID ',I8,' HAS BENDING MATERIAL ID = ',I8,' AND TRANSVERSE SHEAR MATERIAL ID = ',I8 & - ,/,14X,' WHEN BENDING MATERIAL ID IS 0, THE TRANSVERSE SHEAR MATERIAL ID CANNOT BE > 0') - + ,/,14X,' WHEN BENDING MATERIAL ID IS 0, THE TRANSVERSE SHEAR MATERIAL ID CANNOT BE > 0') + 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) @@ -216,5 +216,5 @@ SUBROUTINE BD_PSHEL ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PSHEL diff --git a/Source/LK1/L1A-BD/BD_PSOLID.f90 b/Source/LK1/L1A-BD/BD_PSOLID.f90 index 3a321e1b..080a0e9f 100644 --- a/Source/LK1/L1A-BD/BD_PSOLID.f90 +++ b/Source/LK1/L1A-BD/BD_PSOLID.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PSOLID ( CARD, IOR3D ) - + ! Processes PSOLID Bulk Data Cards. Reads and checks: ! 1) Property ID and material ID and enter them into array PSOLID - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPSOLID, NPSOLID, WARN_ERR @@ -40,22 +40,22 @@ SUBROUTINE BD_PSOLID ( CARD, IOR3D ) USE BD_PSOLID_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PSOLID' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: CHR_FLD ! Character data from 1 card field that has been left adjusted - + INTEGER(LONG), INTENT(OUT) :: IOR3D ! Integration order for this PSOLID entry INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: ID = 0 ! An integer ID read from a field of this card - + ! ********************************************************************************************************************************** ! PSOLID Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Prop ID PSOLID(npsolid,1) @@ -64,12 +64,12 @@ SUBROUTINE BD_PSOLID ( CARD, IOR3D ) ! 5 Int order PSOLID(npsolid,4) ! 6 Stress locations PSOLID(npsolid,5) ***** Not currently used ***** ! 7 Int scheme PSOLID(npsolid,6) - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow NPSOLID = NPSOLID+1 @@ -79,7 +79,7 @@ SUBROUTINE BD_PSOLID ( CARD, IOR3D ) !xx WRITE(F06,1163) SUBR_NAME,JCARD(1),LPSOLID !xx CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit !xx ENDIF - + ! Read and check data on parent card PSOLID(NPSOLID,1) = 0 @@ -92,10 +92,10 @@ SUBROUTINE BD_PSOLID ( CARD, IOR3D ) WRITE(F06,1145) JCARD(1),ID EXIT ENDIF - ENDDO + ENDDO PSOLID(NPSOLID,1) = ID ENDIF - + PSOLID(NPSOLID,2) = 0 CALL I4FLD ( JCARD(3), JF(3), ID ) ! Read material ID and enter into array PSOLID IF (IERRFL(3) == 'N') THEN @@ -163,7 +163,7 @@ SUBROUTINE BD_PSOLID ( CARD, IOR3D ) CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,0,7,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-5,7 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,6,0,8,9 ) ! Issue warning if fields 6, 8 and 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN @@ -174,12 +174,12 @@ SUBROUTINE BD_PSOLID ( CARD, IOR3D ) 1104 FORMAT(' *ERROR 1104: INVALID ENTRY = "',A,'" IN FIELD ',I3,' OF ',A,' ENTRY WITH ID = ',A) 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) - + 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) 1192 FORMAT(' *ERROR 1192: ID IN FIELD ',I3,' OF ',A,A,' MUST BE ',A,' BUT IS = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PSOLID diff --git a/Source/LK1/L1A-BD/BD_PUSER1.f90 b/Source/LK1/L1A-BD/BD_PUSER1.f90 index af70275b..38289830 100644 --- a/Source/LK1/L1A-BD/BD_PUSER1.f90 +++ b/Source/LK1/L1A-BD/BD_PUSER1.f90 @@ -1,49 +1,49 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PUSER1 ( CARD, LARGE_FLD_INP ) - + ! Processes PUSER1 Bulk Data Cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPUSER1, NPUSER1 USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PUSER1, RPUSER1 - + USE BD_PUSER1_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PUSER1' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: J ! DO loop index @@ -55,7 +55,7 @@ SUBROUTINE BD_PUSER1 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** ! PUSER1 Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Prop ID PUSER1(npUSER1, 1) @@ -71,12 +71,12 @@ SUBROUTINE BD_PUSER1 ( CARD, LARGE_FLD_INP ) ! 3 Param 8 RPUSER1(npUSER1, 8) ! 4 Param 9 RPUSER1(npUSER1, 9) ! 5 Param 10 RPUSER1(npUSER1,10) - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow NPUSER1 = NPUSER1+1 @@ -86,7 +86,7 @@ SUBROUTINE BD_PUSER1 ( CARD, LARGE_FLD_INP ) !xx WRITE(F06,1163) SUBR_NAME,JCARD(1),LPUSER1 !xx CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit !xx ENDIF - + ! Read and check data on parent card CALL I4FLD ( JCARD(2), JF(2), PROPERTY_ID ) ! Read property ID and enter into array PUSER1 @@ -98,16 +98,16 @@ SUBROUTINE BD_PUSER1 ( CARD, LARGE_FLD_INP ) WRITE(F06,1145) JCARD(1),PROPERTY_ID EXIT ENDIF - ENDDO + ENDDO PUSER1(NPUSER1,1) = PROPERTY_ID ENDIF - + CALL I4FLD ( JCARD(3), JF(3), MATERIAL_ID ) ! Read material ID and enter into array PUSER1 IF (IERRFL(3) == 'N') THEN IF (MATERIAL_ID <= 0) THEN FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID - WRITE(F06,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID + WRITE(ERR,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID + WRITE(F06,1192) JF(3), JCARD(1), JCARD(2), ' > 0 ', MATERIAL_ID ELSE PUSER1(NPUSER1,2) = MATERIAL_ID ENDIF @@ -115,13 +115,13 @@ SUBROUTINE BD_PUSER1 ( CARD, LARGE_FLD_INP ) DO J = 1,6 ! Read real property values in fields 4-9 CALL R8FLD ( JCARD(J+3), JF(J+3), RPUSER1(NPUSER1,J) ) - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) - + ! Read and check data on optional Second Card: - + IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC ( CARD, ICONT, IERR ) ELSE @@ -132,26 +132,26 @@ SUBROUTINE BD_PUSER1 ( CARD, LARGE_FLD_INP ) IF (ICONT == 1) THEN DO J = 7,10 ! Read real property values in fields 2-5 CALL R8FLD ( JCARD(J-5), JF(J-5), RPUSER1(NPUSER1,J) ) - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-5 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,6,7,8,9 )! Issue warning if fields 6-9 not blank CALL CRDERR ( CARD ) ENDIF - + RETURN ! ********************************************************************************************************************************** 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) - + 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) 1192 FORMAT(' *ERROR 1192: ID IN FIELD ',I3,' OF ',A,A,' MUST BE ',A,' BUT IS = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PUSER1 diff --git a/Source/LK1/L1A-BD/BD_PUSERIN.f90 b/Source/LK1/L1A-BD/BD_PUSERIN.f90 index ee607aaf..18b69fca 100644 --- a/Source/LK1/L1A-BD/BD_PUSERIN.f90 +++ b/Source/LK1/L1A-BD/BD_PUSERIN.f90 @@ -1,48 +1,48 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_PUSERIN ( CARD ) - + ! Processes PUSERIN Bulk Data Cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, NUM_IN4_FILES USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LPUSERIN, NPUSERIN USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : PUSERIN, USERIN_MAT_NAMES - + USE BD_PUSERIN_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_PUSERIN' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card !xx CHARACTER(LEN=*), INTENT(IN) :: CARD_AS_INPUT ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: IN4_NUM ! IN4 file number read from field 3 of RPUSERIN entry INTEGER(LONG) :: J ! DO loop indices !xx INTEGER(LONG) :: ISTART ! Start col in CARD for matrix names @@ -53,7 +53,7 @@ SUBROUTINE BD_PUSERIN ( CARD ) ! ********************************************************************************************************************************** ! PUSERIN Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Prop ID PUSERIN(npuserin, 1) @@ -62,16 +62,16 @@ SUBROUTINE BD_PUSERIN ( CARD ) ! 5 Mass mat name USERIN_MAT_NAMES(npuserin,2) ! 6 Load matrix name USERIN_MAT_NAMES(npuserin,3) ! 7 6x6 rigid body mass matrix USERIN_MAT_NAMES(npuserin,4) - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow NPUSERIN = NPUSERIN+1 - + ! Read and check data on parent card CALL I4FLD ( JCARD(2), JF(2), PROPERTY_ID ) ! Prop ID @@ -83,15 +83,15 @@ SUBROUTINE BD_PUSERIN ( CARD ) WRITE(F06,1145) JCARD(1),PROPERTY_ID EXIT ENDIF - ENDDO + ENDDO PUSERIN(NPUSERIN,1) = PROPERTY_ID ENDIF - + CALL I4FLD ( JCARD(3), JF(3), IN4_NUM ) ! IN4 index number IF (IERRFL(3) == 'N') THEN PUSERIN(NPUSERIN,2) = IN4_NUM ENDIF - + !xx ISTART = 25 ! Read stiff matrix name in field 4 !xx USERIN_MAT_NAMES(NPUSERIN,1) = CARD_AS_INPUT(ISTART :ISTART+ 7) @@ -117,10 +117,10 @@ SUBROUTINE BD_PUSERIN ( CARD ) ! ********************************************************************************************************************************** 1145 FORMAT(' *ERROR 1145: DUPLICATE ',A,' ENTRY WITH ID = ',I8) - + 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_PUSERIN diff --git a/Source/LK1/L1A-BD/BD_RBAR.f90 b/Source/LK1/L1A-BD/BD_RBAR.f90 index 1087f582..4d1c94df 100644 --- a/Source/LK1/L1A-BD/BD_RBAR.f90 +++ b/Source/LK1/L1A-BD/BD_RBAR.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_RBAR ( CARD ) - + ! Processes RBAR Bulk Data Cards. Writes RBAR element records to file L1F for later processing. ! Two records are written for each dependent Grid/DOF pair: @@ -38,24 +38,24 @@ SUBROUTINE BD_RBAR ( CARD ) ! GID2 : 2nd Grid ID ! IDOF2: Independent DOF's at GID2 ! DDOF2: Dependent DOF's at GID2 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1F USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LRIGEL, NRBAR, NRIGEL, NRECARD USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : RIGID_ELEM_IDS - + USE BD_RBAR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_RBAR' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 8*BYTE) :: IP6TYP(5:8) ! An output from subr IP6CHK called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARDO ! An output from subr IP6CHK called herein CHARACTER( 8*BYTE), PARAMETER :: RTYPE = 'RBAR '! Rigid element type - + INTEGER(LONG) :: DOF_NOS(6)= 0 ! Fields 5 & 6 should fill this in to be: 1 2 3 4 5 6 INTEGER(LONG) :: GID1 = 0 ! Grid ID for 1st RBAR grid INTEGER(LONG) :: GID2 = 0 ! Grid ID for 2nd RBAR grid @@ -67,29 +67,29 @@ SUBROUTINE BD_RBAR ( CARD ) INTEGER(LONG) :: RBDOF(4) ! The DOF's in fields 5,6,7,8 INTEGER(LONG) :: RELID = 0 ! Rigid element ID - + ! ********************************************************************************************************************************** ! RBAR Bulk Data Card routine - -! FIELD ITEM -! ----- ------------ + +! FIELD ITEM +! ----- ------------ ! 2 RELID, Rigid Elem ID ! 3 GID1 , Grid ID for 1st RBAR grid ! 4 GID2 , Grid ID for 2nd RBAR grid -! 5 IDOF1, Indep. DOF's at GID1 -! 6 IDOF2, Indep. DOF's at GID2 -! 7 DDOF1, Depen. DOF's at GID1 -! 8 DDOF2, Depen. DOF's at GID2 - - +! 5 IDOF1, Indep. DOF's at GID1 +! 6 IDOF2, Indep. DOF's at GID2 +! 7 DDOF1, Depen. DOF's at GID1 +! 8 DDOF2, Depen. DOF's at GID2 + + ! Data is written to file LINK1F for later processing after checks on format of data. - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow NRBAR = NRBAR+1 @@ -102,14 +102,14 @@ SUBROUTINE BD_RBAR ( CARD ) !xx ENDIF ! Read and check data - - CALL I4FLD ( JCARD(2), JF(2), RELID ) ! Read rigid element ID in field 2 + + CALL I4FLD ( JCARD(2), JF(2), RELID ) ! Read rigid element ID in field 2 IF (IERRFL(2) /= 'N') THEN JERR = JERR + 1 ELSE RIGID_ELEM_IDS(NRIGEL) = RELID ENDIF - + CALL I4FLD ( JCARD(3), JF(3), GID1 ) ! Read 1st grid in field 3 IF (IERRFL(3) /= 'N') THEN JERR = JERR + 1 @@ -119,7 +119,7 @@ SUBROUTINE BD_RBAR ( CARD ) IF (IERRFL(4) /= 'N') THEN JERR = JERR + 1 ENDIF - + DO J=5,6 ! Read independent DOF's in fields 5, 6 CALL I4FLD ( JCARD(J), JF(J), RBDOF(J-4) ) IF (IERRFL(J) == 'N') THEN @@ -127,7 +127,7 @@ SUBROUTINE BD_RBAR ( CARD ) IF ((IP6TYP(J) == 'COMP NOS') .OR. (IP6TYP(J) == 'BLANK ')) THEN CONTINUE ELSE - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 IDOF_ERR = IDOF_ERR + 1 WRITE(ERR,1124) J,JCARD(1),JCARD(2),J,JCARD(J) WRITE(F06,1124) J,JCARD(1),JCARD(2),J,JCARD(J) @@ -136,7 +136,7 @@ SUBROUTINE BD_RBAR ( CARD ) IDOF_ERR = IDOF_ERR + 1 ENDIF ENDDO - + DO J=7,8 ! Read dependent DOF's in fields 7, 8 CALL I4FLD ( JCARD(J), JF(J), RBDOF(J-4) ) IF (IERRFL(J) == 'N') THEN @@ -144,7 +144,7 @@ SUBROUTINE BD_RBAR ( CARD ) IF ((IP6TYP(J) == 'COMP NOS') .OR. (IP6TYP(J) == 'BLANK ')) THEN CONTINUE ELSE - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 WRITE(ERR,1124) J,JCARD(1),JCARD(2),J,JCARD(J) WRITE(F06,1124) J,JCARD(1),JCARD(2),J,JCARD(J) @@ -153,16 +153,16 @@ SUBROUTINE BD_RBAR ( CARD ) JERR = JERR + 1 ENDIF ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,0,0,0,0,0 ) ! Make sure that there are no imb blanks in fields 2-4. Flds 5-8 DOF's CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,0,9 ) ! Issue warning if field 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + ! If IDOF fields 5,6 have valid DOF no's (or blank), check that the DOF's in those fields specify all 6 DOF no's IF (IDOF_ERR == 0) THEN DO J=1,JCARD_LEN - IF (JCARD(5)(J:J) /= ' ') THEN + IF (JCARD(5)(J:J) /= ' ') THEN READ (JCARD(5)(J:J),'(I8)') INT1 IF (DOF_NOS(INT1) == 0) THEN DOF_NOS(INT1) = INT1 @@ -173,7 +173,7 @@ SUBROUTINE BD_RBAR ( CARD ) ENDIF ENDDO DO J=1,JCARD_LEN - IF (JCARD(6)(J:J) /= ' ') THEN + IF (JCARD(6)(J:J) /= ' ') THEN READ (JCARD(6)(J:J),'(I8)') INT1 IF (DOF_NOS(INT1) == 0) THEN DOF_NOS(INT1) = INT1 @@ -182,7 +182,7 @@ SUBROUTINE BD_RBAR ( CARD ) IDOF_ERR = IDOF_ERR + 1 ENDIF ENDIF - ENDDO + ENDDO DO J=1,6 IF (DOF_NOS(J) == 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -195,7 +195,7 @@ SUBROUTINE BD_RBAR ( CARD ) ENDIF ENDIF -! Write data to file L1F if JERR and IDOF_ERR = 0 +! Write data to file L1F if JERR and IDOF_ERR = 0 IF ((JERR == 0) .AND. (IDOF_ERR == 0)) THEN WRITE(L1F) RTYPE @@ -213,11 +213,11 @@ SUBROUTINE BD_RBAR ( CARD ) 1142 FORMAT(' *ERROR 1142: RBAR ELEM NUMBER ',I8,' HAS INCORRECT INDEP. DOFs IN FIELDS 5 AND/OR 6.' & ,/,14X,' THESE 2 FIELDS MUST COMBINE TO SPECIFY DOFs 1,2,3,4,5,6 (EACH DOF ONCE, AND ONLY ONCE).' & - ,/,14X,' HOWEVER, FIELD 5 WAS "',A,'", AND FIELD 6 WAS "',A,'"') + ,/,14X,' HOWEVER, FIELD 5 WAS "',A,'", AND FIELD 6 WAS "',A,'"') 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_RBAR diff --git a/Source/LK1/L1A-BD/BD_RBE1.f90 b/Source/LK1/L1A-BD/BD_RBE1.f90 index 0407594c..debc8d16 100644 --- a/Source/LK1/L1A-BD/BD_RBE1.f90 +++ b/Source/LK1/L1A-BD/BD_RBE1.f90 @@ -1,50 +1,50 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) - + ! Processes RBE1 Bulk Data Cards. Writes RBE1 element records to file L1F for later processing. ! Two records are written for each dependent Grid/DOF pair: ! 1) Record 1 has the rigid element type: 'RBE1 ' -! 2) Record 2 has: +! 2) Record 2 has: ! RELID : Rigid element ID ! IGID(i),IDOF(i) : Pairs of indep Grid/DOF (up to 6) -! DGID, DDOF : One pair of dependent Grid/DOF - +! DGID, DDOF : One pair of dependent Grid/DOF + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1F USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LRIGEL, NRBE1, NRIGEL, NRECARD USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : RIGID_ELEM_IDS - + USE BD_RBE1_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_RBE1' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -58,7 +58,7 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) CHARACTER( 1*BYTE) :: MORE_IDOF = 'N' ! = 'Y' if a cont card with indep DOF's is found CHARACTER( 1*BYTE) :: UMFND ! = 'Y' when we find "UM" in field 2 of cont card no. 1 or 2 CHARACTER( 8*BYTE), PARAMETER :: RTYPE = 'RBE1 '! Rigid element type - + INTEGER(LONG) :: CONT_NO = 0 ! Count of the continuation cards for this parent INTEGER(LONG) :: DGID = 0 ! A dependent grid INTEGER(LONG) :: DDOF = 0 ! Dependent DOF's at DGID @@ -77,52 +77,52 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) INTEGER(LONG) :: NUM_IDOF_FLDS = 0 ! Number of fields that have independent DOF's specified INTEGER(LONG) :: RELID = 0 ! This rigid elements' ID - + ! ********************************************************************************************************************************** ! RBE1 Bulk Data Card routine - -! FIELD ITEM -! ----- ------------ + +! FIELD ITEM +! ----- ------------ ! 2 RELID , Rigid Elem ID ! 3 IGID(1), Grid ID for 1st independent grid -! 4 IDOF(1), DOF's at 1st independent grid +! 4 IDOF(1), DOF's at 1st independent grid ! 5 IGID(2), Grid ID for 2nd independent grid, if it exists -! 6 IDOF(2), DOF's at 2nd independent grid, if IGID(2) exists +! 6 IDOF(2), DOF's at 2nd independent grid, if IGID(2) exists ! 7 IGID(3), Grid ID for 3rd independent grid, if it exists ! 8 IDOF(3), DOF's at 3rd independent grid, if IGID(3) exists -! Possible continuation card (if there are 4, 5 or 6 independent grids) -! FIELD ITEM -! ----- ------------ -! 3 IGID(4), Grid ID for 4th independent grid, if it exists -! 4 IDOF(4), DOF's at 4th independent grid, if IGID(4) exists +! Possible continuation card (if there are 4, 5 or 6 independent grids) +! FIELD ITEM +! ----- ------------ +! 3 IGID(4), Grid ID for 4th independent grid, if it exists +! 4 IDOF(4), DOF's at 4th independent grid, if IGID(4) exists ! 5 IGID(5), Grid ID for 5th independent grid, if it exists -! 6 IDOF(5), DOF's at 5th independent grid, if IGID(5) exists +! 6 IDOF(5), DOF's at 5th independent grid, if IGID(5) exists ! 7 IGID(6), Grid ID for 6th independent grid, if it exists ! 8 IDOF(6), DOF's at 6th independent grid, if IGID(6) exists ! The collection of IDOF(i) must yield 6 DOF's that completely describe a general rigid body motion of the ! rigid element ! Mandatory continuation card -! FIELD ITEM -! ----- ------------ +! FIELD ITEM +! ----- ------------ ! 2 "UM" ! 3 DGID, Grid ID for 1st dependent grid -! 4 DDOF, DOF's at 1st dependent grid +! 4 DDOF, DOF's at 1st dependent grid ! 5-8 Up to 2 more pairs of DGID/DDOF, if they exist, followed by more continuation cards with up to 3 pairs ! of DGID/DDOF in fields 3-8, if needed - -! Data is written to file L1F for later processing after checks on + +! Data is written to file L1F for later processing after checks on ! format of data. - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) JCARD1_PARENT = JCARD(1) JCARD2_PARENT = JCARD(2) - + ! Check for overflow NRBE1 = NRBE1+1 @@ -135,13 +135,13 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) !xx ENDIF ! Initialize CHR_IDOF - + DO I=1,6 CHR_IDOF(I)(1:) = ' ' - ENDDO - + ENDDO + ! Read Elem ID - + CALL I4FLD ( JCARD(2), JF(2), RELID ) IF (IERRFL(2) /= 'N') THEN JERR = JERR + 1 @@ -150,8 +150,8 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) ENDIF ! Read up to 3 pairs of independent grids and DOF's in fields 3-8 of the parent card. -! For any of the 3 pairs, if either of the 2 fields is blank, the other one must also be blank. - +! For any of the 3 pairs, if either of the 2 fields is blank, the other one must also be blank. + NUM_IDOF_FLDS = 0 DO J=1,3 JFLD1 = 2*J+1 @@ -160,13 +160,13 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) CYCLE ELSE IF ((JCARD(JFLD1)(1:) /= ' ') .AND. (JCARD(JFLD2)(1:) == ' ')) THEN FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1181) JCARD2_PARENT,JFLD1,JFLD2 - WRITE(F06,1181) JCARD2_PARENT,JFLD1,JFLD2 + WRITE(ERR,1181) JCARD2_PARENT,JFLD1,JFLD2 + WRITE(F06,1181) JCARD2_PARENT,JFLD1,JFLD2 ELSE IF ((JCARD(JFLD1)(1:) == ' ') .AND. (JCARD(JFLD2)(1:) /= ' ')) THEN FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1182) JCARD2_PARENT,JFLD1,JFLD2 - WRITE(F06,1182) JCARD2_PARENT,JFLD1,JFLD2 - ELSE IF ((JCARD(JFLD1)(1:) /= ' ') .AND. (JCARD(JFLD2)(1:) /= ' ')) THEN + WRITE(ERR,1182) JCARD2_PARENT,JFLD1,JFLD2 + WRITE(F06,1182) JCARD2_PARENT,JFLD1,JFLD2 + ELSE IF ((JCARD(JFLD1)(1:) /= ' ') .AND. (JCARD(JFLD2)(1:) /= ' ')) THEN NUM_IDOF_FLDS = NUM_IDOF_FLDS + 1 CHR_IDOF(NUM_IDOF_FLDS) = JCARD(JFLD2) CALL I4FLD ( JCARD(JFLD1), JF(JFLD1), IGID(NUM_IDOF_FLDS) ) @@ -180,7 +180,7 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) CONTINUE ELSE FATAL_ERR = FATAL_ERR + 1 - IDOF_ERR = IDOF_ERR + 1 + IDOF_ERR = IDOF_ERR + 1 WRITE(ERR,1124) JFLD2,JCARD1_PARENT,JCARD2_PARENT,JFLD2,JCARD(JFLD2) WRITE(F06,1124) JFLD2,JCARD1_PARENT,JCARD2_PARENT,JFLD2,JCARD(JFLD2) ENDIF @@ -189,7 +189,7 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) ENDIF ENDIF ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,0,5,0,7,0,0 ) ! Make sure no imbedded blanks in fields 2,3,5,7. Flds 4,6,8 ae DOF's CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,0,9 ) ! Issue warning if field 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -222,13 +222,13 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) CYCLE ELSE IF ((JCARD(JFLD1)(1:) /= ' ') .AND. (JCARD(JFLD2)(1:) == ' ')) THEN FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1181) JCARD2_PARENT,JFLD1,JFLD2 - WRITE(F06,1181) JCARD2_PARENT,JFLD1,JFLD2 + WRITE(ERR,1181) JCARD2_PARENT,JFLD1,JFLD2 + WRITE(F06,1181) JCARD2_PARENT,JFLD1,JFLD2 ELSE IF ((JCARD(JFLD1)(1:) == ' ') .AND. (JCARD(JFLD2)(1:) /= ' ')) THEN FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1182) JCARD2_PARENT,JFLD1,JFLD2 - WRITE(F06,1182) JCARD2_PARENT,JFLD1,JFLD2 - ELSE IF ((JCARD(JFLD1)(1:) /= ' ') .AND. (JCARD(JFLD2)(1:) /= ' ')) THEN + WRITE(ERR,1182) JCARD2_PARENT,JFLD1,JFLD2 + WRITE(F06,1182) JCARD2_PARENT,JFLD1,JFLD2 + ELSE IF ((JCARD(JFLD1)(1:) /= ' ') .AND. (JCARD(JFLD2)(1:) /= ' ')) THEN NUM_IDOF_FLDS = NUM_IDOF_FLDS + 1 CHR_IDOF(NUM_IDOF_FLDS) = JCARD(JFLD2) CALL I4FLD ( JCARD(JFLD1), JF(JFLD1), IGID(NUM_IDOF_FLDS) ) @@ -242,7 +242,7 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) CONTINUE ELSE FATAL_ERR = FATAL_ERR + 1 - IDOF_ERR = IDOF_ERR + 1 + IDOF_ERR = IDOF_ERR + 1 WRITE(ERR,1124) JFLD2,JCARD1_PARENT,JCARD2_PARENT,JFLD2,JCARD(JFLD2) WRITE(F06,1124) JFLD2,JCARD1_PARENT,JCARD2_PARENT,JFLD2,JCARD(JFLD2) ENDIF @@ -263,7 +263,7 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields ELSE ! Found "UM", so read up to 3 pairs of dep. grid/DOF on this con't card - DO ! There are any number of continuation cards w/dep. grid/DOF + DO ! There are any number of continuation cards w/dep. grid/DOF DO J=1,3 JFLD1 = 2*J+1 JFLD2 = 2*J+2 @@ -271,13 +271,13 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) CYCLE ELSE IF ((JCARD(JFLD1)(1:) /= ' ') .AND. (JCARD(JFLD2)(1:) == ' ')) THEN FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1181) JCARD2_PARENT,JFLD1,JFLD2 - WRITE(F06,1181) JCARD2_PARENT,JFLD1,JFLD2 + WRITE(ERR,1181) JCARD2_PARENT,JFLD1,JFLD2 + WRITE(F06,1181) JCARD2_PARENT,JFLD1,JFLD2 ELSE IF ((JCARD(JFLD1)(1:) == ' ') .AND. (JCARD(JFLD2)(1:) /= ' ')) THEN FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1182) JCARD2_PARENT,JFLD1,JFLD2 - WRITE(F06,1182) JCARD2_PARENT,JFLD1,JFLD2 - ELSE IF ((JCARD(JFLD1)(1:) /= ' ') .AND. (JCARD(JFLD2)(1:) /= ' ')) THEN + WRITE(ERR,1182) JCARD2_PARENT,JFLD1,JFLD2 + WRITE(F06,1182) JCARD2_PARENT,JFLD1,JFLD2 + ELSE IF ((JCARD(JFLD1)(1:) /= ' ') .AND. (JCARD(JFLD2)(1:) /= ' ')) THEN CALL I4FLD ( JCARD(JFLD1), JF(JFLD1), DGID ) IF (IERRFL(JFLD1) /= 'N') THEN JERR = JERR + 1 @@ -289,12 +289,12 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) CONTINUE ELSE FATAL_ERR = FATAL_ERR + 1 - IDOF_ERR = IDOF_ERR + 1 + IDOF_ERR = IDOF_ERR + 1 WRITE(ERR,1124) JFLD2,JCARD1_PARENT,JCARD2_PARENT,JFLD2,JCARD(JFLD2) WRITE(F06,1124) JFLD2,JCARD1_PARENT,JCARD2_PARENT,JFLD2,JCARD(JFLD2) ENDIF ELSE - JERR = JERR + 1 + JERR = JERR + 1 ENDIF IF (JERR == 0) THEN WRITE(L1F) RTYPE @@ -321,7 +321,7 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) EXIT ENDIF ENDDO - ENDIF + ENDIF ELSE EXIT ENDIF @@ -338,7 +338,7 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) IF (IDOF_ERR == 0) THEN DO I=1,NUM_IDOF_FLDS DO J=1,JCARD_LEN - IF (CHR_IDOF(I)(J:J) /= ' ') THEN + IF (CHR_IDOF(I)(J:J) /= ' ') THEN READ (CHR_IDOF(I)(J:J),'(I8)') INT1 IF (DOF_NOS(INT1) == 0) THEN DOF_NOS(INT1) = INT1 @@ -348,7 +348,7 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) ENDIF ENDIF ENDDO - ENDDO + ENDDO DO J=1,6 IF (DOF_NOS(J) == 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -366,10 +366,10 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) WRITE(F06,11432) (CHR_IDOF(I),I=4,6) ENDIF ENDIF - ENDIF + ENDIF + + CALL CRDERR ( CARD ) - CALL CRDERR ( CARD ) - RETURN @@ -382,7 +382,7 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) ,/,14X,' HOWEVER, CONTINUATION ENTRY NUMBER ',I8,' HAS BEEN FOUND') 1136 FORMAT(' *ERROR 1136: REQUIRED CONTINUATION FOR ',A,' ID = ',A,' MISSING') - + 1143 FORMAT(' *ERROR 1143: RBE1 ELEM NUMBER ',I8,' HAS INCORRECT INDEPENDENT DOFs IDENTIFIED.' & ,/,14X,' THESE (UP TO) 6 FIELDS MUST COMBINE TO SPECIFY DOFs 1,2,3,4,5,6 (EACH DOF ONCE, AND ONLY ONCE).' & ,/,14X,' HOWEVER, FIELDS 4,6,8 OF THE PARENT ENTRY HAD: "',A,'", "',A,'", "',A,'"') @@ -404,5 +404,5 @@ SUBROUTINE BD_RBE1 ( CARD, LARGE_FLD_INP ) 1184 FORMAT(' *ERROR 1184: RBE1 ELEMENT NUMBER ',A,' HAS ',I8,' INDEPENDENT DOFs DEFINED. REQUIREMENT IS 6') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_RBE1 diff --git a/Source/LK1/L1A-BD/BD_RBE2.f90 b/Source/LK1/L1A-BD/BD_RBE2.f90 index d392fc4c..3e4d10fd 100644 --- a/Source/LK1/L1A-BD/BD_RBE2.f90 +++ b/Source/LK1/L1A-BD/BD_RBE2.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_RBE2 ( CARD, LARGE_FLD_INP ) - + ! Processes RBE2 Bulk Data Cards. Writes RBE2 element records to file L1F for later processing. ! Two records are written for each dependent Grid/DOF pair: @@ -35,17 +35,17 @@ SUBROUTINE BD_RBE2 ( CARD, LARGE_FLD_INP ) ! DGID: Dependent Grid ID ! DDOF: Dependent DOF's ! IGID: Independent Grid ID - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1F USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LRIGEL, NRBE2, NRIGEL, NRECARD, NTERM_RMG USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : RIGID_ELEM_IDS - + USE BD_RBE2_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_RBE2' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -54,7 +54,7 @@ SUBROUTINE BD_RBE2 ( CARD, LARGE_FLD_INP ) CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARDO ! An output from subr IP6CHK called herein CHARACTER( 8*BYTE), PARAMETER :: RTYPE = 'RBE2 '! Rigid element type - + INTEGER(LONG) :: DDOF = 0 ! Dependent DOF's at DGID's INTEGER(LONG) :: DGID = 0 ! Dependent grid ID's INTEGER(LONG) :: J ! DO loop indiex @@ -66,28 +66,28 @@ SUBROUTINE BD_RBE2 ( CARD, LARGE_FLD_INP ) INTEGER(LONG) :: NUM_COMP = 0 ! Total number of components specified in DDOF INTEGER(LONG) :: RELID = 0 ! This elements' ID - + ! ********************************************************************************************************************************** ! RBE2 Bulk Data Card routine - -! FIELD ITEM -! ----- ------------ + +! FIELD ITEM +! ----- ------------ ! 2 RELID, Rigid Elem ID ! 3 IGID, Independent Grid ID ! 4 DDOF, Dependent DOF's for the Grids following ! 5-9 DGID, Dependent Grid ID's - + ! on optional continuation cards: ! 2-9 DGID, Dependent grid ID's - + ! Data is written to file L1F for later processing after checks on format of data. - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow NRBE2 = NRBE2+1 @@ -100,7 +100,7 @@ SUBROUTINE BD_RBE2 ( CARD, LARGE_FLD_INP ) !xx ENDIF ! Read and check data - + CALL I4FLD ( JCARD(2), JF(2), RELID ) ! Read Elem ID IF (IERRFL(2) /= 'N') THEN JERR = JERR + 1 @@ -112,7 +112,7 @@ SUBROUTINE BD_RBE2 ( CARD, LARGE_FLD_INP ) IF (IERRFL(3) /= 'N') THEN JERR = JERR + 1 ENDIF - + NUM_COMP = 0 ! Get dependent DOF's in field 4 and count their number (NUM_COMP) CALL I4FLD ( JCARD(4), JF(4), DDOF ) IF (IERRFL(4) == 'N') THEN @@ -125,16 +125,16 @@ SUBROUTINE BD_RBE2 ( CARD, LARGE_FLD_INP ) ENDDO ELSE JERR = JERR + 1 - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1124) JF(4),JCARD(1),JCARD(2),JF(4),JCARD(4) WRITE(F06,1124) JF(4),JCARD(1),JCARD(2),JF(4),JCARD(4) ENDIF ENDIF - + DO J=5,9 IF (JCARD(J)(1:) == ' ') THEN CYCLE - ELSE + ELSE CALL I4FLD ( JCARD(J), JF(J), DGID ) ! Get dep. grid ID's in fields 5 - 9 IF ((IERRFL(J) == 'N') .AND. (JERR == 0)) THEN WRITE(L1F) RTYPE ! Write element type to LINK1F @@ -143,14 +143,14 @@ SUBROUTINE BD_RBE2 ( CARD, LARGE_FLD_INP ) NTERM_RMG = NTERM_RMG + 7*NUM_COMP ENDIF ENDIF - ENDDO - + ENDDO + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,0,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9,except 4(DOF) - CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields + ! Read and check data on optional continuation cards with additional dep. grids - - DO + + DO IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC ( CARD, ICONT, IERR ) ELSE @@ -162,7 +162,7 @@ SUBROUTINE BD_RBE2 ( CARD, LARGE_FLD_INP ) DO J=2,9 IF (JCARD(J)(1:) == ' ') THEN CYCLE - ELSE + ELSE CALL I4FLD ( JCARD(J), JF(J), DGID ) ! Get dep. grid ID's in fields 5 - 9 IF ((IERRFL(J) == 'N') .AND. (JERR == 0)) THEN WRITE(L1F) RTYPE ! Write element type to LINK1F @@ -172,7 +172,7 @@ SUBROUTINE BD_RBE2 ( CARD, LARGE_FLD_INP ) ENDIF ENDIF ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -180,8 +180,8 @@ SUBROUTINE BD_RBE2 ( CARD, LARGE_FLD_INP ) ELSE EXIT ENDIF - ENDDO - + ENDDO + RETURN @@ -195,5 +195,5 @@ SUBROUTINE BD_RBE2 ( CARD, LARGE_FLD_INP ) ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_RBE2 diff --git a/Source/LK1/L1A-BD/BD_RBE3.f90 b/Source/LK1/L1A-BD/BD_RBE3.f90 index 74271bda..50fc7bf7 100644 --- a/Source/LK1/L1A-BD/BD_RBE3.f90 +++ b/Source/LK1/L1A-BD/BD_RBE3.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_RBE3 ( CARD, LARGE_FLD_INP ) - + ! Processes RBE3 Bulk Data Cards. Writes RBE3 card data to file L1F - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1F USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LRIGEL, MRBE3, NRECARD, NRIGEL USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : RIGID_ELEM_IDS - + USE BD_RBE3_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_RBE3' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -53,7 +53,7 @@ SUBROUTINE BD_RBE3 ( CARD, LARGE_FLD_INP ) CHARACTER( 8*BYTE), PARAMETER :: RTYPE = 'RBE3 '! Rigid element type CHARACTER( 8*BYTE) :: TOKEN ! The 1st 8 characters from a JCARD CHARACTER( 8*BYTE) :: TOKTYP ! Type of TOKEN returned from subr TOKCHK - + INTEGER(LONG) :: CHK(2:9) ! Array to tell which fields to check for imbedded blankS INTEGER(LONG) :: COMP(MRBE3) ! Array of indep displ comp values (1-6) found on this logical RBE3 card INTEGER(LONG) :: GRID(MRBE3) ! Array of indep GRID ID's found on this logical RBE3 card @@ -71,7 +71,7 @@ SUBROUTINE BD_RBE3 ( CARD, LARGE_FLD_INP ) INTEGER(LONG) :: REFGRID = 0 ! REFGRID value in field 4 of parent entry INTEGER(LONG) :: RELID = 0 ! This elements' ID - + REAL(DOUBLE) :: R8INP ! A real value read from a field on this RBE3 entry REAL(DOUBLE) :: WGT ! A weight read from a field on this RBE3 entry REAL(DOUBLE) :: WTi(MRBE3) ! Array of RBE3 weight values @@ -81,15 +81,15 @@ SUBROUTINE BD_RBE3 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** ! RBE3 Bulk Data Card: - -! FIELD ITEM EXPLANATION + +! FIELD ITEM EXPLANATION ! ----- ------------ ------------- ! 2 ELID RBE3 elem ID ! 3 blank ! 4 REFGRID Ref grid point ID (this grid will go into M-set) -! 5 REFC Ref component number (1-6) (comp of REFGRID) +! 5 REFC Ref component number (1-6) (comp of REFGRID) ! 6 WT1 Weighting factor for 1st component of displ -! 7 C1 Comp number for associated with WT1 +! 7 C1 Comp number for associated with WT1 ! 8 G1,1 Grid associated with WT1 ! 9 G1,2 or next WTi or blank @@ -99,7 +99,7 @@ SUBROUTINE BD_RBE3 ( CARD, LARGE_FLD_INP ) ! Subsequent entries have the same format where a WTi is specified followed by a displ component Ci followed by a list of grids that ! have the WTi for that component - + JERR = 0 ! Initialize arrays @@ -109,22 +109,22 @@ SUBROUTINE BD_RBE3 ( CARD, LARGE_FLD_INP ) COMP(J) = 0 WTi(J) = ZERO ENDDO - WT_TOT = ZERO + WT_TOT = ZERO TOKTYP(1:) = ' ' IRBE3 = 0 ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Up the elem count NRIGEL = NRIGEL+1 - + ! Read and check data on parent entry - + CHAR_ELID = JCARD(2) CALL I4FLD ( JCARD(2), JF(2), I4INP ) ! Field 2: Elem ID IF (IERRFL(2) == 'N') THEN @@ -180,7 +180,7 @@ SUBROUTINE BD_RBE3 ( CARD, LARGE_FLD_INP ) ENDIF NEXT_MUST_BE_GRID = 'Y' - GRID1 = 0 ! Field 8: 1st grid + GRID1 = 0 ! Field 8: 1st grid CALL I4FLD ( JCARD(8), JF(8), I4INP ) IF (IERRFL(8) == 'N') THEN GRID1 = I4INP @@ -319,7 +319,7 @@ SUBROUTINE BD_RBE3 ( CARD, LARGE_FLD_INP ) JERR = JERR + 1 ENDIF ENDIF - ENDDO do_j + ENDDO do_j CALL BD_IMBEDDED_BLANK ( JCARD, CHK(2), CHK(3), CHK(4), CHK(5), CHK(6), CHK(7), CHK(8), CHK(9) ) CALL CRDERR ( CARD ) diff --git a/Source/LK1/L1A-BD/BD_RBE30.f90 b/Source/LK1/L1A-BD/BD_RBE30.f90 index f4f537de..ee0ce064 100644 --- a/Source/LK1/L1A-BD/BD_RBE30.f90 +++ b/Source/LK1/L1A-BD/BD_RBE30.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_RBE30 ( CARD, LARGE_FLD_INP, IRBE3 ) - + ! Processes RBE3 Bulk Data Cards to estimate the number of triplets of grid/comp/coeff on logical RBE3 B.D.card. ! The number of triplets defined on this RBE3 card will be returned to the calling routine so that the max number of triplets -! over all RBE3 cards can be determined. This conservative estimate will be based on counting all non blank fields except ones with +! over all RBE3 cards can be determined. This conservative estimate will be based on counting all non blank fields except ones with ! a floating point number - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN @@ -39,7 +39,7 @@ SUBROUTINE BD_RBE30 ( CARD, LARGE_FLD_INP, IRBE3 ) USE BD_RBE30_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_RBE30' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -47,26 +47,26 @@ SUBROUTINE BD_RBE30 ( CARD, LARGE_FLD_INP, IRBE3 ) CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER( 8*BYTE) :: TOKEN ! The 1st 8 characters from a JCARD CHARACTER( 8*BYTE) :: TOKTYP ! Type of TOKEN returned from subr TOKCHK - + INTEGER(LONG), INTENT(OUT) :: IRBE3 ! Count of number of grid/comp/coeff triplets on this RBE3 logical card INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: J ! DO loop index - + ! ********************************************************************************************************************************** ! RBE3 Bulk Data Card: - -! FIELD ITEM EXPLANATION + +! FIELD ITEM EXPLANATION ! ----- ------------ ------------- ! 2 ELID RBE3 elem ID ! 3 blank ! 4 REFGRID Ref grid point ID (this DOF will go into M-set) -! 5 REFC Ref component number (1-6) (comp of REFGRID) +! 5 REFC Ref component number (1-6) (comp of REFGRID) ! 6 WT1 Weighting factor for 1st component of displ -! 7 C1 Comp number for associated with WT1 +! 7 C1 Comp number for associated with WT1 ! 8 G1,1 Grid associated with WT1 ! 9 G1,2 or next WT or blank @@ -77,13 +77,13 @@ SUBROUTINE BD_RBE30 ( CARD, LARGE_FLD_INP, IRBE3 ) ! Subsequent entries have the same format where a WTi is specified followed by a displ component Ci followed by a list of grids that ! have the WTi for that component - + ! Max number of grids on parent entry can be 2 IRBE3 = 2 ! Count continuation entries - + DO IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC0 ( CARD, ICONT, IERR ) @@ -104,11 +104,11 @@ SUBROUTINE BD_RBE30 ( CARD, LARGE_FLD_INP, IRBE3 ) EXIT ENDIF ENDDO - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_RBE30 diff --git a/Source/LK1/L1A-BD/BD_RFORCE.f90 b/Source/LK1/L1A-BD/BD_RFORCE.f90 index 42f24147..11bddede 100644 --- a/Source/LK1/L1A-BD/BD_RFORCE.f90 +++ b/Source/LK1/L1A-BD/BD_RFORCE.f90 @@ -1,48 +1,48 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_RFORCE ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) - + ! Processes RFORCE Bulk Data Cards. Also, the set ID is written to array RFORCE_SIDS which is checked in subroutine ! LOADB to make sure that all set ID's requested in Case Control were found in the Bulk Data. ! A record is written to file LINK1U for each RFORCE Bulk Data card with the following data: ! SETID, CID, ACCEL(1-6) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1U USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LRFORCE, LSUB, NRFORCE, NSUB USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : RFORCE_SIDS, SUBLOD - + USE BD_RFORCE_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_RFORCE' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -50,7 +50,7 @@ SUBROUTINE BD_RFORCE ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: NAME ! The character name of this Bulk Data entry CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2)! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID - + INTEGER(LONG) :: CID = 0 ! Coord ID on the RFORCE card INTEGER(LONG) :: CONT_COUNT = 0 ! Count of number of continuation entries INTEGER(LONG) :: I ! DO loop index @@ -60,19 +60,19 @@ SUBROUTINE BD_RFORCE ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) INTEGER(LONG) :: JERR = 0 ! A local error count INTEGER(LONG) :: SETID = 0 ! Set ID on the RFORCE card - + REAL(DOUBLE) :: R8INP ! A real value read from RFORCE entry REAL(DOUBLE) :: SCALEF_AA = ZERO ! Scale factor for angular accel on the RFORCE card REAL(DOUBLE) :: SCALEF_AV = ZERO ! Scale factor for angular velocity on the RFORCE card REAL(DOUBLE) :: VEC(3) ! Vector components of the angular vel and/or accel on the RFORCE entry - + INTRINSIC :: DABS ! ********************************************************************************************************************************** ! RFORCE Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 Load set ID RFORCE_SIDS(nrforce) @@ -83,7 +83,7 @@ SUBROUTINE BD_RFORCE ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ! on optional second card: ! 2 Scale factor for angular acceleration SCALEF_AA - + ! Initialize variables DO I=1,3 @@ -91,10 +91,10 @@ SUBROUTINE BD_RFORCE ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ENDDO ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) NAME = JCARD(1) - + ! Check for overflow NRFORCE = NRFORCE+1 @@ -106,34 +106,34 @@ SUBROUTINE BD_RFORCE ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) !xx ENDIF ! Read and check data - + CALL I4FLD ( JCARD(2), JF(2), SETID ) IF (IERRFL(2) == 'N') THEN DO I=1,NSUB IF (SETID == SUBLOD(I,1)) THEN CC_LOAD_FND(I,1) = 'Y' ENDIF - ENDDO + ENDDO RFORCE_SIDS(NRFORCE) = SETID ENDIF - + CALL I4FLD ( JCARD(3), JF(3), GID ) CALL I4FLD ( JCARD(4), JF(4), CID ) CALL R8FLD ( JCARD(5), JF(5), SCALEF_AV ) CALL R8FLD ( JCARD(6), JF(6), VEC(1) ) CALL R8FLD ( JCARD(7), JF(7), VEC(2) ) CALL R8FLD ( JCARD(8), JF(8), VEC(3) ) - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,0 ) ! Make sure that there are no imbedded blanks in fields 2-8 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,0,9 ) ! Issue warning if field 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + DO I=2,8 IF (IERRFL(I) == 'Y') THEN JERR = JERR + 1 ENDIF ENDDO - + ! Optional Second Card: IF (LARGE_FLD_INP == 'N') THEN @@ -156,7 +156,7 @@ SUBROUTINE BD_RFORCE ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) WRITE(F06,1194) NAME,JF(2),CONT_COUNT,JCARD(2) ENDIF ENDIF - + CALL BD_IMBEDDED_BLANK ( JCARD,2,0,0,0,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2-5 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,3,4,5,6,7,8,9 )! Issue warning if fields 6-9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -172,7 +172,7 @@ SUBROUTINE BD_RFORCE ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) IF (JERR == 0) THEN WRITE(L1U) SETID, CID, GID, SCALEF_AV, SCALEF_AA, (VEC(I),I=1,3) ENDIF - + RETURN @@ -185,5 +185,5 @@ SUBROUTINE BD_RFORCE ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ,I3,' IS = ',A) ! ********************************************************************************************************************************* - + END SUBROUTINE BD_RFORCE diff --git a/Source/LK1/L1A-BD/BD_RSPLINE.f90 b/Source/LK1/L1A-BD/BD_RSPLINE.f90 index ccc01370..6d7019f1 100644 --- a/Source/LK1/L1A-BD/BD_RSPLINE.f90 +++ b/Source/LK1/L1A-BD/BD_RSPLINE.f90 @@ -1,45 +1,45 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_RSPLINE ( CARD, LARGE_FLD_INP ) - + ! Processes RSPLINE Bulk Data Cards. Writes RSPLINE card data to file L1F. Note that this code only recognizes 2 indep grids on a ! given RSPLINE unlike NASTRAN (thus user must enter a different RSPLINE for each pair of indep grids between which the cubic ! spline will be fitted to all of the dep grid/comps - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1F USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, MRSPLINE, NRSPLINE, NRECARD, NRIGEL USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : RIGID_ELEM_IDS - + USE BD_RSPLINE_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_RSPLINE' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format @@ -55,7 +55,7 @@ SUBROUTINE BD_RSPLINE ( CARD, LARGE_FLD_INP ) CHARACTER( 8*BYTE) :: IP6TYP ! Descriptor of what is in the 8 char field sent to subr IP6CHK CHARACTER(LEN(JCARD)) :: NAME ! JCARD(1) from parent entry CHARACTER( 8*BYTE), PARAMETER :: RTYPE = 'RSPLINE '! Rigid element type - + INTEGER(LONG) :: DCOMP(MRSPLINE+1) ! Array of dep displ comp values (1-6) found on this logical RSPLINE card INTEGER(LONG) :: DGRID(MRSPLINE+1) ! Array of dep GRID ID's found on this logical RSPLINE card @@ -69,22 +69,22 @@ SUBROUTINE BD_RSPLINE ( CARD, LARGE_FLD_INP ) INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: JERR = 0 ! A local error count - INTEGER(LONG) :: JE ! An intermediale variable + INTEGER(LONG) :: JE ! An intermediale variable INTEGER(LONG) :: NUM_DEPENDENTS ! Count of number of pairs of dependent grids/components INTEGER(LONG) :: NUM_ENTRIES ! Count of number of entries placed into array GC_FLDS INTEGER(LONG) :: NUM_Ci ! Number of displ components in a DCOMP field INTEGER(LONG) :: ELID = 0 ! This elements' ID - + REAL(DOUBLE) :: DL_RAT ! Value in field 3 for D/L ratio REAL(DOUBLE) :: R8INP ! A real value read from a field on this RSPLINE entry - + ! ********************************************************************************************************************************** ! RSPLINE Bulk Data Card: - -! FIELD ITEM EXPLANATION + +! FIELD ITEM EXPLANATION ! ----- ------------ ------------- ! 2 ELID RSPLINE elem ID ! 3 D/L Diam/length ratio of the rod used in determining the beam deflection relationship @@ -95,7 +95,7 @@ SUBROUTINE BD_RSPLINE ( CARD, LARGE_FLD_INP ) ! 2-9 contain either a grid or comp number. To be conservative each cont entry will be assumed to have an 8 dep entries ! Subsequent entries have the same format. - + JERR = 0 ! Initialize arrays @@ -109,20 +109,20 @@ SUBROUTINE BD_RSPLINE ( CARD, LARGE_FLD_INP ) FLDS_F(J) = 0 FLDS_C(J)(1:) = ' ' ENDDO - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) NAME = JCARD(1) ID = JCARD(2) - + ! Up the elem count NRSPLINE = NRSPLINE + 1 NRIGEL = NRIGEL+1 - + ! Read and check data on parent entry - + CALL I4FLD ( JCARD(2), JF(2), I4INP ) ! Field 2: Elem ID IF (IERRFL(2) == 'N') THEN ELID = I4INP @@ -151,7 +151,7 @@ SUBROUTINE BD_RSPLINE ( CARD, LARGE_FLD_INP ) JERR = JERR + 1 ENDIF ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure there are no imbedded blanks CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -184,7 +184,7 @@ SUBROUTINE BD_RSPLINE ( CARD, LARGE_FLD_INP ) EXIT do_1 ENDIF ENDDO do_1 - + ! FLDS_I may have some number of 0 entries at the end which should not be counted in NUM_ENTRIES. ! Scan FLDS_I (from end to begining) to find where last nonzero entry exists. This value is the one we want for NUM_ENTRIES diff --git a/Source/LK1/L1A-BD/BD_RSPLINE0.f90 b/Source/LK1/L1A-BD/BD_RSPLINE0.f90 index 03505fc3..aa144f29 100644 --- a/Source/LK1/L1A-BD/BD_RSPLINE0.f90 +++ b/Source/LK1/L1A-BD/BD_RSPLINE0.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_RSPLINE0 ( CARD, LARGE_FLD_INP, IRSPLINE ) - + ! Processes RSPLINE Bulk Data Cards to count the number of fields that can have a grid or comp number. -! The first and last entries will be the 2 indep grids. Everything in between should be pairs of dep grid/comp entries - +! The first and last entries will be the 2 indep grids. Everything in between should be pairs of dep grid/comp entries + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN @@ -37,23 +37,23 @@ SUBROUTINE BD_RSPLINE0 ( CARD, LARGE_FLD_INP, IRSPLINE ) USE BD_RSPLINE0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_RSPLINE0' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein - + INTEGER(LONG), INTENT(OUT) :: IRSPLINE ! Count of number of grid/comp doublets on this RSPLINE logical card INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein - + ! ********************************************************************************************************************************** ! RSPLINE Bulk Data Card: - -! FIELD ITEM EXPLANATION + +! FIELD ITEM EXPLANATION ! ----- ------------ ------------- ! 2 ELID RSPLINE elem ID ! 3 D/L Diam/length ratio of the rod used in determining the beam deflection relationship @@ -64,13 +64,13 @@ SUBROUTINE BD_RSPLINE0 ( CARD, LARGE_FLD_INP, IRSPLINE ) ! 2-9 contain either a grid or comp number. To be conservative each cont entry will be assumed to have an 8 dep entries ! Subsequent entries have the same format - + ! Max number of grids or comps on parent entry can be 6 IRSPLINE = 6 ! Count continuation entries. Each one can have up to 8 entries - + DO IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC0 ( CARD, ICONT, IERR ) @@ -84,11 +84,11 @@ SUBROUTINE BD_RSPLINE0 ( CARD, LARGE_FLD_INP, IRSPLINE ) EXIT ENDIF ENDDO - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_RSPLINE0 diff --git a/Source/LK1/L1A-BD/BD_SEQGP.f90 b/Source/LK1/L1A-BD/BD_SEQGP.f90 index 60e20892..7caf37d6 100644 --- a/Source/LK1/L1A-BD/BD_SEQGP.f90 +++ b/Source/LK1/L1A-BD/BD_SEQGP.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_SEQGP ( CARD ) - + ! Processes SEQGP Bulk Data Cards. Reads and checks data: ! 1) Grid ID's entered into integer array SEQ1 ! 2) Sequence ID's entered into real array SEQ2. If input sequence numbers are integer, they are converted ! to real before entering them into array SEQ2. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, JCARD_LEN, JF, LSEQ, NSEQ @@ -42,36 +42,36 @@ SUBROUTINE BD_SEQGP ( CARD ) USE BD_SEQGP_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_SEQGP' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: DEC_COL ! Number that indicates whether entry in a seq field is real or integer INTEGER(LONG) :: ISEQ ! An integer sequence number INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: JFLD1 ! A field number on the SEQGP card where grid ID's are located INTEGER(LONG) :: JFLD2 ! A field number on the SEQGP card where sequence numbers are located - + REAL(DOUBLE) :: RSEQ ! A real sequence number INTRINSIC INDEX,DBLE - + ! ********************************************************************************************************************************** ! SEQGP Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2,4,6,8 Grid ID's SEQ1(nseq - nseq+4) ! 3,5,7,9 Seq ID's SEQ2(nseq - nseq+4) Can be real or integer - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Read and check data DO J = 1,4 @@ -93,7 +93,7 @@ SUBROUTINE BD_SEQGP ( CARD ) FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1157) JFLD2,JCARD(JFLD2) WRITE(F06,1157) JFLD2,JCARD(JFLD2) - ENDIF + ENDIF ELSE FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1159) JFLD2 @@ -102,11 +102,11 @@ SUBROUTINE BD_SEQGP ( CARD ) ELSE CYCLE ENDIF - ENDDO - + ENDDO + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + RETURN @@ -115,10 +115,10 @@ SUBROUTINE BD_SEQGP ( CARD ) 1157 FORMAT(' *ERROR 1157: VALUE ON SEQGP ENTRY, FIELD ',I3,', MUST BE >= 0 BUT IS = ',A) 1159 FORMAT(' *ERROR 1159: FIELD ',I3,' OF SEQGP ENTRY CANNOT BE BLANK. MUST CONTAIN AN INTEGER OR REAL SEQUENCE NUMBER') - + 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_SEQGP diff --git a/Source/LK1/L1A-BD/BD_SLOAD.f90 b/Source/LK1/L1A-BD/BD_SLOAD.f90 index ed25b5ee..c3645de1 100644 --- a/Source/LK1/L1A-BD/BD_SLOAD.f90 +++ b/Source/LK1/L1A-BD/BD_SLOAD.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_SLOAD ( CARD, CC_LOAD_FND ) - + ! Processes SLOAD Bulk Data Cards. Also, the set ID is written to array SLOAD_SIDS which is checked ! in subroutine LOADB to make sure that all set ID's requested in Case Control were found in the Bulk Data. ! A record is written to file LINK1W for each SLOAD Bulk Data pairs of set ID/force mag with the following data: ! SETID, scalar point, load mag - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1W USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, LFORCE, LSUB, NFORCE, NSLOAD, NSUB @@ -39,30 +39,30 @@ SUBROUTINE BD_SLOAD ( CARD, CC_LOAD_FND ) USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : EPSIL, SUPWARN USE MODEL_STUF, ONLY : SLOAD_SIDS, SUBLOD - + USE BD_SLOAD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_SLOAD' CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2) ! 'Y' if B.D SLOAD card w/ same set ID (SID) as C.C. LOAD = SID CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: GRID_NO(3) ! Grid ID on the FORCE/MOMENT card INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: JERR = 0 ! A local error count INTEGER(LONG) :: NUM_PAIRS = 0 ! Bumber of pairs of SPOINT/FMAG on a SLOAD entry (can be up to 3) INTEGER(LONG) :: SETID = 0 ! Set ID on the FORCE/MOMENT card - + REAL(DOUBLE) :: FMAG(3) ! Force magnitude - + ! ********************************************************************************************************************************** ! SLOAD Bulk Data Card routine - + ! FIELD ITEM VARIABLE ! ----- ------------ ------------- ! 2 Load set ID SLOAD_SIDS(I), SETID @@ -70,9 +70,9 @@ SUBROUTINE BD_SLOAD ( CARD, CC_LOAD_FND ) ! 4 Load magnitude FMAG ! Fields (3,4) can be repeated in fields (5,6) and (7,8) - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) ! Initialize @@ -83,7 +83,7 @@ SUBROUTINE BD_SLOAD ( CARD, CC_LOAD_FND ) ENDDO ! Read and check data - + CALL I4FLD ( JCARD(2), JF(2), SETID ) IF (IERRFL(2) == 'N') THEN DO I=1,NSUB @@ -92,7 +92,7 @@ SUBROUTINE BD_SLOAD ( CARD, CC_LOAD_FND ) ENDIF ENDDO ENDIF - + NUM_PAIRS = 0 DO I=1,3 IF (JCARD(3+2*(I-1))(1:) /= ' ') THEN @@ -102,7 +102,7 @@ SUBROUTINE BD_SLOAD ( CARD, CC_LOAD_FND ) CALL R8FLD ( JCARD(4+2*(I-1)), JF(4+2*(I-1)), FMAG(I) ) SLOAD_SIDS(NSLOAD) = SETID ENDIF - ENDDO + ENDDO IF (NUM_PAIRS == 1) THEN ! Check for imbedded blanks in fields where there is data CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,0,0,0,0,0 ) @@ -119,7 +119,7 @@ SUBROUTINE BD_SLOAD ( CARD, CC_LOAD_FND ) JERR = JERR + 1 ENDIF ENDDO - + ! Write data to file LINK1W if there were no errors IF (JERR == 0) THEN @@ -127,7 +127,7 @@ SUBROUTINE BD_SLOAD ( CARD, CC_LOAD_FND ) WRITE(L1W) SETID, GRID_NO(I), FMAG(I) ENDDO ENDIF - + RETURN @@ -141,5 +141,5 @@ SUBROUTINE BD_SLOAD ( CARD, CC_LOAD_FND ) ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_SLOAD diff --git a/Source/LK1/L1A-BD/BD_SLOAD0.f90 b/Source/LK1/L1A-BD/BD_SLOAD0.f90 index ab3ddde3..e8c11f00 100644 --- a/Source/LK1/L1A-BD/BD_SLOAD0.f90 +++ b/Source/LK1/L1A-BD/BD_SLOAD0.f90 @@ -1,56 +1,56 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_SLOAD0 ( CARD, NUM_PAIRS ) - + ! Processes SLOAD Bulk Data Cards to count the number of SLOAD points/force mags on one entry ! SETID, scalar point, load mag - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF USE TIMDAT, ONLY : TSEC - + USE BD_SLOAD0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_SLOAD0' CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG), INTENT(OUT) :: NUM_PAIRS ! Number of pairs of SPOINT/force MAG on a SLOAD entry (can be up to 3) INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** ! SLOAD Bulk Data Card routine - + ! FIELD ITEM VARIABLE ! ----- ------------ ------------- ! 2 Load set ID SLOAD_SIDS(I), SETID @@ -58,9 +58,9 @@ SUBROUTINE BD_SLOAD0 ( CARD, NUM_PAIRS ) ! 4 Load magnitude FMAG ! Fields (3,4) can be repeated in fields (5,6) and (7,8) - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) NUM_PAIRS = 0 @@ -68,12 +68,12 @@ SUBROUTINE BD_SLOAD0 ( CARD, NUM_PAIRS ) IF (JCARD(3+2*(I-1))(1:) /= ' ') THEN NUM_PAIRS = NUM_PAIRS + 1 ENDIF - ENDDO + ENDDO RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_SLOAD0 diff --git a/Source/LK1/L1A-BD/BD_SNORM.f90 b/Source/LK1/L1A-BD/BD_SNORM.f90 index 6cdeba6a..d7cd0d85 100644 --- a/Source/LK1/L1A-BD/BD_SNORM.f90 +++ b/Source/LK1/L1A-BD/BD_SNORM.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_SNORM ( CARD ) - + ! Processes SNORM Bulk Data Cards ! 1) Reads grid point ID and coord system ID and enters it into array SNORM ! 2) Reads normal vector into array RSNORM @@ -34,7 +34,7 @@ SUBROUTINE BD_SNORM ( CARD ) USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, JF, NSNORM USE MODEL_STUF, ONLY : SNORM, RSNORM USE CONSTANTS_1, ONLY : ZERO - + USE MKJCARD_Interface USE R8FLD_Interface USE I4FLD_Interface @@ -43,19 +43,19 @@ SUBROUTINE BD_SNORM ( CARD ) USE CARD_FLDS_NOT_BLANK_Interface IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_SNORM' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: I4INP = 0 ! A value read from input file that should be an integer value - + REAL(DOUBLE) :: R8INP = ZERO ! A value read from input file that should be a real value ! ********************************************************************************************************************************** ! SNORM Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 GID SNORM(nsnorm,1) @@ -63,25 +63,25 @@ SUBROUTINE BD_SNORM ( CARD ) ! 4 N1 RSNORM(nsnorm,1) ! 5 N2 RSNORM(nsnorm,2) ! 6 N3 RSNORM(nsnorm,3) - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) NSNORM = NSNORM + 1 - + CALL I4FLD ( JCARD(2), JF(2), I4INP ) SNORM(NSNORM,1) = I4INP - + CALL I4FLD ( JCARD(3), JF(3), I4INP ) SNORM(NSNORM,2) = I4INP - + CALL R8FLD ( JCARD(4), JF(4), R8INP ) RSNORM(NSNORM,1) = R8INP - + CALL R8FLD ( JCARD(5), JF(5), R8INP ) RSNORM(NSNORM,2) = R8INP - + CALL R8FLD ( JCARD(6), JF(6), R8INP ) RSNORM(NSNORM,3) = R8INP @@ -95,5 +95,5 @@ SUBROUTINE BD_SNORM ( CARD ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_SNORM diff --git a/Source/LK1/L1A-BD/BD_SPC.f90 b/Source/LK1/L1A-BD/BD_SPC.f90 index d8d6fbdb..81e6c5d7 100644 --- a/Source/LK1/L1A-BD/BD_SPC.f90 +++ b/Source/LK1/L1A-BD/BD_SPC.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_SPC ( CARD, CC_SPC_FND ) - + ! Processes SPC Bulk Data Cards. Reads and checks data and then write a record to file LINK1O for later processing. ! Each record in file LINK1O has: -! SETID, COMPJ, GRIDJ, RSPCJ, DOFSET - +! SETID, COMPJ, GRIDJ, RSPCJ, DOFSET + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1O USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, LSPC, NSPC, NUM_SPC_RECORDS, WARN_ERR @@ -43,7 +43,7 @@ SUBROUTINE BD_SPC ( CARD, CC_SPC_FND ) USE BD_SPC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_SPC' CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_SPC_FND ! ='Y' if this SPC is a set requested in Case Control @@ -51,7 +51,7 @@ SUBROUTINE BD_SPC ( CARD, CC_SPC_FND ) CHARACTER( 8*BYTE) :: IP6TYP ! An output from subr IP6CHK called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARDO ! An output from subr IP6CHK called herein - + INTEGER(LONG) :: COMPJ = 0 ! Displ components constrained at GRIDJ INTEGER(LONG) :: GRIDJ = 0 ! Grid ID on SPC card INTEGER(LONG) :: I ! DO loop index @@ -59,34 +59,34 @@ SUBROUTINE BD_SPC ( CARD, CC_SPC_FND ) INTEGER(LONG) :: JERR = 0 ! A local error count INTEGER(LONG) :: SETID = 0 ! SPC set ID - + REAL(DOUBLE) :: DEPS1 ! A small positive number to compare real zero - REAL(DOUBLE) :: RSPCJ = ZERO ! Enforced displ value + REAL(DOUBLE) :: RSPCJ = ZERO ! Enforced displ value ! ********************************************************************************************************************************** ! SPC Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- -! 2 Set ID -! 3 Grid ID -! 4 Comp. numbers -! 5 Displacement -! 6 Grid ID -! 7 Comp.numbers -! 8 Displacement - - +! 2 Set ID +! 3 Grid ID +! 4 Comp. numbers +! 5 Displacement +! 6 Grid ID +! 7 Comp.numbers +! 8 Displacement + + !xx CC_SPC_FND = 'N' ! ERROR. When this is in, then it is reset each time an SPC card is read DEPS1 = DABS(EPSIL(1)) ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Check for overflow NSPC = NSPC + 1 @@ -108,17 +108,17 @@ SUBROUTINE BD_SPC ( CARD, CC_SPC_FND ) ELSE JERR = JERR + 1 ENDIF - + DO I=1,2 ! There can be 2 sets of (Grid, Comp, Value) on each card IF (JCARD(3*I)(1:) /= ' ') THEN JERR = 0 - CALL I4FLD ( JCARD(3*I), JF(3*I), GRIDJ ) ! Read Grid ID + CALL I4FLD ( JCARD(3*I), JF(3*I), GRIDJ ) ! Read Grid ID ! Read displ components CALL IP6CHK ( JCARD(3*I+1), JCARDO, IP6TYP, IDUM ) IF ((IP6TYP == 'COMP NOS') .OR. (IP6TYP == 'ZERO ') .OR. (IP6TYP == 'BLANK ')) THEN - CALL I4FLD ( JCARDO, JF(3*I+1), COMPJ ) + CALL I4FLD ( JCARDO, JF(3*I+1), COMPJ ) ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 @@ -127,20 +127,20 @@ SUBROUTINE BD_SPC ( CARD, CC_SPC_FND ) ENDIF CALL R8FLD ( JCARD(3*I+2), JF(3*I+2), RSPCJ ) ! Read permanent SPC - - IF (DABS(RSPCJ) > DEPS1) THEN ! SPC are SE set if enforced displ > 0, SB set if = 0 + + IF (DABS(RSPCJ) > DEPS1) THEN ! SPC are SE set if enforced displ > 0, SB set if = 0 DOFSET = 'SE' ELSE DOFSET = 'SB' ENDIF - + IF ((JERR == 0 ) .AND. (IERRFL(3*I) == 'N') .AND. (IERRFL(3*I+1) == 'N') .AND. (IERRFL(3*I+2) == 'N')) THEN NUM_SPC_RECORDS = NUM_SPC_RECORDS + 1 ! Incr count of number of entries written to file LINK1O WRITE(L1O) SETID,COMPJ,GRIDJ,GRIDJ,RSPCJ,DOFSET ENDIF ELSE ! Field 3 or 6 is blank - + IF ((JCARD(3*I+1)(1:) /= ' ') .OR. (JCARD(3*I+2)(1:) /= ' ')) THEN WARN_ERR = WARN_ERR + 1 WRITE(ERR,101) CARD @@ -156,7 +156,7 @@ SUBROUTINE BD_SPC ( CARD, CC_SPC_FND ) ENDIF ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,0,5,6,0,8,0 ) ! Make sure that there are no imbedded blanks in fields 2,3,5,6,8,9 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,0,9 ) CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -177,5 +177,5 @@ SUBROUTINE BD_SPC ( CARD, CC_SPC_FND ) ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_SPC diff --git a/Source/LK1/L1A-BD/BD_SPC1.f90 b/Source/LK1/L1A-BD/BD_SPC1.f90 index b8372503..8af2588e 100644 --- a/Source/LK1/L1A-BD/BD_SPC1.f90 +++ b/Source/LK1/L1A-BD/BD_SPC1.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BD_SPC1 ( CARD, LARGE_FLD_INP, CC_SPC_FND ) ! Processes SPC Bulk Data Cards. Reads and checks data and then write a record to file LINK1O for later processing. ! Each record in file LINK1O has: -! SETID, COMPJ, GRIDJ, RSPCJ = 0., DOFSET +! SETID, COMPJ, GRIDJ, RSPCJ = 0., DOFSET ! Note that RSPCJ is written to be compatible with the data written for Bulk Data card SPC @@ -75,25 +75,25 @@ SUBROUTINE BD_SPC1 ( CARD, LARGE_FLD_INP, CC_SPC_FND ) ! ********************************************************************************************************************************** ! SPC1 Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! Format #1: -! 2 Set ID -! 3 Comp. numbers -! 4-9 Grid ID's +! 2 Set ID +! 3 Comp. numbers +! 4-9 Grid ID's ! Optional continuation cards -! 2-9 Grid ID's +! 2-9 Grid ID's ! Format #2: -! 2 Set ID +! 2 Set ID ! 3 Component numbers ! 4 Grid ID number 1 ! 5 "THRU" ! 6 Grid ID number 2 -! All SPC1 are SB set +! All SPC1 are SB set DOFSET = 'SB' @@ -128,7 +128,7 @@ SUBROUTINE BD_SPC1 ( CARD, LARGE_FLD_INP, CC_SPC_FND ) CALL IP6CHK ( JCARD(3), JCARDO, IP6TYP, IDUM ) ! Read field 3: components IF (IERRFL(3) == 'N') THEN IF ((IP6TYP == 'COMP NOS') .OR. (IP6TYP == 'ZERO ') .OR. (IP6TYP == 'BLANK ')) THEN - CALL I4FLD ( JCARDO, JF(3), COMPJ ) + CALL I4FLD ( JCARDO, JF(3), COMPJ ) ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 @@ -147,37 +147,37 @@ SUBROUTINE BD_SPC1 ( CARD, LARGE_FLD_INP, CC_SPC_FND ) ! ********************************************************************************************************************************** ! Format # 2 - IF (TOKTYP == 'THRU ') THEN - + IF (TOKTYP == 'THRU ') THEN + JERR = 0 IF (JCARD(4)(1:) /= ' ') THEN ! Get 1st Grid ID, GRIDJ1 CALL I4FLD ( JCARD(4), JF(4), GRIDJ1 ) - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1125) 'GRID POINT', JF(4), JCARD(1) WRITE(F06,1125) 'GRID POINT', JF(4), JCARD(1) ENDIF - + IF (JCARD(6)(1:) /= ' ') THEN ! Get 2nd Grid ID, GRIDJ2 CALL I4FLD ( JCARD(6), JF(6), GRIDJ2 ) - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1125) 'GRID POINT', JF(6), JCARD(1) WRITE(F06,1125) 'GRID POINT', JF(6), JCARD(1) ENDIF - + IF ((IERRFL(4)=='N') .AND. (IERRFL(6)=='N')) THEN ! Check GRIDJ2 > GRIDJ1 if there were no errors reading them IF (GRIDJ2 < GRIDJ1) THEN JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1128) JCARD(1), JCARD(2) - WRITE(F06,1128) JCARD(1), JCARD(2) + WRITE(ERR,1128) JCARD(1), JCARD(2) + WRITE(F06,1128) JCARD(1), JCARD(2) ENDIF - ENDIF - + ENDIF + CALL BD_IMBEDDED_BLANK ( JCARD,2,0,4,5,6,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2,4,5,6 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,7,8,9 )! Issue warning if fields 7,8,9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -190,8 +190,8 @@ SUBROUTINE BD_SPC1 ( CARD, LARGE_FLD_INP, CC_SPC_FND ) ! ********************************************************************************************************************************** ! Format # 1 - ELSE IF ((TOKTYP == 'INTEGER ') .OR. (TOKTYP == 'BLANK ')) THEN - + ELSE IF ((TOKTYP == 'INTEGER ') .OR. (TOKTYP == 'BLANK ')) THEN + ! Read and check data on parent card DO J=4,9 ! Read fields 4-9: Grid ID's. @@ -199,14 +199,14 @@ SUBROUTINE BD_SPC1 ( CARD, LARGE_FLD_INP, CC_SPC_FND ) CYCLE ELSE CALL I4FLD ( JCARD(J), JF(J), GRIDJ1 ) ! Read another grid ID - IF ((JERR == 0) .AND. (IERRFL(J) == 'N')) THEN + IF ((JERR == 0) .AND. (IERRFL(J) == 'N')) THEN NUM_SPC1_RECORDS = NUM_SPC1_RECORDS + 1 ! Incr count of number of entries written to file LINK1O WRITE(L1O) SETID,COMPJ,GRIDJ1,GRIDJ1,RSPCJ,DOFSET ELSE JERR = JERR + 1 ENDIF ENDIF - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,0,4,5,6,7,8,9 ) ! Make sure there are no imbeded blanks fields 2-9, except 3 (components) CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -254,8 +254,8 @@ SUBROUTINE BD_SPC1 ( CARD, LARGE_FLD_INP, CC_SPC_FND ) WRITE(F06,1100) JCARD(1) ENDIF - ELSE ! Error - Field 5 did not have "THRU", or an integer, or was blank - + ELSE ! Error - Field 5 did not have "THRU", or an integer, or was blank + FATAL_ERR = FATAL_ERR+1 WRITE(ERR,1127) JF(5), JCARD(1) WRITE(F06,1127) JF(5), JCARD(1) diff --git a/Source/LK1/L1A-BD/BD_SPCADD.f90 b/Source/LK1/L1A-BD/BD_SPCADD.f90 index d768fdd5..3c758d26 100644 --- a/Source/LK1/L1A-BD/BD_SPCADD.f90 +++ b/Source/LK1/L1A-BD/BD_SPCADD.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) - + ! Processes SPCADD Bulk Data Cards. Reads and checks data and enters data into array SPCADD_SIDS USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -33,32 +33,32 @@ SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LSPCADDR, LSUB, NSPCADD, LSPCADDC, NSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : SPCADD_SIDS, SPCSET, SUBLOD - + USE BD_SPCADD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_SPCADD' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER( 1*BYTE),INTENT(INOUT):: CC_SPC_FND ! 'Y' if B.D card w/ same set ID as C.C. SPC = SID CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - CHARACTER( 3*BYTE) :: NAME1 = 'SPC' ! - CHARACTER( 6*BYTE) :: NAME2 = 'SPCADD'! - + CHARACTER( 3*BYTE) :: NAME1 = 'SPC' ! + CHARACTER( 6*BYTE) :: NAME2 = 'SPCADD'! + INTEGER(LONG) :: I,J,K ! DO loop index - INTEGER(LONG) :: NUM_SETIDS ! Counter on number of set ID's on SPCADD card + INTEGER(LONG) :: NUM_SETIDS ! Counter on number of set ID's on SPCADD card INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG) :: SETID ! Set ID for this SPCADD Bulk Data card - + ! ********************************************************************************************************************************** ! SPCADD Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 SPCADD set ID SPCADD(nspcadd, 1) @@ -69,9 +69,9 @@ SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) ! 7 SPC/SPC1 set ID SPCADD(nspcadd, 6) ! 8 SPC/SPC1 set ID SPCADD(nspcadd, 7) ! 9 SPC/SPC1 set ID SPCADD(nspcadd, 8) - + ! 1st continuation card: -! +! ! 2 SPC/SPC1 set ID SPCADD(nspcadd, 9) ! 3 SPC/SPC1 set ID SPCADD(nspcadd,10) ! 4 SPC/SPC1 set ID SPCADD(nspcadd,11) @@ -80,16 +80,16 @@ SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) ! 7 SPC/SPC1 set ID SPCADD(nspcadd,14) ! 8 SPC/SPC1 set ID SPCADD(nspcadd,15) ! 9 SPC/SPC1 set ID SPCADD(nspcadd,16) - + ! Subsequent con't cards follow the same patterm as the 1st - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + NSPCADD = NSPCADD+1 - + ! Read and check data on parent card CALL I4FLD ( JCARD(2), JF(2), SETID ) ! Read set ID for this SPCADD Bulk Data card @@ -100,8 +100,8 @@ SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) CC_SPC_FND = 'Y' ENDIF ENDDO - ENDIF - + ENDIF + NUM_SETIDS = 1 ! Read SPCADD ID's on parent card. DO J=3,9 IF (JCARD(J)(1:) == ' ') THEN @@ -112,7 +112,7 @@ SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) WRITE(ERR,1139) SETID, NAME1, NAME2, LSPCADDC WRITE(F06,1139) SETID, NAME1, NAME2, LSPCADDC CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit - ENDIF + ENDIF CALL I4FLD ( JCARD(J), JF(J), SPCADD_SIDS(NSPCADD,NUM_SETIDS) ) DO K=1,NUM_SETIDS-1 ! Check for duplicate set ID's IF (SPCADD_SIDS(NSPCADD,NUM_SETIDS) == SPCADD_SIDS(NSPCADD,K)) THEN @@ -120,7 +120,7 @@ SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) WRITE(ERR,1140) SPCADD_SIDS(NSPCADD,NUM_SETIDS),NAME2,SETID WRITE(F06,1140) SPCADD_SIDS(NSPCADD,NUM_SETIDS),NAME2,SETID ENDIF - ENDDO + ENDDO IF (IERRFL(J) == 'N') THEN IF (SPCADD_SIDS(NSPCADD,NUM_SETIDS) <= 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -129,11 +129,11 @@ SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) ENDIF ENDIF ENDIF - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - + ! Read and check data on optional continuation cards DO @@ -154,7 +154,7 @@ SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) WRITE(ERR,1139) SETID,NAME1,NAME2,LSPCADDC WRITE(F06,1139) SETID,NAME1,NAME2,LSPCADDC CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit - ENDIF + ENDIF CALL I4FLD ( JCARD(J), JF(J), SPCADD_SIDS(NSPCADD,NUM_SETIDS) ) DO K=1,NUM_SETIDS-1 ! Check for duplicate set ID's IF (SPCADD_SIDS(NSPCADD,NUM_SETIDS) == SPCADD_SIDS(NSPCADD,K)) THEN @@ -162,7 +162,7 @@ SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) WRITE(ERR,1140) SPCADD_SIDS(NSPCADD,NUM_SETIDS),NAME2,SETID WRITE(ERR,1140) SPCADD_SIDS(NSPCADD,NUM_SETIDS),NAME2,SETID ENDIF - ENDDO + ENDDO IF (IERRFL(J) == 'N') THEN IF (SPCADD_SIDS(NSPCADD,NUM_SETIDS) <= 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -172,7 +172,7 @@ SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) ENDIF ENDIF ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9)! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -181,8 +181,8 @@ SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) EXIT ENDIF - ENDDO - + ENDDO + RETURN @@ -200,5 +200,5 @@ SUBROUTINE BD_SPCADD ( CARD, LARGE_FLD_INP, CC_SPC_FND ) 1175 FORMAT(' *ERROR 1175: ',A,' SET ID ON BULK DATA ',A,' ENTRY ID = ',I8,' IN FIELD ',I3,' IS = ',I8,'. MUST BE > 0') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_SPCADD diff --git a/Source/LK1/L1A-BD/BD_SPCADD0.f90 b/Source/LK1/L1A-BD/BD_SPCADD0.f90 index 1ecf04b7..1df53ad0 100644 --- a/Source/LK1/L1A-BD/BD_SPCADD0.f90 +++ b/Source/LK1/L1A-BD/BD_SPCADD0.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_SPCADD0 ( CARD, LARGE_FLD_INP, ISPCADD ) - + ! Processes SPCADD Bulk Data Cards to count the number of SPC (or SPC1) set ID's on this logical SPCADD card. The calling routine ! determines the max number od set ID's over all SPCADD cards in the data deck - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN @@ -38,24 +38,24 @@ SUBROUTINE BD_SPCADD0 ( CARD, LARGE_FLD_INP, ISPCADD ) USE BD_SPCADD0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_SPCADD0' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: LARGE_FLD_INP ! If 'Y', CARD is large field format CHARACTER(LEN(CARD)) :: CHILD ! "Child" card read in subr NEXTC, called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: ICONT = 0 ! Indicator of whether a cont card exists. Output from subr NEXTC INTEGER(LONG) :: IERR = 0 ! Error indicator returned from subr NEXTC called herein INTEGER(LONG), INTENT(OUT) :: ISPCADD ! Count of number of SPC or SPC1 set ID's defined on the SPCADD INTEGER(LONG) :: J ! DO loop index - + ! ********************************************************************************************************************************** ! SPCADD Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! 2 SPCADD set ID SPCADD(nspcadd, 1) @@ -66,9 +66,9 @@ SUBROUTINE BD_SPCADD0 ( CARD, LARGE_FLD_INP, ISPCADD ) ! 7 SPC/SPC1 set ID SPCADD(nspcadd, 6) ! 8 SPC/SPC1 set ID SPCADD(nspcadd, 7) ! 9 SPC/SPC1 set ID SPCADD(nspcadd, 8) - + ! 1st continuation card: -! +! ! 2 SPC/SPC1 set ID SPCADD(nspcadd, 9) ! 3 SPC/SPC1 set ID SPCADD(nspcadd,10) ! 4 SPC/SPC1 set ID SPCADD(nspcadd,11) @@ -77,16 +77,16 @@ SUBROUTINE BD_SPCADD0 ( CARD, LARGE_FLD_INP, ISPCADD ) ! 7 SPC/SPC1 set ID SPCADD(nspcadd,14) ! 8 SPC/SPC1 set ID SPCADD(nspcadd,15) ! 9 SPC/SPC1 set ID SPCADD(nspcadd,16) - + ! Subsequent con't cards follow the same patterm as the 1st - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! ISPCADD will count the number of SPC or SPC1 set ID's on this SPCADD card. It starts with 1 since there is the SPCADD set ID. - + ! Count SPC/SPC1 set ID's on parent card ISPCADD = 1 @@ -96,11 +96,11 @@ SUBROUTINE BD_SPCADD0 ( CARD, LARGE_FLD_INP, ISPCADD ) ELSE ISPCADD = ISPCADD + 1 ENDIF - ENDDO - + ENDDO + ! Count SPC/SPC1 set ID's on optional continuation cards - - DO + + DO IF (LARGE_FLD_INP == 'N') THEN CALL NEXTC0 ( CARD, ICONT, IERR ) ELSE @@ -115,16 +115,16 @@ SUBROUTINE BD_SPCADD0 ( CARD, LARGE_FLD_INP, ISPCADD ) ELSE ISPCADD = ISPCADD + 1 ENDIF - ENDDO + ENDDO ELSE EXIT ENDIF - ENDDO - + ENDDO + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_SPCADD0 diff --git a/Source/LK1/L1A-BD/BD_SPOINT.f90 b/Source/LK1/L1A-BD/BD_SPOINT.f90 index 4f2b3980..a4f48c54 100644 --- a/Source/LK1/L1A-BD/BD_SPOINT.f90 +++ b/Source/LK1/L1A-BD/BD_SPOINT.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_SPOINT ( CARD ) - + ! Read Bulk Data SPOINT entries. Enter the SPOINT number into array GRID (in col 1) and set GRID(ngrid,6) to 1 to indicate SPOINT USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -33,74 +33,74 @@ SUBROUTINE BD_SPOINT ( CARD ) USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NGRID USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRID - + USE BD_SPOINT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_SPOINT' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER( 8*BYTE) :: TOKEN ! The 1st 8 characters from a JCARD CHARACTER( 8*BYTE) :: TOKTYP ! An output from subr TOKCHK called herein - + INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: JERR = 0 ! Error indicator for several types of error in format #2 of input INTEGER(LONG) :: SPOINT1 = 0 ! An SPOINT number INTEGER(LONG) :: SPOINT2 = 0 ! An SPOINT number - + ! ********************************************************************************************************************************** ! SPOINT Bulk Data Card routine - -! FIELD ITEM -! ----- ------------ + +! FIELD ITEM +! ----- ------------ ! Format #1: ! 2-9 SPOINT ID's ! on optional continuation cards: ! 2-9 SPOINT ID's - + ! Format #2: ! 2 SPOINT ID 1 ! 3 "THRU" ! 4 SPOINT ID 2 - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Field 3 of SPOINT must have "THRU" or a SPOINT number or blank. TOKEN = JCARD(3)(1:8) ! Only send the 1st 8 chars of this JCARD. It has been left justified CALL TOKCHK ( TOKEN, TOKTYP ) ! TOKTYP must be THRU', 'INTEGR', or 'BLANK' - + ! ********************************************************************************************************************************** ! Format # 2 - - IF (TOKTYP == 'THRU ') THEN - + + IF (TOKTYP == 'THRU ') THEN + JERR = 0 IF (JCARD(2)(1:) /= ' ') THEN ! Get 1st SPOINT ID CALL I4FLD ( JCARD(2), JF(2), SPOINT1 ) - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1125) 'SCALAR POINT', JF(2), JCARD(1) WRITE(F06,1125) 'SCALAR POINT', JF(2), JCARD(1) ENDIF - + IF (JCARD(4)(1:) /= ' ') THEN ! Get 2nd SPOINT ID CALL I4FLD ( JCARD(4), JF(4), SPOINT2 ) - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1125) 'SCALAR POINT', JF(4), JCARD(1) WRITE(F06,1125) 'SCALAR POINT', JF(4), JCARD(1) ENDIF - + IF ((IERRFL(2)=='N') .AND. (IERRFL(4)=='N')) THEN ! Check SPOINT2 > SPOINT1 if there were no errors reading them IF (SPOINT2 <= SPOINT1) THEN JERR = JERR + 1 @@ -108,8 +108,8 @@ SUBROUTINE BD_SPOINT ( CARD ) WRITE(ERR,1128) JCARD(1) WRITE(F06,1128) JCARD(1) ENDIF - ENDIF - + ENDIF + CALL BD_IMBEDDED_BLANK ( JCARD,2,0,4,0,0,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2, 4 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,5,6,7,8,9 )! Issue warning if fields 5, 6, 7, 8, 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -121,18 +121,18 @@ SUBROUTINE BD_SPOINT ( CARD ) GRID(NGRID,6) = 1 ENDDO ENDIF - + ! ********************************************************************************************************************************** -! Format #1 - - ELSE IF ((TOKTYP == 'INTEGER ') .OR. (TOKTYP == 'BLANK ')) THEN - +! Format #1 + + ELSE IF ((TOKTYP == 'INTEGER ') .OR. (TOKTYP == 'BLANK ')) THEN + JERR = 0 DO J=2,9 ! Get SPOINT ID's in fields 2 - 9 IF (JCARD(J)(1:) == ' ') THEN CYCLE - ELSE + ELSE CALL I4FLD ( JCARD(J), JF(J), SPOINT1 ) IF ((JERR == 0) .AND. (IERRFL(J) == 'N')) THEN NGRID = NGRID + 1 @@ -141,12 +141,12 @@ SUBROUTINE BD_SPOINT ( CARD ) ENDIF ENDIF ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 - CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields - - ELSE ! Error - Field 4 did not have "THRU", or an integer, or was blank - + CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields + + ELSE ! Error - Field 4 did not have "THRU", or an integer, or was blank + FATAL_ERR = FATAL_ERR+1 WRITE(ERR,1127) JF(4), JCARD(1) WRITE(F06,1127) JF(4), JCARD(1) @@ -164,7 +164,7 @@ SUBROUTINE BD_SPOINT ( CARD ) 1127 FORMAT(' *ERROR 1127: INVALID DATA IN FIELD ',I2,' OF ',A,' CARD. FIELD MUST HAVE THRU OR A SPOINT NUMBER OR BE BLANK') 1128 FORMAT(' *ERROR 1128: ON ',A,' THE IDs MUST BE IN INCREASING ORDER FOR THRU OPTION') - + ! ********************************************************************************************************************************** - + END SUBROUTINE BD_SPOINT diff --git a/Source/LK1/L1A-BD/BD_SPOINT0.f90 b/Source/LK1/L1A-BD/BD_SPOINT0.f90 index 40045737..eeaa61b8 100644 --- a/Source/LK1/L1A-BD/BD_SPOINT0.f90 +++ b/Source/LK1/L1A-BD/BD_SPOINT0.f90 @@ -1,130 +1,130 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_SPOINT0 ( CARD, DELTA_SPOINT ) - + ! Processes SPOINT Bulk Data Cards to count the number of SPOINT's on one entry USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM, IERRFL, JCARD_LEN, JF USE TIMDAT, ONLY : TSEC - + USE BD_SPOINT0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_SPOINT0' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER( 8*BYTE) :: TOKEN ! The 1st 8 characters from a JCARD CHARACTER( 8*BYTE) :: TOKTYP ! An output from subr TOKCHK called herein - + INTEGER(LONG), INTENT(OUT) :: DELTA_SPOINT ! Number of SPOINT's defined on this B.D. SPOINT entry INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: JERR = 0 ! Error indicator for several types of error in format #2 of input INTEGER(LONG) :: SPOINT1 = 0 ! An SPOINT number INTEGER(LONG) :: SPOINT2 = 0 ! An SPOINT number - + ! ********************************************************************************************************************************** ! SPOINT Bulk Data Card routine - -! FIELD ITEM -! ----- ------------ + +! FIELD ITEM +! ----- ------------ ! Format #1: ! 2-9 SPOINT ID's ! on optional continuation cards: ! 2-9 Grid ID's - + ! Format #2: ! 2 SPOINT ID 1 ! 3 "THRU" ! 4 SPOINT ID 2 - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Field 3 of SPOINT must have "THRU" or a SPOINT number or blank. TOKEN = JCARD(3)(1:8) ! Only send the 1st 8 chars of this JCARD. It has been left justified CALL TOKCHK ( TOKEN, TOKTYP ) ! TOKTYP must be THRU', 'INTEGR', or 'BLANK' - + DELTA_SPOINT = 0 ! ********************************************************************************************************************************** ! Format # 2 - - IF (TOKTYP == 'THRU ') THEN - + + IF (TOKTYP == 'THRU ') THEN + JERR = 0 IF (JCARD(2)(1:) /= ' ') THEN ! Get 1st SPOINT ID CALL I4FLD ( JCARD(2), JF(2), SPOINT1 ) - ELSE + ELSE JERR = JERR + 1 ENDIF - + IF (JCARD(4)(1:) /= ' ') THEN ! Get 2nd SPOINT ID CALL I4FLD ( JCARD(4), JF(4), SPOINT2 ) - ELSE + ELSE JERR = JERR + 1 ENDIF - + IF ((IERRFL(2)=='N') .AND. (IERRFL(4)=='N')) THEN ! Check SPOINT2 > SPOINT1 if there were no errors reading them IF (SPOINT2 <= SPOINT1) THEN JERR = JERR + 1 ENDIF - ENDIF - + ENDIF + IF ((JERR == 0) .AND. (IERRFL(2) == 'N') .AND. (IERRFL(5) == 'N')) THEN DO J=1,SPOINT2-SPOINT1+1 DELTA_SPOINT = DELTA_SPOINT + 1 ENDDO ENDIF - -! Format #1 - - ELSE IF ((TOKTYP == 'INTEGER ') .OR. (TOKTYP == 'BLANK ')) THEN - + +! Format #1 + + ELSE IF ((TOKTYP == 'INTEGER ') .OR. (TOKTYP == 'BLANK ')) THEN + JERR = 0 DO J=2,9 ! Get SPOINT ID's in fields 2 - 9 IF (JCARD(J)(1:) == ' ') THEN CYCLE - ELSE + ELSE CALL I4FLD ( JCARD(J), JF(J), SPOINT1 ) IF ((JERR == 0) .AND. (IERRFL(J) == 'N')) THEN DELTA_SPOINT = DELTA_SPOINT + 1 ENDIF ENDIF ENDDO - + ENDIF ! Reset DELTA_SPOINT back to 0 if there were errors (i.e. don't count this entry if there are errors) @@ -138,5 +138,5 @@ SUBROUTINE BD_SPOINT0 ( CARD, DELTA_SPOINT ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BD_SPOINT0 diff --git a/Source/LK1/L1A-BD/BD_SUPORT.f90 b/Source/LK1/L1A-BD/BD_SUPORT.f90 index fc320328..29892cbf 100644 --- a/Source/LK1/L1A-BD/BD_SUPORT.f90 +++ b/Source/LK1/L1A-BD/BD_SUPORT.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_SUPORT ( CARD ) - + ! Processes SUPORT Bulk Data Cards ! Data is written to file LINK1T for later processing after checks on format of data. ! Each record contains: GRIDJ1, COMPJ @@ -34,17 +34,17 @@ SUBROUTINE BD_SUPORT ( CARD ) USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1T USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, NUM_SUPT_CARDS USE TIMDAT, ONLY : TSEC - + USE BD_SUPORT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_SUPORT' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 8*BYTE) :: IP6TYP ! An output from subr IP6CHK called herein CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARDO ! An output from subr IP6CHK called herein - + INTEGER(LONG) :: COMP(4) = 0 ! Displ component(s) read from a B.D. SUPORT card INTEGER(LONG) :: GRID(4) = 0 ! A grid point number read from a B.D. SUPORT card INTEGER(LONG) :: IERR ! Error indicator returned from subr NEXTC called herein @@ -53,14 +53,14 @@ SUBROUTINE BD_SUPORT ( CARD ) INTEGER(LONG) :: JERR = 0 ! Error indicator for several types of error INTEGER(LONG) :: NUM_PAIRS ! Number of pairs of grid/comp found on this SUPORT card - + ! ********************************************************************************************************************************** ! SUPORT Bulk Data Card routine - -! FIELD ITEM -! ----- ------------ + +! FIELD ITEM +! ----- ------------ ! 2 GRID, Grid ID number 1 ! 3 COMP, Displ component(s) for GRID1 ! 4 GRID, Grid ID number 2 @@ -69,11 +69,11 @@ SUBROUTINE BD_SUPORT ( CARD ) ! 7 COMP, Displ component(s) for GRID3 ! 8 GRID, Grid ID number 4 ! 9 COMP, Displ component(s) for GRID4 - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! ********************************************************************************************************************************** JERR = 0 @@ -102,7 +102,7 @@ SUBROUTINE BD_SUPORT ( CARD ) CALL I4FLD ( JCARDO, JF(I+1), COMP(NUM_PAIRS) ) ELSE JERR = JERR + 1 - FATAL_ERR = FATAL_ERR + 1 + FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1123) JF(I+1),JCARD(1),JF(I+1),JCARD(I+1) WRITE(F06,1123) JF(I+1),JCARD(1),JF(I+1),JCARD(I+1) ENDIF @@ -120,7 +120,7 @@ SUBROUTINE BD_SUPORT ( CARD ) NUM_SUPT_CARDS = NUM_SUPT_CARDS + 1 ENDDO ENDIF - + RETURN @@ -128,9 +128,9 @@ SUBROUTINE BD_SUPORT ( CARD ) ! ********************************************************************************************************************************** 1123 FORMAT(' *ERROR 1123: INVALID DOF NUMBER IN FIELD ',I3,' ON ',A,' CARD. MUST BE A COMBINATION OF DIGITS 1-6' & ,/,14X,' HOWEVER, FIELD ',I3, ' HAS: "',A,'"') - + 1125 FORMAT(' *ERROR 1125: NO ',A,' SPECIFIED IN FIELD',I4,' ON ',A,' CARD') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_SUPORT diff --git a/Source/LK1/L1A-BD/BD_TEMP.f90 b/Source/LK1/L1A-BD/BD_TEMP.f90 index 7b904b96..094e3353 100644 --- a/Source/LK1/L1A-BD/BD_TEMP.f90 +++ b/Source/LK1/L1A-BD/BD_TEMP.f90 @@ -1,79 +1,79 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_TEMP ( CARD, CC_LOAD_FND ) - + ! Processes TEMP Bulk Data Cards and writes CARD to file LINK1K for later processing - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1K USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LSUB, NSUB, NTCARD USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : SUBLOD - + USE BD_TEMP_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_TEMP' CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2) ! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER( 1*BYTE) :: KEEP_IT ! ='Y' if the SID on TEMPD is one we need to write to LINK1K - + INTEGER(LONG) :: EGRID = 0 ! Actual grid number INTEGER(LONG) :: I4INP = 0 ! Value read by subr I4FLD when reading a CARD field INTEGER(LONG) :: JERR = 0 ! Error count INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: SID = 0 ! Set ID read from CARD - + REAL(DOUBLE) :: RTEMP = ZERO ! Real value of a temperature - + ! ********************************************************************************************************************************** ! TEMP Bulk Data card check (for format checking only) - -! FIELD ITEM -! ----- ------------ + +! FIELD ITEM +! ----- ------------ ! 2 SID -! 3 Grid ID +! 3 Grid ID ! 4 Temp -! 5 Grid ID +! 5 Grid ID ! 6 Temp -! 7 Grid ID +! 7 Grid ID ! 8 Temp - - + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Read and check data DO I=1,3 ! Check that pairs of fields either both have data or neither has data @@ -90,7 +90,7 @@ SUBROUTINE BD_TEMP ( CARD, CC_LOAD_FND ) WRITE(ERR,1191) 2*I+1, 2*I+2, JCARD(1) WRITE(F06,1191) 2*I+1, 2*I+2, JCARD(1) ENDIF - ENDDO + ENDDO IF (JERR == 0) THEN ! Overall format is OK @@ -104,7 +104,7 @@ SUBROUTINE BD_TEMP ( CARD, CC_LOAD_FND ) KEEP_IT = 'Y' ENDIF ENDDO - ENDIF + ENDIF DO J=1,3 ! Read pairs of grid/temperature IF (JCARD(2*J+1)(1:) == ' ') EXIT @@ -126,8 +126,8 @@ SUBROUTINE BD_TEMP ( CARD, CC_LOAD_FND ) ENDIF ENDDO - ENDIF - + ENDIF + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,0 ) ! Make sure that there are no imbedded blanks in fields 2-8 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,0,9 ) ! Issue warning if field 9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -148,5 +148,5 @@ SUBROUTINE BD_TEMP ( CARD, CC_LOAD_FND ) 1192 FORMAT(' *ERROR 1192: ID IN FIELD ',I3,' OF ',A,A,' MUST BE ',A,' BUT IS = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_TEMP diff --git a/Source/LK1/L1A-BD/BD_TEMPD.f90 b/Source/LK1/L1A-BD/BD_TEMPD.f90 index c66b0aa9..3da1c8cf 100644 --- a/Source/LK1/L1A-BD/BD_TEMPD.f90 +++ b/Source/LK1/L1A-BD/BD_TEMPD.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_TEMPD ( CARD, CC_LOAD_FND ) - + ! Processes TEMPD Bulk Data Cards and writes CARD to file LINK1K for later processing - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1K USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LSUB, NSUB, NTCARD USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : SUBLOD - + USE BD_TEMPD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_TEMPD' CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2) ! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID @@ -46,41 +46,41 @@ SUBROUTINE BD_TEMPD ( CARD, CC_LOAD_FND ) ! and temperature) from one, of the possibly 4, TEMPD sets CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER( 1*BYTE) :: KEEP_IT(4) ! ='Y' if the SID on TEMPD is one we need to write to LINK1K - + INTEGER(LONG) :: I4INP = 0 ! Value read by subr I4FLD when reading a CARD field INTEGER(LONG) :: JERR = 0 ! Error count INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: SID = 0 ! Set ID read from CARD - + REAL(DOUBLE) :: RTEMP = ZERO ! Real value of a temperature - + ! ********************************************************************************************************************************** ! TEMPD Bulk Data card check (for format checking only) - -! FIELD ITEM + +! FIELD ITEM ! ----- ------ -! 2 SID +! 2 SID ! 3 Temp ! 4 SID ! 5 Temp ! 6 SID -! 7 Temp +! 7 Temp ! 8 SID -! 9 Temp - - +! 9 Temp + + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Initialize CARDIJ(1-4) DO I=1,4 CARDIJ(I)(1:LEN(CARD)) = ' ' - ENDDO + ENDDO ! Read and check data @@ -98,7 +98,7 @@ SUBROUTINE BD_TEMPD ( CARD, CC_LOAD_FND ) WRITE(ERR,1191) 2*I, 2*I+1, JCARD(1) WRITE(F06,1191) 2*I, 2*I+1, JCARD(1) ENDIF - ENDDO + ENDDO IF (JERR == 0) THEN ! Overall format is OK @@ -122,8 +122,8 @@ SUBROUTINE BD_TEMPD ( CARD, CC_LOAD_FND ) CARDIJ(I)(2*JCARD_LEN+1:3*JCARD_LEN) = JCARD(2*I+1) ENDIF ENDIF - ENDDO - + ENDDO + DO I=2,8 ! Set JERR if there were any errors reading fields IF (IERRFL(I) == 'Y') THEN JERR = JERR + 1 @@ -131,7 +131,7 @@ SUBROUTINE BD_TEMPD ( CARD, CC_LOAD_FND ) ENDIF ENDDO - ENDIF + ENDIF CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ! Make sure that there are no imbedded blanks in fields 2-9 CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -142,9 +142,9 @@ SUBROUTINE BD_TEMPD ( CARD, CC_LOAD_FND ) WRITE(L1K) CARDIJ(I) NTCARD = NTCARD+1 ENDIF - ENDDO + ENDDO ENDIF - + RETURN @@ -154,5 +154,5 @@ SUBROUTINE BD_TEMPD ( CARD, CC_LOAD_FND ) ' SHOULD BOTH BE BLANK') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_TEMPD diff --git a/Source/LK1/L1A-BD/BD_TEMPRP.f90 b/Source/LK1/L1A-BD/BD_TEMPRP.f90 index a633df4a..4f3d9d59 100644 --- a/Source/LK1/L1A-BD/BD_TEMPRP.f90 +++ b/Source/LK1/L1A-BD/BD_TEMPRP.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) - + ! Processes TEMP Bulk Data Cards and writes CARD to file LINK1K for later processing - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1K USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IERRFL, JCARD_LEN, JF, LSUB, MTDAT_TEMPRB, MTDAT_TEMPP1, NSUB, & NTCARD USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : SUBLOD - + USE BD_TEMPRP_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_TEMPRP' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE),INTENT(INOUT):: CC_LOAD_FND(LSUB,2) ! 'Y' if B.D load/temp card w/ same set ID (SID) as C.C. LOAD = SID @@ -53,7 +53,7 @@ SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) CHARACTER( 1*BYTE) :: THRU_6 = 'N' ! 'Y' if field 6 of cont. card is "THRU" CHARACTER( 8*BYTE) :: TOKEN ! The 1st 8 characters from a JCARD CHARACTER( 8*BYTE) :: TOKTYP(10) ! Character description of a JCARD (output from subr TOKCHK - + INTEGER(LONG) :: CONT_CARD_NUM = 0 ! Count of continuation cards (used for output error messages) INTEGER(LONG) :: ELID, ELID1, ELID2 ! Element ID's INTEGER(LONG) :: I,J ! DO loop indices @@ -63,16 +63,16 @@ SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) INTEGER(LONG) :: NFLD ! No. of fields of temperature data (depends on type of CARD) INTEGER(LONG) :: SID = 0 ! Set ID read from CARD - + REAL(DOUBLE) :: RTEMP ! Real value of a temperature - + ! ********************************************************************************************************************************** ! TEMPRB and TEMPP1 Bulk Data card check - -! FIELD ITEM -! ----- ------------ + +! FIELD ITEM +! ----- ------------ ! 2 SID ! 3 ELID1 ! 4-5 TB, TP for TEMPP1 @@ -87,13 +87,13 @@ SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ! 5 ELIDJ ! 6 "THRU" ! 7 ELIDK - + ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Read and check data - + KEEP_IT = 'N' ! Check if load set ID on TEMP card matches a Case Control request CALL I4FLD ( JCARD(2), JF(2), I4INP1 ) IF (IERRFL(2) == 'N') THEN @@ -105,7 +105,7 @@ SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ENDIF ENDDO ENDIF - + CARD_NAME = JCARD(1) ! Set NFLD based on whether this is a TEMPRB or TEMPP1 IF (JCARD(1)(1:6) == 'TEMPRB') THEN NFLD = MTDAT_TEMPRB @@ -126,17 +126,17 @@ SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ENDIF DO J=1,NFLD ! Read NFLD fields of real data CALL R8FLD ( JCARD(J+3), JF(J+3), RTEMP ) - ENDDO - + ENDDO + CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields IF (KEEP_IT == 'Y') THEN ! Write parent card data to file LINK1K WRITE(L1K) CARD NTCARD = NTCARD + 1 ENDIF - + ! Optional continuation cards: - + CONT_CARD_NUM = 0 DO IF (LARGE_FLD_INP == 'N') THEN @@ -146,22 +146,22 @@ SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) CARD = CHILD ENDIF CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + IF (ICONT == 1) THEN CONT_CARD_NUM = CONT_CARD_NUM + 1 IF (KEEP_IT == 'Y') THEN - + ! First check for the 2 options on specifying data on continuation card. Either all data are ELID's or the THRU option ! is used in which case field 3 and/or 6 should have "THRU". - + IERR = 0 DO I=2,9 TOKEN = JCARD(I)(1:8) ! Only send the 1st 8 chars of this JCARD. It has been left justified CALL TOKCHK ( TOKEN, TOKTYP(I) ) - ENDDO - + ENDDO + INTEGERS = 'N' DO I=2,9 IF ((TOKTYP(I) == 'INTEGER ') .OR. (TOKTYP(I) == 'BLANK ')) THEN @@ -173,7 +173,7 @@ SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ENDIF ENDDO - IF (INTEGERS == 'N') THEN ! Check for "ELID1 THRU ELID2" plus, possibly, "ELID3 THRU ELID4" + IF (INTEGERS == 'N') THEN ! Check for "ELID1 THRU ELID2" plus, possibly, "ELID3 THRU ELID4" IF ((TOKTYP(2) == 'INTEGER ') .AND. (TOKTYP(3) == 'THRU ') .AND. (TOKTYP(4) == 'INTEGER ')) THEN THRU_3 = 'Y' IF ((TOKTYP(5) == 'INTEGER ') .AND. (TOKTYP(6) == 'THRU ') .AND. (TOKTYP(7) == 'INTEGER ')) THEN @@ -222,8 +222,8 @@ SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) WRITE(F06,1166) CARD_NAME,SID,CONT_CARD_NUM,J ENDIF ENDIF - ENDDO - ELSE ! THRU_3 must be 'Y' or we wouldn't have gotten here + ENDDO + ELSE ! THRU_3 must be 'Y' or we wouldn't have gotten here CALL I4FLD ( JCARD(2), JF(2), I4INP1 ) CALL I4FLD ( JCARD(4), JF(4), I4INP2 ) IF ((IERRFL(2) == 'N') .AND. (IERRFL(4) == 'N')) THEN @@ -249,7 +249,7 @@ SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) WRITE(F06,1166) CARD_NAME,SID,CONT_CARD_NUM,JF(4) ENDIF ENDIF - IF (THRU_6 == 'Y') THEN ! THRU_6 must be 'Y' or 'N' or we wouldn't have gotten here + IF (THRU_6 == 'Y') THEN ! THRU_6 must be 'Y' or 'N' or we wouldn't have gotten here CALL I4FLD ( JCARD(5), JF(5), I4INP1 ) CALL I4FLD ( JCARD(7), JF(7), I4INP2 ) IF ((IERRFL(5) == 'N') .AND. (IERRFL(7) == 'N')) THEN @@ -275,11 +275,11 @@ SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) WRITE(F06,1166) CARD_NAME,SID,CONT_CARD_NUM,JF(7) ENDIF ENDIF - ENDIF + ENDIF ENDIF IF (INTEGERS == 'Y') THEN - CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) + CALL BD_IMBEDDED_BLANK ( JCARD,2,3,4,5,6,7,8,9 ) ELSE CALL BD_IMBEDDED_BLANK ( JCARD,2,0,4,5,0,7,0,0 ) ! Fields 3 and 6 are "THRU" CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,8,9 ) @@ -297,7 +297,7 @@ SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) EXIT ENDIF ENDDO - + RETURN @@ -305,7 +305,7 @@ SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) ! ********************************************************************************************************************************** 1153 FORMAT(' *ERROR 1153: INVALID DATA IN FIELDS ',A,' OF ',A,I8,' CONT ENTRY NUMBER ',I8,'.' & ,/,14X,' ELEM IDs MUST BE IN INCREASING ORDER FOR "THRU" OPTION') - + 1166 FORMAT(' *ERROR 1166: ELEMENT ID ON ',A,I8,' CONT ENTRY NUMBER ',I8,' FIELD ',I3,' MUST BE > 0') 1190 FORMAT(' *ERROR 1190: INVALID DATA IN FIELDS ',A,' OF ',A,I8,' CONTI ENTRY NUMBER ',I8 & @@ -314,5 +314,5 @@ SUBROUTINE BD_TEMPRP ( CARD, LARGE_FLD_INP, CC_LOAD_FND ) 1192 FORMAT(' *ERROR 1192: ID IN FIELD ',I3,' OF ',A,A,' MUST BE ',A,' BUT IS = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE BD_TEMPRP diff --git a/Source/LK1/L1A-BD/BD_USET.f90 b/Source/LK1/L1A-BD/BD_USET.f90 index 40a40c7b..b4ffc02c 100644 --- a/Source/LK1/L1A-BD/BD_USET.f90 +++ b/Source/LK1/L1A-BD/BD_USET.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BD_USET ( CARD ) - + ! Processes USET Bulk Data Cards. Reads and checks data and then write a record to file LINK1X for later processing. ! Each record in file LINK1X has: -! USET_NAME, COMPJ, GRIDJ, DOFSET - +! USET_NAME, COMPJ, GRIDJ, DOFSET + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1X USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, FATAL_ERR, IERRFL, JCARD_LEN, JF, NUM_USET_RECORDS, WARN_ERR @@ -42,7 +42,7 @@ SUBROUTINE BD_USET ( CARD ) USE BD_USET_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BD_USET' CHARACTER(LEN=*),INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=JCARD_LEN) :: CHRFLD ! A character field from the entry @@ -50,38 +50,38 @@ SUBROUTINE BD_USET ( CARD ) CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN(JCARD)) :: JCARDO ! An output from subr IP6CHK called herein CHARACTER( 2*BYTE) :: USET_NAME ! Name in field 2 of the USET entry - + INTEGER(LONG) :: COMPJ = 0 ! Displ components constrained at GRIDJ INTEGER(LONG) :: GRIDJ = 0 ! Grid ID on USET card INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IDUM ! Dummy arg in subr IP6CHK not used herein INTEGER(LONG) :: JERR = 0 ! A local error count - + ! ********************************************************************************************************************************** ! USET Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- -! 2 USET name (i.e. "U1", "U2") -! 3 Grid ID -! 4 Comp. numbers -! 5 Grid ID -! 6 Comp.numbers -! 7 Grid ID -! 8 Comp.numbers - - +! 2 USET name (i.e. "U1", "U2") +! 3 Grid ID +! 4 Comp. numbers +! 5 Grid ID +! 6 Comp.numbers +! 7 Grid ID +! 8 Comp.numbers + + ! Initialize JERR = 0 ! Make JCARD from CARD - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) - + ! Read USET name CALL CHAR_FLD ( JCARD(2), JF(2), CHRFLD ) ! Read field 2: USET name @@ -102,11 +102,11 @@ SUBROUTINE BD_USET ( CARD ) IF (JCARD(I)(1:) /= ' ') THEN - CALL I4FLD ( JCARD(I), JF(I), GRIDJ ) ! Read Grid ID + CALL I4FLD ( JCARD(I), JF(I), GRIDJ ) ! Read Grid ID ! Read displ components CALL IP6CHK ( JCARD(I+1), JCARDO, IP6TYP, IDUM ) IF ((IP6TYP == 'COMP NOS') .OR. (IP6TYP == 'ZERO ') .OR. (IP6TYP == 'BLANK ')) THEN - CALL I4FLD ( JCARDO, JF(I+1), COMPJ ) + CALL I4FLD ( JCARDO, JF(I+1), COMPJ ) ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 @@ -121,7 +121,7 @@ SUBROUTINE BD_USET ( CARD ) ENDIF ELSE ! Field 3, 5 or 7 is blank - + IF (JCARD(I+1)(1:) /= ' ') THEN WARN_ERR = WARN_ERR + 1 WRITE(ERR,101) CARD @@ -137,7 +137,7 @@ SUBROUTINE BD_USET ( CARD ) ENDIF ENDDO - + CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,5,0,7,0,0 ) ! Make sure that there are no imbedded blanks in fields 2,3,5,6,8,9 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,0,8,9 ) CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -158,5 +158,5 @@ SUBROUTINE BD_USET ( CARD ) ,/,14X,' SNAME ON THE ABOVE USET ENTRY MUST BE "U1" OR "U2" BUT IS "',A,'"') ! ********************************************************************************************************************************** - + END SUBROUTINE BD_USET diff --git a/Source/LK1/L1A-BD/BD_USET1.f90 b/Source/LK1/L1A-BD/BD_USET1.f90 index fc110aa3..7f15b6c6 100644 --- a/Source/LK1/L1A-BD/BD_USET1.f90 +++ b/Source/LK1/L1A-BD/BD_USET1.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BD_USET1 ( CARD, LARGE_FLD_INP ) ! Processes USET1 Bulk Data Cards. Reads and checks data and then write a record to file LINK1X for later processing. ! Each record in file LINK1X has: -! USET_NAME, COMPJ, GRIDJ, DOFSET +! USET_NAME, COMPJ, GRIDJ, DOFSET USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1X @@ -68,15 +68,15 @@ SUBROUTINE BD_USET1 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** ! USET1 Bulk Data Card routine - + ! FIELD ITEM ARRAY ELEMENT ! ----- ------------ ------------- ! Format #1: ! 2 USET name (e.g. "U1", "U2", "R", etc) -! 3 Comp. numbers -! 4-9 Grid ID's +! 3 Comp. numbers +! 4-9 Grid ID's ! Optional continuation cards -! 2-9 Grid ID's +! 2-9 Grid ID's ! Format #2: ! 2 USET name (e.g. "U1", "U2", "R", etc) @@ -113,7 +113,7 @@ SUBROUTINE BD_USET1 ( CARD, LARGE_FLD_INP ) CALL IP6CHK ( JCARD(3), JCARDO, IP6TYP, IDUM ) ! Read field 3: components IF (IERRFL(3) == 'N') THEN IF ((IP6TYP == 'COMP NOS') .OR. (IP6TYP == 'ZERO ') .OR. (IP6TYP == 'BLANK ')) THEN - CALL I4FLD ( JCARDO, JF(3), COMPJ ) + CALL I4FLD ( JCARDO, JF(3), COMPJ ) ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 @@ -132,37 +132,37 @@ SUBROUTINE BD_USET1 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** ! Format # 2 - IF (TOKTYP == 'THRU ') THEN - + IF (TOKTYP == 'THRU ') THEN + JERR = 0 IF (JCARD(4)(1:) /= ' ') THEN ! Get 1st Grid ID, GRIDJ1 CALL I4FLD ( JCARD(4), JF(4), GRIDJ1 ) - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1125) 'GRID POINT', JF(4), JCARD(1) WRITE(F06,1125) 'GRID POINT', JF(4), JCARD(1) ENDIF - + IF (JCARD(6)(1:) /= ' ') THEN ! Get 2nd Grid ID, GRIDJ2 CALL I4FLD ( JCARD(6), JF(6), GRIDJ2 ) - ELSE + ELSE JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1125) 'GRID POINT', JF(6), JCARD(1) WRITE(F06,1125) 'GRID POINT', JF(6), JCARD(1) ENDIF - + IF ((IERRFL(4)=='N') .AND. (IERRFL(5)=='N')) THEN ! Check GRIDJ2 > GRIDJ1 if there were no errors reading them IF (GRIDJ2 < GRIDJ1) THEN JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1128) JCARD(1), JCARD(2) - WRITE(F06,1128) JCARD(1), JCARD(2) + WRITE(ERR,1128) JCARD(1), JCARD(2) + WRITE(F06,1128) JCARD(1), JCARD(2) ENDIF - ENDIF - + ENDIF + CALL BD_IMBEDDED_BLANK ( JCARD,2,0,4,5,6,0,0,0 ) ! Make sure that there are no imbedded blanks in fields 2,4,5,6 CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,0,0,0,7,8,9 )! Issue warning if fields 7,8,9 not blank CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -175,8 +175,8 @@ SUBROUTINE BD_USET1 ( CARD, LARGE_FLD_INP ) ! ********************************************************************************************************************************** ! Format # 1 - ELSE IF ((TOKTYP == 'INTEGER ') .OR. (TOKTYP == 'BLANK ')) THEN - + ELSE IF ((TOKTYP == 'INTEGER ') .OR. (TOKTYP == 'BLANK ')) THEN + ! Read and check data on parent card DO J=4,9 ! Read fields 4-9: Grid ID's. @@ -184,14 +184,14 @@ SUBROUTINE BD_USET1 ( CARD, LARGE_FLD_INP ) CYCLE ELSE CALL I4FLD ( JCARD(J), JF(J), GRIDJ1 ) ! Read another grid ID - IF ((JERR == 0) .AND. (IERRFL(J) == 'N')) THEN + IF ((JERR == 0) .AND. (IERRFL(J) == 'N')) THEN NUM_USET_RECORDS = NUM_USET_RECORDS + 1 ! Incr count of number of entries written to file LINK1X WRITE(L1X) USET_NAME, COMPJ, GRIDJ1, GRIDJ1 ELSE JERR = JERR + 1 ENDIF ENDIF - ENDDO + ENDDO CALL BD_IMBEDDED_BLANK ( JCARD,2,0,4,5,6,7,8,9 ) ! Make sure there are no imbeded blanks fields 2-9, except 3 (components) CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields @@ -239,8 +239,8 @@ SUBROUTINE BD_USET1 ( CARD, LARGE_FLD_INP ) WRITE(F06,1100) JCARD(1) ENDIF - ELSE ! Error - Field 5 did not have "THRU", or an integer, or was blank - + ELSE ! Error - Field 5 did not have "THRU", or an integer, or was blank + FATAL_ERR = FATAL_ERR+1 WRITE(ERR,1127) JF(5), JCARD(1) WRITE(F06,1127) JF(5), JCARD(1) diff --git a/Source/LK1/L1A-CC/CC_ACCE.f90 b/Source/LK1/L1A-CC/CC_ACCE.f90 index 7c5f901f..06b774b9 100644 --- a/Source/LK1/L1A-CC/CC_ACCE.f90 +++ b/Source/LK1/L1A-CC/CC_ACCE.f90 @@ -1,53 +1,53 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_ACCE ( CARD ) - + ! Processes Case Control ACCE cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : PCHSTAT - USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD + USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : ACCE_OUT USE MODEL_STUF, ONLY : SC_ACCE - + USE CC_ACCE_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_ACCE' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE) :: FOUND_PRINT ! CC_CMD_DESCRIBERS has request for "PRINT" CHARACTER( 1*BYTE) :: FOUND_PUNCH ! CC_CMD_DESCRIBERS has request for "PUNCH" - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: SETID ! Set ID on this Case Control card - + ! ********************************************************************************************************************************** @@ -71,19 +71,19 @@ SUBROUTINE CC_ACCE ( CARD ) IF ( ACCE_OUT(1:) == ' ') ACCE_OUT(1:5) = 'PRINT' ! Neither PRINT or PUNCH found so default to PRINT ! Set CASE CONTROL output request variable to SETID - + IF (NSUB == 0) THEN DO I = 1,LSUB SC_ACCE(I) = SETID - ENDDO + ENDDO ELSE SC_ACCE(NSUB) = SETID ENDIF - + RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_ACCE + + END SUBROUTINE CC_ACCE diff --git a/Source/LK1/L1A-CC/CC_DISP.f90 b/Source/LK1/L1A-CC/CC_DISP.f90 index 0f70f18c..a08c4a87 100644 --- a/Source/LK1/L1A-CC/CC_DISP.f90 +++ b/Source/LK1/L1A-CC/CC_DISP.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_DISP ( CARD ) - + ! Processes Case Control cards for requests for displacement outputs ! - DISP: displacement USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : PCHSTAT - USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD + USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : DISP_OUT USE MODEL_STUF, ONLY : SC_DISP - + USE CC_DISP_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_DISP' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE) :: FOUND_PRINT ! CC_CMD_DESCRIBERS has request for "PRINT" @@ -50,7 +50,7 @@ SUBROUTINE CC_DISP ( CARD ) INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: SETID ! Set ID on this Case Control card - + ! ********************************************************************************************************************************** @@ -84,15 +84,15 @@ SUBROUTINE CC_DISP ( CARD ) IF (NSUB == 0) THEN DO I = 1,LSUB SC_DISP(I) = SETID - ENDDO + ENDDO ELSE SC_DISP(NSUB) = SETID ENDIF - + RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_DISP + + END SUBROUTINE CC_DISP diff --git a/Source/LK1/L1A-CC/CC_ECHO.f90 b/Source/LK1/L1A-CC/CC_ECHO.f90 index 6c24aebd..d05e38dd 100644 --- a/Source/LK1/L1A-CC/CC_ECHO.f90 +++ b/Source/LK1/L1A-CC/CC_ECHO.f90 @@ -1,56 +1,56 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_ECHO ( CARD ) - + ! Processes Case Control ECHO cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN - + USE CC_ECHO_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_ECHO' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=LEN(CARD)) :: CARD1 ! CARD shifted to begin in col after "=" sign - + INTEGER(LONG) :: ECOL ! Col, on CARD, where "=" sign is located INTEGER(LONG) :: IERR ! Output from subr CSHIFT indicating an error - + ! ********************************************************************************************************************************** -! Process ECHO card - +! Process ECHO card + CALL CSHIFT ( CARD, '=', CARD1, ECOL, IERR ) IF (IERR == 0) THEN IF (CARD1(1:4) == 'NONE') THEN @@ -77,16 +77,16 @@ SUBROUTINE CC_ECHO ( CARD ) ENDIF ECHO = 'UNSORT' ENDIF - + RETURN ! ********************************************************************************************************************************** 8863 FORMAT(' *WARNING : ERROR ON CASE CONTROL DECK ECHO CARD. ENTRY = ',A8,' INCORRECT. DEFAULT UNSORT WILL BE USED') - + 8876 FORMAT(' *WARNING : MISSING EQUAL (=) SIGN ON CASE CONTROL ECHO CARD. DEFAULT UNSORT WILL BE USED') ! ********************************************************************************************************************************** - + END SUBROUTINE CC_ECHO diff --git a/Source/LK1/L1A-CC/CC_ELDA.f90 b/Source/LK1/L1A-CC/CC_ELDA.f90 index fe218401..c0137f08 100644 --- a/Source/LK1/L1A-CC/CC_ELDA.f90 +++ b/Source/LK1/L1A-CC/CC_ELDA.f90 @@ -1,47 +1,47 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_ELDA ( CARD ) - + ! Processes Case Control ELDATA cards ! NOTE: The coding assumes that ELDATA(i,BOTH) is only valid for i >= IOUTMIN_FIJ (which is 1) and i <= IOUTMAX_FIJ (which is 5) ! ---- - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, WARN_ERR, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : CCELDT - + USE CC_ELDA_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_ELDA' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=LEN(CARD)) :: ERRTOK ! Character string that holds part of an error message from subr STOKEN @@ -49,9 +49,9 @@ SUBROUTINE CC_ELDA ( CARD ) CHARACTER( 1*BYTE) :: FIJFIL_WARN = 'N' ! Set to 'Y' if warning message written for FIJFIL option CHARACTER( 3*BYTE) :: THRU ! An input/output for subr STOKEN CHARACTER( 8*BYTE) :: TOKEN(3) ! Char string output from subr STOKEN, called herein - CHARACTER(LEN=LEN(CARD)) :: TOKSTR ! Character string to tokenize + CHARACTER(LEN=LEN(CARD)) :: TOKSTR ! Character string to tokenize CHARACTER( 8*BYTE) :: TOKTYP(3) ! Type of the char TOKEN's output from subr STOKEN, called herein - + INTEGER(LONG) :: ICOL1 = 0 ! Location, in CARD, where "(" begins INTEGER(LONG) :: ICOL2 = 0 ! Location, in CARD, where ")" begins INTEGER(LONG) :: IERROR ! An output from subr STOKEN, called herein @@ -67,20 +67,20 @@ SUBROUTINE CC_ELDA ( CARD ) INTEGER(LONG) :: STRNG_LEN = 0 ! Length of character string between "()" in the ELDATA card INTEGER(LONG) :: TOKEN_BEG = 0 ! An input to subr STOKEN, called herein - + INTRINSIC INDEX - + ! ********************************************************************************************************************************** ! Process ELDATA cards. - + ! Processes element debug output or disk file output. Card format is: ! ELDATA(i,PRINT or FIJFIL or BOTH) = NONE or ALL or SETID ! where i is 0,1,2,3,4 or 5 and either PRINT or FIJFIL or BOTH must be selected. i determines kind of elem output. - + ! First get i,PRINT, FIJFIL between (). CCELDT(j) array will be set equal to: ! 1) -1 if "ALL" is requested, @@ -108,11 +108,11 @@ SUBROUTINE CC_ELDA ( CARD ) ! requested by setting bit j-1 in array ELDAT to 1 if CCELDT(j) is nonzero ! Find out if "NONE", "ALL" or SETID - - CALL GET_ANSID ( CARD, SETID ) - + + CALL GET_ANSID ( CARD, SETID ) + ! Get data in between () - + ICOL1 = INDEX(CARD(1:),'(') ICOL2 = INDEX(CARD(1:),')') STRNG_LEN = ICOL2 - ICOL1 - 1 @@ -121,19 +121,19 @@ SUBROUTINE CC_ELDA ( CARD ) WRITE(ERR,1201) WRITE(F06,1201) RETURN - ELSE IF (STRNG_LEN < 1) THEN + ELSE IF (STRNG_LEN < 1) THEN FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1202) WRITE(F06,1202) RETURN ELSE - + ! Read 1st token after opening paren: "(". Need to make sure that the token is: ! 1) An integer : TOKTYP(1) /= 'INTEGER ', ! 2) Integer has <= 8 digits : IERROR /= 0, and -! 3) Integer starts before closing paren, ")" : - +! 3) Integer starts before closing paren, ")" : + TOKSTR(1:STRNG_LEN) = CARD(ICOL1+1:ICOL2-1) TOKEN_BEG = 1 THRU = 'OFF' @@ -151,7 +151,7 @@ SUBROUTINE CC_ELDA ( CARD ) WRITE(ERR,1264) WRITE(F06,1264) ENDIF - IF (TOKEN_BEG <= STRNG_LEN) THEN + IF (TOKEN_BEG <= STRNG_LEN) THEN THRU = 'OFF' EXCEPT = 'OFF' @@ -204,10 +204,10 @@ SUBROUTINE CC_ELDA ( CARD ) IF (FIJFIL_WARN == 'N') THEN WARN_ERR = WARN_ERR + 1 ENDIF - ENDIF + ENDIF ENDIF ENDIF - + ! xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ! As of 03/07/2020 there is some error in the calculation of the check on strain displ matrices for RB and constant strain modes ! of displacement. Therefore, this check is temporarily suspended @@ -255,5 +255,5 @@ SUBROUTINE CC_ELDA ( CARD ) 'until an error in the calculation is fixed. This can be overridden with DEBUG(202) > 0') ! ********************************************************************************************************************************** - + END SUBROUTINE CC_ELDA diff --git a/Source/LK1/L1A-CC/CC_ELFO.f90 b/Source/LK1/L1A-CC/CC_ELFO.f90 index 5c349efd..2f45d026 100644 --- a/Source/LK1/L1A-CC/CC_ELFO.f90 +++ b/Source/LK1/L1A-CC/CC_ELFO.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_ELFO ( CARD ) ! Processes Case Control ELFO (elforce) entries @@ -37,7 +37,7 @@ SUBROUTINE CC_ELFO ( CARD ) USE CC_ELFO_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_ELFO' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE) :: FOUND_PRINT ! CC_CMD_DESCRIBERS has request for "PRINT" @@ -49,11 +49,11 @@ SUBROUTINE CC_ELFO ( CARD ) CHARACTER( 1*BYTE) :: FOUND_BOTH ! CC_CMD_DESCRIBERS has request for "BOTH" CHARACTER( 1*BYTE) :: FOUND_ENGR ! CC_CMD_DESCRIBERS has request for "ENGR" CHARACTER( 1*BYTE) :: FOUND_NODE ! CC_CMD_DESCRIBERS has request for "NODE" - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: SETID ! Set ID on this Case Control card - + ! ********************************************************************************************************************************** @@ -99,32 +99,32 @@ SUBROUTINE CC_ELFO ( CARD ) DO I = 1,LSUB SC_ELFE(I) = SETID SC_ELFN(I) = SETID - ENDDO + ENDDO ELSE SC_ELFE(NSUB) = SETID SC_ELFN(NSUB) = SETID ENDIF - + ELSE IF (FOUND_NODE == 'Y') THEN IF (NSUB == 0) THEN DO I = 1,LSUB SC_ELFN(I) = SETID - ENDDO + ENDDO ELSE SC_ELFN(NSUB) = SETID ENDIF - + ELSE ! Default is ENGR IF (NSUB == 0) THEN DO I = 1,LSUB SC_ELFE(I) = SETID - ENDDO + ENDDO ELSE SC_ELFE(NSUB) = SETID ENDIF - + ENDIF @@ -132,5 +132,5 @@ SUBROUTINE CC_ELFO ( CARD ) RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_ELFO + + END SUBROUTINE CC_ELFO diff --git a/Source/LK1/L1A-CC/CC_ENFO.f90 b/Source/LK1/L1A-CC/CC_ENFO.f90 index 6465cb87..a5ca0750 100644 --- a/Source/LK1/L1A-CC/CC_ENFO.f90 +++ b/Source/LK1/L1A-CC/CC_ENFO.f90 @@ -1,57 +1,57 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_ENFO ( CARD ) - + ! Processes Case Control ENFO (ENFORCED) entries - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ENFFIL, ERR, F06 USE SCONTR, ONLY : WARN_ERR, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN - + USE CC_ENFO_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_ENFO' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=LEN(CARD)) :: CARD1 ! CARD shifted to begin in col after "=" sign - + INTEGER(LONG) :: ECOL ! Col, on CARD, where "=" sign is located INTEGER(LONG) :: IEND ! Col where end of data is on CARD1 INTEGER(LONG) :: IERR ! Output from subr CSHIFT indicating an error - + ! ********************************************************************************************************************************** -! Process ENFORCED card - +! Process ENFORCED card + CALL CSHIFT ( CARD, '=', CARD1, ECOL, IERR ) IF (IERR /= 0) THEN WARN_ERR = WARN_ERR + 1 @@ -63,14 +63,14 @@ SUBROUTINE CC_ENFO ( CARD ) CALL GET_CHAR_STRING_END ( CARD1, IEND ) ENFFIL = CARD1(1:IEND) - + RETURN ! ********************************************************************************************************************************** 8862 FORMAT(' *WARNING : MISSING EQUAL (=) SIGN ON CASE CONTROL CARD: (TITLE, SUBTITLE, LABEL OR ENFORCED).') - + ! ********************************************************************************************************************************** - + END SUBROUTINE CC_ENFO diff --git a/Source/LK1/L1A-CC/CC_GPFO.f90 b/Source/LK1/L1A-CC/CC_GPFO.f90 index e8f7c099..17d7e7cb 100644 --- a/Source/LK1/L1A-CC/CC_GPFO.f90 +++ b/Source/LK1/L1A-CC/CC_GPFO.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_GPFO ( CARD ) - - ! Processes Case Control GPFO cards that define grid point force balance output requests + + ! Processes Case Control GPFO cards that define grid point force balance output requests USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : GPFO_OUT USE MODEL_STUF, ONLY : SC_GPFO - + USE CC_GPFO_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_GPFO' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE) :: FOUND_PRINT ! CC_CMD_DESCRIBERS has request for "PRINT" @@ -44,11 +44,11 @@ SUBROUTINE CC_GPFO ( CARD ) CHARACTER( 1*BYTE) :: FOUND_PUNCH ! CC_CMD_DESCRIBERS has request for "PUNCH" CHARACTER( 1*BYTE) :: FOUND_NEU ! CC_CMD_DESCRIBERS has request for "NEU" CHARACTER( 1*BYTE) :: FOUND_CSV ! CC_CMD_DESCRIBERS has request for "CSV" - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: SETID ! Set ID on this Case Control card - + ! ********************************************************************************************************************************** @@ -81,15 +81,15 @@ SUBROUTINE CC_GPFO ( CARD ) IF (NSUB == 0) THEN DO I = 1,LSUB SC_GPFO(I) = SETID - ENDDO + ENDDO ELSE SC_GPFO(NSUB) = SETID ENDIF - + RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_GPFO + + END SUBROUTINE CC_GPFO diff --git a/Source/LK1/L1A-CC/CC_LABE.f90 b/Source/LK1/L1A-CC/CC_LABE.f90 index 1ad01398..dd6e829b 100644 --- a/Source/LK1/L1A-CC/CC_LABE.f90 +++ b/Source/LK1/L1A-CC/CC_LABE.f90 @@ -1,58 +1,58 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_LABE ( CARD ) - + ! Processes Case Control LABEL cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : WARN_ERR, LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : LABEL - + USE CC_LABE_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_LABE' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=LEN(CARD)) :: CARD1 ! CARD shifted to begin in col after "=" sign - + INTEGER(LONG) :: ECOL ! Col, on CARD, where "=" sign is located INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! Output from subr CSHIFT indicating an error - + ! ********************************************************************************************************************************** -! Process LABEL card - +! Process LABEL card + CALL CSHIFT ( CARD, '=', CARD1, ECOL, IERR ) IF (IERR /= 0) THEN WARN_ERR = WARN_ERR + 1 @@ -66,16 +66,16 @@ SUBROUTINE CC_LABE ( CARD ) ELSE DO I = 1,LSUB LABEL(I) = CARD1 - ENDDO + ENDDO ENDIF - + RETURN ! ********************************************************************************************************************************** 8862 FORMAT(' *WARNING : MISSING EQUAL (=) SIGN ON CASE CONTROL CARD: (TITLE, SUBTITLE OR LABEL).') - + ! ********************************************************************************************************************************** - + END SUBROUTINE CC_LABE diff --git a/Source/LK1/L1A-CC/CC_LOAD.f90 b/Source/LK1/L1A-CC/CC_LOAD.f90 index c31c0026..5ced2f1b 100644 --- a/Source/LK1/L1A-CC/CC_LOAD.f90 +++ b/Source/LK1/L1A-CC/CC_LOAD.f90 @@ -1,61 +1,61 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_LOAD ( CARD ) - + ! Processes Case Control LOAD cards that define load sets to be applied - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : SUBLOD - + USE CC_LOAD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_LOAD' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: SETID ! Set ID on this Case Control card - + ! ********************************************************************************************************************************** -! Process LOAD cards - +! Process LOAD cards + ! Get SETID - + CALL GET_SETID ( CARD, SETID ) - + ! Set CASE CONTROL variable to SETID - + IF (NSUB /= 0) THEN SUBLOD(NSUB,1) = SETID ELSE @@ -63,11 +63,11 @@ SUBROUTINE CC_LOAD ( CARD ) SUBLOD(I,1) = SETID ENDDO ENDIF - + RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_LOAD + + END SUBROUTINE CC_LOAD diff --git a/Source/LK1/L1A-CC/CC_METH.f90 b/Source/LK1/L1A-CC/CC_METH.f90 index c9d01a27..595de24d 100644 --- a/Source/LK1/L1A-CC/CC_METH.f90 +++ b/Source/LK1/L1A-CC/CC_METH.f90 @@ -1,61 +1,61 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_METH ( CARD ) - + ! Processes Case Control eigenvalue METHOD cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : WARN_ERR, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : CC_EIGR_SID - + USE CC_METH_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_METH' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG) :: SETID ! Set ID on this Case Control card - + ! ********************************************************************************************************************************** -! Process METHOD cards - +! Process METHOD cards + ! Get SETID - + CALL GET_SETID ( CARD, SETID ) - + ! Set CASE CONTROL variable to SETID - + IF (CC_EIGR_SID == 0) THEN CC_EIGR_SID = SETID ELSE @@ -66,14 +66,14 @@ SUBROUTINE CC_METH ( CARD ) WRITE(F06,8866) ENDIF ENDIF - + RETURN ! ********************************************************************************************************************************** 8866 FORMAT(' *WARNING : MORE THAN ONE METHOD ENTRY IN CASE CONTROL. LAST ONE READ WILL BE USED') - + ! ********************************************************************************************************************************** - + END SUBROUTINE CC_METH diff --git a/Source/LK1/L1A-CC/CC_MPC.f90 b/Source/LK1/L1A-CC/CC_MPC.f90 index d7d321c3..aa1cac23 100644 --- a/Source/LK1/L1A-CC/CC_MPC.f90 +++ b/Source/LK1/L1A-CC/CC_MPC.f90 @@ -1,61 +1,61 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_MPC ( CARD ) - + ! Processes Case Control MPC cards for defining MPC set ID's - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : MPCSETS - + USE CC_MPC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_MPC' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG) :: SETID ! Set ID on this Case Control card INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** ! Process MPC cards - + ! Get SETID - + CALL GET_SETID ( CARD ,SETID ) - + ! Set Case Control variable to SETID - + IF (NSUB /= 0) THEN MPCSETS(NSUB) = SETID ELSE @@ -68,5 +68,5 @@ SUBROUTINE CC_MPC ( CARD ) RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_MPC + + END SUBROUTINE CC_MPC diff --git a/Source/LK1/L1A-CC/CC_MPCF.f90 b/Source/LK1/L1A-CC/CC_MPCF.f90 index 3510dc3e..bc28bf1b 100644 --- a/Source/LK1/L1A-CC/CC_MPCF.f90 +++ b/Source/LK1/L1A-CC/CC_MPCF.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_MPCF ( CARD ) - + ! Processes Case Control cards for requests for MPC force output requests ! - MPCF: MPC force USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -34,11 +34,11 @@ SUBROUTINE CC_MPCF ( CARD ) USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : MPCF_OUT USE MODEL_STUF, ONLY : SC_MPCF - + USE CC_MPCF_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_MPCF' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE) :: FOUND_PRINT ! CC_CMD_DESCRIBERS has request for "PRINT" @@ -50,7 +50,7 @@ SUBROUTINE CC_MPCF ( CARD ) INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: SETID ! Set ID on this Case Control card - + ! ********************************************************************************************************************************** @@ -84,15 +84,15 @@ SUBROUTINE CC_MPCF ( CARD ) IF (NSUB == 0) THEN DO I = 1,LSUB SC_MPCF(I) = SETID - ENDDO + ENDDO ELSE SC_MPCF(NSUB) = SETID ENDIF - + RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_MPCF + + END SUBROUTINE CC_MPCF diff --git a/Source/LK1/L1A-CC/CC_NLPARM.f90 b/Source/LK1/L1A-CC/CC_NLPARM.f90 index c47faeb5..eaa4e37e 100644 --- a/Source/LK1/L1A-CC/CC_NLPARM.f90 +++ b/Source/LK1/L1A-CC/CC_NLPARM.f90 @@ -1,61 +1,61 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_NLPARM ( CARD ) - + ! Processes Case Control NLPARM cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LSUB, NSUB, SOL_NAME USE TIMDAT, ONLY : TSEC USE NONLINEAR_PARAMS, ONLY : NL_SID - + USE CC_NLPARM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_NLPARM' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: SETID ! Set ID on this Case Control card - + ! ********************************************************************************************************************************** ! Process NLPARM cards - + ! Find out if "NONE", "ALL" or SETID - - CALL GET_SETID ( CARD, SETID ) - + + CALL GET_SETID ( CARD, SETID ) + ! Set CASE CONTROL variable to SETID - + IF (SOL_NAME(1:8) == 'NLSTATIC') THEN IF (NSUB /= 0) THEN NL_SID(NSUB) = SETID @@ -69,7 +69,7 @@ SUBROUTINE CC_NLPARM ( CARD ) WRITE(ERR,1203) 'NLPARM' WRITE(F06,1203) 'NLPARM' ENDIF - + RETURN @@ -79,4 +79,4 @@ SUBROUTINE CC_NLPARM ( CARD ) ! ********************************************************************************************************************************** - END SUBROUTINE CC_NLPARM + END SUBROUTINE CC_NLPARM diff --git a/Source/LK1/L1A-CC/CC_OLOA.f90 b/Source/LK1/L1A-CC/CC_OLOA.f90 index c93b97e9..4ca2263e 100644 --- a/Source/LK1/L1A-CC/CC_OLOA.f90 +++ b/Source/LK1/L1A-CC/CC_OLOA.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_OLOA ( CARD ) - + ! Processes Case Control cards for requests for applied load requests ! - OLOA: applied load USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -34,11 +34,11 @@ SUBROUTINE CC_OLOA ( CARD ) USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : OLOA_OUT USE MODEL_STUF, ONLY : SC_OLOA - + USE CC_OLOA_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_OLOA' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE) :: FOUND_PRINT ! CC_CMD_DESCRIBERS has request for "PRINT" @@ -50,7 +50,7 @@ SUBROUTINE CC_OLOA ( CARD ) INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: SETID ! Set ID on this Case Control card - + ! ********************************************************************************************************************************** @@ -84,15 +84,15 @@ SUBROUTINE CC_OLOA ( CARD ) IF (NSUB == 0) THEN DO I = 1,LSUB SC_OLOA(I) = SETID - ENDDO + ENDDO ELSE SC_OLOA(NSUB) = SETID ENDIF - + RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_OLOA + + END SUBROUTINE CC_OLOA diff --git a/Source/LK1/L1A-CC/CC_OUTPUTS.f90 b/Source/LK1/L1A-CC/CC_OUTPUTS.f90 index aeb097c6..36f0cda4 100644 --- a/Source/LK1/L1A-CC/CC_OUTPUTS.f90 +++ b/Source/LK1/L1A-CC/CC_OUTPUTS.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_OUTPUTS ( CARD, WHAT, SETID ) - + ! Process the character string in parens for the following Case Control output request entries (e.g. SORT1, PRINT, etc) ! ACCE() @@ -38,21 +38,21 @@ SUBROUTINE CC_OUTPUTS ( CARD, WHAT, SETID ) ! STRE() ! STRN() - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR - USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NCCCD, NSUB + USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NCCCD, NSUB USE TIMDAT, ONLY : TSEC - + USE CC_OUTPUTS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_OUTPUTS' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=*), INTENT(IN) :: WHAT ! Which CC type output to process (e.g., DISP, SPCF, etc) CHARACTER(LEN=LEN(CARD)) :: CHAR_STRING ! Character string between parens () if it exists - + INTEGER(LONG), INTENT(OUT) :: SETID ! Set ID on this Case Control card INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: ICOL1 = 0 ! Location, in CARD, where "(" begins @@ -61,7 +61,7 @@ SUBROUTINE CC_OUTPUTS ( CARD, WHAT, SETID ) INTEGER(LONG) :: NUM_WORDS = 0 ! Number of words in the string between parens (), if present INTEGER(LONG) :: STRING_LEN = 0 ! Length of character string between "()" in the ELDATA card - + ! ********************************************************************************************************************************** @@ -74,13 +74,13 @@ SUBROUTINE CC_OUTPUTS ( CARD, WHAT, SETID ) DO I=1,NCCCD CC_CMD_DESCRIBERS(I)(1:) = ' ' ENDDO - + ! Find out if "NONE", "ALL" or SETID - - CALL GET_ANSID ( CARD, SETID ) - + + CALL GET_ANSID ( CARD, SETID ) + ! Find out if there is data enclosed between parens (). If so, STRING_LEN will be > 0. - + ICOL1 = INDEX(CARD(1:),'(') ICOL2 = INDEX(CARD(1:),')') STRING_LEN = ICOL2 - ICOL1 - 1 @@ -111,5 +111,5 @@ SUBROUTINE CC_OUTPUTS ( CARD, WHAT, SETID ) RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_OUTPUTS + + END SUBROUTINE CC_OUTPUTS diff --git a/Source/LK1/L1A-CC/CC_SET.f90 b/Source/LK1/L1A-CC/CC_SET.f90 index 14d535b5..69e5d29f 100644 --- a/Source/LK1/L1A-CC/CC_SET.f90 +++ b/Source/LK1/L1A-CC/CC_SET.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_SET ( CARD ) - + ! Processes Case Control SET cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, IN1 USE IOUNT1, ONLY : WRT_ERR USE SCONTR, ONLY : CC_ENTRY_LEN, FATAL_ERR, LSETS, LSETLN, MAX_TOKEN_LEN, NSETS, SETLEN, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ALL_SETS_ARRAY, SETS_IDS - + USE CC_SET_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_SET' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=LEN(CARD)) :: CARD1 ! SET card read from C.C deck @@ -51,7 +51,7 @@ SUBROUTINE CC_SET ( CARD ) CHARACTER( 8*BYTE) :: TOKTYP(3) ! Type of the char TOKEN's output from subr STOKEN, called herein CHARACTER(LSETLN*BYTE) :: TOKSTR_PART ! TOKSTR_WHOLE without the "SET setid =" and following blanks CHARACTER(LSETLN*BYTE) :: TOKSTR_WHOLE ! All characters that are in the current SET, including "SET setid =" - + INTEGER(LONG) :: DATA_BEG ! Posn in TOKSTR_WHOLE where data begins (after "SET setid =" and blanks) INTEGER(LONG) :: DATA_END ! Posn in TOKSTR_WHOLE where data ends INTEGER(LONG) :: ECOL = 0 ! Col, on CARD, where "=" sign is located @@ -72,24 +72,24 @@ SUBROUTINE CC_SET ( CARD ) INTEGER(LONG) :: SETID = 0 ! Set ID on this Case Control card INTEGER(LONG) :: TOKLEN = 0 ! DATA_END - DATA_BEG + 1 (an input to subr STOKEN, called herein) - + INTRINSIC INDEX - + ! ********************************************************************************************************************************** -! Process SET cards +! Process SET cards - CARD1 = CARD + CARD1 = CARD ! Check for SET cards. These can have continuation if last entry is a comma. Need to make sure that equal sign is ! included for use in subroutine SETPRO which processes the character string ALL_SETS_ARRAY. A logical SET card ! consists of all physical cards in a set. This is written to ALL_SETS_ARRAY beginning with 'SET' and ending with ! the last entry on the last physical card for the set. Subsequent SET cards are written immediately after the ! previous entry in ALL_SETS_ARRAY. - + ! Make sure equal sign is in. We use it later in subcase processor - + ECOL = INDEX(CARD1(1:),'=') IF (ECOL == 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -97,9 +97,9 @@ SUBROUTINE CC_SET ( CARD ) WRITE(F06,1267) RETURN ENDIF - + ! Now find SET ID and check for proper type ('INTEGER ') - + SETID = 0 TOKEN(1) = ' ' SETERR = 0 @@ -115,8 +115,8 @@ SUBROUTINE CC_SET ( CARD ) EXIT ENDIF TOKEN(1)(K:K) = CARD1(I:I) - ENDDO - IF (SETERR == 0) THEN + ENDDO + IF (SETERR == 0) THEN CALL TOKCHK ( TOKEN(1), TOKTYP(1) ) IF (TOKTYP(1) /= 'INTEGER ') THEN FATAL_ERR = FATAL_ERR + 1 @@ -143,16 +143,16 @@ SUBROUTINE CC_SET ( CARD ) WRITE(F06,1145) SETID EXIT ENDIF - ENDDO + ENDDO SETS_IDS(NSETS) = SETID - + ! Write SET data to ALL_SETS_ARRAY and check for continuation card(s) in the following DO loop - + DATA_END = 0 main: DO - + ! Get rid of trailing blanks before storing string in ALL_SETS_ARRAY - + IEND = CC_ENTRY_LEN i_do_1: DO I=CC_ENTRY_LEN,1,-1 IF (CARD1(I:I) == ' ') THEN @@ -173,18 +173,18 @@ SUBROUTINE CC_SET ( CARD ) EXIT i_do_2 ENDIF ENDDO i_do_2 - + ! Check length of character string against max allowable length - + IF ((SETLEN + IEND) > LSETLN) THEN FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1268) SUBR_NAME,LSETLN WRITE(F06,1268) SUBR_NAME,LSETLN CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit ENDIF - -! Put data in ALL_SETS_ARRAY (and also write the data to TOKSTR_WHOLE, which will contain only this set) - + +! Put data in ALL_SETS_ARRAY (and also write the data to TOKSTR_WHOLE, which will contain only this set) + i_do_3: DO I=1,IEND ALL_SETS_ARRAY(SETLEN+I) = CARD1(I:I) DATA_END = DATA_END + 1 @@ -197,10 +197,10 @@ SUBROUTINE CC_SET ( CARD ) IF (COMMENT_FOUND == 'Y') THEN EXIT main ENDIF - + ! Is there a continuation card? If last entry is a comma, we assume that the next card is a continuation of the set ! definition. If it is not, then an error will be detected when this set's data is checked for syntax below. - + ICONT = 0 i_do_4: DO I=CC_ENTRY_LEN,1,-1 IF (CARD1(I:I) == ' ') THEN @@ -208,7 +208,7 @@ SUBROUTINE CC_SET ( CARD ) ELSE IF (CARD1(I:I) == ',') THEN ICONT = 1 EXIT i_do_4 - ELSE + ELSE ICONT = 0 EXIT i_do_4 ENDIF @@ -243,7 +243,7 @@ SUBROUTINE CC_SET ( CARD ) FATAL_ERR = FATAL_ERR + 1 WRITE(ERR, 1252) WRITE(ERR,12520) CARD1 - WRITE(ERR,12532) + WRITE(ERR,12532) WRITE(F06, 1252) WRITE(F06,12520) CARD1 WRITE(F06,12532) @@ -255,7 +255,7 @@ SUBROUTINE CC_SET ( CARD ) ! TOKSTR_WHOLE has everything in the current set, including "SET ID =". In TOKSTR_PART (below) we want only the set data, ! which begins after the equal sign (and blanks following the equal sign) in the set definition. ! Find where the data begins. The set data ends at DATA_END. - + DATA_BEG = ECOL + 1 DO I=DATA_BEG,DATA_END IF (TOKSTR_WHOLE(I:I) == ' ') THEN @@ -263,23 +263,23 @@ SUBROUTINE CC_SET ( CARD ) ELSE EXIT ENDIF - ENDDO - + ENDDO + ! Strip, from TOKSTR_WHOLE, everything up to the beginning of the set data (i.e., strip "SET ID = " ) and put into TOKSTR_PART - + TOKLEN = DATA_END - DATA_BEG + 1 TOKSTR_PART(1:TOKLEN) = TOKSTR_WHOLE(DATA_BEG:DATA_END) - + ! ********************************************************************************************************************************** ! Check syntax of this set data ISTART = 1 THRU = 'OFF' EXCEPT = 'OFF' DO - + ! Call STOKEN in a DO loop until we run out of tokens in TOKSTR_PART. ! We run out of data in the set when ISTART > TOKLEN - + CALL STOKEN ( SUBR_NAME, TOKSTR_PART, ISTART, TOKLEN, NTOKEN, IERROR, TOKTYP, TOKEN, ERRTOK, THRU, EXCEPT ) ! Error: too long a token in the set definition @@ -298,9 +298,9 @@ SUBROUTINE CC_SET ( CARD ) WRITE(F06,*) EXIT - + ! Error: "I1 THRU I2" is missing I2 in the set definition - + ELSE IF (IERROR == 2) THEN FATAL_ERR = FATAL_ERR + 1 @@ -340,9 +340,9 @@ SUBROUTINE CC_SET ( CARD ) WRITE(F06,*) EXIT - + ! Error: found "EXCEPT" but "THRU" had not been turned "ON" yet - + ELSE IF (IERROR == 4) THEN FATAL_ERR = FATAL_ERR + 1 @@ -359,9 +359,9 @@ SUBROUTINE CC_SET ( CARD ) WRITE(F06,*) EXIT - + ! Is the TOKEN a number not connected to a 'THRU'? - + ELSE IF (NTOKEN == 1) THEN IF (TOKTYP(1) == 'INTEGER ') THEN READ(TOKEN(1),'(I8)',IOSTAT=IOCHK1) ACT_ID @@ -384,7 +384,7 @@ SUBROUTINE CC_SET ( CARD ) ELSE IF (EXCEPT == 'ON ') THEN - IF ((ACT_ID >= I1) .AND. (ACT_ID <= I2)) THEN + IF ((ACT_ID >= I1) .AND. (ACT_ID <= I2)) THEN CONTINUE ELSE EXCEPT = 'OFF' @@ -392,7 +392,7 @@ SUBROUTINE CC_SET ( CARD ) ENDIF ENDIF ENDIF - + ELSE IF (TOKTYP(1) == 'EXCEPT ') THEN IF (THRU /= 'ON ') THEN @@ -404,15 +404,15 @@ SUBROUTINE CC_SET ( CARD ) WRITE(ERR,12520) CARD1 WRITE(F06,12520) CARD1 - WRITE(ERR,12525) + WRITE(ERR,12525) WRITE(F06,12525) - + WRITE(F06,*) EXIT ENDIF - + ELSE FATAL_ERR = FATAL_ERR + 1 @@ -431,11 +431,11 @@ SUBROUTINE CC_SET ( CARD ) EXIT ENDIF - + ! TOKEN's connected by 'THRU' - + ELSE IF (NTOKEN == 3) THEN - IF ((TOKTYP(1) == 'INTEGER ') .AND. (TOKTYP(2) == 'THRU ') .AND. (TOKTYP(3) == 'INTEGER ')) THEN + IF ((TOKTYP(1) == 'INTEGER ') .AND. (TOKTYP(2) == 'THRU ') .AND. (TOKTYP(3) == 'INTEGER ')) THEN READ(TOKEN(1),'(I8)',IOSTAT=IOCHK1) I1 IF (IOCHK1 > 0) THEN @@ -447,8 +447,8 @@ SUBROUTINE CC_SET ( CARD ) WRITE(ERR,12520) CARD1 WRITE(F06,12520) CARD1 - WRITE(ERR,12524) - WRITE(F06,12524) + WRITE(ERR,12524) + WRITE(F06,12524) WRITE(F06,*) @@ -466,17 +466,17 @@ SUBROUTINE CC_SET ( CARD ) WRITE(ERR,12520) CARD1 WRITE(F06,12520) CARD1 - WRITE(ERR,12524) - WRITE(F06,12524) + WRITE(ERR,12524) + WRITE(F06,12524) WRITE(F06,*) EXIT ENDIF - + ! Error: "I1 THRU I2" has I1 > I2 - + IF ((IOCHK1 == 0) .AND. (IOCHK2 == 0)) THEN IF (I1 > I2) THEN @@ -496,9 +496,9 @@ SUBROUTINE CC_SET ( CARD ) EXIT ENDIF - - ENDIF - + + ENDIF + ELSE FATAL_ERR = FATAL_ERR + 1 @@ -517,9 +517,9 @@ SUBROUTINE CC_SET ( CARD ) EXIT ENDIF - + ! Error: wrong tokens from set definition for some other reason - + ELSE FATAL_ERR = FATAL_ERR + 1 @@ -530,15 +530,15 @@ SUBROUTINE CC_SET ( CARD ) WRITE(F06,*) EXIT - + ENDIF - + IF (ISTART <= TOKLEN) THEN CYCLE ELSE EXIT ENDIF - + ENDDO @@ -584,7 +584,7 @@ SUBROUTINE CC_SET ( CARD ) 1268 FORMAT(' *ERROR 1268: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MUCH SET DATA. LIMIT IS ',I8,' CHARACTERS.') - + 1269 FORMAT(' *ERROR 1269: ERROR READING CASE CONTROL SET CONTINUATION ENTRY. ENTRY IGNORED') 1272 FORMAT(' *ERROR 1272: SET ID ON CASE CONTROL SET ENTRY CANNOT BE HAVE MORE THAN ',I4,' DIGITS') @@ -592,10 +592,10 @@ SUBROUTINE CC_SET ( CARD ) 1273 FORMAT(' *ERROR 1273: THE SET ID ON ABOVE CASE CONTROL SET ENTRY IS NOT AN INTEGER') 1145 FORMAT(' *ERROR 1145: DUPLICATE SET ENTRY WITH ID = ',I8) - + 1163 FORMAT(' *ERROR 1163: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' TOO MANY ',A,' ENTRIES; LIMIT = ',I12) ! ********************************************************************************************************************************** - - END SUBROUTINE CC_SET + + END SUBROUTINE CC_SET diff --git a/Source/LK1/L1A-CC/CC_SET0.f90 b/Source/LK1/L1A-CC/CC_SET0.f90 index d744d5c4..a31a14a6 100644 --- a/Source/LK1/L1A-CC/CC_SET0.f90 +++ b/Source/LK1/L1A-CC/CC_SET0.f90 @@ -1,51 +1,51 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_SET0 ( CARD ) - + ! Processes Case Control SET cards to determine LSETLN, the length of all SET characters that go into array ! ALL_STES_ARRAY. No error messages are written if, in trying to determine LSETLN, errors occur. This subr returns ! and, when CC_SET runs (when called by LOADC), it will discover the same errors and report them before attempting ! to write characters to ALL_SETS_ARRAY - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, IN1 USE SCONTR, ONLY : BLNK_SUB_NAM, CC_ENTRY_LEN, LSETLN USE TIMDAT, ONLY : TSEC - + USE CC_SET0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_SET0' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=LEN(CARD)) :: CARD1 ! SET card read from C.C deck CHARACTER( 8*BYTE) :: TOKEN ! An 8 char string from the SET card where the set ID should be located CHARACTER( 8*BYTE) :: TOKTYP ! The type of the char string TOKEN - + INTEGER(LONG) :: ECOL = 0 ! Col, on CARD, where "=" sign is located INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: ICONT = 0 ! Indicator if there is a cont card (yes if last entry is ",") @@ -54,29 +54,29 @@ SUBROUTINE CC_SET0 ( CARD ) INTEGER(LONG) :: K = 0 ! Counter INTEGER(LONG) :: SETERR = 0 ! Error indicator as set ID is read - + INTRINSIC INDEX - + ! ********************************************************************************************************************************** CARD1 = CARD -! Process SET cards only to count LSETLN. Later processing in CC_SET will put data into ALL_SETS_ARRAY. - +! Process SET cards only to count LSETLN. Later processing in CC_SET will put data into ALL_SETS_ARRAY. + ! Check for SET cards. These can have continuation if last entry is a comma. Need to make sure that equal sign is ! included for use in subr SETPRO which processes the character string ALL_SETS_ARRAY. A logical SET card consists ! of all physical cards in a set. - + ! Make sure equal sign is in. We use it later in subcase processor - + ECOL = INDEX(CARD1(1:),'=') IF (ECOL == 0) THEN RETURN ENDIF - + ! Now find SET ID and check for proper type - + TOKEN = ' ' SETERR = 0 K = 0 @@ -88,20 +88,20 @@ SUBROUTINE CC_SET0 ( CARD ) EXIT ENDIF TOKEN(K:K) = CARD1(I:I) - ENDDO - IF (SETERR == 0) THEN + ENDDO + IF (SETERR == 0) THEN CALL TOKCHK ( TOKEN, TOKTYP ) IF (TOKTYP /= 'INTEGER ') THEN RETURN ENDIF ENDIF - + ! Find out if there are continuation cards (last non-blank entry on this card will be a comma if there is more) - + DO - + ! Get rid of trailing blanks - + MORE = CC_ENTRY_LEN DO I=CC_ENTRY_LEN,1,-1 IF (CARD1(I:I) == ' ') THEN @@ -110,11 +110,11 @@ SUBROUTINE CC_SET0 ( CARD ) EXIT ENDIF ENDDO - + LSETLN = LSETLN + MORE - + ! Find out if last entry is a ',' - + ICONT = 0 DO I=CC_ENTRY_LEN,1,-1 IF (CARD1(I:I) == ' ') THEN @@ -122,12 +122,12 @@ SUBROUTINE CC_SET0 ( CARD ) ELSE IF (CARD1(I:I) == ',') THEN ICONT = 1 EXIT - ELSE + ELSE ICONT = 0 EXIT ENDIF - ENDDO - + ENDDO + IF (ICONT == 1) THEN CALL READ_BDF_LINE(IN1, IOCHK, CARD1) IF (IOCHK > 0) THEN @@ -137,15 +137,15 @@ SUBROUTINE CC_SET0 ( CARD ) ELSE EXIT ENDIF - ENDDO - + ENDDO + RETURN ! ********************************************************************************************************************************** 101 FORMAT(A) - + ! ********************************************************************************************************************************** - - END SUBROUTINE CC_SET0 + + END SUBROUTINE CC_SET0 diff --git a/Source/LK1/L1A-CC/CC_SPC.f90 b/Source/LK1/L1A-CC/CC_SPC.f90 index c027227c..e53cdc82 100644 --- a/Source/LK1/L1A-CC/CC_SPC.f90 +++ b/Source/LK1/L1A-CC/CC_SPC.f90 @@ -1,62 +1,62 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_SPC ( CARD ) - + ! Processes Case Control SPC cards for defining SPC set ID's - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : SPCSETS - + USE CC_SPC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_SPC' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG) :: SETID ! Set ID on this Case Control card INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** ! Process SPC cards - + ! Get SETID - + CALL GET_SETID ( CARD ,SETID ) - + ! Set Case Control variable to SETID - + IF (NSUB /= 0) THEN SPCSETS(NSUB) = SETID ELSE @@ -64,11 +64,11 @@ SUBROUTINE CC_SPC ( CARD ) SPCSETS(I) = SETID ENDDO ENDIF - + RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_SPC + + END SUBROUTINE CC_SPC diff --git a/Source/LK1/L1A-CC/CC_SPCF.f90 b/Source/LK1/L1A-CC/CC_SPCF.f90 index 19dbe451..a563c9f5 100644 --- a/Source/LK1/L1A-CC/CC_SPCF.f90 +++ b/Source/LK1/L1A-CC/CC_SPCF.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_SPCF ( CARD ) - + ! Processes Case Control SPCF cards for SPC force output requests ! - SPCF: SPC force USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -34,11 +34,11 @@ SUBROUTINE CC_SPCF ( CARD ) USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : SPCF_OUT USE MODEL_STUF, ONLY : SC_SPCF - + USE CC_SPCF_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_SPCF' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE) :: FOUND_PRINT ! CC_CMD_DESCRIBERS has request for "PRINT" @@ -50,7 +50,7 @@ SUBROUTINE CC_SPCF ( CARD ) INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: SETID ! Set ID on this Case Control card - + ! ********************************************************************************************************************************** @@ -84,15 +84,15 @@ SUBROUTINE CC_SPCF ( CARD ) IF (NSUB == 0) THEN DO I = 1,LSUB SC_SPCF(I) = SETID - ENDDO + ENDDO ELSE SC_SPCF(NSUB) = SETID ENDIF - + RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_SPCF + + END SUBROUTINE CC_SPCF diff --git a/Source/LK1/L1A-CC/CC_STRE.f90 b/Source/LK1/L1A-CC/CC_STRE.f90 index fbd3ec81..e8fde499 100644 --- a/Source/LK1/L1A-CC/CC_STRE.f90 +++ b/Source/LK1/L1A-CC/CC_STRE.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_STRE ( CARD ) - + ! Processes Case Control STRE cards for element stress output requests USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, LSUB, NSUB, NCCCD USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : STRE_OUT USE MODEL_STUF, ONLY : SC_STRE - + USE CC_STRE_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_STRE' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE) :: FOUND_PRINT ! CC_CMD_DESCRIBERS has request for "PRINT" @@ -48,7 +48,7 @@ SUBROUTINE CC_STRE ( CARD ) INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: SETID ! Set ID on this Case Control card - + ! ********************************************************************************************************************************** @@ -77,20 +77,20 @@ SUBROUTINE CC_STRE ( CARD ) IF (STRE_OUT(1:5) == 'NNNNN') THEN STRE_OUT = 'YNNNN' ENDIF - + ! Set CASE CONTROL output request variable to SETID IF (NSUB == 0) THEN DO I = 1,LSUB SC_STRE(I) = SETID - ENDDO + ENDDO ELSE SC_STRE(NSUB) = SETID ENDIF - + RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_STRE + + END SUBROUTINE CC_STRE diff --git a/Source/LK1/L1A-CC/CC_STRN.f90 b/Source/LK1/L1A-CC/CC_STRN.f90 index 49a63509..d8ec7322 100644 --- a/Source/LK1/L1A-CC/CC_STRN.f90 +++ b/Source/LK1/L1A-CC/CC_STRN.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE CC_STRN ( CARD ) @@ -52,7 +52,7 @@ SUBROUTINE CC_STRN ( CARD ) ! ********************************************************************************************************************************** - ! CC_OUTPUTS processes all output type Case Control entries + ! CC_OUTPUTS processes all output type Case Control entries ! (they all have some common code so it is put there) CALL CC_OUTPUTS ( CARD, 'STRN', SETID ) @@ -82,15 +82,15 @@ SUBROUTINE CC_STRN ( CARD ) IF (NSUB == 0) THEN DO I = 1,LSUB SC_STRN(I) = SETID - ENDDO + ENDDO ELSE SC_STRN(NSUB) = SETID ENDIF - + RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_STRN + + END SUBROUTINE CC_STRN diff --git a/Source/LK1/L1A-CC/CC_SUBC.f90 b/Source/LK1/L1A-CC/CC_SUBC.f90 index e02fe456..f5c0fba3 100644 --- a/Source/LK1/L1A-CC/CC_SUBC.f90 +++ b/Source/LK1/L1A-CC/CC_SUBC.f90 @@ -1,60 +1,60 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_SUBC ( CARD ) - + ! Processes Case Control SUBCASE cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : CC_ENTRY_LEN, FATAL_ERR, LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : SCNUM - + USE CC_SUBC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_SUBC' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=LEN(CARD)) :: CARD1 ! CARD shifted to begin in col after "=" sign CHARACTER(1*BYTE) :: EQUAL_SIGN ! 'Y' if CARD has an = sign between SUBCASE and the subcase number - + INTEGER(LONG) :: ECOL ! Col, on CARD, where "E" is located (last letter of SUBCASE) INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! Output from subr CSHIFT indicating an error INTEGER(LONG) :: JERR ! Error indicator if this subcase number is the same as a previous one INTEGER(LONG) :: SUBCASE_NUM ! Subcase number from the SUBCASE card being read - + ! ********************************************************************************************************************************** -! Process SUBCASE cards - +! Process SUBCASE cards + NSUB = NSUB + 1 IF (NSUB > LSUB) THEN FATAL_ERR = FATAL_ERR + 1 @@ -63,7 +63,7 @@ SUBROUTINE CC_SUBC ( CARD ) CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit RETURN ENDIF - + ! Is there an = sign? EQUAL_SIGN = 'N' @@ -73,11 +73,11 @@ SUBROUTINE CC_SUBC ( CARD ) EXIT ENDIF ENDDO - + JERR = 0 - + ! There should be no problem finding the 'E' in SUBCASE, subr LOADC wouldn't have called this subr otherwise - + IF (EQUAL_SIGN == 'Y') THEN CALL CSHIFT ( CARD, '=', CARD1, ECOL, IERR ) ELSE @@ -96,9 +96,9 @@ SUBROUTINE CC_SUBC ( CARD ) ENDDO IF (JERR == 0) THEN SCNUM(NSUB) = SUBCASE_NUM - ENDIF + ENDIF ENDIF - + RETURN @@ -110,5 +110,5 @@ SUBROUTINE CC_SUBC ( CARD ) ,/,14X,' TOO MANY SUBCASES; LIMIT = ',I8) ! ********************************************************************************************************************************** - - END SUBROUTINE CC_SUBC + + END SUBROUTINE CC_SUBC diff --git a/Source/LK1/L1A-CC/CC_SUBT.f90 b/Source/LK1/L1A-CC/CC_SUBT.f90 index f79c0dfd..d49decb1 100644 --- a/Source/LK1/L1A-CC/CC_SUBT.f90 +++ b/Source/LK1/L1A-CC/CC_SUBT.f90 @@ -1,58 +1,58 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_SUBT ( CARD ) - + ! Processes Case Control SUBTITLE cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : WARN_ERR, LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : STITLE - + USE CC_SUBT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_SUBT' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=LEN(CARD)) :: CARD1 ! CARD shifted to begin in col after "=" sign - + INTEGER(LONG) :: ECOL ! Col, on CARD, where "=" sign is located INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! Output from subr CSHIFT indicating an error - + ! ********************************************************************************************************************************** ! Process SUBTITLE cards - + CALL CSHIFT ( CARD, '=', CARD1, ECOL, IERR ) IF (IERR /= 0) THEN WARN_ERR = WARN_ERR + 1 @@ -66,16 +66,16 @@ SUBROUTINE CC_SUBT ( CARD ) ELSE DO I = 1,LSUB STITLE(I) = CARD1 - ENDDO + ENDDO ENDIF - + RETURN ! ********************************************************************************************************************************** 8862 FORMAT(' *WARNING : MISSING EQUAL (=) SIGN ON CASE CONTROL CARD: (TITLE, SUBTITLE OR LABEL).') - + ! ********************************************************************************************************************************** - - END SUBROUTINE CC_SUBT + + END SUBROUTINE CC_SUBT diff --git a/Source/LK1/L1A-CC/CC_TEMP.f90 b/Source/LK1/L1A-CC/CC_TEMP.f90 index d3ec583a..53307758 100644 --- a/Source/LK1/L1A-CC/CC_TEMP.f90 +++ b/Source/LK1/L1A-CC/CC_TEMP.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_TEMP ( CARD ) - + ! Processes Case Control TEMP cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : LSUB, NSUB, NTSUB, BLNK_SUB_NAM @@ -37,38 +37,38 @@ SUBROUTINE CC_TEMP ( CARD ) USE CC_TEMP_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_TEMP' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: SETID ! Set ID on this Case Control card - + ! ********************************************************************************************************************************** -! Process TEMP cards - +! Process TEMP cards + ! Get SETID - + CALL GET_SETID ( CARD, SETID ) - + ! Set Case Control variable to SETID - + NTSUB = NTSUB + 1 IF (NSUB /= 0) THEN SUBLOD(NSUB,2) = SETID ELSE DO I = 1,LSUB SUBLOD(I,2) = SETID - ENDDO + ENDDO ENDIF - + RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CC_TEMP + + END SUBROUTINE CC_TEMP diff --git a/Source/LK1/L1A-CC/CC_TITL.f90 b/Source/LK1/L1A-CC/CC_TITL.f90 index a4f38cb9..20c45da0 100644 --- a/Source/LK1/L1A-CC/CC_TITL.f90 +++ b/Source/LK1/L1A-CC/CC_TITL.f90 @@ -1,58 +1,58 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CC_TITL ( CARD ) - + ! Processes Case Control TITLE cards - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : WARN_ERR, LSUB, NSUB, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : TITLE - + USE CC_TITL_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CC_TITL' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=LEN(CARD)) :: CARD1 ! CARD shifted to begin in col after "=" sign - + INTEGER(LONG) :: ECOL ! Col, on CARD, where "=" sign is located INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! Output from subr CSHIFT indicating an error - + ! ********************************************************************************************************************************** -! Process TITLE card - +! Process TITLE card + CALL CSHIFT ( CARD, '=', CARD1, ECOL, IERR ) IF (IERR /= 0) THEN WARN_ERR = WARN_ERR + 1 @@ -66,16 +66,16 @@ SUBROUTINE CC_TITL ( CARD ) ELSE DO I = 1,LSUB TITLE(I) = CARD1 - ENDDO + ENDDO ENDIF - + RETURN ! ********************************************************************************************************************************** 8862 FORMAT(' *WARNING : MISSING EQUAL (=) SIGN ON CASE CONTROL CARD: (TITLE, SUBTITLE OR LABEL).') - + ! ********************************************************************************************************************************** - + END SUBROUTINE CC_TITL diff --git a/Source/LK1/L1A-CC/CHK_CC_CMD_DESCRIBERS.f90 b/Source/LK1/L1A-CC/CHK_CC_CMD_DESCRIBERS.f90 index 90a6d0f8..1acd1f4e 100644 --- a/Source/LK1/L1A-CC/CHK_CC_CMD_DESCRIBERS.f90 +++ b/Source/LK1/L1A-CC/CHK_CC_CMD_DESCRIBERS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CHK_CC_CMD_DESCRIBERS ( WHAT, NUM_WORDS ) - + ! Checks Case Control output requests to make sure the descriptors in parens - ! (e.g. SORT1, PRINT, etc) are valid. + ! (e.g. SORT1, PRINT, etc) are valid. ! Write warning messages if a descriptor is not valid for MYSTRAN USE PENTIUM_II_KIND, ONLY : BYTE, LONG @@ -35,12 +35,12 @@ SUBROUTINE CHK_CC_CMD_DESCRIBERS ( WHAT, NUM_WORDS ) USE SCONTR, ONLY : BLNK_SUB_NAM, CC_CMD_DESCRIBERS, ECHO, FATAL_ERR, WARN_ERR USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_LOC, STRN_OPT, STRE_LOC, STRE_OPT, FORC_LOC - USE PARAMS, ONLY : SUPWARN + USE PARAMS, ONLY : SUPWARN USE CHK_CC_CMD_DESCRIBERS_USE_IFs IMPLICIT NONE - + INTEGER(LONG), PARAMETER :: NUM_POSS_CCD = 31 ! Number of possible CC command describers (incl all MSC ones as well) INTEGER(LONG), PARAMETER :: NUM_OUT_TYP = 9 ! Number of OUTPUT_TYPE's @@ -60,7 +60,7 @@ SUBROUTINE CHK_CC_CMD_DESCRIBERS ( WHAT, NUM_WORDS ) INTEGER(LONG) :: JCOL ! Designator of a column in an array LOGICAL :: IS_PLOT, IS_PRINT, IS_PUNCH - + ! ********************************************************************************************************************************** IF (WHAT == 'ACCE') THEN; OUTPUT_TYPE( 1) = 'ACCE'; JCOL = 1; @@ -91,7 +91,7 @@ SUBROUTINE CHK_CC_CMD_DESCRIBERS ( WHAT, NUM_WORDS ) (WHAT == 'MPCF') .OR. (WHAT == 'OLOA') .OR. (WHAT == 'SPCF') .OR. & (WHAT == 'STRE') .OR. (WHAT == 'STRN')) - ! Set all of the allowable values that can be in ALLOW_CC_CMD_DESCR. + ! Set all of the allowable values that can be in ALLOW_CC_CMD_DESCR. ! These are all of the values from MSC NASTRAN. Not all are implemented in MYSTRAN. ! =================ACCE================= =================DISP================= =================ELFO================= @@ -213,7 +213,7 @@ SUBROUTINE CHK_CC_CMD_DESCRIBERS ( WHAT, NUM_WORDS ) ENDIF ENDIF ENDDO ido_1 - + DO I=1,NUM_WORDS !write(ERR,*) "CC_CMD_DESCRIBERS(I)",I,CC_CMD_DESCRIBERS(I) IF (CC_CMD_DESCRIBERS(I)(1:5) == 'SORT2') THEN @@ -225,7 +225,7 @@ SUBROUTINE CHK_CC_CMD_DESCRIBERS ( WHAT, NUM_WORDS ) ENDIF ENDIF ENDIF - + IF ((.NOT. IS_PUNCH) .AND. (CC_CMD_DESCRIBERS(I)(1:5) == 'PUNCH')) THEN WARN_ERR = WARN_ERR + 1 WRITE(ERR,202) WHAT diff --git a/Source/LK1/L1A/CSHIFT.f90 b/Source/LK1/L1A/CSHIFT.f90 index 823d233e..28d035f0 100644 --- a/Source/LK1/L1A/CSHIFT.f90 +++ b/Source/LK1/L1A/CSHIFT.f90 @@ -34,7 +34,7 @@ SUBROUTINE CSHIFT ( CARD_IN, CHAR, CARD_SHIFTED, CHAR_COL, IERR ) USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + USE CSHIFT_USE_IFs IMPLICIT NONE @@ -52,7 +52,7 @@ SUBROUTINE CSHIFT ( CARD_IN, CHAR, CARD_SHIFTED, CHAR_COL, IERR ) INTRINSIC INDEX - + ! ********************************************************************************************************************************** diff --git a/Source/LK1/L1A/EC_DEBUG.f90 b/Source/LK1/L1A/EC_DEBUG.f90 index 4fffa6ad..5f877d06 100644 --- a/Source/LK1/L1A/EC_DEBUG.f90 +++ b/Source/LK1/L1A/EC_DEBUG.f90 @@ -1,64 +1,64 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE EC_DEBUG ( CARD ) - + ! Processes DEBUG in Exec Control. This is done to allow DEBUG to be read before some of the Bulk Data is input. Some of the DEBUG -! capability needs to be processed prior to the complete input data file being read - +! capability needs to be processed prior to the complete input data file being read + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : ECHO, IERRFL, JCARD_LEN, JF, WARN_ERR USE PARAMS, ONLY : SUPWARN USE DEBUG_PARAMETERS, ONLY : DEBUG, NDEBUG - + USE EC_DEBUG_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card - CHARACTER(LEN=JCARD_LEN) :: CHARFLD2 ! - CHARACTER(LEN=JCARD_LEN) :: CHARFLD3 ! + CHARACTER(LEN=JCARD_LEN) :: CHARFLD2 ! + CHARACTER(LEN=JCARD_LEN) :: CHARFLD3 ! CHARACTER( 8*BYTE) :: JCARD_08(10) ! The 10 fields of 8 characters making up CARD - + INTEGER(LONG) :: INDEX ! An index into array DEBUG read on B.D. DEBUG card INTEGER(LONG), PARAMETER :: LOWER = 1 ! Lower allowable value for an integer parameter INTEGER(LONG) :: UPPER = NDEBUG ! Upper allowable value for an integer parameter INTEGER(LONG) :: VALUE ! Value for DEBUG(INDEX) read on B.D. DEBUG card - + ! ********************************************************************************************************************************** CHARFLD2(1:) = ' ' CHARFLD3(1:) = ' ' - + ! Make JCARD_08 from CARD - + CALL MKJCARD_08 ( CARD, JCARD_08 ) CHARFLD2(1:) = JCARD_08(2)(1:) CHARFLD3(1:) = JCARD_08(3)(1:) - + ! Read DEBUG index and DEBUG(INDEX) value CALL I4FLD ( CHARFLD2, JF(2), INDEX ) @@ -80,12 +80,12 @@ SUBROUTINE EC_DEBUG ( CARD ) ENDIF ENDIF ENDIF - + ! ********************************************************************************************************************************** 101 FORMAT(A) 1120 FORMAT(' *WARNING : DEBUG INDEX MUST BE >= ',I4,' AND <= ',I4,' BUT INPUT VALUE IS: ',I8,'. ENTRY IGNORED') - + ! ********************************************************************************************************************************** - + END SUBROUTINE EC_DEBUG diff --git a/Source/LK1/L1A/EC_IN4FIL.f90 b/Source/LK1/L1A/EC_IN4FIL.f90 index f10ad71c..066c4ebd 100644 --- a/Source/LK1/L1A/EC_IN4FIL.f90 +++ b/Source/LK1/L1A/EC_IN4FIL.f90 @@ -1,70 +1,70 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE EC_IN4FIL ( CARD ) - + ! Processes Executive Control IN4 entries that define IN4 files to be read - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, FILE_NAM_MAXLEN, IN4FIL, IN4FIL_NUM, NUM_IN4_FILES USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_TOKEN_LEN USE TIMDAT, ONLY : TSEC - + USE EC_IN4FIL_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'EC_IN4FIL' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER(LEN=LEN(CARD)) :: CARD1 ! Part of CARD CHARACTER(LEN=LEN(CARD)) :: CARD2 ! Part of CARD CHARACTER( 8*BYTE) :: TOKEN(3) ! Char string output from subr STOKEN, called herein CHARACTER( 8*BYTE) :: TOKTYP(3) ! Type of the char TOKEN's output from subr STOKEN, called herein - + INTEGER(LONG) :: DOLLAR_COL ! Col, on CARD, where "$" sign is located INTEGER(LONG) :: ECOL = 0 ! Col, on CARD, where "=" sign is located INTEGER(LONG) :: I ! DO loop index - INTEGER(LONG) :: IEND ! - INTEGER(LONG) :: ISTART ! - INTEGER(LONG) :: JEND = 0 ! + INTEGER(LONG) :: IEND ! + INTEGER(LONG) :: ISTART ! + INTEGER(LONG) :: JEND = 0 ! INTEGER(LONG) :: K = 0 ! Counter INTEGER(LONG) :: SETERR = 0 ! Error indicator as set ID is read - + INTRINSIC INDEX - + ! ********************************************************************************************************************************** -! Process SET cards +! Process SET cards - CARD1 = CARD + CARD1 = CARD ! Find equal sign - + ECOL = INDEX(CARD1(1:),'=') IF (ECOL == 0) THEN FATAL_ERR = FATAL_ERR + 1 @@ -72,9 +72,9 @@ SUBROUTINE EC_IN4FIL ( CARD ) WRITE(F06,1267) RETURN ENDIF - + ! Now find IN4FIL_NUM and check for proper type ('INTEGER ') and value within limits - + NUM_IN4_FILES = NUM_IN4_FILES + 1 TOKEN(1) = ' ' SETERR = 0 @@ -90,8 +90,8 @@ SUBROUTINE EC_IN4FIL ( CARD ) EXIT ENDIF TOKEN(1)(K:K) = CARD1(I:I) - ENDDO - IF (SETERR == 0) THEN + ENDDO + IF (SETERR == 0) THEN CALL TOKCHK ( TOKEN(1), TOKTYP(1) ) IF (TOKTYP(1) == 'INTEGER ') THEN READ(TOKEN(1),'(I8)') IN4FIL_NUM(NUM_IN4_FILES) @@ -102,7 +102,7 @@ SUBROUTINE EC_IN4FIL ( CARD ) RETURN ENDIF ENDIF - + ! Remainder of card has IN4 file name (and also possibly leading/trailing blanks and trailing comment) CARD2 = CARD1(ECOL+1:) @@ -145,5 +145,5 @@ SUBROUTINE EC_IN4FIL ( CARD ) 97865 format(' I, DOLLAR_COL, JEND, ISTART, IEND, IN4FIL(I) = ',5i8,'"',a,'"') ! ********************************************************************************************************************************** - - END SUBROUTINE EC_IN4FIL + + END SUBROUTINE EC_IN4FIL diff --git a/Source/LK1/L1A/EC_OUTPUT4.f90 b/Source/LK1/L1A/EC_OUTPUT4.f90 index add96e57..99722ac5 100644 --- a/Source/LK1/L1A/EC_OUTPUT4.f90 +++ b/Source/LK1/L1A/EC_OUTPUT4.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE EC_OUTPUT4 ( CARD1, IERR, ANY_OU4_NAME_BAD ) - + ! EC_OUTPUT4 reads in the Exec Control entry OUTPUT4. The form of the entry is: ! OUTPUT4 M1,M2,M3,M4,M5//ITAPE/IUNIT (ITAPE not used) @@ -42,18 +42,18 @@ SUBROUTINE EC_OUTPUT4 ( CARD1, IERR, ANY_OU4_NAME_BAD ) USE OUTPUT4_MATRICES, ONLY : NUM_OU4_VALID_NAMES, TAPE_ACTION_MAX_VAL, TAPE_ACTION_MIN_VAL, NUM_OU4_REQUESTS, & OU4_FILE_UNITS, OU4_TAPE_ACTION, ACT_OU4_MYSTRAN_NAMES, ACT_OU4_OUTPUT_NAMES, & ALLOW_OU4_MYSTRAN_NAMES, ALLOW_OU4_OUTPUT_NAMES - + USE TIMDAT, ONLY : TSEC USE EC_OUTPUT4_USE_IFs ! Added 2019/07/14 IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'EC_OUTPUT4' CHARACTER(LEN=*), INTENT(IN) :: CARD1 ! Card read in LOADE and shifted to begin in col 1 CHARACTER(LEN=*), INTENT(OUT) :: ANY_OU4_NAME_BAD ! 'Y'/'N' if requested OUTPUT4 matrix name is valid - CHARACTER(16*BYTE) :: MYSTRAN_NAME(5) ! - CHARACTER(16*BYTE) :: OUTPUT_NAME(5) ! + CHARACTER(16*BYTE) :: MYSTRAN_NAME(5) ! + CHARACTER(16*BYTE) :: OUTPUT_NAME(5) ! CHARACTER(LEN=LEN(CARD1)) :: CARD2 ! CARD1 truncated at $ (trailing comment) if there is one CHARACTER(LEN=EC_ENTRY_LEN) :: DATA_80(7) ! Temp slot for holding data until lead/trail blanks stripped CHARACTER(16*BYTE) :: DATA_16(7) ! Matrix name read from OUTPUT4 entry @@ -61,7 +61,7 @@ SUBROUTINE EC_OUTPUT4 ( CARD1, IERR, ANY_OU4_NAME_BAD ) CHARACTER( 1*BYTE) :: ITAPE_OK ! 'Y'/'N' if ITAPE value is OK CHARACTER( 1*BYTE) :: IUNIT_OK ! 'Y'/'N' if IUNIT value is OK CHARACTER( 1*BYTE) :: VALID_OU4_NAME ! 'Y'/'N' if requested OUTPUT4 matrix name is valid - + INTEGER(LONG), INTENT(OUT) :: IERR ! Error indicator. If CHAR not found, IERR set to 1 INTEGER(LONG) :: DATA_BEG ! Column where data begins (after OUTPUT4) INTEGER(LONG) :: DELTA_COL ! Column where data begins (after OUTPUT4) @@ -71,11 +71,11 @@ SUBROUTINE EC_OUTPUT4 ( CARD1, IERR, ANY_OU4_NAME_BAD ) INTEGER(LONG) :: ITAPE ! Tape action (rewind before write, etc) INTEGER(LONG) :: IUNIT ! OUTPUT4 unit number to write the matrices to INTEGER(LONG) :: JBEG ! Beg col in data - INTEGER(LONG) :: ROW_NUM ! + INTEGER(LONG) :: ROW_NUM ! INTEGER(LONG) :: SLASH1_COL ! Col in matrix name where character "/" is found INTEGER(LONG) :: SLASH2_COL ! Col in matrix name where characters "//" are found - + ! ********************************************************************************************************************************** @@ -231,7 +231,7 @@ SUBROUTINE EC_OUTPUT4 ( CARD1, IERR, ANY_OU4_NAME_BAD ) ENDIF ENDDO - IF (IERR == 0) THEN + IF (IERR == 0) THEN DO I=1,5 ! Update list of requested OUTPUT4 matrices. Don't enter duplicates IF (DATA_16(I)(1:16) /= ' ') THEN IF (NUM_OU4_REQUESTS+1 <= NUM_OU4_VALID_NAMES) THEN @@ -371,9 +371,9 @@ SUBROUTINE EC_OUTPUT4 ( CARD1, IERR, ANY_OU4_NAME_BAD ) ! ********************************************************************************************************************************** ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE OU4_NAME_ALIAS ( INPUT_NAME, MYSTRAN_NAME, OUTPUT_NAME ) @@ -391,7 +391,7 @@ SUBROUTINE OU4_NAME_ALIAS ( INPUT_NAME, MYSTRAN_NAME, OUTPUT_NAME ) ! ********************************************************************************************************************************** OUTPUT_NAME = INPUT_NAME MYSTRAN_NAME = INPUT_NAME - DO JJ=1,NUM_OU4_VALID_NAMES + DO JJ=1,NUM_OU4_VALID_NAMES IF (INPUT_NAME == ALLOW_OU4_OUTPUT_NAMES(JJ)) THEN OUTPUT_NAME = ALLOW_OU4_OUTPUT_NAMES(JJ) MYSTRAN_NAME = ALLOW_OU4_MYSTRAN_NAMES(JJ) diff --git a/Source/LK1/L1A/EC_PARTN.f90 b/Source/LK1/L1A/EC_PARTN.f90 index c9666ff8..621e3107 100644 --- a/Source/LK1/L1A/EC_PARTN.f90 +++ b/Source/LK1/L1A/EC_PARTN.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE EC_PARTN ( CARD1, IERR ) - + ! EC_PARTN reads in the Exec Control entry PARTN (partition a matrix). The NASTRAN form of the entry is: ! PARTN A,CP,RP/A11,A21,A12,A22/SYM/TYPE/F11,F21,F12,F22 @@ -44,20 +44,20 @@ SUBROUTINE EC_PARTN ( CARD1, IERR ) USE OUTPUT4_MATRICES, ONLY : NUM_OU4_REQUESTS, NUM_PARTN_REQUESTS, OU4_PART_VEC_NAMES, OU4_PART_MAT_NAMES, & ACT_OU4_MYSTRAN_NAMES, ACT_OU4_OUTPUT_NAMES, & ALLOW_OU4_MYSTRAN_NAMES, ALLOW_OU4_OUTPUT_NAMES - + USE TIMDAT, ONLY : TSEC USE EC_PARTN_USE_IFs ! Added 2019/07/14 IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'EC_PARTN' CHARACTER(LEN=*), INTENT(IN) :: CARD1 ! Card read in LOADE and shifted to begin in col 1 CHARACTER(LEN=LEN(CARD1)) :: CARD2 ! CARD1 truncated at $ (trailing comment) if there is one CHARACTER(LEN=EC_ENTRY_LEN) :: DATA_80(3) ! Temp slot for holding data until lead/trail blanks stripped CHARACTER(16*BYTE) :: DATA_16(3) ! Matrix name read from OUTPUT4 entry CHARACTER( 1*BYTE) :: FOUND ! 'Y' if we found something we were looking for - + INTEGER(LONG), INTENT(OUT) :: IERR ! Error indicator. If CHAR not found, IERR set to 1 INTEGER(LONG) :: DATA_BEG ! Column where data begins (after OUTPUT4) INTEGER(LONG) :: DATA_END ! Column where data ends (after ist slash or at $) @@ -65,7 +65,7 @@ SUBROUTINE EC_PARTN ( CARD1, IERR ) INTEGER(LONG) :: I,J ! DO loop index INTEGER(LONG) :: JBEG ! Beg col in data - + ! ********************************************************************************************************************************** @@ -175,7 +175,7 @@ SUBROUTINE EC_PARTN ( CARD1, IERR ) OU4_PART_VEC_NAMES(I,2) = DATA_16(3) ENDIF ENDDO - + IF (FOUND == 'N') THEN ! Matrix to be partitioned is not an OU4 matrix or an OU4 request IERR = IERR + 1 WRITE(ERR,1040) DATA_16(1) diff --git a/Source/LK1/L1A/ELEPRO.f90 b/Source/LK1/L1A/ELEPRO.f90 index f80d7a81..9909affe 100644 --- a/Source/LK1/L1A/ELEPRO.f90 +++ b/Source/LK1/L1A/ELEPRO.f90 @@ -1,32 +1,32 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ELEPRO ( INCR_NELE, JCARD, NFIELD, NMORE, & CHK_FLD2, CHK_FLD3, CHK_FLD4, CHK_FLD5, CHK_FLD6, CHK_FLD7, CHK_FLD8, CHK_FLD9 ) - + ! Element connection data processor. ! 1) Increments count on number of elements and checks that the number does not exceed with the total count made by subr LOADB0 @@ -39,17 +39,17 @@ SUBROUTINE ELEPRO ( INCR_NELE, JCARD, NFIELD, NMORE, ! 3) Reads element connection data into EDAT ! 4) Resets pointer array, EPNT. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : IERRFL, FATAL_ERR, JF, LEDAT, LELE, NEDAT, NELE, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, EPNT - + USE ELEPRO_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELEPRO' CHARACTER(LEN=*), INTENT(IN) :: CHK_FLD2 ! If 'N', then if field 2 is blank it will not be checked for > 0 CHARACTER(LEN=*), INTENT(IN) :: CHK_FLD3 ! If 'N', then if field 3 is blank it will not be checked for > 0 @@ -63,8 +63,8 @@ SUBROUTINE ELEPRO ( INCR_NELE, JCARD, NFIELD, NMORE, CHARACTER(LEN=*), INTENT(IN) :: JCARD(10) ! The 10 fields of a Bulk Data card CHARACTER( 9*BYTE) :: NAME = ' '! Name for output error purposes CHARACTER(LEN=LEN(CHK_FLD2)) :: CHK_FLD_ARRAY(2:9)! Array containing CHK_FLDi's - - INTEGER(LONG), INTENT(IN) :: NFIELD ! Number of card fields to read from JCARD (start w/ field 2) + + INTEGER(LONG), INTENT(IN) :: NFIELD ! Number of card fields to read from JCARD (start w/ field 2) INTEGER(LONG), INTENT(IN) :: NMORE ! Number of terms that have to be written to EDAT for this element ! in total (not just here). There may be multiple calls to this subr for ! one element in which case NMORE is the additional amount of data to be @@ -75,7 +75,7 @@ SUBROUTINE ELEPRO ( INCR_NELE, JCARD, NFIELD, NMORE, INTEGER(LONG) :: I4INP ! A value read from input file that should be an integer value INTEGER(LONG) :: I,J ! DO loop indices - + ! ********************************************************************************************************************************** @@ -113,25 +113,25 @@ SUBROUTINE ELEPRO ( INCR_NELE, JCARD, NFIELD, NMORE, WRITE(F06,1000) SUBR_NAME, LELE FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (too many elems), so quit - ENDIF - + ENDIF + IF ((NEDAT + NMORE) > LEDAT) THEN WRITE(ERR,1001) SUBR_NAME, LEDAT WRITE(F06,1001) SUBR_NAME, LEDAT FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (too much EDAT data), so quit ENDIF - + IF (INCR_NELE == 'Y') THEN EPNT(NELE) = NEDAT+1 ! Set element pointer EPNT to start for new element ENDIF jdo: DO J=1,NFIELD ! Load element data into array EDAT -! Testing for (1:6) == 'CBUSH ' or 'CBUSH*' instead of just (1:5) == 'CBUSH' may help protect against +! Testing for (1:6) == 'CBUSH ' or 'CBUSH*' instead of just (1:5) == 'CBUSH' may help protect against ! matching keywords such as CBUSH1D and CBUSH2D that could be added in the future. It's also ! used in BD_CQUAD, BD_CTRIA, BD_PLOAD2, and LOADB_RESTART. - + IF ((J == 3) .AND. ((JCARD(1)(1:6) == 'CBUSH ') .OR. (JCARD(1)(1:6) == 'CBUSH*'))) THEN NEDAT = NEDAT + 1 IF (JCARD(5)(1:) == ' ') THEN ! CBUSH has G2 blank so BUSH elem has only G1 grid. Other end is grounded @@ -176,5 +176,5 @@ SUBROUTINE ELEPRO ( INCR_NELE, JCARD, NFIELD, NMORE, 1021 FORMAT(' *ERROR 1021: ',A,A,' HAS INTEGER = ',I8,' IN FIELD ',I3,'. MUST BE > 0') ! ********************************************************************************************************************************** - + END SUBROUTINE ELEPRO diff --git a/Source/LK1/L1A/FFIELD.f90 b/Source/LK1/L1A/FFIELD.f90 index 86a987d5..070e18c7 100644 --- a/Source/LK1/L1A/FFIELD.f90 +++ b/Source/LK1/L1A/FFIELD.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE FFIELD ( CARD, IERR ) - + ! Routine to handle only small field input CARD. The 8 col fields of CARD will be expanded to 16 col fields and the returned CARD ! will have 10 fields of 16 cols each: @@ -33,7 +33,7 @@ SUBROUTINE FFIELD ( CARD, IERR ) ! comma then it is a free-field card ! 2) Left justify fields 2 - 9 of cards that are fixed field - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, BD_ENTRY_LEN, FATAL_ERR, IMB_BLANK, JCARD_LEN @@ -42,17 +42,17 @@ SUBROUTINE FFIELD ( CARD, IERR ) USE FFIELD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'FFIELD' - CHARACTER(LEN=*), INTENT(INOUT):: CARD ! - CHARACTER( 1*BYTE) :: FOUND_DATA ! + CHARACTER(LEN=*), INTENT(INOUT):: CARD ! + CHARACTER( 1*BYTE) :: FOUND_DATA ! CHARACTER( 3*BYTE) :: FREEFLD ! = 'Y' if CARD is free field form CHARACTER(LEN=JCARD_LEN) :: LJCARD(10) ! 10 fields of LCARD - CHARACTER(LEN=BD_ENTRY_LEN) :: LCARD ! + CHARACTER(LEN=BD_ENTRY_LEN) :: LCARD ! CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! Fields of CARD CHARACTER(LEN=JCARD_LEN) :: TJCARD(10) ! Fields of TCARD CHARACTER(LEN=LEN(CARD)) :: TCARD ! Temporary CARD - + INTEGER(LONG) :: CARD_LEN ! Length of CARD INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG), INTENT(OUT) :: IERR ! = 1 if a field is longer than 8 chars on a free field card @@ -60,26 +60,26 @@ SUBROUTINE FFIELD ( CARD, IERR ) INTEGER(LONG) :: JCT ! Column counter in free-field CARD INTEGER(LONG) :: K1S,K2S,K1L ! Indices - + ! ********************************************************************************************************************************** CARD_LEN = LEN(CARD) ! Initialize - + DO I = 1,CARD_LEN TCARD(I:I) = ' ' ENDDO - + DO I=1,10 TJCARD(I)(1:) = ' ' - ENDDO - + ENDDO + IERR = 0 - + ! Look for ',' on input string 'CARD'; if found, we assume card is free-field - + IF ((INDEX(CARD,',') > 0) .OR. (INDEX(CARD,ACHAR(9)) > 0)) THEN FREEFLD = 'YES' ELSE @@ -89,7 +89,7 @@ SUBROUTINE FFIELD ( CARD, IERR ) ! Process CARD IF (FREEFLD == 'NO ') THEN ! Expand small field card to 16 cols/field and left justify - + LCARD(1:) = ' ' DO I=1,10 K1S = 8*(I-1) + 1 ; K2S = K1S + 7 @@ -98,25 +98,25 @@ SUBROUTINE FFIELD ( CARD, IERR ) ENDDO CALL MKJCARD ( SUBR_NAME, LCARD, LJCARD ) ! LJCARD are fields from LCARD (16 col fields) - + DO I = 2,9 ! Left justify fields IF (LJCARD(I)(1:) == ' ' .OR. LJCARD(I)(1:1) /= ' ') THEN - TJCARD(I) = LJCARD(I) + TJCARD(I) = LJCARD(I) ELSE DO J=1,JCARD_LEN IF (LJCARD(I)(J:J) /= ' ') THEN TJCARD(I)(1:) = LJCARD(I)(J:) - EXIT + EXIT ENDIF ENDDO - ENDIF - ENDDO + ENDIF + ENDDO DO I=2,9 LJCARD(I) = TJCARD(I) - ENDDO + ENDDO + + CALL MKCARD ( LJCARD, CARD ) - CALL MKCARD ( LJCARD, CARD ) - ELSE ! Convert free-field 'CARD' to fixed field 'TCARD' DO I=1,10 @@ -136,7 +136,7 @@ SUBROUTINE FFIELD ( CARD, IERR ) IF ((CARD(I:I) /= ',') .AND. (CARD(I:I) /= ACHAR(9))) THEN JCT = JCT+1 - + IF (JCT > 16) THEN ! NOTE: free field can only have <= 16 cols WRITE(ERR,1002) WRITE(F06,1002) @@ -162,9 +162,9 @@ SUBROUTINE FFIELD ( CARD, IERR ) CALL MKCARD ( TJCARD, CARD ) ENDIF - + ! Check fields for any imbedded blanks and set error if any are found - + CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) DO I=2,9 FOUND_DATA = 'N' @@ -172,7 +172,7 @@ SUBROUTINE FFIELD ( CARD, IERR ) DO J=JCARD_LEN,1,-1 IF (JCARD(I)(J:J) /= ' ') THEN FOUND_DATA = 'Y' - ELSE + ELSE IF(FOUND_DATA == 'Y') THEN IMB_BLANK(I) = 'Y' ELSE @@ -181,7 +181,7 @@ SUBROUTINE FFIELD ( CARD, IERR ) ENDIF ENDDO ENDDO - + RETURN diff --git a/Source/LK1/L1A/FFIELD2.f90 b/Source/LK1/L1A/FFIELD2.f90 index 93ee03ae..3a5dc2eb 100644 --- a/Source/LK1/L1A/FFIELD2.f90 +++ b/Source/LK1/L1A/FFIELD2.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE FFIELD2 ( CARD1, CARD2, CARD, IERR ) - + ! Routine to process large field format BD entries (must be fixed field - free field not allowed for large field format: ! 1) Input 2 physical 80 col cards (read in LOADB) that form one logical entry - -! a) Card 1 has + +! a) Card 1 has ! i) BD entry name (CARD1_FLD1)) ! ii) 4 fields of data (CARD1_FLD2 - CARD1_FLD5)) ! iii) cont entry (CARD1_FLD6) @@ -58,7 +58,7 @@ SUBROUTINE FFIELD2 ( CARD1, CARD2, CARD, IERR ) ! j) field 10: CARD2_FLD6 (cont from field 6 of 2nd half of entry) ! 5) Left justify fields - + ! N O TE : each of the 2 physical entries making up 1 logical large field entry has 80 cols in 6 fields (1st and fields are 8 cols ! and 2nd - 6th fields are large field format with 16 cols each) @@ -72,7 +72,7 @@ SUBROUTINE FFIELD2 ( CARD1, CARD2, CARD, IERR ) USE FFIELD2_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'FFIELD2' CHARACTER(LEN=*), INTENT(IN) :: CARD1 ! 1st physical entry of the large field entry CHARACTER(LEN=*), INTENT(IN) :: CARD2 ! 2nd physical entry of the large field entry @@ -81,11 +81,11 @@ SUBROUTINE FFIELD2 ( CARD1, CARD2, CARD, IERR ) CHARACTER(LEN=JCARD_LEN) :: JCARD1(6) ! 6 fields of CARD1. Fields 1,6 are 8 cols. Fields 2,3,4,5 are 16 cols CHARACTER(LEN=JCARD_LEN) :: JCARD2(6) ! 6 fields of CARD2. Fields 1,6 are 8 cols. Fields 2,3,4,5 are 16 cols CHARACTER(LEN=JCARD_LEN) :: TJCARD(10) ! Temporary JCARD's - + INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG), INTENT(OUT) :: IERR ! = 1 if a field is longer than 8 chars on a free field card - + ! ********************************************************************************************************************************** @@ -117,17 +117,17 @@ SUBROUTINE FFIELD2 ( CARD1, CARD2, CARD, IERR ) ! Put fields of CARD1 and CARD2 into 16 col fields of JCARD1(i=1,6), JCARD2(i=1,6) JCARD1(1)(1: 8) = CARD1( 1: 8) ; JCARD1(1)(9:16) = ' ' - JCARD1(2)(1:16) = CARD1( 9:24) - JCARD1(3)(1:16) = CARD1(25:40) - JCARD1(4)(1:16) = CARD1(41:56) - JCARD1(5)(1:16) = CARD1(57:72) + JCARD1(2)(1:16) = CARD1( 9:24) + JCARD1(3)(1:16) = CARD1(25:40) + JCARD1(4)(1:16) = CARD1(41:56) + JCARD1(5)(1:16) = CARD1(57:72) JCARD1(6)(1: 8) = CARD1(73:80) JCARD2(1)(1: 8) = CARD2( 1: 8) - JCARD2(2)(1:16) = CARD2( 9:24) - JCARD2(3)(1:16) = CARD2(25:40) - JCARD2(4)(1:16) = CARD2(41:56) - JCARD2(5)(1:16) = CARD2(57:72) + JCARD2(2)(1:16) = CARD2( 9:24) + JCARD2(3)(1:16) = CARD2(25:40) + JCARD2(4)(1:16) = CARD2(41:56) + JCARD2(5)(1:16) = CARD2(57:72) JCARD2(6)(1: 8) = CARD2(73:80) ; JCARD2(6)(9:16) = ' ' ! Make sure that CARD2 is the 2nd half of CARD1 (continuation entry from field 6 of CARD1 must match field 1 of CARD2) @@ -174,23 +174,23 @@ SUBROUTINE FFIELD2 ( CARD1, CARD2, CARD, IERR ) DO I = 2,9 ! Left justify fields IF (JCARD(I)(1:) == ' ' .OR. JCARD(I)(1:1) /= ' ') THEN - TJCARD(I) = JCARD(I) + TJCARD(I) = JCARD(I) ELSE DO J=1,JCARD_LEN IF (JCARD(I)(J:J) /= ' ') THEN TJCARD(I)(1:) = JCARD(I)(J:) - EXIT + EXIT ENDIF ENDDO - ENDIF - ENDDO + ENDIF + ENDDO DO I=2,9 JCARD(I) = TJCARD(I) - ENDDO + ENDDO ! Put left justified fields into CARD - CALL MKCARD ( JCARD, CARD ) + CALL MKCARD ( JCARD, CARD ) @@ -205,5 +205,5 @@ SUBROUTINE FFIELD2 ( CARD1, CARD2, CARD, IERR ) ,/,14X,' THE LAST FIELD OF THE IST ENTRY = "',A,'" AND THE FIRST FIELD OF THE 2ND ENTRY = "',A,'"') ! ################################################################################################################################## - + END SUBROUTINE FFIELD2 diff --git a/Source/LK1/L1A/IS_THIS_A_RESTART.f90 b/Source/LK1/L1A/IS_THIS_A_RESTART.f90 index 2517c3fc..2e35ecc0 100644 --- a/Source/LK1/L1A/IS_THIS_A_RESTART.f90 +++ b/Source/LK1/L1A/IS_THIS_A_RESTART.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE IS_THIS_A_RESTART - + ! IS_THIS_A_RESTART reads in the EXEC CONTROL DECK to find if there is a RESTART entry - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : IN1, SC1 USE SCONTR, ONLY : EC_ENTRY_LEN, FATAL_ERR, RESTART USE TIMDAT, ONLY : TSEC - + USE IS_THIS_A_RESTART_USE_IFs IMPLICIT NONE @@ -41,15 +41,15 @@ SUBROUTINE IS_THIS_A_RESTART CHARACTER(LEN=EC_ENTRY_LEN) :: CARD1 ! CARD shifted to begin in col 1 CHARACTER(12*BYTE) :: DECK_NAME = 'EXEC CONTROL' CHARACTER( 4*BYTE), PARAMETER :: END_CARD = 'CEND' - + INTEGER(LONG) :: CHAR_COL ! Column number on CARD where character CHAR is found INTEGER(LONG) :: IERR = 0 ! Error indicator. INTEGER(LONG) :: IOCHK ! IOSTAT error number when reading a Case Control card from unit IN1 - + ! ********************************************************************************************************************************** ! Process EXECUTIVE CONTROL DECK - RESTART = 'N' + RESTART = 'N' DO @@ -62,7 +62,7 @@ SUBROUTINE IS_THIS_A_RESTART ENDIF IF (IOCHK > 0) THEN ! Check if error occurs during read. - WRITE(SC1,1010) DECK_NAME + WRITE(SC1,1010) DECK_NAME WRITE(SC1,'(A)') CARD FATAL_ERR = FATAL_ERR + 1 CYCLE @@ -76,9 +76,9 @@ SUBROUTINE IS_THIS_A_RESTART ELSE IF (CARD1(1:4) == 'CEND' ) THEN ! Check for CEND card EXIT - ENDIF + ENDIF - ENDDO + ENDDO ! ********************************************************************************************************************************** 101 FORMAT(A) @@ -88,5 +88,5 @@ SUBROUTINE IS_THIS_A_RESTART 1011 FORMAT(' *ERROR 1011: NO ',A10,' ENTRY FOUND BEFORE END OF FILE OR END OF RECORD IN INPUT FILE') ! ********************************************************************************************************************************** - + END SUBROUTINE IS_THIS_A_RESTART diff --git a/Source/LK1/L1A/LOADB0.f90 b/Source/LK1/L1A/LOADB0.f90 index ea49dbe7..66a0f5b3 100644 --- a/Source/LK1/L1A/LOADB0.f90 +++ b/Source/LK1/L1A/LOADB0.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE LOADB0 ! Preliminary reading of the Bulk Data to count several data sizes so ! that arrays may be allocated prior to the final reading of the Bulk Data. USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - USE IOUNT1, ONLY : WRT_ERR, ERR, F06, IN1 + USE IOUNT1, ONLY : WRT_ERR, ERR, F06, IN1 USE SCONTR, ONLY : BD_ENTRY_LEN, BLNK_SUB_NAM, FATAL_ERR, LCMASS, LDOFG, LELE, & LEDAT, LFORCE, LCONM2, LCORD, LGRAV, LGRID, LGUSERIN, LLOADC, LLOADR, & LMATL, LMPC, LMPCADDC, LMPCADDR, LPBAR, LPBEAM, LPBUSH, LPCOMP, LPCOMP_PLIES, LPDAT, & @@ -44,11 +44,11 @@ SUBROUTINE LOADB0 USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRDSET3, GRDSET7, GRDSET8 USE PARAMS, ONLY : GRIDSEQ - + USE LOADB0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'LOADB0' CHARACTER( 7*BYTE), PARAMETER :: END_CARD = 'ENDDATA' @@ -80,7 +80,7 @@ SUBROUTINE LOADB0 INTEGER(LONG) :: NG_USERIN ! Number of grids found on USERIN elems (not incl SPOINT's) INTEGER(LONG) :: NS_USERIN ! Number of SPOINT's found on USERIN elems - + ! ********************************************************************************************************************************** @@ -92,7 +92,7 @@ SUBROUTINE LOADB0 MRSPLINE = 1 ! Process Bulk Data cards in a loop that runs until either an ENDDATA card is found or when an error or EOF/EOR occurs - + ICNT = 0 !xx REWIND (IN1) DO @@ -160,7 +160,7 @@ SUBROUTINE LOADB0 FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ENDIF - + IF (IOCHK > 0) THEN WRITE(ERR,1010) DECK_NAME WRITE(F06,1010) DECK_NAME @@ -168,7 +168,7 @@ SUBROUTINE LOADB0 FATAL_ERR = FATAL_ERR + 1 CYCLE ENDIF - + COMMENT_COL = 1 DO I=2,BD_ENTRY_LEN IF (CARD2(I:I) == '$') THEN @@ -205,10 +205,10 @@ SUBROUTINE LOADB0 IF (IERR /= 0) THEN CYCLE - ENDIF + ENDIF ENDIF - + ! No errors, so process Bulk Data card. No need to check for ! imbedded blanks found when FFIELD was run - this will be ! checked when LOADB reads the bulk data @@ -257,33 +257,33 @@ SUBROUTINE LOADB0 ELSE IF (CARD(1:6) == 'CMASS1' ) THEN LCMASS = LCMASS + 1 - + ELSE IF (CARD(1:6) == 'CMASS2' ) THEN LCMASS = LCMASS + 1 LPMASS = LPMASS + 1 - + ELSE IF (CARD(1:6) == 'CMASS3' ) THEN LCMASS = LCMASS + 1 - + ELSE IF (CARD(1:6) == 'CMASS4' ) THEN LCMASS = LCMASS + 1 LPMASS = LPMASS + 1 - + ELSE IF (CARD(1:5) == 'CONM2' ) THEN LCONM2 = LCONM2 + 1 - + ELSE IF (CARD(1:6) == 'CONROD' ) THEN LELE = LELE + 1 LPROD = LPROD + 1 LEDAT = LEDAT + MEDAT_CROD - + ELSE IF((CARD(1:6) == 'CORD1C' ) .OR. (CARD(1:6) == 'CORD1R' ) .OR. (CARD(1:6) == 'CORD1S' )) THEN LCORD = LCORD + 1 IF (CARD(41:48) /= ' ') LCORD = LCORD + 1 - + ELSE IF((CARD(1:6) == 'CORD2C' ) .OR. (CARD(1:6) == 'CORD2R' ) .OR. (CARD(1:6) == 'CORD2S' )) THEN LCORD = LCORD + 1 - + ELSE IF (CARD(1:6) == 'CPENTA' ) THEN LELE = LELE + 1 CALL BD_CPENTA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) @@ -298,15 +298,15 @@ SUBROUTINE LOADB0 LELE = LELE + 1 LEDAT = LEDAT + MEDAT_CQUAD8 CALL BD_CQUAD80 ( CARD, LARGE_FLD_INP ) - + ELSE IF (CARD(1:4) == 'CROD' ) THEN LELE = LELE + 1 LEDAT = LEDAT + MEDAT_CROD - + ELSE IF (CARD(1:6) == 'CSHEAR' ) THEN LELE = LELE + 1 LEDAT = LEDAT + MEDAT_CSHEAR - + ELSE IF (CARD(1:6) == 'CTETRA' ) THEN LELE = LELE + 1 CALL BD_CTETRA0 ( CARD, LARGE_FLD_INP, DELTA_LEDAT ) @@ -316,7 +316,7 @@ SUBROUTINE LOADB0 LELE = LELE + 1 LEDAT = LEDAT + MEDAT_CTRIA CALL BD_CTRIA0 ( CARD, LARGE_FLD_INP ) - + ELSE IF (CARD(1:6) == 'CUSER1' ) THEN LELE = LELE + 1 LEDAT = LEDAT + MEDAT_CUSER1 @@ -335,20 +335,20 @@ SUBROUTINE LOADB0 ELSE IF (CARD(1:5) == 'DEBUG' ) THEN CALL BD_DEBUG0 ( CARD ) - + ELSE IF((CARD(1:5) == 'FORCE' ) .OR. (CARD(1:6) == 'MOMENT' )) THEN LFORCE = LFORCE +1 - + ELSE IF (CARD(1:4) == 'GRAV' ) THEN LGRAV = LGRAV + 1 - + ELSE IF (CARD(1:6) == 'GRDSET' ) THEN CALL BD_GRDSET0 ( CARD ) - + ELSE IF (CARD(1:4) == 'GRID' ) THEN LGRID = LGRID + 1 LDOFG = LDOFG + 6 - + ELSE IF (CARD(1:4) == 'LOAD' ) THEN LLOADR = LLOADR + 1 CALL BD_LOAD0 ( CARD, LARGE_FLD_INP, ILOAD ) @@ -376,20 +376,20 @@ SUBROUTINE LOADB0 ELSE IF (CARD(1:6) == 'PARAM ' ) THEN CALL BD_PARAM0 ( CARD ) - + ELSE IF((CARD(1:5) == 'PBAR ' ) .OR. (CARD(1:5) == 'PBAR*' )) THEN LPBAR = LPBAR + 1 - + ELSE IF (CARD(1:5) == 'PBARL' ) THEN LPBAR = LPBAR + 1 NPBARL = NPBARL + 1 - + ELSE IF (CARD(1:5) == 'PBEAM' ) THEN LPBEAM = LPBEAM + 1 - + ELSE IF (CARD(1:5) == 'PBUSH' ) THEN LPBUSH = LPBUSH + 1 - + ELSE IF (CARD(1:5) == 'PCOMP' ) THEN LPCOMP = LPCOMP + 1 CALL BD_PCOMP0 ( CARD, LARGE_FLD_INP, IPLIES ) @@ -406,19 +406,19 @@ SUBROUTINE LOADB0 ELSE IF (CARD(1:5) == 'PELAS' ) THEN LPELAS = LPELAS + 1 - + ELSE IF (CARD(1:6) == 'PLOAD2' ) THEN LPDAT = LPDAT + MPDAT_PLOAD2 LPLOAD = LPLOAD + 1 - + ELSE IF (CARD(1:6) == 'PLOAD4' ) THEN LPDAT = LPDAT + MPDAT_PLOAD4 LPLOAD = LPLOAD + 1 - + ELSE IF (CARD(1:6) == 'PLOTEL' ) THEN LELE = LELE + 1 LEDAT = LEDAT + MEDAT_PLOTEL - + ELSE IF (CARD(1:5) == 'PMASS' ) THEN LPMASS = LPMASS + 4 @@ -427,19 +427,19 @@ SUBROUTINE LOADB0 ELSE IF (CARD(1:6) == 'PSHEAR' ) THEN LPSHEAR = LPSHEAR + 1 - + ELSE IF (CARD(1:6) == 'PSHELL' ) THEN LPSHEL = LPSHEL + 1 - + ELSE IF (CARD(1:6) == 'PSOLID' ) THEN LPSOLID = LPSOLID + 1 - + ELSE IF (CARD(1:6) == 'PUSER1' ) THEN LPUSER1 = LPUSER1 + 1 - + ELSE IF (CARD(1:7) == 'PUSERIN' ) THEN LPUSERIN = LPUSERIN + 1 - + ELSE IF (CARD(1:4) == 'RBAR' ) THEN LRIGEL = LRIGEL + 1 @@ -458,24 +458,24 @@ SUBROUTINE LOADB0 ELSE IF (CARD(1:6) == 'RFORCE' ) THEN LRFORCE = LRFORCE + 1 - + ELSE IF (CARD(1:7) == 'RSPLINE' ) THEN CALL BD_RSPLINE0 ( CARD, LARGE_FLD_INP, IRSPLINE ) LRIGEL = LRIGEL + 1 IF (IRSPLINE > MRSPLINE) THEN MRSPLINE = IRSPLINE ENDIF - + ELSE IF (CARD(1:5) == 'SLOAD' ) THEN CALL BD_SLOAD0 ( CARD, DELTA_SLOAD ) LSLOAD = LSLOAD + DELTA_SLOAD - + ELSE IF (CARD(1:5) == 'SEQGP' ) THEN LSEQ = LSEQ + 4 ! Conservative estimate. There can only be 4 entries per card ELSE IF (CARD(1:5) == 'SNORM' ) THEN LSNORM = LSNORM + 1 - + ELSE IF((CARD(1:4) == 'SPC ' ) .OR. (CARD(1:4) == 'SPC*' )) THEN LSPC = LSPC + 1 @@ -497,21 +497,21 @@ SUBROUTINE LOADB0 ELSE IF (CARD(1:6) == 'TEMPRB' ) THEN LTDAT = LTDAT + MTDAT_TEMPRB - + ELSE IF (CARD(1:6) == 'TEMPP1' ) THEN LTDAT = LTDAT + MTDAT_TEMPP1 ELSE IF (CARD(1:7) == 'ENDDATA' ) THEN - EXIT - + EXIT + ENDIF - + ENDDO -! ! Reset FATAL_ERR to 0. Errors that incremented FATAL_ERR in LOADBO (and routines it calls) will be recorded and +! ! Reset FATAL_ERR to 0. Errors that incremented FATAL_ERR in LOADBO (and routines it calls) will be recorded and ! ! reported when LOADB runs. -! ! -! ! FATAL_ERR = 0 +! ! +! ! FATAL_ERR = 0 RETURN @@ -524,5 +524,5 @@ SUBROUTINE LOADB0 1011 FORMAT(' *ERROR 1011: NO ',A10,' ENTRY FOUND BEFORE END OF FILE OR END OF RECORD IN INPUT FILE') ! ********************************************************************************************************************************** - + END SUBROUTINE LOADB0 diff --git a/Source/LK1/L1A/LOADB_RESTART.f90 b/Source/LK1/L1A/LOADB_RESTART.f90 index 10fc8529..da2964a1 100644 --- a/Source/LK1/L1A/LOADB_RESTART.f90 +++ b/Source/LK1/L1A/LOADB_RESTART.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE LOADB_RESTART ! LOADB_RESTART reads in some entries in the Bulk Data deck @@ -34,11 +34,11 @@ SUBROUTINE LOADB_RESTART USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE LOADB_RESTART_USE_IFs IMPLICIT NONE - + INTEGER(LONG), PARAMETER :: NUM_PARMS = 25 ! Number of PARAM entries allowed in RESTART INTEGER(LONG), PARAMETER :: NUM_DEB = 28 ! Number of DEBUG entries allowed in RESTART @@ -54,16 +54,16 @@ SUBROUTINE LOADB_RESTART CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of 8 characters making up CARD CHARACTER( 1*BYTE) :: LARGE_FLD_INP ! If 'Y', card is in large field format CHARACTER( 8*BYTE) :: PARM_NAME(NUM_PARMS)! Names of PARAM entries allowed in RESTART - + INTEGER(LONG) :: COMMENT_COL ! Col on CARD where a comment begins (if one exists) INTEGER(LONG) :: DEB_NUM(NUM_DEB) ! Allowable DEBUG indices in restart INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: INDEX ! Index INTEGER(LONG) :: INT_VAL ! Integer value read fron a card field INTEGER(LONG) :: IERR ! Error indicator from subr FFIELD - INTEGER(LONG) :: IOCHK ! IOSTAT error number when reading Bulk Data cards from unit IN1 + INTEGER(LONG) :: IOCHK ! IOSTAT error number when reading Bulk Data cards from unit IN1 + - ! ********************************************************************************************************************************** @@ -71,16 +71,16 @@ SUBROUTINE LOADB_RESTART PARM_NAME(I) = ' ' ENDDO - PARM_NAME( 1) = 'AUTOSPC ' - PARM_NAME( 2) = 'ELFORCEN' - PARM_NAME( 3) = 'EQCHECK ' - PARM_NAME( 4) = 'GRDPNT ' - PARM_NAME( 5) = 'POST ' - PARM_NAME( 6) = 'PRTBASIC' - PARM_NAME( 7) = 'PRTCORD ' - PARM_NAME( 8) = 'PRTDISP' - PARM_NAME( 9) = 'PRTDOF ' - PARM_NAME(10) = 'PRTFOR ' + PARM_NAME( 1) = 'AUTOSPC ' + PARM_NAME( 2) = 'ELFORCEN' + PARM_NAME( 3) = 'EQCHECK ' + PARM_NAME( 4) = 'GRDPNT ' + PARM_NAME( 5) = 'POST ' + PARM_NAME( 6) = 'PRTBASIC' + PARM_NAME( 7) = 'PRTCORD ' + PARM_NAME( 8) = 'PRTDISP' + PARM_NAME( 9) = 'PRTDOF ' + PARM_NAME(10) = 'PRTFOR ' PARM_NAME(11) = 'PRTGMN ' PARM_NAME(12) = 'PRTGOA ' PARM_NAME(13) = 'PRTjMN ' @@ -94,8 +94,8 @@ SUBROUTINE LOADB_RESTART PARM_NAME(21) = 'PRTUO0 ' PARM_NAME(22) = 'PRTYS ' PARM_NAME(23) = 'RELINK3 ' - PARM_NAME(24) = 'SORT_MAX' - PARM_NAME(25) = 'TINY ' + PARM_NAME(24) = 'SORT_MAX' + PARM_NAME(25) = 'TINY ' DEB_NUM( 1) = 1 DEB_NUM( 2) = 2 @@ -150,7 +150,7 @@ SUBROUTINE LOADB_RESTART FATAL_ERR = FATAL_ERR + 1 CYCLE ENDIF - + ! Remove any comments within the CARD1 by deleting everything ! from $ on (after col 1) COMMENT_COL = 1 @@ -192,7 +192,7 @@ SUBROUTINE LOADB_RESTART FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ENDIF - + IF (IOCHK > 0) THEN WRITE(ERR,1010) DECK_NAME WRITE(F06,1010) DECK_NAME @@ -200,11 +200,11 @@ SUBROUTINE LOADB_RESTART FATAL_ERR = FATAL_ERR + 1 CYCLE ENDIF - + IF (ECHO /= 'NONE ') THEN WRITE(F06,101) CARD2 ENDIF - + COMMENT_COL = 1 DO I=2,BD_ENTRY_LEN IF (CARD2(I:I) == '$') THEN @@ -230,7 +230,7 @@ SUBROUTINE LOADB_RESTART ENDIF WRITE(F06,1003) CYCLE - ENDIF + ENDIF ENDIF @@ -269,10 +269,10 @@ SUBROUTINE LOADB_RESTART ENDIF ENDDO - ELSE IF (CARD(1:8) == 'ENDDATA ') THEN + ELSE IF (CARD(1:8) == 'ENDDATA ') THEN WRITE(F06,101) CARD EXIT - + ELSE IF ((CARD(1:1) == '$') .OR. (CARD(1:BD_ENTRY_LEN) == ' ')) THEN CYCLE @@ -286,7 +286,7 @@ SUBROUTINE LOADB_RESTART ENDIF ENDIF - + ENDDO @@ -317,5 +317,5 @@ SUBROUTINE LOADB_RESTART 9993 FORMAT(' *WARNING : PRIOR ENTRY NOT PROCESSED BY ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE LOADB_RESTART diff --git a/Source/LK1/L1A/LOADC0.f90 b/Source/LK1/L1A/LOADC0.f90 index e5013d6b..c0158889 100644 --- a/Source/LK1/L1A/LOADC0.f90 +++ b/Source/LK1/L1A/LOADC0.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE LOADC0 - + ! Preliminary reading of the Case Control to count several data sizes ! so that arrays may be allocated prior to the final reading of the ! Case Control. @@ -34,16 +34,16 @@ SUBROUTINE LOADC0 ! 1) Counts the number of subcases and increments LSUB ! 2) Counts the number of SET cards and calls CC_SET0 to count the ! number of characters in SET's to determine LSETLN - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN1 USE SCONTR, ONLY : BLNK_SUB_NAM, CC_ENTRY_LEN, FATAL_ERR, LSETS, LSUB USE TIMDAT, ONLY : TSEC - + USE LOADC0_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'LOADC0' CHARACTER(LEN=CC_ENTRY_LEN) :: CARD ! Case Control card CHARACTER(LEN=CC_ENTRY_LEN) :: CARD1 ! CARD shifted to begin in col 1 @@ -55,7 +55,7 @@ SUBROUTINE LOADC0 INTEGER(LONG) :: IOCHK ! IOSTAT error number when reading a Case Control card from unit IN1 INTEGER(LONG) :: JERR ! Error count - + ! ********************************************************************************************************************************** @@ -72,12 +72,12 @@ SUBROUTINE LOADC0 CALL READ_BDF_LINE(IN1, IOCHK, CARD) IF (IOCHK < 0) THEN ! Quit if EOF/EOR occurs during read - WRITE(ERR,1011) END_CARD - WRITE(F06,1011) END_CARD + WRITE(ERR,1011) END_CARD + WRITE(F06,1011) END_CARD FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ENDIF - + IF (IOCHK > 0) THEN ! If error occurs during read, write message & CYCLE back to read again WRITE(ERR,1010) DECK_NAME WRITE(F06,1010) DECK_NAME @@ -85,7 +85,7 @@ SUBROUTINE LOADC0 FATAL_ERR = FATAL_ERR + 1 CYCLE ENDIF - + CALL REPLACE_TABS_W_BLANKS ( CARD ) ! Replace all tab characters with a white space CALL CSHIFT ( CARD, ' ', CARD1, CHAR_COL, IERR ) ! Shift CARD so it begins in col 1 @@ -108,7 +108,7 @@ SUBROUTINE LOADC0 IF (LSUB == 0) THEN LSUB = 1 ENDIF - + IF (JERR > 0) THEN WRITE(ERR,10141) WRITE(F06,10141) @@ -127,7 +127,7 @@ SUBROUTINE LOADC0 1011 FORMAT(' *ERROR 1011: NO ',A10,' ENTRY FOUND BEFORE END OF FILE OR END OF RECORD IN INPUT FILE') 10141 FORMAT(/,' PROCESSING TERMINATED DUE TO ABOVE ERRORS') - + ! ********************************************************************************************************************************** - + END SUBROUTINE LOADC0 diff --git a/Source/LK1/L1A/LOADE.f90 b/Source/LK1/L1A/LOADE.f90 index 920af16b..3453b515 100644 --- a/Source/LK1/L1A/LOADE.f90 +++ b/Source/LK1/L1A/LOADE.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE LOADE - + ! LOADE reads in the EXEC CONTROL DECK USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, IN1 @@ -38,11 +38,11 @@ SUBROUTINE LOADE USE OUTPUT4_MATRICES, ONLY : ACT_OU4_MYSTRAN_NAMES, ACT_OU4_OUTPUT_NAMES, ALLOW_OU4_MYSTRAN_NAMES, & ALLOW_OU4_OUTPUT_NAMES, OU4_PART_MAT_NAMES, OU4_PART_VEC_NAMES, NUM_OU4_VALID_NAMES - + USE LOADE_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'LOADE' CHARACTER(LEN=EC_ENTRY_LEN) :: CARD ! Exec Control deck card CHARACTER(LEN=EC_ENTRY_LEN) :: CARD1 ! CARD shifted to begin in col 1 @@ -53,7 +53,7 @@ SUBROUTINE LOADE CHARACTER(LEN=EC_ENTRY_LEN) :: ERRTOK ! An error message that may be returned from subr STOKEN CHARACTER( 3*BYTE) :: EXCEPT = 'OFF' ! An input/output variable for subr STOKEN, called herein - + CHARACTER( 1*BYTE) :: PRT_OU4_VALID_NAMES! If 'Y', print valid OUTPUT4 matrix names CHARACTER( 3*BYTE) :: THRU = 'OFF' ! An input/output variable for subr STOKEN, called herein @@ -63,7 +63,7 @@ SUBROUTINE LOADE ! Proper SOL number CHARACTER( 10*BYTE) :: SOL_NUM_SHOULD_BE = '1, 3 or 31' CHARACTER( 1*BYTE) :: ANY_OU4_NAME_BAD ! 'Y'/'N' if requested OUTPUT4 matrix name is valid - + INTEGER(LONG) :: CHAR_COL ! Column number on CARD where character CHAR is found INTEGER(LONG) :: EC_OUTPUT4_ERR = 0! Count of errors when readig OUTPUT4 entries INTEGER(LONG) :: I ! DO loop index @@ -71,12 +71,12 @@ SUBROUTINE LOADE INTEGER(LONG) :: JERR = 0! Error indicator. INTEGER(LONG) :: IERROR ! An error number returned from subr STOKEN INTEGER(LONG) :: IOCHK ! IOSTAT error number when reading a Case Control card from unit IN1 - INTEGER(LONG) :: ISTART ! An input/output for subr STOKEN (where a token begins in CARD) + INTEGER(LONG) :: ISTART ! An input/output for subr STOKEN (where a token begins in CARD) INTEGER(LONG) :: NTOKEN ! An output from subr STOKEN (how many tokens were read) INTEGER(LONG) :: SOL_INT ! Integer value read from an Exec Control SOL entry INTEGER(LONG) :: TOKLEN ! Length of character string sent to subr STOKEN (= LEN(CARD)) - + ! ********************************************************************************************************************************** @@ -97,7 +97,7 @@ SUBROUTINE LOADE ENDDO ! Process EXECUTIVE CONTROL DECK - + DO CALL READ_BDF_LINE(IN1, IOCHK, CARD) @@ -121,7 +121,7 @@ SUBROUTINE LOADE CALL REPLACE_TABS_W_BLANKS ( CARD ) ! Replace all tab characters with a white space CALL CSHIFT ( CARD, ' ', CARD1, CHAR_COL, IERR ) ! Shift CARD so it begins in col 1 - + IF (CARD1(1:1) == '$') THEN DO I=IACHAR('A'),IACHAR('Z') IF (CARD1(2:2) == ACHAR(I)) THEN @@ -134,10 +134,10 @@ SUBROUTINE LOADE ELSE IF (CARD1(1: 3) == 'APP' ) THEN CONTINUE - + ELSE IF (CARD1(1: 4) == 'CEND' ) THEN - EXIT - + EXIT + ELSE IF (CARD1(1: 6) == 'CHKPNT' ) THEN CHKPNT = 'Y' @@ -146,10 +146,10 @@ SUBROUTINE LOADE ELSE IF (CARD1(1: 2) == 'ID' ) THEN CONTINUE - + ELSE IF (CARD1(1: 3) == 'IN4' ) THEN CALL EC_IN4FIL ( CARD1 ) - + ELSE IF (CARD1(1: 7) == 'OUTPUT4' ) THEN CALL EC_OUTPUT4 ( CARD1, JERR, ANY_OU4_NAME_BAD ) EC_OUTPUT4_ERR = EC_OUTPUT4_ERR + JERR @@ -160,7 +160,7 @@ SUBROUTINE LOADE ELSE IF (CARD1(1: 5) == 'PARTN' ) THEN CALL EC_PARTN ( CARD1, JERR ) EC_OUTPUT4_ERR = EC_OUTPUT4_ERR + JERR - + ELSE IF (CARD1(1: 7) == 'RESTART' ) THEN RESTART = 'Y' @@ -224,7 +224,7 @@ SUBROUTINE LOADE WRITE(ERR,1017) TOKEN(1) WRITE(F06,1017) TOKEN(1) FATAL_ERR = FATAL_ERR + 1 - CYCLE + CYCLE ENDIF ELSE IF (TOKTYP(1) == 'INTEGER ') THEN ! TOKEN(1) is the integer SOL_INT value @@ -265,7 +265,7 @@ SUBROUTINE LOADE CYCLE ENDIF ENDIF - + ELSE IF (CARD1(1: 4) == 'TIME' ) THEN CONTINUE @@ -279,7 +279,7 @@ SUBROUTINE LOADE ENDIF ENDDO - + IF (DOLLAR_WARN == 'Y') THEN WARN_ERR = WARN_ERR + 1 WRITE(ERR,1101) CARD @@ -289,7 +289,7 @@ SUBROUTINE LOADE ENDIF ! Check to make sure that a SOL card was read in EXEC CONTROL. - + IF (SOL_NAME(1:) == ' ') THEN WRITE(ERR,1016) WRITE(F06,1016) @@ -326,8 +326,8 @@ SUBROUTINE LOADE if (SOL_NAME == 'NLSTATIC') then if (debug(202) == 0) then ! Use non-advertised debug(202) /= 0 to continue testing NLSTATIC - Write(err,1103) - Write(f06,1103) + Write(err,1103) + Write(f06,1103) ec_output4_err = ec_output4_err + 1 endif endif @@ -385,5 +385,5 @@ SUBROUTINE LOADE ! ********************************************************************************************************************************** - + END SUBROUTINE LOADE diff --git a/Source/LK1/L1A/LOADE0.f90 b/Source/LK1/L1A/LOADE0.f90 index 7e95cf90..93e324c0 100644 --- a/Source/LK1/L1A/LOADE0.f90 +++ b/Source/LK1/L1A/LOADE0.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE LOADE0 - + ! LOADE0 does a preliminary read of the EXEC CONTROL DECK to find ! if there is a RESTART entry USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -33,7 +33,7 @@ SUBROUTINE LOADE0 LEN_RESTART_FNAME, LNUM_IN4_FILES, RESTART_FILNAM, SCR USE SCONTR, ONLY : BLNK_SUB_NAM, EC_ENTRY_LEN, FATAL_ERR, RESTART USE TIMDAT, ONLY : TSEC - + USE LOADE0_USE_IFs IMPLICIT NONE @@ -44,7 +44,7 @@ SUBROUTINE LOADE0 CHARACTER(12*BYTE) :: DECK_NAME = 'EXEC CONTROL' CHARACTER( 4*BYTE), PARAMETER :: END_CARD = 'CEND' CHARACTER(LEN(INFILE)) :: FILNAM - + INTEGER(LONG) :: CHAR_COL ! Column number on CARD where character CHAR is found INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IBEG ! Col where FILNAM begins after leading blanks @@ -52,7 +52,7 @@ SUBROUTINE LOADE0 INTEGER(LONG) :: IERR = 0 ! Error indicator. INTEGER(LONG) :: IOCHK ! IOSTAT error number when reading a Case Control card from unit IN1 - + ! ********************************************************************************************************************************** @@ -72,8 +72,8 @@ SUBROUTINE LOADE0 ENDIF IF (IOCHK > 0) THEN ! Check if error occurs during read. - WRITE(ERR,1010) DECK_NAME - WRITE(F06,1010) DECK_NAME + WRITE(ERR,1010) DECK_NAME + WRITE(F06,1010) DECK_NAME WRITE(F06,'(A)') CARD FATAL_ERR = FATAL_ERR + 1 CYCLE @@ -121,7 +121,7 @@ SUBROUTINE LOADE0 ELSE IF (CARD1(1:4) == 'CEND' ) THEN ! Check for CEND card EXIT main - ENDIF + ENDIF ENDDO main @@ -137,5 +137,5 @@ SUBROUTINE LOADE0 1011 FORMAT(' *ERROR 1011: NO ',A10,' ENTRY FOUND BEFORE END OF FILE OR END OF RECORD IN INPUT FILE') ! ********************************************************************************************************************************** - + END SUBROUTINE LOADE0 diff --git a/Source/LK1/L1A/READ_INCLUDE_FILNAM.f90 b/Source/LK1/L1A/READ_INCLUDE_FILNAM.f90 index b7096c90..cb0ad32a 100644 --- a/Source/LK1/L1A/READ_INCLUDE_FILNAM.f90 +++ b/Source/LK1/L1A/READ_INCLUDE_FILNAM.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE READ_INCLUDE_FILNAM ( CARD, IERR ) - + ! If there is an INCLUDE entry this subr reads the file name from that entry. The entry will be of the form: ! INCLUDE 'filename' with or without the ' marks @@ -38,7 +38,7 @@ SUBROUTINE READ_INCLUDE_FILNAM ( CARD, IERR ) USE READ_INCLUDE_FILNAM_USE_IFs IMPLICIT NONE - + LOGICAL :: LEXIST ! 'T' if INCFIL exists CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'READ_INCLUDE_FILNAM' @@ -56,7 +56,7 @@ SUBROUTINE READ_INCLUDE_FILNAM ( CARD, IERR ) INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IOCHK ! IOSTAT error number when reading a Case Control card from unit IN1 INTEGER(LONG) :: START_COL ! Col from CARD1 where the 1st ' exists, if it does exist - INTEGER(LONG) :: OUNT(2) ! File units to write messages to + INTEGER(LONG) :: OUNT(2) ! File units to write messages to @@ -166,9 +166,9 @@ SUBROUTINE READ_INCLUDE_FILNAM ( CARD, IERR ) 1044 FORMAT(' *ERROR 1044',A,':INCORRECT FORMAT FOR "INCLUDE" ENTRY: ',A) ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE DEB_READ_INCL_FILNAM diff --git a/Source/LK1/L1A/REPLACE_TABS_W_BLANKS.f90 b/Source/LK1/L1A/REPLACE_TABS_W_BLANKS.f90 index 4b368c0f..8004a424 100644 --- a/Source/LK1/L1A/REPLACE_TABS_W_BLANKS.f90 +++ b/Source/LK1/L1A/REPLACE_TABS_W_BLANKS.f90 @@ -1,49 +1,49 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE REPLACE_TABS_W_BLANKS ( CARD ) - -! Searches input CARD for tab characters and replaces them with 1 white space character. Used primarily for Exec Control and + +! Searches input CARD for tab characters and replaces them with 1 white space character. Used primarily for Exec Control and ! Case Control entries (but not Bulk Data entries - which are handled differently). USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE REPLACE_TABS_W_BLANKS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REPLACE_TABS_W_BLANKS' CHARACTER(LEN=*), INTENT(INOUT) :: CARD ! Input entry character line CHARACTER(LEN=LEN(CARD)) :: CARD0 ! Temporary CARD - INTEGER(LONG) :: I ! DO loop index - + INTEGER(LONG) :: I ! DO loop index + ! ********************************************************************************************************************************** diff --git a/Source/LK1/L1A/RW_INCLUDE_FILES.f90 b/Source/LK1/L1A/RW_INCLUDE_FILES.f90 index 896fccfd..4eab8644 100644 --- a/Source/LK1/L1A/RW_INCLUDE_FILES.f90 +++ b/Source/LK1/L1A/RW_INCLUDE_FILES.f90 @@ -1,43 +1,43 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE RW_INCLUDE_FILES ( UNIT_IN, UNIT_OUT ) - + ! Reads card images from INCLUDE files and writes them out to the file that will have the complete input data (DAT file + INCLUDE -! files entries) +! files entries) USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06, FILE_NAM_MAXLEN, INCFIL USE SCONTR, ONLY : BLNK_SUB_NAM, EC_ENTRY_LEN, FATAL_ERR - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE RW_INCLUDE_FILES_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'RW_INCLUDE_FILES' CHARACTER(LEN=EC_ENTRY_LEN) :: CARD ! Entry from INCL_FILNAM @@ -46,7 +46,7 @@ SUBROUTINE RW_INCLUDE_FILES ( UNIT_IN, UNIT_OUT ) INTEGER(LONG), INTENT(IN) :: UNIT_OUT ! Unit number to write INCLUDE entries to INTEGER(LONG) :: ICNT = 0 ! Counter INTEGER(LONG) :: IOCHK ! IOSTAT error number when reading an entry from INCL_FILNAM - + ! ********************************************************************************************************************************** @@ -92,7 +92,7 @@ SUBROUTINE RW_INCLUDE_FILES ( UNIT_IN, UNIT_OUT ) ENDIF ENDIF - + ENDDO main WRITE(UNIT_OUT,202,IOSTAT=IOCHK) INCFIL diff --git a/Source/LK1/L1B/CORD_PROC.f90 b/Source/LK1/L1B/CORD_PROC.f90 index 02a71fbc..00bc8aa8 100644 --- a/Source/LK1/L1B/CORD_PROC.f90 +++ b/Source/LK1/L1B/CORD_PROC.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CORD_PROC - + ! This subroutine calculates coordinate system transformation matrices defined on CORD2R, CORD2C, or CORD2S bulk data ! cards. The final transformations in this subroutine are between a defined coord systems' principal axes and the ! basic coordinate system. The principal axes of a coordinate system are the three orthogonal rectangular axes that @@ -35,7 +35,7 @@ SUBROUTINE CORD_PROC ! axes depend on the radius and angles in those systems. These transformations are only between the basic system and the ! principal axes of the coord system. The final transformations for specific grid points in cylindrical and spherical ! coordinate systems is generated from the transformations in this subroutine and is done in subroutine GEN_T0L.FOR. - + ! The transformation matrices are stored, temporarily, in a 3-D array TN(I,J,K) where K is the internal coord sys ! number (NCORD of them). Thus, TN can be looked at as NCORD 2-D arrays with each 2-D array being a 3x3 coord ! transformation matrix. @@ -44,12 +44,12 @@ SUBROUTINE CORD_PROC ! At the conclusion of this subroutine, the transformation matrices are stored in array RGRID ! along with the basic coordinates of the origin of the coord system. This data is needed in GEN_T0L.FOR - + ! The subroutine is divided into 8 Phases with the description of each phase given in that section below. The final result is arrays ! CORD(I) (modified so that all reference coord systems are basic), RCORD(I) (which has 12 cols: 1-3 are basic coords of origin, ! 4-6 are ist row of TN, 7-9 are 2nd row and 10-12 are 3rd row. TN is the 3x3 coord transformation matrix which transforms a vector ! from CID to basic. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONE80, PI, CONV_DEG_RAD USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -61,7 +61,7 @@ SUBROUTINE CORD_PROC USE CORD_PROC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CORD_PROC' CHARACTER( 1*BYTE) :: ALL_RIDS_0 = 'Y' ! Set to 'Y' when all coord systems' RID is basic CHARACTER( 1*BYTE) :: CIRC_ERR = 'N' ! Set to 'Y' if a coord sys has a circular reference back to itself @@ -71,7 +71,7 @@ SUBROUTINE CORD_PROC CHARACTER( 1*BYTE) :: FOUND_GC = 'N' ! Set to 'Y' if grid C for CORD1R coord system is found in array GRID CHARACTER( 1*BYTE) :: FOUND_RID = 'N' ! Set to 'Y' if the RID for a coord system is a system in array CORD CHARACTER( 1*BYTE) :: TRANS_DONE(NCORD) ! If 'Y' then the transformation to basic for a coord sys has been done - + INTEGER(LONG) :: CASCADE_PROC_ARRAY1(3,3) ! Array which has info about how many coord systems have to be cascaded ! in order to get a transformation from a coord sys (actual number CID) @@ -81,7 +81,7 @@ SUBROUTINE CORD_PROC ! coord systems to get the coord transformation from CID to basic. Row 3 ! has the number of coord systems that need to be cascaded to get the ! transformation from CID to basic. -! +! INTEGER(LONG) :: CASCADE_PROC_ARRAY(3,NCORD) ! Same info from CASCADE_PROC_ARRAY1 but values for all coord systems. @@ -116,7 +116,7 @@ SUBROUTINE CORD_PROC INTEGER(LONG) :: RID_ARRAY_COL ! Col number in RID_ARRAY - + REAL(DOUBLE) :: EMTN(3,3) ! A coord transf matrix from some coord system to basic REAL(DOUBLE) :: EPS1 ! A small number REAL(DOUBLE) :: IVEC(3) ! A unit vector in the x direction of a coord system @@ -151,16 +151,16 @@ SUBROUTINE CORD_PROC REAL(DOUBLE) :: VI(3) ! Vector in the x-z plane of a coord system REAL(DOUBLE) :: VJ(3) ! Vector in the y direction in a coord system REAL(DOUBLE) :: VK(3) ! Vector in the z direction in a coord system - + INTRINSIC :: DCOS, DSIN, DSQRT - + ! ********************************************************************************************************************************** ! Initialize - + EPS1 = DABS(EPSIL(1)) - + DO I=1,NCORD TRANS_DONE = 'N' IF (CORD(I,1) == 11) CORD_NAME(I) = 'CORD1R' @@ -168,7 +168,7 @@ SUBROUTINE CORD_PROC IF (CORD(I,1) == 13) CORD_NAME(I) = 'CORD1S' IF (CORD(I,1) == 21) CORD_NAME(I) = 'CORD2R' IF (CORD(I,1) == 22) CORD_NAME(I) = 'CORD2C' - IF (CORD(I,1) == 23) CORD_NAME(I) = 'CORD2S' + IF (CORD(I,1) == 23) CORD_NAME(I) = 'CORD2S' ENDDO DO I=1,NCORD @@ -181,15 +181,15 @@ SUBROUTINE CORD_PROC ! ********************************************************************************************************************************** ! Phase 1: For CORD1R: (1) Change grid numbers (that were put into array CORD when B.D. was read) to the reference coordinate system -! number for that grid. -! (2) Put coords of the reference grids on the CORD1R into array RCORD. +! number for that grid. +! (2) Put coords of the reference grids on the CORD1R into array RCORD. IF ((PRTCORD == 1) .OR. (PRTCORD == 2)) CALL PARAM_PRTCORD_OUTPUT ( '11' ) - + IERROR = 0 CALL CORDCHK ( IERROR ) ! CORDCHK makes sure that all cord system ID's are unique - + doi11:DO I=1,NCORD CORD_TYPE = CORD(I,1) @@ -234,20 +234,20 @@ SUBROUTINE CORD_PROC IF (FOUND_GA == 'N') THEN IERROR = IERROR + 1 - WRITE(ERR,1315) GA, CORD(I,2) - WRITE(F06,1315) GA, CORD(I,2) + WRITE(ERR,1315) GA, CORD(I,2) + WRITE(F06,1315) GA, CORD(I,2) ENDIF IF (FOUND_GB == 'N') THEN IERROR = IERROR + 1 - WRITE(ERR,1315) GB, CORD(I,2) - WRITE(F06,1315) GB, CORD(I,2) + WRITE(ERR,1315) GB, CORD(I,2) + WRITE(F06,1315) GB, CORD(I,2) ENDIF IF (FOUND_GC == 'N') THEN IERROR = IERROR + 1 - WRITE(ERR,1315) GC, CORD(I,2) - WRITE(F06,1315) GC, CORD(I,2) + WRITE(ERR,1315) GC, CORD(I,2) + WRITE(F06,1315) GC, CORD(I,2) ENDIF IF ((PRTCORD == 1) .OR. (PRTCORD == 2)) CALL PARAM_PRTCORD_OUTPUT ( '12' ) @@ -268,12 +268,12 @@ SUBROUTINE CORD_PROC ! Phase 2: Change coords on cylindrical and spherical systems to coords in terms of the defining rectangular axes of that system DO I = 1,NCORD - + CORD_TYPE = CORD(I,1) CID = CORD(I,2) ! CID is the actual coord system no. for internal no. I. RID = CORD(I,3) ! RID is the ref coord sys for coord sys I - + IF (RID /= 0) THEN ! If RID is not basic, determine the coord type for RID. DO J=1,NCORD CIDJ = CORD(J,2) @@ -281,15 +281,15 @@ SUBROUTINE CORD_PROC CORD_TYPE = CORD(J,1) EXIT ENDIF - ENDDO - + ENDDO + IF ((CORD_TYPE == 12) .OR. (CORD_TYPE == 22)) THEN DO J=1,7,3 ! If RID is cyl, replace R and THETA in RCORD w/ X, Y coords that are RADIUS = RCORD(I,J) ! the defining rectangular axes of the cyl system with the X-Y plane THETA = RCORD(I,J+1)*CONV_DEG_RAD ! at THETA = 0. RCORD(I,J) = RADIUS*DCOS(THETA) RCORD(I,J+1) = RADIUS*DSIN(THETA) - ENDDO + ENDDO ELSE IF ((CORD_TYPE == 13) .OR. (CORD_TYPE == 23)) THEN DO J=1,7,3 ! If RID is cyl, replace R, PHI, THETA in RCORD w/ X, Y, Z coords that RADIUS = RCORD(I,J) ! are the defining rectangular axes of the cyl system with the X-Y plane @@ -298,24 +298,24 @@ SUBROUTINE CORD_PROC RCORD(I,J) = RADIUS*DSIN(THETA)*DCOS(PHI) RCORD(I,J+1) = RADIUS*DSIN(THETA)*DSIN(PHI) RCORD(I,J+2) = RADIUS*DCOS(THETA) - ENDDO + ENDDO ENDIF ENDIF ENDDO IF (PRTCORD == 2) CALL PARAM_PRTCORD_OUTPUT ( '21' ) - + ! ********************************************************************************************************************************** -! Phase 3: Check coordinate system data for logic. +! Phase 3: Check coordinate system data for logic. ! (1) There must be a final reference to the basic system (0) ! (2) There can be no circular references (i.e. a coord system can reference any number of other coord sys but cannot ! reference itself in that chain of refs). -! (3) Create RID_ARRAY which shows the chain of references of each coord system +! (3) Create RID_ARRAY which shows the chain of references of each coord system ! A complete check is made and processing is not stopped until all errors of the above kind are found. Bulk Data parameter ! PRTCORD is used to print out information from these checks as well as the coord transformation matrices later. - + IF ((PRTCORD == 1) .OR. (PRTCORD == 2)) CALL PARAM_PRTCORD_OUTPUT ( '31' ) IERROR = 0 ! Initialize IERROR for Phase 2 @@ -325,7 +325,7 @@ SUBROUTINE CORD_PROC WRITE(F06,1304) CALL OUTA_HERE ( 'Y' ) ENDIF - + ! Begin loop over all coord systems RID_ARRAY_COL = 0 @@ -349,7 +349,7 @@ SUBROUTINE CORD_PROC doj21: DO J=1,NCORD+1 ! Initially set all of RID_ARRAY to some negative number since we know, RID_ARRAY(J,RID_ARRAY_COL) = -99 ! after this CID has been traced, it cannot have any negative coord ID's ENDDO doj21 ! but it must have 0 (basic) as the last coord sys in the chain - + I1 = 1 ! We need I1 to increment this index later RID_ARRAY(I1,RID_ARRAY_COL) = CID I1 = 2 @@ -358,7 +358,7 @@ SUBROUTINE CORD_PROC IF (PRTCORD == 2) CALL PARAM_PRTCORD_OUTPUT ( '32' ) IF (RID /= 0) THEN ! If RID is not the basic system, make sure it is defined - + FOUND_RID = 'N' doj22: DO J=1,NCORD IF (CORD(J,2) == RID) THEN @@ -366,22 +366,22 @@ SUBROUTINE CORD_PROC EXIT doj22 ENDIF ENDDO doj22 - - IF (FOUND_RID == 'N') THEN ! Could not find reference coord sys (RID) for coord sys CID + + IF (FOUND_RID == 'N') THEN ! Could not find reference coord sys (RID) for coord sys CID WRITE(ERR,1300) RID,CID WRITE(F06,1300) RID,CID IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - + ! Build chain of references for CID. Initially, RID was read from field 3 of the CORD card, above. ! Now go thru all CORD cards until we find one that has RID as the defined system in field 2. When we find this CORD ! card, we reset RID to be the value from field 3 of that card and continue to cascade down until we come to a CORD ! card with 0 (basic) in field 3. When we find this system, exit from the loops. Two loops on NCORD are needed to do ! the check. The inner (K) loop steps thru the CORD cards looking for the one that defines the RID system. When it is ! found, we continue in that loop looking for the next system (if necessary). However, that system may have already -! been passed in the K loop, so the outer loop starts the process over if necessary. - +! been passed in the K loop, so the outer loop starts the process over if necessary. + CIRC_ERR = 'N' doj23: DO J=1,NCORD IF (J /= I) THEN @@ -413,7 +413,7 @@ SUBROUTINE CORD_PROC EXIT dol21 ENDIF ENDDO dol21 - + ENDIF ENDIF IF ((RID == 0 ) .OR. (CIRC_ERR == 'Y')) EXIT dok21 @@ -421,7 +421,7 @@ SUBROUTINE CORD_PROC IF ((RID == 0 ) .OR. (CIRC_ERR == 'Y')) EXIT doj23 ENDIF ENDDO doj23 - + IF (RID_ARRAY(I1,RID_ARRAY_COL) == 0) THEN ! Check if last sys in RID_ARRAY is basic. If it is, CYCLE back to the I CYCLE dom21 ! loop to begin with a new coord system. ELSE ! Otherwise write error and CYCLE @@ -437,17 +437,17 @@ SUBROUTINE CORD_PROC ENDDO dom21 ENDDO doi21 - + IF ((PRTCORD == 1) .OR. (PRTCORD == 2)) CALL PARAM_PRTCORD_OUTPUT ( '34' ) ! Check IERROR and quit if > 0 IF (IERROR > 0) THEN - WRITE(ERR,1304) - WRITE(F06,1304) + WRITE(ERR,1304) + WRITE(F06,1304) CALL OUTA_HERE ( 'Y' ) ENDIF - + ! ********************************************************************************************************************************** ! Phase 4: Solve for array CASCADE_PROC_ARRAY. It will be used to do the cascading of coord references to get the transformation ! from CID to basic @@ -499,7 +499,7 @@ SUBROUTINE CORD_PROC IF(CASCADE_PROC_ARRAY1(3,J) < CASCADE_PROC_ARRAY1(3,J-1)) THEN CASCADE_PROC_ARRAY(1,I) = CASCADE_PROC_ARRAY1(1,J) ! Coord system ID (CID) CASCADE_PROC_ARRAY(2,I) = CASCADE_PROC_ARRAY1(2,J) ! Row in RID_ARRAY where to find the coord references for CID - CASCADE_PROC_ARRAY(3,I) = CASCADE_PROC_ARRAY1(3,J) ! + CASCADE_PROC_ARRAY(3,I) = CASCADE_PROC_ARRAY1(3,J) ! ENDIF ENDDO ENDIF @@ -563,7 +563,7 @@ SUBROUTINE CORD_PROC DO J=1,3 ! Unit vector in z direction is KVEC KVEC(J) = VK(J)/MAGVK RCORD(ICID,9+J) = KVEC(J) - ENDDO + ENDDO IF ((MAGVK >= EPS1) .AND. (MAGVI >= EPS1)) THEN! Calc unit vector in y dir if vectors VK, VI are not null CALL CROSS ( KVEC, VI, VJ ) @@ -574,7 +574,7 @@ SUBROUTINE CORD_PROC WRITE(F06,1308) CORD(ICID,2) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF IF (IERROR > 0) CYCLE @@ -582,7 +582,7 @@ SUBROUTINE CORD_PROC DO J = 1,3 ! Unit vector in y direction is JVEC JVEC(J) = VJ(J)/MAGVJ RCORD(ICID,6+J) = JVEC(J) - ENDDO + ENDDO CALL CROSS ( JVEC, KVEC, IVEC ) ! Unit vector in x direction is IVEC @@ -592,12 +592,12 @@ SUBROUTINE CORD_PROC TN(J,2,ICID) = JVEC(J) ! -- Col 2 of TN is JVEC TN(J,3,ICID) = KVEC(J) ! -- Col 3 of TN is KVEC ENDDO - + DO J=1,3 RCORD(ICID,3+J) = TN(1,J,ICID) ! Row 1 of TN goes into RCORD cols 4- 6 RCORD(ICID,6+J) = TN(2,J,ICID) ! Row 1 of TN goes into RCORD cols 7- 9 RCORD(ICID,9+J) = TN(3,J,ICID) ! Row 1 of TN goes into RCORD cols 10-12 - ENDDO + ENDDO IF (PRTCORD == 2) CALL PARAM_PRTCORD_OUTPUT ( '52' ) @@ -614,40 +614,40 @@ SUBROUTINE CORD_PROC ENDIF ! ********************************************************************************************************************************** -! Phase 6: Calculate transformations to basic (zero ) system for all CORD2 coordinate systems. +! Phase 6: Calculate transformations to basic (zero ) system for all CORD2 coordinate systems. ! The TN transformation matrices generated in Phase 5 give the transformation from CID system to RID system for one coord card. ! In Phase 6 we cascade these to get the transformation from basic to CID system for each CORD2 coord system. That is, consider the ! following example: - + ! CID RID TN from Phase 2 ! CORD2R 1 0 TN01 ! CORD2R 2 1 TN12 ! CORD2C 3 2 TN23 ! CORD2S 4 1 TN14 - + ! Where, e.g., TN12 is the transformation matrix from coord sys 2 to coord sys 1 (princ. axes) found in Phase 5. ! The transformation from 2 to 0 is TN01 x TN12. The transformations generated here are: - + ! TN02 = TN01 x TN12 - + ! and stores the result back into array TN and resets the RID to 0 for CID 2 - + ! TN03 = TN02 x TN23 ! TN04 = TN01 x TN14 - -! and TN01 was already determined in Phase 5. - + +! and TN01 was already determined in Phase 5. + ! The procedure is to work backwards. Begin looking for a coord system that has 0 as a reference (or RID = 0). The coord ! transformation to basic for that system is already in TN. If that coord system is referenced on another coord ! card, then we multiply those two matrices together to get the transformation to basic for the second system, and ! so on. This transformation matrix is stored over the original TN found in Phase 5. Once we have gotten the ! transformation to basic for a CORD2 coord system, we reset RID (i.e. CORD(I,3)) to zero to indicate that its' TN is ! now referenced to basic. - + ! The basic coords of the origin of each coord system are also calculated. The calc begins by taking the point A coords from the ! system that has 0 as reference and adding the amounts from each coord sys A point after transforming it to basic. - + IERROR = 0 main: DO ! Until all RID's are 0 ALL_RIDS_0 = 'Y' ! Find out if there are coord systems whose RID is not, or has not been @@ -744,8 +744,8 @@ SUBROUTINE CORD_PROC RCORD(J,K) = RO(K,ICID_RID0) + RP(K,J)! Coords of origin of system J in basic coords DO L = 1,3 TN(K,L,J) = EMTN(K,L) - ENDDO - ENDDO + ENDDO + ENDDO CORD(J,3) = 0 ! Reset RID on this coord sys to 0 since TN matrix now is trans to basic TRANS_DONE(J) = 'Y' ! We have completed the transformation to basic for this coord sys @@ -761,9 +761,9 @@ SUBROUTINE CORD_PROC EXIT main ENDIF - + ENDDO main - + ! Check IERROR and quit if > 0 IF (IERROR > 0) THEN @@ -775,7 +775,7 @@ SUBROUTINE CORD_PROC ! Now put transformation for the CORD2 systems matrices in RCORD. First 3 words in RCORD are now the basic coords of the origin of ! the coord system. Next 9 words give the 3 rows (row 1 followed by row 2 then row 3) of the transformation matrix which will ! transform a vector in CID (of coord principal axes) to a vector in basic coord system. - + IF ((PRTCORD == 1) .OR. (PRTCORD == 2)) CALL PARAM_PRTCORD_OUTPUT ( '61' ) DO I=1,NCORD @@ -785,12 +785,12 @@ SUBROUTINE CORD_PROC DO K=1,3 L = 3 + 3*(J-1) + K RCORD(I,L) = TN(J,K,I) - ENDDO + ENDDO ENDDO IF ((PRTCORD == 1) .OR. (PRTCORD == 2)) CALL PARAM_PRTCORD_OUTPUT ( '62' ) ENDIF - ENDDO - + ENDDO + IF ((PRTCORD == 1) .OR. (PRTCORD == 2)) CALL PARAM_PRTCORD_OUTPUT ( '63' ) ! ********************************************************************************************************************************** @@ -856,10 +856,10 @@ SUBROUTINE CORD_PROC IF (ICIDA == -99) THEN ! Set error and cycle if we couldn't find the internal ID's for CIDA,B,C IERROR = IERROR + 1 INT1 = CIDA ; INT2 = ICIDA - ELSE IF (ICIDB == -99) THEN + ELSE IF (ICIDB == -99) THEN IERROR = IERROR + 1 INT1 = CIDB ; INT2 = ICIDB - ELSE IF (ICIDC== -99) THEN + ELSE IF (ICIDC== -99) THEN IERROR = IERROR + 1 INT1 = CIDC ; INT2 = ICIDC ENDIF @@ -986,7 +986,7 @@ SUBROUTINE CORD_PROC DO K = 1,3 ! Unit vector in basic coord z direction for z axis of CID is KVEC KVEC(K) = VK(K)/MAGVK - ENDDO + ENDDO IF ((MAGVK >= EPS1) .AND. (MAGVI >= EPS1)) THEN! Calc unit vector in y dir if vectors VK, VI are not null CALL CROSS ( KVEC, VI, VJ ) @@ -997,14 +997,14 @@ SUBROUTINE CORD_PROC WRITE(F06,1308) CORD(J,2) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF IF (IERROR > 0) CYCLE main7 DO K = 1,3 ! Unit vector in basic coord y direction for z axis of CID is JVEC JVEC(K) = VJ(K)/MAGVJ - ENDDO + ENDDO ! Unit vector in basic coord x direction for z axis of CID is IVEC CALL CROSS ( JVEC, KVEC, IVEC ) @@ -1021,7 +1021,7 @@ SUBROUTINE CORD_PROC DO L=1,3 M = 3 + 3*(K-1) + L RCORD(ICID,M) = TN(K,L,ICID) - ENDDO + ENDDO ENDDO IF (IERROR == 0) THEN @@ -1046,13 +1046,13 @@ SUBROUTINE CORD_PROC IF (TRANS_DONE(K) == 'N') THEN WRITE(ERR,7001) CORD_NAME(K), CORD(K,2) ENDIF - ENDDO - WRITE(F06,1318) + ENDDO + WRITE(F06,1318) DO K=1,NCORD IF (TRANS_DONE(K) == 'N') THEN WRITE(F06,7001) CORD_NAME(K), CORD(K,2) ENDIF - ENDDO + ENDDO CALL OUTA_HERE ( 'Y' ) ENDIF @@ -1096,16 +1096,16 @@ SUBROUTINE CORD_PROC IF (TRANS_DONE(K) == 'N') THEN WRITE(ERR,7001) CORD_NAME(K), CORD(K,2) ENDIF - ENDDO + ENDDO WRITE(F06,1319) SUBR_NAME DO K=1,NCORD IF (TRANS_DONE(K) == 'N') THEN WRITE(F06,7001) CORD_NAME(K), CORD(K,2) ENDIF - ENDDO + ENDDO CALL OUTA_HERE ( 'Y' ) ENDIF - + IF ((PRTCORD == 1) .OR. (PRTCORD == 2)) CALL PARAM_PRTCORD_OUTPUT ( '81' ) ! Check IERROR and quit if > 0 @@ -1151,50 +1151,50 @@ SUBROUTINE CORD_PROC ! ********************************************************************************************************************************** - + ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## - + SUBROUTINE CORDCHK ( IERROR ) - + ! Checks array CORD to make sure that there are not more than 1 coord systems with the same ID. It does this by ! sorting the coord system ID's and then checking the sorted dummy array for uniqueness - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : NCORD, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CORD - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CORDCHK' INTEGER(LONG), INTENT(OUT) :: IERROR ! Count of the number of duplicate coord system ID's INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: DUMCORD(NCORD) ! Dummy array of coord system ID's sorted - + ! ********************************************************************************************************************************** ! Create DUMCORD to be an array of the coordinate system ID's - + DO I=1,NCORD DUMCORD(I) = CORD(I,2) - ENDDO - + ENDDO + ! Sort cord system ID's into numerically increasing order using the shell sort method - + IF (NCORD > 1) THEN CALL SORT_INT1 ( SUBR_NAME, 'CORD', NCORD, DUMCORD ) ENDIF - + ! Check for duplicate numbers - + IERROR = 0 DO I=1,NCORD-1 IF (DUMCORD(I) == DUMCORD(I+1)) THEN @@ -1203,19 +1203,19 @@ SUBROUTINE CORDCHK ( IERROR ) WRITE(ERR,1309) DUMCORD(I+1) WRITE(F06,1309) DUMCORD(I+1) ENDIF - ENDDO - + ENDDO + RETURN ! ********************************************************************************************************************************** 1309 FORMAT(' *ERROR 1309: COORDINATE SYSTEM NUMBER ',I8,' IS A DUPLICATE.') - + ! ********************************************************************************************************************************** - + END SUBROUTINE CORDCHK - + ! ################################################################################################################################## SUBROUTINE PARAM_PRTCORD_OUTPUT ( WHICH ) @@ -1231,7 +1231,7 @@ SUBROUTINE PARAM_PRTCORD_OUTPUT ( WHICH ) INTEGER(LONG) :: I,J,K ! Local DO loop indices INTEGER(LONG) :: II,JJ ! Local DO loop indices INTEGER(LONG) :: IA,IB,IC ! Array indices - + I = 1 J = 1 K = 1 @@ -1262,7 +1262,7 @@ SUBROUTINE PARAM_PRTCORD_OUTPUT ( WHICH ) ENDDO WRITE(F06,*) WRITE(F06,*) - + WRITE(F06,1203) DO II=1,NCORD NAME1(1:) = ' ' ; NAME2(1:) = ' ' @@ -1421,7 +1421,7 @@ SUBROUTINE PARAM_PRTCORD_OUTPUT ( WHICH ) CORD(II,5), TRANS_DONE(IC) ENDIF ENDIF - ENDDO + ENDDO WRITE(F06,*) ELSE IF (WHICH == '73') THEN @@ -1502,7 +1502,7 @@ SUBROUTINE PARAM_PRTCORD_OUTPUT ( WHICH ) 8107 FORMAT(42X,'A R R A Y R C O R D W I T H O R I G I N S A N D 3 X 3 T R A N F O R M A T I O N M A T R I C E S',/,& 70X,'T H A T T R A N S F O R M C I D T O B A S I C',/) - + 8108 FORMAT(14X,'| Coords of origin of CID | Row 1 of coord transformation matrix |', & ' Row 2 of coord transformation matrix | Row 3 of coord transformation matrix') @@ -1533,7 +1533,7 @@ SUBROUTINE PARAM_PRTCORD_OUTPUT ( WHICH ) ' 3rd col and on give the ref coord system numbers (RID) for the CID. CORD2 types have 1 RID, CORD1', & ' types have 3 RID''s',//,42X,'Coord type CID RID''s ->',/) - 1202 FORMAT(' ',A,2X,4I9) + 1202 FORMAT(' ',A,2X,4I9) 1203 FORMAT(' Array RCORD (cols 1-3) with coords of the 3 reference points from CORD2 entries and coords of the 3 grids on', & ' CORD1 entries',/,& diff --git a/Source/LK1/L1B/DOF_PROC.f90 b/Source/LK1/L1B/DOF_PROC.f90 index 92ffd249..b1596271 100644 --- a/Source/LK1/L1B/DOF_PROC.f90 +++ b/Source/LK1/L1B/DOF_PROC.f90 @@ -1,53 +1,53 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE DOF_PROC ( TDOF_MSG ) - -! DOF Processor - + +! DOF Processor + ! Part 1: Generate TSET table (see subr TSET_PROC for explanation) ! ------ ! TSET is a table that the DOF set (e.g. "G ", "N ", etc) for each of the 6 components for every grid) - + ! Part 2: Generate USET table (see subr TSET_PROC for explanation) ! ------ ! USET is a table that the user defined set set ("U1" or "U2") for each of the 6 components for every grid) - + ! Part 3: Generate TDOF table from TSET and USET ! ------ ! TDOF is a table that has the DOF number for every DOF and every DOF set - + ! Part 4: Check for errors ! ------ - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFSE, NUM_USETSTR, SOL_NAME USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC - + USE DOF_PROC_USE_IFs IMPLICIT NONE @@ -56,9 +56,9 @@ SUBROUTINE DOF_PROC ( TDOF_MSG ) CHARACTER(LEN=*), INTENT(IN) :: TDOF_MSG ! Message to be printed out regarding at what point in the run the TDOF,I ! tables are printed out CHARACTER(43*BYTE) :: MODNAM ! Name to write to screen to describe module being run - - + + ! ********************************************************************************************************************************** @@ -74,7 +74,7 @@ SUBROUTINE DOF_PROC ( TDOF_MSG ) IF (NUM_USETSTR > 0) THEN CALL USET_PROC ENDIF - + ! Part 3: Generate TDOF table from TSET ! ------ CALL OURTIM @@ -103,5 +103,5 @@ SUBROUTINE DOF_PROC ( TDOF_MSG ) 1323 FORMAT(' *ERROR 1323: ENFORCED DISPLACEMENTS ONLY ALLOWED IN STATICS SOLUTION. HOWEVER, SOL = ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE DOF_PROC diff --git a/Source/LK1/L1B/GRID_PROC.f90 b/Source/LK1/L1B/GRID_PROC.f90 index 46d48fc3..1a8eebae 100644 --- a/Source/LK1/L1B/GRID_PROC.f90 +++ b/Source/LK1/L1B/GRID_PROC.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GRID_PROC - + ! Performs 7 functions: ! 1) Generate GRID_ID and GRID_SEQ and sort them so that GRID_ID is in numerical order and then GRID_SEQ(I) ! is the position, in the stack of GRID's in Bulk Data, where GRID_ID(I) exists. GRID_SEQ may change order -! in subroutine SEQ_PROC depending on the grid point sequencing scheme the user asks for. +! in subroutine SEQ_PROC depending on the grid point sequencing scheme the user asks for. ! 2) Sort arrays GRID and RGRID so that they are in grid point numerical order and check for duplicate grid ID's. ! 3) Reset coord sys and perm SPC data on GRID cards based on values read from a GRDSET card (if in the data deck) ! 4) Call CORD_PROC.FOR to calc the transformations to basic from each of the coord systems (their principal axes) ! 5) Transform the grid coordinates to the basic coord system ! 6) Write grid data to filename.L1B ! 7) Write some grid data to output file if requested - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : CONV_DEG_RAD USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1B, OP2, SC1 @@ -44,22 +44,22 @@ SUBROUTINE GRID_PROC USE PARAMS, ONLY : PRTBASIC USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRID, RGRID, GRID_ID, GRID_SEQ, CORD, RCORD, TN - + USE GRID_PROC_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GRID_PROC' CHARACTER(LEN=DATA_NAM_LEN) :: DATA_SET_NAME ! A data set name for output purposes - + INTEGER(LONG) :: CP ! The actual coord sys that a grid is located in. INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERROR ! Error count INTEGER(LONG) :: JCORD ! Internal coord sys ID INTEGER(LONG) :: JFLD ! Used in error message to indicate a coord sys ID undefined - + REAL(DOUBLE) :: ANG1 ! An angle in a cyl or sph coord sys from the RGRID array REAL(DOUBLE) :: ANG2 ! An angle in a cyl or sph coord sys from the RGRID array REAL(DOUBLE) :: RADIUS ! A radius coord of a grid point in a cyl or sph coord sys (CP) @@ -67,9 +67,9 @@ SUBROUTINE GRID_PROC ! sys CP rel to the origin of coord sys CP REAL(DOUBLE) :: RGRIDI_0(3) ! Coords of one grid point in basic coords rel to origin of coord sys CP ! sys CP rel to the origin of coord sys CP - + INTRINSIC :: DCOS, DSIN - + ! ********************************************************************************************************************************** @@ -77,14 +77,14 @@ SUBROUTINE GRID_PROC ! Part 1: ! ------- - + ! Generate GRID_ID and GRID_SEQ data. WRITE(SC1,12345,ADVANCE='NO') ' Initialize arrays GRID and GRID_SEQ ', CR13 DO I=1,NGRID GRID_ID(I) = GRID(I,1) GRID_SEQ(I) = I ! This is the initial GRID_SEQ array (order of GRID input) ENDDO ! It may change in subr SEQ_PROC - + ! Sort these so that the actual G.P. numbers in GRID_ID are in numerical order. ! At this point GRID_SEQ(I) is seq num for internal ! grid I but this will change (in subr SEQ_PROC) unless the final sequence order is to be the order of the grids as read in from the ! input data deck. @@ -92,20 +92,20 @@ SUBROUTINE GRID_PROC WRITE(SC1,12345,ADVANCE='NO') ' Sort arrays GRID and GRID_SEQ so GRID is in numerical order', CR13 IF (NGRID > 1) THEN CALL SORT_INT2 ( SUBR_NAME, 'GRID_ID, GRID_SEQ', NGRID, GRID_ID, GRID_SEQ ) - ENDIF - + ENDIF + ! ********************************************************************************************************************************** ! Part 2: ! ------- - + ! Sort arrays GRID and RGRID so that they are in grid point numerical order. - + WRITE(SC1,12345,ADVANCE='NO') ' Sort arrays GRID and RGRID so GRID is in numerical order ', CR13 CALL SORT_GRID_RGRID ( SUBR_NAME, 'GRID, RGRID', NGRID, GRID, RGRID ) - + ! Check for duplicate GRID ID's and quit if there are any - - WRITE(SC1,12345,ADVANCE='NO') ' Check for duplicate GRID IDs ', CR13 + + WRITE(SC1,12345,ADVANCE='NO') ' Check for duplicate GRID IDs ', CR13 IERROR = 0 DO I=1,NGRID-1 IF (GRID(I+1,1) == GRID(I,1)) THEN @@ -115,10 +115,10 @@ SUBROUTINE GRID_PROC WRITE(F06,1344) GRID(I+1,1) ENDIF ENDDO - + ! Check: If GRID(I,1) /= GRID_ID(I), then coding error - WRITE(SC1,12345,ADVANCE='NO') ' Check GRID_ID array ', CR13 + WRITE(SC1,12345,ADVANCE='NO') ' Check GRID_ID array ', CR13 DO I=1,NGRID IF (GRID(I,1) == GRID_ID(I)) THEN CYCLE @@ -129,20 +129,20 @@ SUBROUTINE GRID_PROC WRITE(F06,1346) SUBR_NAME,GRID(I,1),I,GRID_ID(I) ENDIF ENDDO - + IF (IERROR > 0) THEN WRITE(ERR,1343) IERROR WRITE(F06,1343) IERROR CALL OUTA_HERE ( 'Y' ) ENDIF - + ! ********************************************************************************************************************************** -! Part 3: +! Part 3: ! ------- - + ! Check to make sure that all coord systems referenced in field 3 (input coord sys) of the grid card except the 0 system exist. - - WRITE(SC1,12345,ADVANCE='NO') ' Check that coord systems in field 3 referenced do exist ', CR13 + + WRITE(SC1,12345,ADVANCE='NO') ' Check that coord systems in field 3 referenced do exist ', CR13 IERROR = 0 i_do1:DO I=1,NGRID CP = GRID(I,2) @@ -159,10 +159,10 @@ SUBROUTINE GRID_PROC WRITE(F06,910) GRID(I,2),JFLD,GRID(I,1),JFLD ENDIF ENDDO i_do1 - + ! Also check that any coord sys in field 7 (global) are defined. They won't be used at this time, but we want to know they exist. - - WRITE(SC1,12345,ADVANCE='NO') ' Check that coord systems in field 7 referenced do exist ', CR13 + + WRITE(SC1,12345,ADVANCE='NO') ' Check that coord systems in field 7 referenced do exist ', CR13 i_do2:DO I=1,NGRID CP = GRID(I,3) IF (CP /= 0) THEN @@ -179,29 +179,29 @@ SUBROUTINE GRID_PROC ENDIF ENDDO i_do2 IF (IERROR > 0) THEN - WRITE(ERR,1343) IERROR + WRITE(ERR,1343) IERROR WRITE(F06,1343) IERROR CALL OUTA_HERE ( 'Y' ) ENDIF - + ! ********************************************************************************************************************************** ! Part 4: ! ------- - + ! Calculate coordinate system transformation matrices if there are any CORD cards - + IF (NCORD /= 0) THEN - - WRITE(SC1,12345,ADVANCE='NO') ' Calc coord sys transformation matrices ', CR13 - CALL CORD_PROC - + + WRITE(SC1,12345,ADVANCE='NO') ' Calc coord sys transformation matrices ', CR13 + CALL CORD_PROC + ! ********************************************************************************************************************************** ! Part 5: ! ------- - + ! Transform grid coordinates to basic system if the coords were not input in basic (i.e. if GRID(I,2) not 0). - - WRITE(SC1,12345,ADVANCE='NO') ' Transform grid coords to basic system ', CR13 + + WRITE(SC1,12345,ADVANCE='NO') ' Transform grid coords to basic system ', CR13 JCORD = 0 grid_do: DO I=1,NGRID CP = GRID(I,2) @@ -212,7 +212,7 @@ SUBROUTINE GRID_PROC EXIT ENDIF ENDDO - ! JCORD=0, means pgm error + ! JCORD=0, means pgm error IF (JCORD == 0) THEN ! (we should not have gotten here if a coord sys is undefined) WRITE(ERR,1345) SUBR_NAME WRITE(F06,1345) SUBR_NAME @@ -227,41 +227,41 @@ SUBROUTINE GRID_PROC RGRID(I,2) = RADIUS*DSIN(ANG1) ! Spherical ELSE IF ((CORD(JCORD,1) == 13) .OR. (CORD(JCORD,1) == 23)) THEN - RADIUS = RGRID(I,1) + RADIUS = RGRID(I,1) ANG1 = RGRID(I,2)*CONV_DEG_RAD ANG2 = RGRID(I,3)*CONV_DEG_RAD - RGRID(I,1) = RADIUS*DSIN(ANG1)*DCOS(ANG2) + RGRID(I,1) = RADIUS*DSIN(ANG1)*DCOS(ANG2) RGRID(I,2) = RADIUS*DSIN(ANG1)*DSIN(ANG2) RGRID(I,3) = RADIUS*DCOS(ANG1) ENDIF - - DO J=1,3 ! RGRID(I,1-3) has rectangular coords, in the princ axes of JCORD, + + DO J=1,3 ! RGRID(I,1-3) has rectangular coords, in the princ axes of JCORD, RGRIDI_CP(J) = RGRID(I,J) ! relative to the origin of that coord system - ENDDO - + ENDDO + ! The basic coords of G.P. I are now obtained by multiplying the coord system transformation matrix TN (see CORD_PROC.FOR) ! times the rectangular coords in RGRIDI_CP (to get RGRID_0) and adding the basic coords of the origin of coord system ! JCORD (otherwise the calculated basic coords of G.P. I would only be relative to the JCORD origin). The coords in ! basic of JCORD are in RCORD array (calculated in CORDP.FOR). - + CALL MATMULT_FFF ( TN(1,1,JCORD), RGRIDI_CP, 3, 3, 1, RGRIDI_0 ) DO J=1,3 ! Change RGRID(I,1-3) to have the basic coords of G.P. I RGRID(I,J) = RGRIDI_0(J) + RCORD(JCORD,J) ENDDO - + GRID(I,2) = CORD(JCORD,3) ! CORD(JCORD,3) was set = 0 in subr CORD_PROC after all transformations -! so set GRID(I,2) to 0 (basic) also +! so set GRID(I,2) to 0 (basic) also ENDDO grid_do - ENDIF - + ENDIF + ! ********************************************************************************************************************************** ! Part 6: - + ! Store the grid point data in 'L1B' - - WRITE(SC1,12345,ADVANCE='NO') ' Write grid data to file ', CR13 + + WRITE(SC1,12345,ADVANCE='NO') ' Write grid data to file ', CR13 DATA_SET_NAME = 'GRID, RGRID' WRITE(L1B) DATA_SET_NAME ! WRITE(OP2) DATA_SET_NAME @@ -271,39 +271,39 @@ SUBROUTINE GRID_PROC DO J=1,MGRID WRITE(L1B) GRID(I,J) ! WRITE(OP2) GRID(I,J) - ENDDO + ENDDO DO J=1,MRGRID WRITE(L1B) RGRID(I,J) ! WRITE(OP2) RGRID(I,J) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Write coord data to L1B. Need coord type, CID, 12 words of RCORD. The RID for all systems is now 0 - - WRITE(SC1,12345,ADVANCE='NO') ' Write coord data to file ', CR13 + + WRITE(SC1,12345,ADVANCE='NO') ' Write coord data to file ', CR13 DATA_SET_NAME = 'COORDINATE SYSTEM DATA' WRITE(L1B) DATA_SET_NAME WRITE(L1B) NCORD DO I=1,NCORD DO J=1,MCORD WRITE(L1B) CORD(I,J) - ENDDO + ENDDO DO J=1,MRCORD WRITE(L1B) RCORD(I,J) ENDDO ENDDO - - WRITE(SC1,*) CR13 + + WRITE(SC1,*) CR13 ! ********************************************************************************************************************************** ! Part 7: - + ! Print out grid data in basic coords - + IF (PRTBASIC == 1) THEN CALL WRITE_GRID_COORDS ENDIF - + RETURN @@ -325,5 +325,5 @@ SUBROUTINE GRID_PROC 12345 FORMAT(A, A) ! ********************************************************************************************************************************** - + END SUBROUTINE GRID_PROC diff --git a/Source/LK1/L1B/OU4_PARTVEC_PROC.f90 b/Source/LK1/L1B/OU4_PARTVEC_PROC.f90 index 6c096072..09e7ef30 100644 --- a/Source/LK1/L1B/OU4_PARTVEC_PROC.f90 +++ b/Source/LK1/L1B/OU4_PARTVEC_PROC.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OU4_PARTVEC_PROC ( INDEX, OU4_MAT_NAME, NROWS_F, NCOLS_F, ROW_SET, COL_SET, CAN_PARTN, NROWS_P, NCOLS_P, & VAL_ROWS, VAL_COLS ) - -! Calculates partitioning vectors OU4_PARTVEC_ROW and OU4_PARTVEC_COL used to partition OUTPUT4 matrices. + +! Calculates partitioning vectors OU4_PARTVEC_ROW and OU4_PARTVEC_COL used to partition OUTPUT4 matrices. ! The Exec Control may have requests for OUTPUT4 matrices and there may be PARTN requests there to partition particular OUTPUT4 ! matrices to output a subset of the rows and/or cols of that matrix. @@ -35,7 +35,7 @@ SUBROUTINE OU4_PARTVEC_PROC ( INDEX, OU4_MAT_NAME, NROWS_F, NCOLS_F, ROW_SET, CO ! The PARTN requests in Exec Control have partitioning vector names with the specific grid/component partitioning data defined on ! Bulk Data PARVEC and/or PARVEC1 entries. -! The partitioning vector data from the Bulk Data PARVEC,1 entries is written to file LINK1V. +! The partitioning vector data from the Bulk Data PARVEC,1 entries is written to file LINK1V. ! This subr puts the data from file LINK1V into a table (PSET) for each OUTPUT4 matrix to be partitioned. This PSET table has ! 6 cols (1 for each of the 6 components of motion: T1, T2, T3, R1, R2, R3) and as many rows as there are grids in the model. @@ -57,7 +57,7 @@ SUBROUTINE OU4_PARTVEC_PROC ( INDEX, OU4_MAT_NAME, NROWS_F, NCOLS_F, ROW_SET, CO USE MODEL_STUF, ONLY : GRID, GRID_ID, INV_GRID_SEQ USE PARAMS, ONLY : PRTPSET, SUPINFO - + USE OU4_PARTVEC_PROC_USE_IFs IMPLICIT NONE @@ -90,7 +90,7 @@ SUBROUTINE OU4_PARTVEC_PROC ( INDEX, OU4_MAT_NAME, NROWS_F, NCOLS_F, ROW_SET, CO CHARACTER(LEN(ACT_OU4_MYSTRAN_NAMES)) :: PART_VEC_NAME(2) ! The name of the col and row partitioning vectors - + CHARACTER(LEN(TSET_CHR_LEN)), PARAMETER :: PSET_CHAR(2) = (/'CP', 'RP'/) ! Char to enter into PSET table for either col or row @@ -132,22 +132,22 @@ SUBROUTINE OU4_PARTVEC_PROC ( INDEX, OU4_MAT_NAME, NROWS_F, NCOLS_F, ROW_SET, CO INTEGER(LONG) :: NDIM_F(2) ! Array of NCOLS_F, NROWS_F INTEGER(LONG) :: NUM_PSET_ENTRIES ! Number of entries made into the PSET table INTEGER(LONG) :: NUM_COMPS ! Number of displ components (1 for SPOINT, 6 for physical grid) - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. INTEGER(LONG) :: PSET_ERR = 0 ! Count of errors that result from setting displ sets in PSET INTEGER(LONG) :: REC_NO = 0 ! Record number when reading a file INTEGER(LONG) :: TDOF_COL(2) ! Col number in TDOF/TDOFI where CHAR_SET set data exists INTEGER(LONG), INTENT(OUT) :: VAL_COLS ! Number to enter into PARTVEC_COL for a col that is to be partitioned INTEGER(LONG), INTENT(OUT) :: VAL_ROWS ! Number to enter into PARTVEC_ROW for a row that is to be partitioned - + ! ********************************************************************************************************************************** ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! ---------------------------------------------------------------------------------------------------------------------------------- ! Initialize @@ -251,7 +251,7 @@ SUBROUTINE OU4_PARTVEC_PROC ( INDEX, OU4_MAT_NAME, NROWS_F, NCOLS_F, ROW_SET, CO CALL FILE_OPEN ( L1V, LINK1V, OUNT, 'OLD', L1V_MSG, 'READ_STIME', 'UNFORMATTED', 'READ', 'REWIND', 'Y', 'N' ) j_do1: DO J=1,NUM_PARTVEC_RECORDS - + READ(L1V,IOSTAT=IOCHK) VNAME, ICOMP, GRID1, GRID2 REC_NO = REC_NO + 1 IF (IOCHK /= 0) THEN @@ -280,7 +280,7 @@ SUBROUTINE OU4_PARTVEC_PROC ( INDEX, OU4_MAT_NAME, NROWS_F, NCOLS_F, ROW_SET, CO WRITE(ERR,1822) 'GRID ', GRID1, 'PARTVEC OR PARTVEC1', VNAME WRITE(F06,1822) 'GRID ', GRID1, 'PARTVEC OR PARTVEC1', VNAME ENDIF - ENDIF + ENDIF IF (GID_ERR == 0) THEN ! Put CDOF data in PSET for GRID1 thru GRID2 DO GRID_NUM=GRID1,GRID2 ! GRID2 >= GRID1 was checked in subr BD_SPC1 @@ -301,7 +301,7 @@ SUBROUTINE OU4_PARTVEC_PROC ( INDEX, OU4_MAT_NAME, NROWS_F, NCOLS_F, ROW_SET, CO ENDIF ENDDO ENDIF - ENDDO + ENDDO ELSE @@ -431,7 +431,7 @@ SUBROUTINE OU4_PARTVEC_PROC ( INDEX, OU4_MAT_NAME, NROWS_F, NCOLS_F, ROW_SET, CO ' HOWEVER THIS GRID/COMPONENT IS ALREADY IN THE "',A2,'" PSET') 1335 FORMAT(' *ERROR 1335: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' FOR "INDEX" =',I3,' THE NAME OF THE OU4 MATRIX TO BE PARTITIONED SHOULD BE "',A,'" BUT IS "',A,'"') + ,/,14X,' FOR "INDEX" =',I3,' THE NAME OF THE OU4 MATRIX TO BE PARTITIONED SHOULD BE "',A,'" BUT IS "',A,'"') 1336 FORMAT(' *ERROR 1336: ERROR ALLOCATING MEMORY TO PARTITION VECTOR "',A,'" IN SUBR ',A) @@ -446,7 +446,7 @@ SUBROUTINE OU4_PARTVEC_PROC ( INDEX, OU4_MAT_NAME, NROWS_F, NCOLS_F, ROW_SET, CO ! ################################################################################################################################## - + CONTAINS ! ################################################################################################################################## @@ -536,9 +536,9 @@ SUBROUTINE DEALLOCATE_PART_VECS END SUBROUTINE DEALLOCATE_PART_VECS ! ################################################################################################################################## - + SUBROUTINE GET_OU4_PART_GRD_COMP - + ! Calcs the grid and comp numbers that represent the rows and cols of the partitioned matrix. This will be used when the partitioned ! matrix is written in subrs WRITE_OU4_FULL_MAT, WRITE_OU4_SPARSE_MAT as info for the user. @@ -546,9 +546,9 @@ SUBROUTINE GET_OU4_PART_GRD_COMP USE DOF_TABLES, ONLY : TDOFI IMPLICIT NONE - + INTEGER(LONG) :: II,KK,LL - + ! ********************************************************************************************************************************** @@ -570,7 +570,7 @@ SUBROUTINE GET_OU4_PART_GRD_COMP ENDIF ENDDO ! Alloc and null array (but won't be used) - + ELSE @@ -609,16 +609,16 @@ SUBROUTINE GET_OU4_PART_GRD_COMP END SUBROUTINE GET_OU4_PART_GRD_COMP ! ################################################################################################################################## - + SUBROUTINE CHECK_PART_VECS ( IIERRT ) - -! Checks the partitioning vectors generated in calling subr for sensibility + +! Checks the partitioning vectors generated in calling subr for sensibility USE PENTIUM_II_KIND, ONLY : BYTE, LONG IMPLICIT NONE - - INTEGER(LONG) :: II ! DO loop index + + INTEGER(LONG) :: II ! DO loop index INTEGER(LONG) :: IICNT ! Counter INTEGER(LONG) :: IIERR ! Local error count INTEGER(LONG) :: IIERRT ! Total error count diff --git a/Source/LK1/L1B/RDOF.f90 b/Source/LK1/L1B/RDOF.f90 index fc446f96..e0625977 100644 --- a/Source/LK1/L1B/RDOF.f90 +++ b/Source/LK1/L1B/RDOF.f90 @@ -1,53 +1,53 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE RDOF ( INTDOF, CDOF ) - + ! Convert DOF's from integer to char flag form. This version assumes that the data in INTDOF contains only digits 0-6. ! This subr is only used in situations where we know that this is the case. That is true since all DOF fields on any ! Bulk Data card are checked by subr IP6CHK for validity when the bulk data was read. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + USE RDOF_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'RDOF' CHARACTER( 8*BYTE) :: CINT ! 8 char field of integers in INTDOF CHARACTER( 1*BYTE), INTENT(OUT) :: CDOF(6) ! Contains 1 in each of the 6 pos'ns corresponding to a DOF from INTDOF ! and zero otherwise. For example, if INTDOF = 135 then CDOF = '101010' - + INTEGER(LONG), INTENT(IN) :: INTDOF ! Integer field which should contain only the digits 1 - 6 INTEGER(LONG) :: I - + ! ********************************************************************************************************************************** @@ -55,14 +55,14 @@ SUBROUTINE RDOF ( INTDOF, CDOF ) DO I=1,6 CDOF(I) = '0' - ENDDO + ENDDO ! Write INTDOF to CINT - + WRITE(CINT,'(I8)') INTDOF - + ! Process CINT to form CDOF - + DO I = 1,8 IF (CINT(I:I) == '0') THEN ! CINT = 0 is SPOINT so make it comp 1 same as T1 for physical grid CDOF(1) = '1' @@ -80,7 +80,7 @@ SUBROUTINE RDOF ( INTDOF, CDOF ) CDOF(6) = '1' ENDIF ENDDO - + RETURN diff --git a/Source/LK1/L1B/SEQ_PROC.f90 b/Source/LK1/L1B/SEQ_PROC.f90 index 0940d4a9..f5bd463c 100644 --- a/Source/LK1/L1B/SEQ_PROC.f90 +++ b/Source/LK1/L1B/SEQ_PROC.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SEQ_PROC - + ! Generates the grid point sequence order. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, SEQ, L1B USE IOUNT1, ONLY : WRT_ERR, SEQFIL @@ -38,14 +38,14 @@ SUBROUTINE SEQ_PROC USE PARAMS, ONLY : SUPINFO, SUPWARN USE MODEL_STUF, ONLY : GRID_ID, GRID_SEQ, INV_GRID_SEQ, SEQ1, SEQ2 USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE SEQ_PROC_USE_IFs IMPLICIT NONE CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SEQ_PROC' CHARACTER(LEN=DATA_NAM_LEN) :: DATA_SET_NAME ! A data set name for output purposes - + INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERROR ! Error count INTEGER(LONG) :: IGRID ! Internal grid ID @@ -53,12 +53,12 @@ SUBROUTINE SEQ_PROC INTEGER(LONG) :: TMP_GRD_SEQ(NGRID)! Set to array GRID_SEQ so we can sort it and get array INV_GRID_SEQ ! without disturbing GRID_SEQ sequence - + REAL(DOUBLE) :: R_GSEQ(NGRID) ! Real sequence numbers (since SEQGP cards can have real no's). In the ! end, the sequence array that will be used is integer array GRID_SEQ INTRINSIC :: DBLE - + ! ********************************************************************************************************************************** @@ -71,7 +71,7 @@ SUBROUTINE SEQ_PROC ! NOTE: when Bandit sequencing is requested we use Bandit to generate a set of SEQGP cards (if it runs correctly and finds ! resequencing is necessary) and then proceed with that complete set of SEQGP cards. Need to do it this way because we have to ! get INV_GRID_SEQ (later) and to write the seq arrays to L1B. - + IF (GRIDSEQ(1:6) == 'BANDIT') THEN ! Call subr AUTO_SEQ_PROC to generate SEQ1, SEQ2 from SEQGP card images CALL AUTO_SEQ_PROC IF (NSEQ == NGRID) THEN ! Bandit did reseq grids. Set R_GSEQ to the SEQ2 from Bandit SEQGP cards @@ -97,7 +97,7 @@ SUBROUTINE SEQ_PROC R_GSEQ(I) = DBLE(GRID_SEQ(I)) ENDDO ENDIF - + ! Check to make sure that all grid points on SEQGP cards are defined IERROR = 0 @@ -120,15 +120,15 @@ SUBROUTINE SEQ_PROC ! Reset GRID_SEQ to consecutive integers. R_GSEQ will be the grid sequence number for the time being. At the end, ! the integer sequence numbers will be back in GRID_SEQ - + DO I=1,NGRID GRID_SEQ(I) = I ENDDO - + ! If there are SEQGP cards in the data deck, or if auto sequencing has produced them, then arrays SEQ1, SEQ2 exist. ! Sort SEQ1 (grid numbers) with SEQ2 (sequence numbers) so that SEQ1 is in grid point numerical order (like GRID_ID) and then ! check to make sure that no sequence numbers are duplicated. - + IF (NSEQ > 1) THEN CALL SORT_INT1_REAL1 ( SUBR_NAME, 'SEQ1, SEQ2', NSEQ, SEQ1, SEQ2 ) @@ -141,13 +141,13 @@ SUBROUTINE SEQ_PROC WRITE(F06,1399) SEQ1(I+1),SEQ2(I+1) ENDIF ENDIF - ENDDO - + ENDDO + ENDIF ! Change sequence numbers in R_GSEQ to values in SEQ2 (from SEQGP Bulk Data cards). Note: SEQ1 is in grid numerical order ! so R_GSEQ(1) will be for grid GRID_ID(1) and so on. - + IF (NSEQ == NGRID) THEN DO I=1,NGRID R_GSEQ(I) = SEQ2(I) @@ -158,12 +158,12 @@ SUBROUTINE SEQ_PROC IF (SEQ1(J) == GRID_ID(I)) THEN R_GSEQ(I) = SEQ2(J) ENDIF - ENDDO - ENDDO + ENDDO + ENDDO ENDIF -! Set TMP_GRID_ID to GRID_ID and then sort TMP_GRID_ID with R_GSEQ so that R_GSEQ is in numerically increasing order. - +! Set TMP_GRID_ID to GRID_ID and then sort TMP_GRID_ID with R_GSEQ so that R_GSEQ is in numerically increasing order. + DO I=1,NGRID TMP_GRID_ID(I) = GRID_ID(I) ENDDO @@ -192,8 +192,8 @@ SUBROUTINE SEQ_PROC CALL OUTA_HERE ( 'Y' ) ENDIF -! Sort TMP_GRID_ID with R_GSEQ and with GRID_SEQ so that TMP_GRID_ID is in numerically increasing order. - +! Sort TMP_GRID_ID with R_GSEQ and with GRID_SEQ so that TMP_GRID_ID is in numerically increasing order. + CALL SORT_INT2_REAL1 ( SUBR_NAME, 'TMP_GRID_ID, GRID_SEQ, R_GSEQ', NGRID, TMP_GRID_ID, GRID_SEQ, R_GSEQ ) ! Generate array INV_GRID_SEQ @@ -203,9 +203,9 @@ SUBROUTINE SEQ_PROC INV_GRID_SEQ(I) = I ENDDO - CALL SORT_INT2 ( SUBR_NAME, 'TMP_GRD_SEQ, INV_GRID_SEQ', NGRID, TMP_GRD_SEQ, INV_GRID_SEQ ) + CALL SORT_INT2 ( SUBR_NAME, 'TMP_GRD_SEQ, INV_GRID_SEQ', NGRID, TMP_GRD_SEQ, INV_GRID_SEQ ) -! Print table showing R_GSEQ, GRID_SEQ and INV_GRID_SEQ +! Print table showing R_GSEQ, GRID_SEQ and INV_GRID_SEQ IF (DEBUG(13) == 1) THEN WRITE(F06,111) @@ -215,25 +215,25 @@ SUBROUTINE SEQ_PROC WRITE(F06,*) WRITE(F06,113) WRITE(F06,*) - ENDIF + ENDIF ! ********************************************************************************************************************************** ! Now write sequence and GRID_SEQ data to file LINK1B. - + DATA_SET_NAME = 'GRID_SEQ, INV_GRID_SEQ' WRITE(L1B) DATA_SET_NAME WRITE(L1B) NGRID DO I=1,NGRID - WRITE(L1B) GRID_SEQ(I), INV_GRID_SEQ(I) - ENDDO - + WRITE(L1B) GRID_SEQ(I), INV_GRID_SEQ(I) + ENDDO + DATA_SET_NAME = 'SEQ1, SEQ2' WRITE(L1B) DATA_SET_NAME WRITE(L1B) NSEQ DO I=1,NSEQ - WRITE(L1B) SEQ1(I),SEQ2(I) - ENDDO - + WRITE(L1B) SEQ1(I),SEQ2(I) + ENDDO + RETURN @@ -261,13 +261,13 @@ SUBROUTINE SEQ_PROC 9999 FORMAT(/,' PROCESSING ABORTED IN SUBROUTINE ',A,' DUE TO ABOVE ',I8,' ERRORS') ! ********************************************************************************************************************************** - + ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## - + SUBROUTINE AUTO_SEQ_PROC ! Reads SEQGP card images from bandit output file (filename.SEQ) using subr BD_SEQGP which creates SEQ1, SEQ2 arrays from SEQGP info @@ -288,7 +288,7 @@ SUBROUTINE AUTO_SEQ_PROC CHARACTER( 1*BYTE) :: IS_GRID_SEQD(NGRID) ! 'Y'/'N' indicator of whether a grid was sequenced in file SEQ CHARACTER(LEN=BD_ENTRY_LEN) :: CARD ! Card image read from SEQ file (which was generated by Bandit) CHARACTER(85*BYTE) :: VEC_DESCR ! Char name of array which has the grids that Bandit did not sequence - + INTEGER(LONG) :: BANDIT_MAX_SEQ_NUM ! Max sequence number from SEQ2 that is generated by Bandit sequencing INTEGER(LONG) :: BANDIT_NSEQ ! Number of grids sequenced by Bandit INTEGER(LONG) :: GRID_NOT_SEQD(NGRID)! Array of grid numbers not sequenced by Bandit @@ -305,7 +305,7 @@ SUBROUTINE AUTO_SEQ_PROC INTEGER(LONG) :: NUM_SEQ_FILE_LINES ! Number of lines in the SEQ file (after STIME) INTEGER(LONG) :: OUNT(2) ! File units to write messages to INTEGER(LONG) :: REC_NO = 0 ! Indicator of record number when error encountered reading file - INTEGER(LONG) :: XTIME ! Time stamp read from a file + INTEGER(LONG) :: XTIME ! Time stamp read from a file INTRINSIC :: DBLE, INT @@ -499,15 +499,15 @@ SUBROUTINE AUTO_SEQ_PROC NUM_LEFT = NUM_GRIDS_NOT_SEQD ! Write data for grids not seq'd by Bandit to the SEQ file BACKSPACE (SEQ) WRITE(SEQ,300) PROG_NAME, NUM_LEFT - NUM_SEQ_FILE_LINES = NUM_SEQ_FILE_LINES + 2 + NUM_SEQ_FILE_LINES = NUM_SEQ_FILE_LINES + 2 DO I=1,NUM_GRIDS_NOT_SEQD,4 IF (NUM_LEFT >= 4) THEN WRITE(SEQ,301) (SEQ1(K),INT(SEQ2(K)),K=I+BANDIT_NSEQ,I+BANDIT_NSEQ+3) NUM_SEQ_FILE_LINES = NUM_SEQ_FILE_LINES + 1 - NUM_LEFT = NUM_LEFT - 4 + NUM_LEFT = NUM_LEFT - 4 ELSE - WRITE(SEQ,301) (SEQ1(K),INT(SEQ2(K)),K=I+BANDIT_NSEQ,I+BANDIT_NSEQ+NUM_LEFT-1) - NUM_SEQ_FILE_LINES = NUM_SEQ_FILE_LINES + 1 + WRITE(SEQ,301) (SEQ1(K),INT(SEQ2(K)),K=I+BANDIT_NSEQ,I+BANDIT_NSEQ+NUM_LEFT-1) + NUM_SEQ_FILE_LINES = NUM_SEQ_FILE_LINES + 1 ENDIF ENDDO @@ -560,7 +560,7 @@ SUBROUTINE AUTO_SEQ_PROC CALL AUTO_SEQ_PROC_WRAPUP ( SUBR_NAME, SEQSTAT ) - ENDIF err0 + ENDIF err0 ELSE ! bandit.f07 does not exist. Write message and quit if SEQQUIT = Y @@ -643,7 +643,7 @@ SUBROUTINE AUTO_SEQ_PROC END SUBROUTINE AUTO_SEQ_PROC ! ################################################################################################################################## - + SUBROUTINE AUTO_SEQ_PROC_WRAPUP ( SUBR_NAME, CLOSE_STAT ) ! Writes message for subr AUTO_SEQ_PROC diff --git a/Source/LK1/L1B/TDOF_COL_NUM.f90 b/Source/LK1/L1B/TDOF_COL_NUM.f90 index 00936129..6b2c3c39 100644 --- a/Source/LK1/L1B/TDOF_COL_NUM.f90 +++ b/Source/LK1/L1B/TDOF_COL_NUM.f90 @@ -1,45 +1,45 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TDOF_COL_NUM ( CHAR_SET, COL_NUM ) - + ! Converts character representation of displ set (G, N, F, etc) to a column number in array TDOF USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, MTDOF, FATAL_ERR USE TIMDAT, ONLY : TSEC - + USE TDOF_COL_NUM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TDOF_COL_NUM' CHARACTER(LEN=*), INTENT(IN) :: CHAR_SET ! The char description of the displ set that was input (e.g. 'G ', 'SB') - + INTEGER(LONG), INTENT(OUT) :: COL_NUM ! Col number in array TDOF where displ set CHAR_SET exists INTEGER(LONG), PARAMETER :: OFFSET = 4 ! Columns of TDOF prior to where the G-set begins @@ -85,7 +85,7 @@ SUBROUTINE TDOF_COL_NUM ( CHAR_SET, COL_NUM ) FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit ENDIF - + RETURN @@ -98,5 +98,5 @@ SUBROUTINE TDOF_COL_NUM ( CHAR_SET, COL_NUM ) ,/,14X,' OUTPUT VARIABLE COL_NUM = ',I3,' CANNOT BE GREATER THAN MTDOF = ',I3) ! ********************************************************************************************************************************** - + END SUBROUTINE TDOF_COL_NUM diff --git a/Source/LK1/L1B/TDOF_PROC.f90 b/Source/LK1/L1B/TDOF_PROC.f90 index abb9dff1..368c706d 100644 --- a/Source/LK1/L1B/TDOF_PROC.f90 +++ b/Source/LK1/L1B/TDOF_PROC.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TDOF_PROC ( TDOF_MSG ) - + ! TDOF table generation. TDOF is a table that has the DOF number for every DOF. The table has NDOFG rows and MTDOF columns where: ! NDOFG = the total number of degrees of freedom in the model (6 times the number of grids plus the number of SPOINT's) @@ -34,8 +34,8 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ! The TDOF table is sorted in grid numerical order. It's sister table, TDOFI, is TDOF sorted in internal G-set order. ! Cols 5 thru MTDOF of these tables give the degree of freedom (DOF) number for each of the 16 different displ sets/user's sets. -! An example of a TDOF table written out to an F06 file is shown below: - +! An example of a TDOF table written out to an F06 file is shown below: + ! DEGREE OF FREEDOM TABLE SORTED ON GRID NUMBER (TDOF) ! EXTERNAL INTERNAL DOF NUMBER FOR DISPLACEMENT SET: @@ -71,7 +71,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) USE DOF_TABLES, ONLY : TSET, TDOF, TDOFI, TDOF_ROW_START, USET USE DEBUG_PARAMETERS, ONLY : DEBUG USE MODEL_STUF, ONLY : EIG_N2, GRID, GRID_ID, GRID_SEQ, INV_GRID_SEQ - + USE TDOF_PROC_USE_IFs IMPLICIT NONE @@ -81,7 +81,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) CHARACTER(LEN=*), INTENT(IN) :: TDOF_MSG ! Message to be printed out regarding at what point in the run the TDOF,I ! tables are printed out CHARACTER( 5*BYTE) :: SET_NAME ! A data set name for output purposes - + INTEGER(LONG) :: A_SET_COL ! Col no. in array TDOF where the A-set is (from subr TDOF_COL_NUM) INTEGER(LONG) :: F_SET_COL ! Col no. in array TDOF where the F-set is (from subr TDOF_COL_NUM) INTEGER(LONG) :: G_SET_COL ! Col no. in array TDOF where the G-set is (from subr TDOF_COL_NUM) @@ -105,12 +105,12 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) INTEGER(LONG) :: IROW ! Row number in array TDOF or TDOFI INTEGER(LONG) :: NUM_COMPS ! Number of displ components (1 for SPOINT, 6 for physical grid) - + ! ********************************************************************************************************************************** WRITE(SC1, * ) ' TDOF PROC' -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages ! Call routine to calc what row in TDOF each grid's data begins @@ -156,7 +156,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDDO ! Calc TDOF for G-set (col 5 in TDOF). We can do this at this point since all components go in G-set. - + NDOFG = 0 CALL COUNTER_INIT(' Process G -set ', NGRID) @@ -182,7 +182,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDIF ! Put M-set DOF numbers into TDOF (at M_SET_COL) - + IF (NDOFM > 0) THEN NDOFM = 0 CALL COUNTER_INIT(' Process M -set ', NGRID) @@ -220,7 +220,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDIF ! Put SB-set DOF numbers into TDOF (at SB_SET_COL) - + IF (NDOFSB > 0) THEN NDOFSB = 0 CALL COUNTER_INIT(' Process SB-set ', NGRID) @@ -239,7 +239,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDIF ! Put SG-set DOF numbers into TDOF (at SG_SET_COL) - + IF (NDOFSG > 0) THEN NDOFSG = 0 CALL COUNTER_INIT(' Process SG-set ', NGRID) @@ -258,7 +258,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDIF ! Put SE-set DOF numbers into TDOF (at SE_SET_COL) - + IF (NDOFSE > 0) THEN NDOFSE = 0 CALL COUNTER_INIT(' Process SE-set ', NGRID) @@ -277,7 +277,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDIF ! Put O-set DOF numbers into TDOF (at O_SET_COL) - + IF (NDOFO > 0) THEN NDOFO = 0 CALL COUNTER_INIT(' Process O -set ', NGRID) @@ -296,7 +296,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDIF ! Put R-set DOF numbers into TDOF (at R_SET_COL) - + IF (NDOFR > 0) THEN NDOFR = 0 CALL COUNTER_INIT(' Process R -set ', NGRID) @@ -313,9 +313,9 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) CALL COUNTER_PROGRESS(I) ENDDO ENDIF - + ! Calc TDOF for N-set based on G-set minus M-set = S-set + O-set + R-set + L-set - + NDOFN = 0 CALL COUNTER_INIT(' Process N -set ', NGRID) DO I=1,NGRID @@ -334,7 +334,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDDO ! Calc DOF'S in SZ-set (all zero SPC's) based on SA + SB + SG - + IF ((NDOFSA > 0) .OR. (NDOFSB > 0) .OR. (NDOFSG > 0)) THEN NDOFSZ = 0 CALL COUNTER_INIT(' Process SZ-set ', NGRID) @@ -355,7 +355,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDIF ! Calc DOF'S in S-set based on SZ + SE - + IF ((NDOFSZ > 0) .OR. (NDOFSE > 0)) THEN NDOFS = 0 CALL COUNTER_INIT(' Process S -set ', NGRID) @@ -376,7 +376,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDIF ! Calc TDOF for F-set based on N-set minus S-set - + NDOFF = 0 CALL COUNTER_INIT(' Process F -set ', NGRID) DO I=1,NGRID @@ -395,7 +395,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDDO ! Calc TDOF for A-set based on F-set minus O-set - + NDOFA = 0 CALL COUNTER_INIT(' Process A -set ', NGRID) DO I=1,NGRID @@ -414,7 +414,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDDO ! Calc TDOF for L-set based on A-set minus R-set - + NDOFL = 0 CALL COUNTER_INIT(' Process L -set ', NGRID) DO I=1,NGRID @@ -433,7 +433,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDDO ! Calc TDOF for USET U1-set and put DOF numbers into TDOF at U1_SET_COL - + IF (NUM_USET_U1 > 0) THEN I_USET_U1 = 0 CALL COUNTER_INIT(' Process U1-set ', NGRID) @@ -452,7 +452,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDIF ! Calc TDOF for USET U2-set and put DOF numbers into TDOF at U2_SET_COL - + IF (NUM_USET_U2 > 0) THEN I_USET_U2 = 0 CALL COUNTER_INIT(' Process U2-set ', NGRID) @@ -477,14 +477,14 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) DO I=1,NDOFG DO J=1,MTDOF TDOFI(I,J) = TDOF(I,J) - ENDDO - ENDDO + ENDDO + ENDDO WRITE(SC1,12345,ADVANCE='NO') ' Sort TDOF to get TDOFI ', CR13 CALL SORT_TDOF ( SUBR_NAME, 'TDOF', NDOFG, TDOFI, G_SET_COL ) ! Table TDOF is printed in the F06 file if B.D. PARAM PRTDOF = 1 or 3 - + IF (PRTDOF > 0) THEN CALL WRITE_TDOF ( TDOF_MSG ) ENDIF @@ -499,7 +499,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ENDIF - ENDIF + ENDIF ! Make sure that if the R set exists it has at least 6 DOF's defined @@ -524,7 +524,7 @@ SUBROUTINE TDOF_PROC ( TDOF_MSG ) ENDIF ENDIF -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,*) CR13 diff --git a/Source/LK1/L1B/TSET_PROC.f90 b/Source/LK1/L1B/TSET_PROC.f90 index 11c7c928..bb01bd64 100644 --- a/Source/LK1/L1B/TSET_PROC.f90 +++ b/Source/LK1/L1B/TSET_PROC.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TSET_PROC - + ! Generate TSET table. The displ set definitions are: ! G---------->N + M (M = DOF's identified as dependent on MPC's or rigid elements) -! | -! | -! | -! | +! | +! | +! | +! | ! |---------->F + S (S is SZ (SPC'd to 0 displ) or SE (enforced displ)) ! | SZ can be either: SB (defined on SPC/SPC1 cards) or ! | SG (defined on GRID cards) or @@ -40,8 +40,8 @@ SUBROUTINE TSET_PROC ! | ! |---------->A + O (O = DOF's omitted via Guyan reduction) ! | -! | -! | +! | +! | ! |---------->L + R (R = DOF on SUPORT B.D. entries)) ! Every DOF is in either: M (MPC'd via MPC eqns or rigid elements), or @@ -53,17 +53,17 @@ SUBROUTINE TSET_PROC ! TSET is a table that defines which displ set each grid/component pair belongs to. It has: R, A, O, (SG, SB, SE) or M for each DOF. ! The table has NGRID rows and 6 columns (1 col for each of the 6 components of displ at a grid). An example of a TSET table written ! to the F06 file is shown below: - + ! DEGREE OF FREEDOM SET TABLE (TSET) ! GRID GRID_SEQ INV_GRID_SEQ* T1 T2 T3 R1 R2 R3 ! 101 4 7 L L L SG SG SG -! 102 5 5 M M M L L L -! 103 3 3 L L L L L L -! 104 6 1 L L L L L L -! 105 2 2 L L L L L L -! 106 7 4 L L L O O O +! 102 5 5 M M M L L L +! 103 3 3 L L L L L L +! 104 6 1 L L L L L L +! 105 2 2 L L L L L L +! 106 7 4 L L L O O O ! 107 1 6 SE SG SG SG SG SG ! * INV_GRID_SEQ = J meams that the J-th entry under GRID is sequenced GRID_SEQ(J) @@ -77,23 +77,23 @@ SUBROUTINE TSET_PROC USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TSET USE MODEL_STUF, ONLY : GRID - + USE TSET_PROC_USE_IFs IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TSET_PROC' - + INTEGER(LONG) :: I,K ! DO loop indices INTEGER(LONG) :: IERRT = 0 ! Sum of all grid and DOF errors INTEGER(LONG) :: NUM_COMPS ! Number of displ components (1 for SPOINT, 6 for physical grid) - + ! ********************************************************************************************************************************** -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages ! ---------------------------------------------------------------------------------------------------------------------------------- ! TSET for cols 2-6 are not defined for SPOINT's, so set = '--' @@ -127,7 +127,7 @@ SUBROUTINE TSET_PROC WRITE(SC1,12345,ADVANCE='NO') ' Process SPCs ', CR13 CALL TSET_PROC_FOR_SPCS ( IERRT ) ! Process SPC data from file L1O NDOFSZ = NDOFSA + NDOFSB + NDOFSG - NDOFS = NDOFSZ + NDOFSE + NDOFS = NDOFSZ + NDOFSE ! ---------------------------------------------------------------------------------------------------------------------------------- ! Process O-set (OMIT's/ASET's) @@ -138,7 +138,7 @@ SUBROUTINE TSET_PROC CALL GET_GRID_NUM_COMPS ( I, NUM_COMPS, SUBR_NAME ) DO K = 1,NUM_COMPS IF (TSET(I,K) == ' ') THEN - TSET(I,K) = 'A ' + TSET(I,K) = 'A ' ENDIF ENDDO ENDDO @@ -158,8 +158,8 @@ SUBROUTINE TSET_PROC FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ENDIF - ENDDO - ENDDO + ENDDO + ENDDO ! ---------------------------------------------------------------------------------------------------------------------------------- ! Process R-set (SUPORT's) @@ -178,7 +178,7 @@ SUBROUTINE TSET_PROC DO K = 1,6 IF (TSET(I,K) == 'A ') THEN TSET(I,K) = 'L ' - NDOFL = NDOFL + 1 + NDOFL = NDOFL + 1 ENDIF ENDDO ENDDO @@ -189,9 +189,9 @@ SUBROUTINE TSET_PROC IF (PRTTSET == 1) THEN CALL WRITE_TSET ENDIF - + ! ---------------------------------------------------------------------------------------------------------------------------------- - WRITE(SC1,*) CR13 + WRITE(SC1,*) CR13 ! Quit if there were errors @@ -199,7 +199,7 @@ SUBROUTINE TSET_PROC WRITE(ERR,9996) SUBR_NAME,IERRT WRITE(F06,9996) SUBR_NAME,IERRT CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF diff --git a/Source/LK1/L1B/TSET_PROC_FOR_MPCS.f90 b/Source/LK1/L1B/TSET_PROC_FOR_MPCS.f90 index 1b8cdccc..bdccb4e2 100644 --- a/Source/LK1/L1B/TSET_PROC_FOR_MPCS.f90 +++ b/Source/LK1/L1B/TSET_PROC_FOR_MPCS.f90 @@ -1,41 +1,41 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TSET_PROC_FOR_MPCS ( IERRT ) - -! DOF Processor for MPC's - + +! DOF Processor for MPC's + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1S, L1S_MSG, LINK1S USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LIND_GRDS_MPCS, LMPCADDC, NDOFM, NGRID, NIND_GRDS_MPCS, NMPC, & - NMPCADD, NTERM_RMG, NUM_MPCSIDS + NMPCADD, NTERM_RMG, NUM_MPCSIDS USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TSET_CHR_LEN, TSET USE MODEL_STUF, ONLY : GRID_ID, MPC_IND_GRIDS, MPCSET, MPCSIDS - + USE TSET_PROC_FOR_MPCS_USE_IFs ! Added 2019/07/14 IMPLICIT NONE @@ -43,7 +43,7 @@ SUBROUTINE TSET_PROC_FOR_MPCS ( IERRT ) CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TSET_PROC_FOR_MPCS' CHARACTER(LEN=LEN(TSET_CHR_LEN)):: DOFSET ! The name of a DOF set (e.g. 'SB', 'A ', etc) CHARACTER( 1*BYTE) :: MPC_SET_USED ! 'Y'/'N' indicator if an MPC set in B.D. is used - + INTEGER(LONG), INTENT(INOUT) :: IERRT ! Sum of all grid and DOF errors INTEGER(LONG) :: AGRID_D ! Dep grid for an MPC read from file LINK1S INTEGER(LONG) :: AGRID_I ! An independent grid in an MPC equation @@ -64,24 +64,24 @@ SUBROUTINE TSET_PROC_FOR_MPCS ( IERRT ) INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening or reading a file INTEGER(LONG) :: NUM_TRIPLES ! Counter on number of pairs of grid/comp/coeff triplets on this MPC ! card. Must be <= MMPC which was counted in subr BD_MPC0 - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. INTEGER(LONG) :: REC_NO = 0 ! Record number when reading a file INTEGER(LONG) :: SETID ! An SPC set ID read from file LINK1O - + REAL(DOUBLE) :: RJUNK ! An MPC coeff value read from file LINK1S that we do not need - + ! ********************************************************************************************************************************** ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! ********************************************************************************************************************************** ! Process MPC data from file L1S (data written when MPC Bulk Data cards were read) - + ! File LINK1S contains data from the NMPC number of logical MPC cards in the input B.D. deck. For each logical MPC card, LINK1S has: ! 1st record for 1st MPC: the MPC set ID ! 2nd record for 1st MPC: the num of triplets of grid/comp/coeff (incl ones for the dependent DOF) on this logical MPC @@ -89,7 +89,7 @@ SUBROUTINE TSET_PROC_FOR_MPCS ( IERRT ) ! 4th record for 1st MPC: grid/comp/coeff for the 1st independent DOF on the this MPC logical card ! 5th record, and on, for 1st MPC: grid/comp/coeff for the 2nd, and on, independent DOF's (if any) on the this MPC logical card -! The above record structure is repeated for each MPC logical card in the data deck (in the order in which they were read from the +! The above record structure is repeated for each MPC logical card in the data deck (in the order in which they were read from the ! B.D. deck). All logical MPC cards are included, not only the ones that may be used in a particular execution of MYSTRAN GID_ERR = 0 @@ -97,8 +97,8 @@ SUBROUTINE TSET_PROC_FOR_MPCS ( IERRT ) REC_NO = 0 i_do3:DO I=1,NMPC ! Process data from file LINK1S (contains all info from the NMPC MPC's) - - READ(L1S,IOSTAT=IOCHK) SETID ! Read the SETID for the i-th logical MPC + + READ(L1S,IOSTAT=IOCHK) SETID ! Read the SETID for the i-th logical MPC REC_NO = REC_NO + 1 IF (IOCHK /= 0) THEN CALL READERR ( IOCHK, LINK1S, L1S_MSG, REC_NO, OUNT ) @@ -114,7 +114,7 @@ SUBROUTINE TSET_PROC_FOR_MPCS ( IERRT ) MPC_SET_USED = 'N' - + j_do3: DO J=1,NUM_MPCSIDS ! NUM_MPCSIDS will be 1 if there are any MPC's. It will be > 1 if there ! are MPCADD entries that match the MPC set requested in Case Control IF (SETID == MPCSIDS(J)) THEN @@ -128,7 +128,7 @@ SUBROUTINE TSET_PROC_FOR_MPCS ( IERRT ) COMPS_D_TSET = 1 ELSE COMPS_D_TSET = COMPS_D - ENDIF + ENDIF REC_NO = REC_NO + 1 IF (IOCHK /= 0) THEN @@ -156,8 +156,8 @@ SUBROUTINE TSET_PROC_FOR_MPCS ( IERRT ) IF (NIND_GRDS_MPCS > LIND_GRDS_MPCS) CALL ARRAY_SIZE_ERROR_1 ( SUBR_NAME, LIND_GRDS_MPCS, 'MPC_IND_GRIDS') MPC_IND_GRIDS(NIND_GRDS_MPCS) = AGRID_I AGRID_I_PREV = AGRID_I - ENDIF - ENDDO + ENDIF + ENDDO IF (GID_ERR > 0) THEN CYCLE j_do3 @@ -183,8 +183,8 @@ SUBROUTINE TSET_PROC_FOR_MPCS ( IERRT ) ENDIF - ENDDO j_do3 - + ENDDO j_do3 + IF (MPC_SET_USED == 'N') THEN ! This MPC set is not to be used, so skip all grid/comp/coeff records DO K=1,NUM_TRIPLES READ(L1S,IOSTAT=IOCHK) IJUNK, IJUNK, RJUNK @@ -193,11 +193,11 @@ SUBROUTINE TSET_PROC_FOR_MPCS ( IERRT ) CALL READERR ( IOCHK, LINK1S, L1S_MSG, REC_NO, OUNT ) CALL OUTA_HERE ( 'Y' ) ENDIF - ENDDO + ENDDO ENDIF - ENDDO i_do3 - + ENDDO i_do3 + IERRT = IERRT + GID_ERR + DOF_ERR diff --git a/Source/LK1/L1B/TSET_PROC_FOR_OMITS.f90 b/Source/LK1/L1B/TSET_PROC_FOR_OMITS.f90 index f4e593b8..dcc47d35 100644 --- a/Source/LK1/L1B/TSET_PROC_FOR_OMITS.f90 +++ b/Source/LK1/L1B/TSET_PROC_FOR_OMITS.f90 @@ -1,40 +1,40 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TSET_PROC_FOR_OMITS ( IERRT ) - -! DOF Processor for MPC's - + +! DOF Processor for MPC's + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1N, L1N_MSG, LINK1N USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NAOCARD, NDOFO, NGRID USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TSET_CHR_LEN, TSET USE MODEL_STUF, ONLY : GRID, GRID_ID - + USE TSET_PROC_FOR_OMITS_USE_IFs ! Added 2019/07/14 IMPLICIT NONE @@ -44,7 +44,7 @@ SUBROUTINE TSET_PROC_FOR_OMITS ( IERRT ) CHARACTER( 1*BYTE) :: CDOF1(6) ! An output from subr RDOF CHARACTER(LEN=LEN(TSET_CHR_LEN)):: DOFSET ! The name of a DOF set (e.g. 'SB', 'A ', etc) CHARACTER( 1*BYTE) :: OMIT_FND ! 'Y' if there are OMIT/OMIT1 data in file LINK1N - + INTEGER(LONG), INTENT(INOUT) :: IERRT ! Sum of all grid and DOF errors INTEGER(LONG) :: DOF_ERR = 0 ! Count of errors that result from setting displ sets in TSET INTEGER(LONG) :: GID1 ! 1st grid on RBAR element read from file LINK1F @@ -55,24 +55,24 @@ SUBROUTINE TSET_PROC_FOR_OMITS ( IERRT ) INTEGER(LONG) :: ICOMP ! DOF components read from file LINK1O (SPC's) or LINK1N (ASET/OMIT's) INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening or reading a file INTEGER(LONG) :: NUM_COMPS ! Number of displ components (1 for SPOINT, 6 for physical grid) - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. INTEGER(LONG) :: REC_NO = 0 ! Record number when reading a file - + ! ********************************************************************************************************************************** ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! ********************************************************************************************************************************** ! Process the ASET / OMIT data in file L1N -! If there is only ASET/ASET1 data in file L1N, then all remaining DOF will be O-set +! If there is only ASET/ASET1 data in file L1N, then all remaining DOF will be O-set ! If there is only OMIT/OMIT1 data in file L1N, then all remaining DOF will be A-set -! If there is both ASET/ASET1 and OMIT/OMIT1 then they must define all remaining DOF's, or error - +! If there is both ASET/ASET1 and OMIT/OMIT1 then they must define all remaining DOF's, or error + GID_ERR = 0 DOF_ERR = 0 REC_NO = 0 @@ -82,8 +82,8 @@ SUBROUTINE TSET_PROC_FOR_OMITS ( IERRT ) ASET_FND = 'N' OMIT_FND = 'N' - DO I=1,NAOCARD - + DO I=1,NAOCARD + READ(L1N,IOSTAT=IOCHK) ICOMP,GID1,GID2,DOFSET ! Read a record from L1N REC_NO = REC_NO + 1 IF (IOCHK /= 0) THEN @@ -92,7 +92,7 @@ SUBROUTINE TSET_PROC_FOR_OMITS ( IERRT ) ENDIF IF (DOFSET == 'A ') THEN ! Make sure DOFSET is "A " or "O " - ASET_FND = 'Y' + ASET_FND = 'Y' ELSE IF (DOFSET == 'O ') THEN OMIT_FND = 'Y' ELSE @@ -108,7 +108,7 @@ SUBROUTINE TSET_PROC_FOR_OMITS ( IERRT ) IF (GRID_ID_ROW_NUM == -1) THEN GID_ERR = GID_ERR + 1 FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1365) GID1 + WRITE(ERR,1365) GID1 WRITE(F06,1365) GID1 ENDIF IF (GID2 /= GID1) THEN @@ -116,17 +116,17 @@ SUBROUTINE TSET_PROC_FOR_OMITS ( IERRT ) IF (GRID_ID_ROW_NUM == -1) THEN GID_ERR = GID_ERR + 1 FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1365) GID2 + WRITE(ERR,1365) GID2 WRITE(F06,1365) GID2 ENDIF - ENDIF - + ENDIF + IF ((GID_ERR == 0) .AND. (GID2 >= GID1)) THEN ! Put CDOF1 data in TSET for GID1 thru GID2 DO J=GID1,GID2 ! GID2 > GID1 was checked when ASET/OMIT B.D. cards were read CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, J, GRID_ID_ROW_NUM ) IF (GRID_ID_ROW_NUM /= -1) THEN CALL GET_GRID_NUM_COMPS ( GRID_ID_ROW_NUM, NUM_COMPS, SUBR_NAME ) - DO K = 1,NUM_COMPS + DO K = 1,NUM_COMPS IF (CDOF1(K) == '1') THEN IF ((TSET(GRID_ID_ROW_NUM,K) == ' ') .OR. (TSET(GRID_ID_ROW_NUM,K) == DOFSET)) THEN TSET(GRID_ID_ROW_NUM,K) = DOFSET @@ -142,7 +142,7 @@ SUBROUTINE TSET_PROC_FOR_OMITS ( IERRT ) ENDIF ENDDO ENDIF - ENDDO + ENDDO ENDIF ENDDO ! DO loop on I = 1 to NAOCARD @@ -156,7 +156,7 @@ SUBROUTINE TSET_PROC_FOR_OMITS ( IERRT ) NDOFO = NDOFO + 1 ENDIF ENDDO - ENDDO + ENDDO ENDIF IF ((ASET_FND == 'N').AND.(OMIT_FND == 'Y')) THEN ! Make all DOF's not as yet set be A-set @@ -167,7 +167,7 @@ SUBROUTINE TSET_PROC_FOR_OMITS ( IERRT ) TSET(I,K) = 'A ' ENDIF ENDDO - ENDDO + ENDDO ENDIF ENDIF ! IF (NAOCARD > 0) diff --git a/Source/LK1/L1B/TSET_PROC_FOR_RIGELS.f90 b/Source/LK1/L1B/TSET_PROC_FOR_RIGELS.f90 index a452bdb8..35552f87 100644 --- a/Source/LK1/L1B/TSET_PROC_FOR_RIGELS.f90 +++ b/Source/LK1/L1B/TSET_PROC_FOR_RIGELS.f90 @@ -1,40 +1,40 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) - + ! DOF Processor for rigid elements (incl RBE3 and RSPLINE) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L1F, L1F_MSG, LINK1F USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LIND_GRDS_MPCS, NDOFM, NGRID, NIND_GRDS_MPCS, NRECARD USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TSET_CHR_LEN, TSET USE MODEL_STUF, ONLY : GRID, GRID_ID, MPC_IND_GRIDS - + USE TSET_PROC_FOR_RIGELS_USE_IFs ! Added 2019/07/14 IMPLICIT NONE @@ -45,7 +45,7 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) CHARACTER( 1*BYTE) :: CDOF2(6) ! An output from subr RDOF CHARACTER(LEN=LEN(TSET_CHR_LEN)):: DOFSET ! The name of a DOF set (e.g. 'SB', 'A ', etc) CHARACTER( 8*BYTE) :: RTYPE ! Rigid elem type (RBAR, RBE1, RBE2) - + INTEGER(LONG), INTENT(INOUT) :: IERRT ! Sum of all grid and DOF errors INTEGER(LONG) :: COMPS_D ! Dep DOF's on RBE1 or RBE2 elem read from file LINK1F INTEGER(LONG) :: DDOF1 ! Dep DOF's at GID1 on RBAR elem read from file LINK1F @@ -74,7 +74,7 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening or reading a file INTEGER(LONG) :: IRBE3 ! Number of triplets of grid/comp/weight on L1F for RBE# elems INTEGER(LONG) :: NUMI ! Noumber of pairs of grid/indep DOF's read from file LINK1F for RBE1's - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. INTEGER(LONG) :: REC_NO = 0 ! Record number when reading a file INTEGER(LONG) :: REFC ! Dependent components on RBE3 INTEGER(LONG) :: REFGRID ! Dependent grid on RBE3 @@ -87,10 +87,10 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) ! ********************************************************************************************************************************** ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! ********************************************************************************************************************************** ! Process the Rigid Element data from file L1F (data written when RBAR, RBE1, RBE2 Bulk Data cards were read) @@ -100,7 +100,7 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) DO I=1,NRECARD - READ(L1F,IOSTAT=IOCHK) RTYPE + READ(L1F,IOSTAT=IOCHK) RTYPE REC_NO = REC_NO + 1 IF (IOCHK /= 0) THEN CALL READERR ( IOCHK, LINK1F, L1F_MSG, REC_NO, OUNT ) @@ -111,7 +111,7 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) IF (RTYPE == 'RBAR ') THEN - READ(L1F,IOSTAT=IOCHK) REID,GID1,IDUM(1),DDOF1,GID2,IDUM(2),DDOF2 + READ(L1F,IOSTAT=IOCHK) REID,GID1,IDUM(1),DDOF1,GID2,IDUM(2),DDOF2 REC_NO = REC_NO + 1 IF (IOCHK /= 0) THEN CALL READERR ( IOCHK, LINK1F, L1F_MSG, REC_NO, OUNT ) @@ -125,7 +125,7 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) WRITE(ERR,1822) 'GRID ', GID1, RTYPE, REID WRITE(F06,1822) 'GRID ', GID1, RTYPE, REID ENDIF - ! Check for existence of grid pt. GID2 + ! Check for existence of grid pt. GID2 IF (DDOF1 > 0) THEN ! Convert DDOF1 to CDOF1 char forn for use below CALL RDOF ( DDOF1, CDOF1 ) ELSE @@ -133,9 +133,9 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) CDOF1(K) = '0' ENDDO ENDIF - + DOFSET = 'M ' - IF (GRID_ID_ROW_NUM > 0) THEN ! Put CDOF1 data in TSET + IF (GRID_ID_ROW_NUM > 0) THEN ! Put CDOF1 data in TSET DO K = 1,6 IF (CDOF1(K) == '1') THEN IF (TSET(GRID_ID_ROW_NUM,K) == ' ') THEN @@ -163,16 +163,16 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) WRITE(ERR,1822) 'GRID ', GID2, RTYPE, REID WRITE(F06,1822) 'GRID ', GID2, RTYPE, REID ENDIF - + IF (DDOF2 > 0) THEN ! Convert DDOF2 to CDOF2 char forn for use below - CALL RDOF ( DDOF2, CDOF2 ) + CALL RDOF ( DDOF2, CDOF2 ) ELSE DO K=1,6 CDOF2(K) = '0' ENDDO ENDIF - - IF (GRID_ID_ROW_NUM > 0) THEN ! Put CDOF2 data in TSET + + IF (GRID_ID_ROW_NUM > 0) THEN ! Put CDOF2 data in TSET DO K = 1,6 IF (CDOF2(K) == '1') THEN IF (TSET(GRID_ID_ROW_NUM,K) == ' ') THEN @@ -197,7 +197,7 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) ELSE IF (RTYPE == 'RBE1 ') THEN ! NUMI was checked to be <= 6 when RBE1 was read in Bulk Data - READ(L1F,IOSTAT=IOCHK) REID,AGRID_D,COMPS_D,NUMI,(AGRIDI_I(J),IDUM(J),J=1,NUMI) + READ(L1F,IOSTAT=IOCHK) REID,AGRID_D,COMPS_D,NUMI,(AGRIDI_I(J),IDUM(J),J=1,NUMI) REC_NO = REC_NO + 1 IF (IOCHK /= 0) THEN CALL READERR ( IOCHK, LINK1F, L1F_MSG, REC_NO, OUNT ) @@ -221,9 +221,9 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) WRITE(ERR,1822) 'GRID ', AGRID_D, RTYPE, REID WRITE(F06,1822) 'GRID ', AGRID_D, RTYPE, REID ENDIF - + CALL RDOF ( COMPS_D, CDOF ) ! Convert COMPS_D to CDOF char forn for use below - + DOFSET = 'M ' ! Put data in TSET IF (GRID_ID_ROW_NUM > 0) THEN DO K = 1,6 @@ -252,10 +252,10 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) READ(L1F,IOSTAT=IOCHK) REID, AGRID_D, COMPS_D, AGRID_I IF (AGRID_I /= AGRID_I_PREV) THEN NIND_GRDS_MPCS = NIND_GRDS_MPCS + 1 ! Up count on num indep grids & store grid in array MPC_IND_GRIDS - IF (NIND_GRDS_MPCS > LIND_GRDS_MPCS) CALL ARRAY_SIZE_ERROR_1 ( SUBR_NAME, LIND_GRDS_MPCS, 'MPC_IND_GRIDS' ) + IF (NIND_GRDS_MPCS > LIND_GRDS_MPCS) CALL ARRAY_SIZE_ERROR_1 ( SUBR_NAME, LIND_GRDS_MPCS, 'MPC_IND_GRIDS' ) MPC_IND_GRIDS(NIND_GRDS_MPCS) = AGRID_I AGRID_I_PREV = AGRID_I - ENDIF + ENDIF REC_NO = REC_NO + 1 IF (IOCHK /= 0) THEN CALL READERR ( IOCHK, LINK1F, L1F_MSG, REC_NO, OUNT ) @@ -269,7 +269,7 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) WRITE(ERR,1822) 'GRID ', AGRID_D, RTYPE, REID WRITE(F06,1822) 'GRID ', AGRID_D, RTYPE, REID ENDIF - ! Check for existence of independent grid, AGRID_I + ! Check for existence of independent grid, AGRID_I CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, AGRID_I, GRID_ID_ROW_NUM_I ) IF (GRID_ID_ROW_NUM_I == -1) THEN GID_ERR = GID_ERR + 1 @@ -277,9 +277,9 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) WRITE(ERR,1822) 'GRID ', AGRID_I, RTYPE, REID WRITE(F06,1822) 'GRID ', AGRID_I, RTYPE, REID ENDIF - + CALL RDOF ( COMPS_D, CDOF ) ! Convert COMPS_D to CDOF char forn for use below - + DOFSET = 'M ' ! Put data in TSET IF (GRID_ID_ROW_NUM_D > 0) THEN DO K = 1,6 @@ -335,9 +335,9 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) WRITE(F06,1822) 'GRID ', AGRID_I, RTYPE, REID ENDIF ENDDO - + CALL RDOF ( REFC, CDOF ) ! Convert REFC to CDOF char forn for use below - + DOFSET = 'M ' ! Put data in TSET IF (GRID_ID_ROW_NUM_D > 0) THEN DO K = 1,6 @@ -364,21 +364,21 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) ELSE IF (RTYPE == 'RSPLINE ') THEN - READ(L1F,IOSTAT=IOCHK) REID, IDUM(1), IDUM(2), AGRID_I1, AGRID_I2, AGRID_D, COMPS_D, RDUM + READ(L1F,IOSTAT=IOCHK) REID, IDUM(1), IDUM(2), AGRID_I1, AGRID_I2, AGRID_D, COMPS_D, RDUM IF (AGRID_I1 /= AGRID_I1_PREV) THEN NIND_GRDS_MPCS = NIND_GRDS_MPCS + 1 ! Up count on num indep grids & store grid in array MPC_IND_GRIDS - IF (NIND_GRDS_MPCS > LIND_GRDS_MPCS) CALL ARRAY_SIZE_ERROR_1 ( SUBR_NAME, LIND_GRDS_MPCS, 'MPC_IND_GRIDS' ) + IF (NIND_GRDS_MPCS > LIND_GRDS_MPCS) CALL ARRAY_SIZE_ERROR_1 ( SUBR_NAME, LIND_GRDS_MPCS, 'MPC_IND_GRIDS' ) MPC_IND_GRIDS(NIND_GRDS_MPCS) = AGRID_I1 AGRID_I1_PREV = AGRID_I1 - ENDIF + ENDIF IF (AGRID_I2 /= AGRID_I2_PREV) THEN NIND_GRDS_MPCS = NIND_GRDS_MPCS + 1 ! Up count on num indep grids & store grid in array MPC_IND_GRIDS - IF (NIND_GRDS_MPCS > LIND_GRDS_MPCS) CALL ARRAY_SIZE_ERROR_1 ( SUBR_NAME, LIND_GRDS_MPCS, 'MPC_IND_GRIDS' ) + IF (NIND_GRDS_MPCS > LIND_GRDS_MPCS) CALL ARRAY_SIZE_ERROR_1 ( SUBR_NAME, LIND_GRDS_MPCS, 'MPC_IND_GRIDS' ) MPC_IND_GRIDS(NIND_GRDS_MPCS) = AGRID_I2 AGRID_I2_PREV = AGRID_I2 - ENDIF + ENDIF REC_NO = REC_NO + 1 IF (IOCHK /= 0) THEN @@ -393,7 +393,7 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) WRITE(ERR,1822) 'GRID ', AGRID_D, RTYPE, REID WRITE(F06,1822) 'GRID ', AGRID_D, RTYPE, REID ENDIF - ! Check for existence of independent grid, AGRID_I1 + ! Check for existence of independent grid, AGRID_I1 CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, AGRID_I1, GRID_ID_ROW_NUM_I ) IF (GRID_ID_ROW_NUM_I == -1) THEN GID_ERR = GID_ERR + 1 @@ -401,7 +401,7 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) WRITE(ERR,1822) 'GRID ', AGRID_I1, RTYPE, REID WRITE(F06,1822) 'GRID ', AGRID_I1, RTYPE, REID ENDIF - ! Check for existence of independent grid, AGRID_I2 + ! Check for existence of independent grid, AGRID_I2 CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, AGRID_I2, GRID_ID_ROW_NUM_I ) IF (GRID_ID_ROW_NUM_I == -1) THEN GID_ERR = GID_ERR + 1 @@ -409,9 +409,9 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) WRITE(ERR,1822) 'GRID ', AGRID_I2, RTYPE, REID WRITE(F06,1822) 'GRID ', AGRID_I2, RTYPE, REID ENDIF - + CALL RDOF ( COMPS_D, CDOF ) ! Convert COMPS_D to CDOF char forn for use below - + DOFSET = 'M ' ! Put data in TSET IF (GRID_ID_ROW_NUM_D > 0) THEN DO K = 1,6 @@ -444,7 +444,7 @@ SUBROUTINE TSET_PROC_FOR_RIGELS ( IERRT ) ENDIF ENDDO - + IERRT = IERRT + GID_ERR + DOF_ERR diff --git a/Source/LK1/L1B/TSET_PROC_FOR_SPCS.f90 b/Source/LK1/L1B/TSET_PROC_FOR_SPCS.f90 index fac3f026..69f490c9 100644 --- a/Source/LK1/L1B/TSET_PROC_FOR_SPCS.f90 +++ b/Source/LK1/L1B/TSET_PROC_FOR_SPCS.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE TSET_PROC_FOR_SPCS ( IERRT ) - -! DOF Processor for SPC's - + +! DOF Processor for SPC's + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1H, L1O, L1O_MSG, LINK1O USE SCONTR, ONLY : BLNK_SUB_NAM, ENFORCED, FATAL_ERR, LSPCADDC, NDOFSB, NDOFSE, NDOFSG, NGRID, NSPCADD, & @@ -37,7 +37,7 @@ SUBROUTINE TSET_PROC_FOR_SPCS ( IERRT ) USE PARAMS, ONLY : EPSIL USE DOF_TABLES, ONLY : TSET_CHR_LEN, TSET USE MODEL_STUF, ONLY : GRID, GRID_ID, SPCADD_SIDS, SPCSET, SPCSIDS - + USE TSET_PROC_FOR_SPCS_USE_IFs ! Added 2019/07/14 IMPLICIT NONE @@ -45,7 +45,7 @@ SUBROUTINE TSET_PROC_FOR_SPCS ( IERRT ) CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TSET_PROC_FOR_SPCS' CHARACTER( 1*BYTE) :: CDOF(6) ! An output from subr RDOF CHARACTER(LEN=LEN(TSET_CHR_LEN)):: DOFSET ! The name of a DOF set (e.g. 'SB', 'A ', etc) - + INTEGER(LONG), INTENT(INOUT) :: IERRT ! Sum of all grid and DOF errors INTEGER(LONG) :: GRID1 ! An actual grid ID INTEGER(LONG) :: GRID2 ! An actual grid ID @@ -56,27 +56,27 @@ SUBROUTINE TSET_PROC_FOR_SPCS ( IERRT ) INTEGER(LONG) :: ICOMP ! DOF components read from file LINK1O (SPC's) or LINK1N (ASET/OMIT's) INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening or reading a file INTEGER(LONG) :: NUM_COMPS ! Number of displ components (1 for SPOINT, 6 for physical grid) - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. INTEGER(LONG) :: REC_NO = 0 ! Record number when reading a file INTEGER(LONG) :: SETID ! An SPC set ID read from file LINK1O - + REAL(DOUBLE) :: EPS1 ! A small number to compare real zero REAL(DOUBLE) :: RSPC ! SPC displ value (nonzero's are enforced displ's) - + ! ********************************************************************************************************************************** ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + EPS1 = EPSIL(1) ! ********************************************************************************************************************************** ! Process the permanent SPC DOF data on the GRID card. The PSPC's are in GRID(I,4) for each GRID PT., I - + GID_ERR = 0 DOF_ERR = 0 DOFSET = 'SG' @@ -100,17 +100,17 @@ SUBROUTINE TSET_PROC_FOR_SPCS ( IERRT ) ENDDO ENDIF ENDDO - + IERRT = IERRT + GID_ERR + DOF_ERR ! ---------------------------------------------------------------------------------------------------------------------------------- ! Process SPC data from file L1O (data written when SPC and SPC1 Bulk Data cards were read) - + ! Make a list of all of the individual SPC sets that make up what was called for in Case Control (name this list array SPCSIDS). ! The first one in the list is the SPC set ID called for in Case Control. Subsequent ones are the set ID's from any ! SPCADD cards that have the set ID called for in Case Control. So, if there are 2 SPCADD's that have the same ID as ! called for in Case Control and there are (for example) 25 individual SPC/SPC1 set ID's identified on these -! SPCADD cards, then SPCSIDS will contain 26 entries. +! SPCADD cards, then SPCSIDS will contain 26 entries. GID_ERR = 0 DOF_ERR = 0 @@ -124,7 +124,7 @@ SUBROUTINE TSET_PROC_FOR_SPCS ( IERRT ) NUM_SPCSIDS = NUM_SPCSIDS + 1 CYCLE ELSE - EXIT j_do4 + EXIT j_do4 ENDIF ENDDO j_do4 ENDIF @@ -142,15 +142,15 @@ SUBROUTINE TSET_PROC_FOR_SPCS ( IERRT ) SPCSIDS(K) = SPCADD_SIDS(I,J) CYCLE ELSE - EXIT j_do5 + EXIT j_do5 ENDIF ENDDO j_do5 ENDIF ENDDO i_do5 i_do6:DO I=1,NUM_SPC_RECORDS + NUM_SPC1_RECORDS - - READ(L1O,IOSTAT=IOCHK) SETID, ICOMP, GRID1, GRID2, RSPC, DOFSET + + READ(L1O,IOSTAT=IOCHK) SETID, ICOMP, GRID1, GRID2, RSPC, DOFSET REC_NO = REC_NO + 1 IF (IOCHK /= 0) THEN CALL READERR ( IOCHK, LINK1O, L1O_MSG, REC_NO, OUNT ) @@ -165,15 +165,15 @@ SUBROUTINE TSET_PROC_FOR_SPCS ( IERRT ) FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Pgm error (data in file LINK1O must be for sets 'SB' or 'SE') ENDIF - + ! No error, so processes data. First, make sure SETID is the one called for in Case Control: - + j_do6: DO J=1,NUM_SPCSIDS IF (SETID == SPCSIDS(J)) THEN ! Check for existence of grid pt CALL RDOF ( ICOMP, CDOF ) ! Convert ICOMP to CDOF char form for use below - + CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, GRID1, GRID_ID_ROW_NUM ) IF (GRID_ID_ROW_NUM == -1) THEN GID_ERR = GID_ERR + 1 @@ -186,11 +186,11 @@ SUBROUTINE TSET_PROC_FOR_SPCS ( IERRT ) IF (GRID_ID_ROW_NUM == -1) THEN GID_ERR = GID_ERR + 1 FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1822) 'GRID ', GRID2, 'SPC OR SPC1', SPCSIDS(J) - WRITE(F06,1822) 'GRID ', GRID2, 'SPC OR SPC1', SPCSIDS(J) + WRITE(ERR,1822) 'GRID ', GRID2, 'SPC OR SPC1', SPCSIDS(J) + WRITE(F06,1822) 'GRID ', GRID2, 'SPC OR SPC1', SPCSIDS(J) ENDIF - ENDIF - + ENDIF + IF (GID_ERR == 0) THEN ! Put CDOF data in TSET for GRID1 thru GRID2 DO GRID_NUM=GRID1,GRID2 ! GRID2 >= GRID1 was checked in subr BD_SPC1 CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, GRID_NUM, GRID_ID_ROW_NUM ) @@ -203,7 +203,7 @@ SUBROUTINE TSET_PROC_FOR_SPCS ( IERRT ) TSET(GRID_ID_ROW_NUM,K) = 'SE' NDOFSE = NDOFSE + 1 ! Write enforced displs to L1H. If ENFORCED = 'Y' write all terms - IF (ENFORCED == 'Y') THEN + IF (ENFORCED == 'Y') THEN IF (DOFSET == 'SE') THEN WRITE(L1H) GRID_ID_ROW_NUM, K, RSPC ENDIF @@ -236,16 +236,16 @@ SUBROUTINE TSET_PROC_FOR_SPCS ( IERRT ) ENDIF ENDDO ENDIF - ENDDO + ENDDO ENDIF EXIT j_do6 ! We found and processed the SPC set, so quit ENDIF - ENDDO j_do6 - - ENDDO i_do6 + ENDDO j_do6 + + ENDDO i_do6 CALL DEALLOCATE_MODEL_STUF ( 'SPCSIDS' ) diff --git a/Source/LK1/L1B/TSET_PROC_FOR_SUPORTS.f90 b/Source/LK1/L1B/TSET_PROC_FOR_SUPORTS.f90 index bf85b584..df900e1a 100644 --- a/Source/LK1/L1B/TSET_PROC_FOR_SUPORTS.f90 +++ b/Source/LK1/L1B/TSET_PROC_FOR_SUPORTS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TSET_PROC_FOR_SUPORTS ( IERRT ) - -! DOF Processor for SUPORT's - + +! DOF Processor for SUPORT's + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1T, L1T_MSG, LINK1T USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFR, NGRID, NUM_SUPT_CARDS @@ -35,7 +35,7 @@ SUBROUTINE TSET_PROC_FOR_SUPORTS ( IERRT ) USE PARAMS, ONLY : EPSIL USE DOF_TABLES, ONLY : TSET_CHR_LEN, TSET USE MODEL_STUF, ONLY : GRID, GRID_ID - + USE TSET_PROC_FOR_SUPORTS_USE_IFs ! Added 2019/07/14 IMPLICIT NONE @@ -43,7 +43,7 @@ SUBROUTINE TSET_PROC_FOR_SUPORTS ( IERRT ) CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TSET_PROC_FOR_SUPTS' CHARACTER( 1*BYTE) :: CDOF(6) ! An output from subr RDOF CHARACTER(LEN=LEN(TSET_CHR_LEN)):: DOFSET ! The name of a DOF set (e.g. 'SB', 'A ', etc) - + INTEGER(LONG), INTENT(INOUT) :: IERRT ! Sum of all grid and DOF errors INTEGER(LONG) :: GRID_NUM ! An actual grid ID INTEGER(LONG) :: DOF_ERR = 0 ! Count of errors that result from setting displ sets in TSET @@ -52,28 +52,28 @@ SUBROUTINE TSET_PROC_FOR_SUPORTS ( IERRT ) INTEGER(LONG) :: I,K ! DO loop indices INTEGER(LONG) :: ICOMP ! DOF components read from file LINK1T (SUPORT's) INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening or reading a file - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. INTEGER(LONG) :: REC_NO = 0 ! Record number when reading a file - + ! ********************************************************************************************************************************** ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! ********************************************************************************************************************************** ! Process SPC data from file L1T (data written when SUPORT Bulk Data cards were read) - + GID_ERR = 0 DOF_ERR = 0 DOFSET = 'R ' REC_NO = 0 i_do6:DO I=1,NUM_SUPT_CARDS - + READ(L1T,IOSTAT=IOCHK) GRID_NUM, ICOMP REC_NO = REC_NO + 1 IF (IOCHK /= 0) THEN @@ -88,7 +88,7 @@ SUBROUTINE TSET_PROC_FOR_SUPORTS ( IERRT ) WRITE(ERR,1310) 'GRID ', GRID_NUM, 'SUPORT' WRITE(F06,1310) 'GRID ', GRID_NUM, 'SUPORT' ENDIF - + IF (GID_ERR == 0) THEN CALL RDOF ( ICOMP, CDOF ) ! Convert ICOMP to CDOF char form for use below DO K = 1,6 ! Put data in TSET @@ -108,7 +108,7 @@ SUBROUTINE TSET_PROC_FOR_SUPORTS ( IERRT ) ENDDO ENDIF - ENDDO i_do6 + ENDDO i_do6 IERRT = IERRT + GID_ERR + DOF_ERR diff --git a/Source/LK1/L1B/USET_PROC.f90 b/Source/LK1/L1B/USET_PROC.f90 index a8eb14e4..552756bb 100644 --- a/Source/LK1/L1B/USET_PROC.f90 +++ b/Source/LK1/L1B/USET_PROC.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE USET_PROC - + ! USET is a table that specifies which grid/component pairs are ones defined by the user on Bulk Data USET or USET1 entries. ! The table has NGRID rows and 6 columns (1 col for each of the 6 components of displ at a grid). The table can have entries that ! are either 'U1' or 'U2' (i.e. user set U1 or U2). The table is constructed like tha TSET table (see explanation in subr TSET_PROC) @@ -44,7 +44,7 @@ SUBROUTINE USET_PROC ! 1033 -- U1 -- U1 -- -- ! 1041 U1 -- U1 U2 U1 U2 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06, L1X, L1X_MSG, LINK1X USE SCONTR, ONLY : BLNK_SUB_NAM, ENFORCED, FATAL_ERR, NGRID, NUM_USET_RECORDS, NUM_USET_U1, NUM_USET_U2 @@ -52,7 +52,7 @@ SUBROUTINE USET_PROC USE PARAMS, ONLY : EPSIL USE DOF_TABLES, ONLY : TSET_CHR_LEN, USET USE MODEL_STUF, ONLY : GRID, GRID_ID - + USE USET_PROC_USE_IFs IMPLICIT NONE @@ -60,7 +60,7 @@ SUBROUTINE USET_PROC CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'USET_PROC' CHARACTER( 1*BYTE) :: CDOF(6) ! An output from subr RDOF CHARACTER(LEN=LEN(TSET_CHR_LEN)):: SNAME ! The name of a set ('U1' or 'U2') - + INTEGER(LONG) :: USET_ERR = 0 ! Count of errors that result from setting displ sets in USET INTEGER(LONG) :: GRID1 ! An actual grid ID INTEGER(LONG) :: GRID2 ! An actual grid ID @@ -71,18 +71,18 @@ SUBROUTINE USET_PROC INTEGER(LONG) :: IERRT ! Total number of errors found here INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening or reading a file INTEGER(LONG) :: NUM_COMPS ! Number of displ components (1 for SPOINT, 6 for physical grid) - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. INTEGER(LONG) :: REC_NO = 0 ! Record number when reading a file - + ! ********************************************************************************************************************************** ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! ---------------------------------------------------------------------------------------------------------------------------------- ! Initialize @@ -103,11 +103,11 @@ SUBROUTINE USET_PROC ENDDO ! Process USET data from file L1X (data written when USET and USET1 Bulk Data entries were read) - + CALL FILE_OPEN ( L1X, LINK1X, OUNT, 'OLD', L1X_MSG, 'READ_STIME', 'UNFORMATTED', 'READ', 'REWIND', 'Y', 'N' ) i_do6:DO I=1,NUM_USET_RECORDS - + READ(L1X,IOSTAT=IOCHK) SNAME, ICOMP, GRID1, GRID2 REC_NO = REC_NO + 1 IF (IOCHK /= 0) THEN @@ -121,9 +121,9 @@ SUBROUTINE USET_PROC FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Pgm error (data in file LINK1X must be for sets 'U1' or 'U2') ENDIF - + ! No error, so processes data. - + CALL RDOF ( ICOMP, CDOF ) ! Convert ICOMP to CDOF char form for use below CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, GRID1, GRID_ID_ROW_NUM ) @@ -141,7 +141,7 @@ SUBROUTINE USET_PROC WRITE(ERR,1822) 'GRID ', GRID1, 'USET OR USET1', SNAME WRITE(F06,1822) 'GRID ', GRID1, 'USET OR USET1', SNAME ENDIF - ENDIF + ENDIF IF (GID_ERR == 0) THEN ! Put CDOF data in USET for GRID1 thru GRID2 DO GRID_NUM=GRID1,GRID2 ! GRID2 >= GRID1 was checked in subr BD_SPC1 @@ -178,10 +178,10 @@ SUBROUTINE USET_PROC ENDIF ENDDO ENDIF - ENDDO + ENDDO ENDIF - ENDDO i_do6 + ENDDO i_do6 IERRT = GID_ERR + USET_ERR IF (IERRT > 0) THEN diff --git a/Source/LK1/L1C/CONM2_PROC_1.f90 b/Source/LK1/L1C/CONM2_PROC_1.f90 index cb540c69..e512fee7 100644 --- a/Source/LK1/L1C/CONM2_PROC_1.f90 +++ b/Source/LK1/L1C/CONM2_PROC_1.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CONM2_PROC_1 - + ! CONM2 Processor #1 !------------------- ! In the MYSTRAN input Bulk Data File, RCONM2 was in a local coord system at the mass. ! This subr converts those values to the basic coord system at the mass (NOT at the grid). This is needed for the Grid Point Weight ! Generator. A later subr (CONM2_PROC_2) will convert the mass terms to the global coord system at the grid point. Array RCONM2 is ! overwritten with the values in basic coords at the mass point at the close of this subr. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1Y USE SCONTR, ONLY : BLNK_SUB_NAM, DATA_NAM_LEN, FATAL_ERR, MCMASS, MCONM2, MPMASS, MRCONM2, MRPMASS, NCMASS, & @@ -46,15 +46,15 @@ SUBROUTINE CONM2_PROC_1 USE CONM2_PROC_1_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CONM2_PROC_1' CHARACTER(1*BYTE) :: CORD_FND ! = 'Y' if coord sys ID on CONM2 defined, 'N' otherwise CHARACTER(LEN=DATA_NAM_LEN) :: DATA_SET_NAME ! A data set name for output purposes CHARACTER(1*BYTE) :: GRID_FND ! = 'Y' if grid ID on CONM2 defined, 'N' otherwise CHARACTER(8*BYTE), PARAMETER :: NAME = 'CONM2 ' - + INTEGER(LONG) :: ACID ! Actual (external) coordinate system ID - INTEGER(LONG) :: AGRID ! Actual grid number where CONM2 is located + INTEGER(LONG) :: AGRID ! Actual grid number where CONM2 is located INTEGER(LONG) :: GRID_ID_ROW_NUM ! Row number in array GRID_ID where AGRID is found INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: ICORD ! Internal coordinate system ID @@ -65,15 +65,15 @@ SUBROUTINE CONM2_PROC_1 INTEGER(LONG) :: NUM_COMPS ! No. displ components (1 for SPOINT, 6 for actual grid) INTEGER(LONG) :: NUM_RCONM2_RESET ! No. RCONM2's reset to zero because they are connected to SPOINT's - + REAL(DOUBLE) :: DX_0 ! Offset of mass from grid in basic coord sys X direction REAL(DOUBLE) :: DY_0 ! Offset of mass from grid in basic coord sys Y direction REAL(DOUBLE) :: DZ_0 ! Offset of mass from grid in basic coord sys Z direction REAL(DOUBLE) :: D_0(3) ! Array containing DX_0, DY_0, DZ_0 REAL(DOUBLE) :: DX_CID ! Offset of mass from grid in coord sys ACID X direction - REAL(DOUBLE) :: DY_CID ! Offset of mass from grid in coord sys ACID Y direction - REAL(DOUBLE) :: DZ_CID ! Offset of mass from grid in coord sys ACID Z direction + REAL(DOUBLE) :: DY_CID ! Offset of mass from grid in coord sys ACID Y direction + REAL(DOUBLE) :: DZ_CID ! Offset of mass from grid in coord sys ACID Z direction REAL(DOUBLE) :: D_CID(3) ! Array containing DX_CID, DY_CID, DZ_CID REAL(DOUBLE) :: DUM33(3,3) ! Intermediate return from subr MATMULT_FFF @@ -92,14 +92,14 @@ SUBROUTINE CONM2_PROC_1 REAL(DOUBLE) :: IZY_M_CID ! Z-Y MOI about the mass c.g. in ACID coord sys REAL(DOUBLE) :: IZZ_M_CID ! Z-Z MOI about the mass c.g. in ACID coord sys - REAL(DOUBLE) :: MOI_M_0(3,3) ! Array of above MOI's, POI's in basic coord sys + REAL(DOUBLE) :: MOI_M_0(3,3) ! Array of above MOI's, POI's in basic coord sys REAL(DOUBLE) :: MOI_M_CID(3,3) ! Array of above MOI's, POI's in ACID coord sys REAL(DOUBLE) :: MASS ! Mass (or weight, depending on input units) REAL(DOUBLE) :: PHID, THETAD ! Outputs from subr GEN_T0L REAL(DOUBLE) :: T_0_CID(3,3) ! Transformation matrix from coord ACID to basic REAL(DOUBLE) :: T_CID_0(3,3) ! Transformation matrix from basic to coord ACID (transp of T_0_CID) - + ! ********************************************************************************************************************************** @@ -132,7 +132,7 @@ SUBROUTINE CONM2_PROC_1 WRITE(F06,9996) SUBR_NAME, IERROR CALL OUTA_HERE ( 'Y' ) ! Quit due to undefined grids ENDIF - + IF (NUM_RCONM2_RESET > 0) THEN WARN_ERR = WARN_ERR + 1 WRITE(ERR,9901) NUM_RCONM2_RESET @@ -146,7 +146,7 @@ SUBROUTINE CONM2_PROC_1 IF (DEBUG(15) == 1) CALL CONM2_PROC_1_DEB ( '1' ) ! Get MASS, MOI's about c.g. of mass, and dists from c.g. to grid pt, from RCONM2 (in local coord sys CID): - + MASS = RCONM2(I,1) DX_CID = RCONM2(I,2) DY_CID = RCONM2(I,3) @@ -157,9 +157,9 @@ SUBROUTINE CONM2_PROC_1 IZX_M_CID = RCONM2(I,8) IZY_M_CID = RCONM2(I,9) IZZ_M_CID = RCONM2(I,10) - + ! Put terms into matrices for use when we get MATMULT_FFF - + D_CID(1) = DX_CID D_CID(2) = DY_CID D_CID(3) = DZ_CID @@ -171,8 +171,8 @@ SUBROUTINE CONM2_PROC_1 MOI_M_CID(3,3) = IZZ_M_CID MOI_M_CID(1,2) = MOI_M_CID(2,1) MOI_M_CID(1,3) = MOI_M_CID(3,1) - MOI_M_CID(2,3) = MOI_M_CID(3,2) - + MOI_M_CID(2,3) = MOI_M_CID(3,2) + ! Get actual grid pt no. (AGRID) that this CONM2 is attached to and internal value for it (GRID_ID_ROW_NUM). GRID_FND = 'Y' @@ -184,10 +184,10 @@ SUBROUTINE CONM2_PROC_1 WRITE(ERR,1822) 'GRID ', AGRID, NAME, CONM2(I,1) WRITE(F06,1822) 'GRID ', AGRID, NAME, CONM2(I,1) ENDIF - + ! The local system that CONM2 is defined in is ACID (or X). If not basic, transform from local to basic ! (princ local since no grid point is used on CONM card). Write error message if couldn't find coord system - + CORD_FND = 'N' ACID = CONM2(I,3) IF (ACID /= 0) THEN @@ -210,28 +210,28 @@ SUBROUTINE CONM2_PROC_1 CYCLE outer ! Can't continue (GRID_ID_ROW_NUM or ACID not found), ! so CYCLE and read next CONM2 ENDIF - + ! Get transformation matrix from coord ACID to basic, T_0_CID - + CALL GEN_T0L ( GRID_ID_ROW_NUM, ICORD, THETAD, PHID, T_0_CID ) ! Transpose T_0_CID to T_CID_0 - + DO J=1,3 DO K=1,3 T_CID_0(J,K) = T_0_CID(K,J) ENDDO ENDDO - + ! Transform D_CID to basic - + NROWA = 3 NCOLA = 3 NCOLB = 1 CALL MATMULT_FFF (T_0_CID, D_CID, NROWA, NCOLA, NCOLB, D_0 ) - + ! Transform MOI's to basic - + NROWA = 3 NCOLA = 3 NCOLB = 3 @@ -248,7 +248,7 @@ SUBROUTINE CONM2_PROC_1 DO K=1,3 MOI_M_0(J,K) = MOI_M_CID(J,K) ENDDO - ENDDO + ENDDO ENDIF DX_0 = D_0(1) DY_0 = D_0(2) @@ -259,9 +259,9 @@ SUBROUTINE CONM2_PROC_1 IZX_M_0 = MOI_M_0(3,1) IZY_M_0 = MOI_M_0(3,2) IZZ_M_0 = MOI_M_0(3,3) - -! Rewrite RCONM2 with values in basic coord system at the mass point - + +! Rewrite RCONM2 with values in basic coord system at the mass point + RCONM2(I, 1) = MASS RCONM2(I, 2) = DX_0 RCONM2(I, 3) = DY_0 @@ -284,27 +284,27 @@ SUBROUTINE CONM2_PROC_1 ENDIF ENDDO outer - + IF (IERROR > 0) THEN WRITE(ERR,9996) SUBR_NAME, IERROR WRITE(F06,9996) SUBR_NAME, IERROR CALL OUTA_HERE ( 'Y' ) ! Quit due to undefined grid and coord sys ID's ENDIF - + ! Write mass data to L1Y. - + DATA_SET_NAME = 'CONM2, RCONM2' WRITE(L1Y) DATA_SET_NAME WRITE(L1Y) NCONM2 DO I=1,NCONM2 DO J=1,MCONM2 WRITE(L1Y) CONM2(I,J) - ENDDO + ENDDO DO J=1,MRCONM2 WRITE(L1Y) RCONM2(I,J) ENDDO ENDDO - + DATA_SET_NAME = 'CMASS, PMASS, RPMASS' WRITE(L1Y) DATA_SET_NAME WRITE(L1Y) NCMASS @@ -314,7 +314,7 @@ SUBROUTINE CONM2_PROC_1 ENDDO ENDDO WRITE(L1Y) NPMASS - DO I=1,NPMASS + DO I=1,NPMASS DO J=1,MPMASS WRITE(L1Y) PMASS(I,J) ENDDO @@ -322,7 +322,7 @@ SUBROUTINE CONM2_PROC_1 WRITE(L1Y) RPMASS(I,J) ENDDO ENDDO - + RETURN @@ -335,7 +335,7 @@ SUBROUTINE CONM2_PROC_1 9996 FORMAT(/,' PROCESSING ABORTED IN SUBROUTINE ',A,' DUE TO ABOVE ',I8,' ERRORS') ! ********************************************************************************************************************************** - + ! ################################################################################################################################## CONTAINS diff --git a/Source/LK1/L1C/CONM2_PROC_2.f90 b/Source/LK1/L1C/CONM2_PROC_2.f90 index f984a82a..4896fe38 100644 --- a/Source/LK1/L1C/CONM2_PROC_2.f90 +++ b/Source/LK1/L1C/CONM2_PROC_2.f90 @@ -1,57 +1,57 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CONM2_PROC_2 - + ! CONM2 Processor #2 -!------------------- +!------------------- ! In the MYSTRAN input Bulk Data File, RCONM2 was in a local coord system at the mass. However, subr CONM2_PROC_1 converted those ! values to basic coords at the mass. This subr converts themfrom basic coord system at the mass to global coord system at the -! grid point. +! grid point. ! RCONM2 in global coords at the grid is needed for the mass matrix generation subr, MGG_MASS_MATRIX. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NCONM2, NCORD, NGRID USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CONM2, RCONM2, GRID, GRID_ID, CORD USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE CONM2_PROC_2_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CONM2_PROC_2' CHARACTER(1*BYTE) :: CORD_FND ! = 'Y' if coord sys ID on CONM2 defined, 'N' otherwise CHARACTER(1*BYTE) :: GRID_FND ! = 'Y' if grid ID on CONM2 defined, 'N' otherwise CHARACTER(8*BYTE), PARAMETER :: NAME = 'CONM2 ' - + INTEGER(LONG) :: ACORD ! Actual coordinate system ID (on GRID card) - INTEGER(LONG) :: AGRID ! Actual grid number where CONM2 is located + INTEGER(LONG) :: AGRID ! Actual grid number where CONM2 is located INTEGER(LONG) :: GRID_ID_ROW_NUM ! Row number in array GRID_ID where AGRID is found INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: ICORD ! Internal coordinate system ID @@ -60,7 +60,7 @@ SUBROUTINE CONM2_PROC_2 INTEGER(LONG) :: NCOLB ! No. cols in a matrix. For subr MATMULT_FFF/MATMULT_FFF_T, called herein INTEGER(LONG) :: NROWA ! No. rows in a matrix. For subr MATMULT_FFF/MATMULT_FFF_T, called herein - + REAL(DOUBLE) :: DX_0 ! Offset of mass from grid in basic coord sys X direction REAL(DOUBLE) :: DY_0 ! Offset of mass from grid in basic coord sys Y direction REAL(DOUBLE) :: DZ_0 ! Offset of mass from grid in basic coord sys Z direction @@ -94,7 +94,7 @@ SUBROUTINE CONM2_PROC_2 REAL(DOUBLE) :: IZY_G_G ! Z-Y MOI about the grid point in global coord sys REAL(DOUBLE) :: IZZ_G_G ! Z-Z MOI about the grid point in global coord sys - REAL(DOUBLE) :: MOI_G_0(3,3) ! Array of MOI's, POI's about the grid point in basic coord sys + REAL(DOUBLE) :: MOI_G_0(3,3) ! Array of MOI's, POI's about the grid point in basic coord sys REAL(DOUBLE) :: MOI_G_G(3,3) ! Array of MOI's, POI's about the grid point in global coord sys REAL(DOUBLE) :: MASS ! Mass (or weight, depending on input units) REAL(DOUBLE) :: PHID, THETAD ! Outputs from subr GEN_T0L @@ -106,7 +106,7 @@ SUBROUTINE CONM2_PROC_2 outer:DO I = 1,NCONM2 ! Get MASS, MOI's about c.g. of mass, and distances from c.g. to grid point, from RCONM2: - + MASS = RCONM2(I,1) DX_0 = RCONM2(I,2) DY_0 = RCONM2(I,3) @@ -117,31 +117,31 @@ SUBROUTINE CONM2_PROC_2 IZX_M_0 = RCONM2(I,8) IZY_M_0 = RCONM2(I,9) IZZ_M_0 = RCONM2(I,10) - + ! Translate MOI's from axes at c.g. to axes at the grid point - - IXX_G_0 = IXX_M_0 + MASS*( DY_0*DY_0 + DZ_0*DZ_0) - IYY_G_0 = IYY_M_0 + MASS*(DX_0*DX_0 + DZ_0*DZ_0) + + IXX_G_0 = IXX_M_0 + MASS*( DY_0*DY_0 + DZ_0*DZ_0) + IYY_G_0 = IYY_M_0 + MASS*(DX_0*DX_0 + DZ_0*DZ_0) IZZ_G_0 = IZZ_M_0 + MASS*(DX_0*DX_0 + DY_0*DY_0 ) - IYX_G_0 = IYX_M_0 - MASS*(DY_0*DX_0) + IYX_G_0 = IYX_M_0 - MASS*(DY_0*DX_0) IZX_G_0 = IZX_M_0 - MASS*(DZ_0*DX_0) IZY_G_0 = IZY_M_0 - MASS*(DZ_0*DY_0) - + ! Put terms into matrices for use when we use subr MATMULT_FFF - + D_0(1) = DX_0 D_0(2) = DY_0 D_0(3) = DZ_0 MOI_G_0(1,1) = IXX_G_0 MOI_G_0(2,1) = IYX_G_0 - MOI_G_0(2,2) = IYY_G_0 + MOI_G_0(2,2) = IYY_G_0 MOI_G_0(3,1) = IZX_G_0 MOI_G_0(3,2) = IZY_G_0 MOI_G_0(3,3) = IZZ_G_0 MOI_G_0(1,2) = MOI_G_0(2,1) MOI_G_0(1,3) = MOI_G_0(3,1) MOI_G_0(2,3) = MOI_G_0(3,2) - + ! Get actual grid pt no. (AGRID) that this CONM2 is attached to and row number in array GRID_ID for it (GRID_ID_ROW_NUM). GRID_FND = 'Y' @@ -153,10 +153,10 @@ SUBROUTINE CONM2_PROC_2 WRITE(ERR,1822) 'GRID ', AGRID, NAME, CONM2(I,1) WRITE(F06,1822) 'GRID ', AGRID, NAME, CONM2(I,1) ENDIF - + ! Rewrite RCONM2 with mass values at the grid in basic coords (which will be final values for RCONM2 if ! global coord sys at this grid is basic) - + RCONM2(I, 2) = D_0(1) RCONM2(I, 3) = D_0(2) RCONM2(I, 4) = D_0(3) @@ -172,7 +172,7 @@ SUBROUTINE CONM2_PROC_2 IF (DEBUG(15) == 1) CALL CONM2_PROC_2_DEB ( '1' ) ! Transform coords from basic to global at AGRID for D_0. NOTE: we want D_G = T_0_G(t)*D_0, NOT D_G = T_0_G*D_0 - + CORD_FND = 'N' ! ICORD should have been found in subr GRID_PROC (check it here anyway) ACORD = GRID(GRID_ID_ROW_NUM,3) IF (ACORD /= 0) THEN @@ -194,16 +194,16 @@ SUBROUTINE CONM2_PROC_2 CYCLE outer ! Can't continue (GRID_ID_ROW_NUM or ACID not found), ! so CYCLE and read next CONM2 ENDIF - + CALL GEN_T0L ( GRID_ID_ROW_NUM, ICORD, THETAD, PHID, T_0_G ) NROWA = 3 NCOLA = 3 NCOLB = 1 CALL MATMULT_FFF_T ( T_0_G, D_0, NROWA, NCOLA, NCOLB, D_G ) - + ! Transform coordinates from basic to global at GRID_ID_ROW_NUM for MOI_0 - + NROWA = 3 NCOLA = 3 NCOLB = 3 @@ -211,10 +211,10 @@ SUBROUTINE CONM2_PROC_2 NROWA = 3 NCOLA = 3 NCOLB = 3 - CALL MATMULT_FFF_T ( T_0_G, DUM33, NROWA, NCOLA, NCOLB, MOI_G_G ) - + CALL MATMULT_FFF_T ( T_0_G, DUM33, NROWA, NCOLA, NCOLB, MOI_G_G ) + ! Rewrite RCONM2 with mass values at the grid in global coords - + DX_G = D_G(1) DY_G = D_G(2) DZ_G = D_G(3) @@ -231,11 +231,11 @@ SUBROUTINE CONM2_PROC_2 IZZ_G_G = MOI_G_G(3,3) RCONM2(I, 5) = IXX_G_G - RCONM2(I, 6) = IYX_G_G - RCONM2(I, 7) = IYY_G_G - RCONM2(I, 8) = IZX_G_G - RCONM2(I, 9) = IZY_G_G - RCONM2(I,10) = IZZ_G_G + RCONM2(I, 6) = IYX_G_G + RCONM2(I, 7) = IYY_G_G + RCONM2(I, 8) = IZX_G_G + RCONM2(I, 9) = IZY_G_G + RCONM2(I,10) = IZZ_G_G ENDIF @@ -250,13 +250,13 @@ SUBROUTINE CONM2_PROC_2 ENDIF ENDDO outer - + IF (IERROR > 0) THEN WRITE(ERR,9996) SUBR_NAME,IERROR WRITE(ERR,9996) SUBR_NAME,IERROR CALL OUTA_HERE ( 'Y' ) ! Quit due to undefined grid and coord sys ID's ENDIF - + RETURN @@ -267,7 +267,7 @@ SUBROUTINE CONM2_PROC_2 9996 FORMAT(/,' PROCESSING ABORTED IN SUBROUTINE ',A,' DUE TO ABOVE ',I8,' ERRORS') ! ********************************************************************************************************************************** - + ! ################################################################################################################################## CONTAINS diff --git a/Source/LK1/L1C/ELEM_PROP_MATL_IIDS.f90 b/Source/LK1/L1C/ELEM_PROP_MATL_IIDS.f90 index a1a7aca4..766f19f0 100644 --- a/Source/LK1/L1C/ELEM_PROP_MATL_IIDS.f90 +++ b/Source/LK1/L1C/ELEM_PROP_MATL_IIDS.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ELEM_PROP_MATL_IIDS - + ! Fix up routine for element property and material ID's. When the Bulk Data File was read, element and material property ID's ! were actual ID values. WE need to convert these to consequetive integer ID's so that the element property and material arrays -! can be accessed sequentially. This subr performs that function. +! can be accessed sequentially. This subr performs that function. USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN4FIL_NUM, NUM_IN4_FILES @@ -38,31 +38,31 @@ SUBROUTINE ELEM_PROP_MATL_IIDS USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CMASS, ETYPE, EPNT, EDAT, PELAS, PROD, PBAR, PBEAM, PBUSH, PCOMP, PMASS, PSHEAR, & PSHEL, PSOLID, PUSER1, PUSERIN, MATL - + USE ELEM_PROP_MATL_IIDS_USE_IFs IMPLICIT NONE CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELEM_PROP_MATL_IIDS' CHARACTER( 6*BYTE) :: CMASS_TYPE ! 'CMASS1', 'CMASS2' 'CMASS3' or 'CMASS4' - CHARACTER( 1*BYTE) :: FOUND ! Used to indicate if a prop or mat'l ID was found - CHARACTER( 1*BYTE) :: FOUND_PCOMP ! Used to indicate if a PCOMP prop ID was found - CHARACTER( 1*BYTE) :: FOUND_PSHEL ! Used to indicate if a PSHELL prop ID was found + CHARACTER( 1*BYTE) :: FOUND ! Used to indicate if a prop or mat'l ID was found + CHARACTER( 1*BYTE) :: FOUND_PCOMP ! Used to indicate if a PCOMP prop ID was found + CHARACTER( 1*BYTE) :: FOUND_PSHEL ! Used to indicate if a PSHELL prop ID was found CHARACTER( 8*BYTE) :: NAME = 'MATERIAL' ! Used for output error message CHARACTER( 8*BYTE) :: PROPERTY_NAME ! Name of an element property card - + INTEGER(LONG) :: EPNTK ! Value from array EPNT at the row for this internal elem ID. It is the ! row number in array EDAT where data begins for this element. INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: IERROR ! Cumulative error count - INTEGER(LONG) :: IN4_ID ! + INTEGER(LONG) :: IN4_ID ! INTEGER(LONG) :: MATERIAL_ID ! Material ID INTEGER(LONG) :: PCOMP_INDEX ! Index into PCOMP array INTEGER(LONG) :: PCOMP_PLIES ! Number of plies in PCOMP array INTEGER(LONG) :: PROPERTY_ID ! Property ID - + ! ********************************************************************************************************************************** @@ -70,7 +70,7 @@ SUBROUTINE ELEM_PROP_MATL_IIDS IERROR = 0 ! Process PID'S on element connection cards to internal values - + DO I = 1,NELE EPNTK = EPNT(I) @@ -85,8 +85,8 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) WRITE(F06,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) IERROR = IERROR + 1 @@ -102,8 +102,8 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) WRITE(F06,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) IERROR = IERROR + 1 @@ -119,8 +119,8 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) WRITE(F06,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) IERROR = IERROR + 1 @@ -136,14 +136,14 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) WRITE(F06,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - ! Process property ID's for solid elements + ! Process property ID's for solid elements ELSE IF ((ETYPE(I) == 'HEXA8 ') .OR. (ETYPE(I) == 'HEXA20 ') .OR. & (ETYPE(I) == 'PENTA6 ') .OR. (ETYPE(I) == 'PENTA15 ') .OR. & (ETYPE(I) == 'TETRA4 ') .OR. (ETYPE(I) == 'TETRA10 ')) THEN @@ -155,8 +155,8 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) WRITE(F06,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) IERROR = IERROR + 1 @@ -173,10 +173,10 @@ SUBROUTINE ELEM_PROP_MATL_IIDS EXIT ENDIF ENDDO - IF (FOUND_PSHEL == 'Y') THEN + IF (FOUND_PSHEL == 'Y') THEN PROPERTY_NAME(1:6) = 'PSHELL' IF (ETYPE(I)(1:5) == 'QUAD4') THEN ! Set flag to indicate, in EDAT, that this element refers to a PSHELL - EDAT(EPNTK+DEDAT_Q4_SHELL_KEY) = 1 ! flag for QUAD's using PSHELL is 1 + EDAT(EPNTK+DEDAT_Q4_SHELL_KEY) = 1 ! flag for QUAD's using PSHELL is 1 ELSE IF (ETYPE(I)(1:5) == 'TRIA3') THEN EDAT(EPNTK+DEDAT_T3_SHELL_KEY) = 1 ! flag for TRIA's using PSHELL is 1 ELSE IF (ETYPE(I)(1:5) == 'QUAD8') THEN @@ -192,7 +192,7 @@ SUBROUTINE ELEM_PROP_MATL_IIDS EXIT ENDIF ENDDO - IF (FOUND_PCOMP == 'Y') THEN + IF (FOUND_PCOMP == 'Y') THEN PROPERTY_NAME(1:5) = 'PCOMP' IF (ETYPE(I)(1:5) == 'QUAD4') THEN ! Set flag to indicate, in EDAT, that this element refers to a PSHELL EDAT(EPNTK+DEDAT_Q4_SHELL_KEY) = 2 ! flag for QUAD's using PCOMP is 2 @@ -203,20 +203,20 @@ SUBROUTINE ELEM_PROP_MATL_IIDS ENDIF ENDIF - IF ((FOUND_PSHEL == 'N') .AND. (FOUND_PCOMP == 'N')) THEN + IF ((FOUND_PSHEL == 'N') .AND. (FOUND_PCOMP == 'N')) THEN WRITE(ERR,1404) 'PSHELL/PCOMP', PROPERTY_ID, ETYPE(I), EDAT(EPNTK) WRITE(F06,1404) 'PSHELL/PCOMP', PROPERTY_ID, ETYPE(I), EDAT(EPNTK) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - - IF ((FOUND_PSHEL == 'Y') .AND. (FOUND_PCOMP == 'Y')) THEN + + IF ((FOUND_PSHEL == 'Y') .AND. (FOUND_PCOMP == 'Y')) THEN WRITE(ERR,1406) PROPERTY_ID, ETYPE(I), EDAT(EPNTK) WRITE(F06,1406) PROPERTY_ID, ETYPE(I), EDAT(EPNTK) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - + ELSE IF (ETYPE(I) == 'SHEAR ') THEN ! Process property ID's for SHEAR elements PROPERTY_NAME(1:6) = 'PSHEAR' PROPERTY_ID = EDAT(EPNTK+1) @@ -227,13 +227,13 @@ SUBROUTINE ELEM_PROP_MATL_IIDS EXIT ENDIF ENDDO - IF (FOUND == 'N') THEN + IF (FOUND == 'N') THEN WRITE(ERR,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) WRITE(F06,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - + ELSE IF (ETYPE(I) == 'ROD ') THEN ! Process property ID's for ROD elements PROPERTY_NAME(1:4) = 'PROD' PROPERTY_ID = EDAT(EPNTK+1) @@ -244,13 +244,13 @@ SUBROUTINE ELEM_PROP_MATL_IIDS EXIT ENDIF ENDDO - IF (FOUND == 'N') THEN + IF (FOUND == 'N') THEN WRITE(ERR,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) WRITE(F06,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - + ELSE IF (ETYPE(I) == 'USER1 ') THEN ! Process property ID's for USER1 elements PROPERTY_NAME(1:6) = 'PUSER1' PROPERTY_ID = EDAT(EPNTK+1) @@ -260,14 +260,14 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) WRITE(F06,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - + ELSE IF (ETYPE(I) == 'USERIN ') THEN ! Process property ID's for USERIN elements PROPERTY_NAME(1:7) = 'PUSERIN' PROPERTY_ID = EDAT(EPNTK+1) @@ -277,31 +277,31 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) WRITE(F06,1404) PROPERTY_NAME, PROPERTY_ID, ETYPE(I), EDAT(EPNTK) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - + ELSE IF (ETYPE(I) == 'PLOTEL ') THEN CONTINUE - ELSE + ELSE - WRITE(ERR,1403) SUBR_NAME,ETYPE(I) + WRITE(ERR,1403) SUBR_NAME,ETYPE(I) WRITE(F06,1403) SUBR_NAME,ETYPE(I) FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (elem type not valid), so quit - + ENDIF - - ENDDO - + + ENDDO + ! ********************************************************************************************************************************** ! Process MID'S on property cards to internal pointers - + PROPERTY_NAME(1:4) = 'PBAR' ! Process material ID's on PBAR DO I = 1,NPBAR FOUND = 'N' @@ -312,15 +312,15 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PBAR(I,1) WRITE(F06,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PBAR(I,1) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - ENDDO - + ENDDO + PROPERTY_NAME(1:4) = 'PBEAM' ! Process material ID's on PBEAM DO I = 1,NPBEAM FOUND = 'N' @@ -331,15 +331,15 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PBEAM(I,1) WRITE(F06,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PBEAM(I,1) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - ENDDO - + ENDDO + PROPERTY_NAME(1:4) = 'PSHEAR' ! Process material ID's on PSHEAR DO I = 1,NPSHEAR FOUND = 'N' @@ -350,15 +350,15 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PSHEAR(I,1) WRITE(F06,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PSHEAR(I,1) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - ENDDO - + ENDDO + PROPERTY_NAME(1:4) = 'PROD' ! Process material ID's on PROD DO I = 1,NPROD FOUND = 'N' @@ -369,15 +369,15 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PROD(I,1) WRITE(F06,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PROD(I,1) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - ENDDO - + ENDDO + PROPERTY_NAME(1:6) = 'PSHELL' ! Process material ID's on PSHELL DO I = 1,NPSHEL DO K = 2,5 @@ -390,8 +390,8 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PSHEL(I,1) WRITE(F06,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PSHEL(I,1) FATAL_ERR = FATAL_ERR + 1 @@ -400,7 +400,7 @@ SUBROUTINE ELEM_PROP_MATL_IIDS CYCLE ENDIF ENDDO - ENDDO + ENDDO PROPERTY_NAME(1:5) = 'PCOMP' ! Process material ID's on PCOMP DO I = 1,NPCOMP @@ -415,8 +415,8 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PCOMP(I,1) WRITE(F06,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PCOMP(I,1) FATAL_ERR = FATAL_ERR + 1 @@ -425,7 +425,7 @@ SUBROUTINE ELEM_PROP_MATL_IIDS CYCLE ENDIF ENDDO - ENDDO + ENDDO PROPERTY_NAME(1:6) = 'PSOLID' ! Process material ID's on PSOLID DO I = 1,NPSOLID @@ -437,15 +437,15 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PSOLID(I,1) WRITE(F06,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PSOLID(I,1) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - ENDDO - + ENDDO + PROPERTY_NAME(1:6) = 'PUSER1' ! Process material ID's on PUSER1 DO I = 1,NPUSER1 FOUND = 'N' @@ -456,15 +456,15 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PUSER1(I,1) WRITE(F06,1401) NAME, MATERIAL_ID, PROPERTY_NAME, PUSER1(I,1) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - ENDDO - + ENDDO + PROPERTY_NAME(1:7) = 'PUSERIN' ! Process material ID's on PUSERIN (actually IN4 ID) DO I = 1,NPUSERIN FOUND = 'N' @@ -475,15 +475,15 @@ SUBROUTINE ELEM_PROP_MATL_IIDS FOUND = 'Y' EXIT ENDIF - ENDDO - IF (FOUND == 'N') THEN + ENDDO + IF (FOUND == 'N') THEN WRITE(ERR,1401) 'IN4FIL_NUM', IN4_ID, PROPERTY_NAME, PUSERIN(I,1) WRITE(F06,1401) 'IN4FIL_NUM', IN4_ID, PROPERTY_NAME, PUSERIN(I,1) IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 ENDIF - ENDDO - + ENDDO + ! ********************************************************************************************************************************** ! Check that all PMASS ID's have been defined @@ -525,7 +525,7 @@ SUBROUTINE ELEM_PROP_MATL_IIDS IF (IERROR > 0) THEN CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF @@ -543,5 +543,5 @@ SUBROUTINE ELEM_PROP_MATL_IIDS ! ********************************************************************************************************************************** - + END SUBROUTINE ELEM_PROP_MATL_IIDS diff --git a/Source/LK1/L1C/ELEM_TRANSFORM_LBG.f90 b/Source/LK1/L1C/ELEM_TRANSFORM_LBG.f90 index 81e3fe2c..4d6cac3c 100644 --- a/Source/LK1/L1C/ELEM_TRANSFORM_LBG.f90 +++ b/Source/LK1/L1C/ELEM_TRANSFORM_LBG.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ELEM_TRANSFORM_LBG ( WHICH, ZE, QE ) - + ! Transforms one element stiff, mass, thermal load or pressure load matrix from local to basic to global coords at each ! grid including the effects of element offsets. The element matrix is input in array ZE or QE in local element ! coords. The output is array ZE or QE containing the element stiff or mass matrix in global coords at each grid. Note that plate @@ -44,11 +44,11 @@ SUBROUTINE ELEM_TRANSFORM_LBG ( WHICH, ZE, QE ) USE ELEM_TRANSFORM_LBG_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELEM_TRANSFORM_LBG' CHARACTER( 1*BYTE) :: OPT(6) ! Option flags for subr ELMTLB (to tell it what to transform) CHARACTER(LEN=*), INTENT(IN) :: WHICH ! 'K' for stiffness, 'M' for mass or 'PTE' for thermal load matrix - + INTEGER(LONG) :: ACIDJ ! Actual global coord sys ID for elem grid GRID_ID_ROW_NUM_J INTEGER(LONG) :: ACIDK ! Actual global coord sys ID for elem grid GRID_ID_ROW_NUM_K INTEGER(LONG) :: BEG_ROW_GET ! An input to subr MATGET/MATPUT (what row to start get/put rows) @@ -64,17 +64,17 @@ SUBROUTINE ELEM_TRANSFORM_LBG ( WHICH, ZE, QE ) INTEGER(LONG), PARAMETER :: NROW_GET = 3 ! An input to subr MATGET/MATPUT (no. rows to get/put) INTEGER(LONG), PARAMETER :: NROWA = 3 ! An input to subr MATMULT_FFF/MATMULT_FFF_T, called herein - + REAL(DOUBLE) , INTENT(INOUT) :: QE(MELDOF,NSUB) ! PTE or PPE if WHICH = 'PTE' or 'PPE' REAL(DOUBLE) , INTENT(INOUT) :: ZE(MELDOF,MELDOF) ! Either the mass or stiff matrix of the element - REAL(DOUBLE) :: DUM11(3,3) ! An intermadiate matrix in a matrix multiply operation + REAL(DOUBLE) :: DUM11(3,3) ! An intermadiate matrix in a matrix multiply operation REAL(DOUBLE) :: DUM12(3,3) ! An intermadiate matrix in a matrix multiply operation REAL(DOUBLE) :: DUM21(3,NSUB) ! An intermadiate matrix in a matrix multiply operation REAL(DOUBLE) :: DUM22(3,NSUB) ! An intermadiate matrix in a matrix multiply operation REAL(DOUBLE) :: THETAD,PHID ! Outputs from subr GEN_T0L REAL(DOUBLE) :: TJ(3,3) ! Coord transform matrix from basic to global for an internal REAL(DOUBLE) :: TK(3,3) ! Coord transform matrix from basic to global for an internal grid - + ! ********************************************************************************************************************************** @@ -118,7 +118,7 @@ SUBROUTINE ELEM_TRANSFORM_LBG ( WHICH, ZE, QE ) IF (TE_IDENT /= 'Y') THEN CALL ELMTLB ( OPT ) ENDIF - + !----------------------------------------------------------------------------------------------------------------------------------- ! Transform from basic to global coords @@ -144,21 +144,21 @@ SUBROUTINE ELEM_TRANSFORM_LBG ( WHICH, ZE, QE ) DO K=1,3 DO L=1,3 TJ(K,L) = ZERO - ENDDO + ENDDO TJ(K,K) = ONE - ENDDO + ENDDO ENDIF - + k_do1: DO K=J,ELGP IF (K == J) THEN ! TK transf matrix is same as TJ - ACIDK = ACIDJ + ACIDK = ACIDJ DO L=1,3 DO M=1,3 TK(L,M) = TJ(L,M) - ENDDO - ENDDO - ELSE + ENDDO + ENDDO + ELSE CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, AGRID(K), GRID_ID_ROW_NUM_K ) ACIDK = GRID(GRID_ID_ROW_NUM_K,3) IF (ACIDK /= 0) THEN @@ -173,12 +173,12 @@ SUBROUTINE ELEM_TRANSFORM_LBG ( WHICH, ZE, QE ) DO L=1,3 DO M=1,3 TK(L,M) = ZERO - ENDDO + ENDDO TK(L,L) = ONE - ENDDO + ENDDO ENDIF ENDIF - + IF ((ACIDJ /= 0) .OR. (ACIDK /= 0)) THEN ! Do the coord transformation using TJ, TK coord transformation matrices DO L=1,2 BEG_ROW_GET = 6*(J-1) + 1 + 3*(L-1) @@ -188,19 +188,19 @@ SUBROUTINE ELEM_TRANSFORM_LBG ( WHICH, ZE, QE ) CALL MATMULT_FFF ( DUM11, TK, 3 , 3 , 3 , DUM12 ) CALL MATMULT_FFF_T ( TJ, DUM12, 3 , 3 , 3 , DUM11 ) CALL MATPUT ( DUM11, MELDOF, NCOL_IN, BEG_ROW_GET, BEG_COL_GET, NROW_GET, NCOL_GET, ZE ) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF ENDDO k_do1 - + ENDDO j_do1 DO I=2,ELDOF ! Set lower triangular partition equal to upper partition DO J=1,I-1 ZE(I,J) = ZE(J,I) - ENDDO + ENDDO ENDDO ENDIF ke_me @@ -238,16 +238,16 @@ SUBROUTINE ELEM_TRANSFORM_LBG ( WHICH, ZE, QE ) CALL MATMULT_FFF_T ( TJ, DUM21, 3 , 3 , NCOLB, DUM22 ) CALL MATPUT ( DUM22, MELDOF, NCOL_IN, BEG_ROW_GET, BEG_COL_GET, NROW_GET, NCOL_GET, QE ) BEG_ROW_GET = BEG_ROW_GET + 3 - ENDDO + ENDDO ELSE DO K=1,3 DO L=1,3 TJ(K,L) = ZERO - ENDDO + ENDDO TJ(K,K) = ONE - ENDDO + ENDDO ENDIF - + ENDDO j_do2 ENDIF pte_1 @@ -255,15 +255,15 @@ SUBROUTINE ELEM_TRANSFORM_LBG ( WHICH, ZE, QE ) ! Transform the matrix from global at elem ends to global at grids for BAR, BEAM, BUSH IF ((TYPE == 'BAR ') .OR. (TYPE == 'BEAM ') .OR. (TYPE == 'BUSH ')) THEN - CALL ELMOFF ( OPT, 'N' ) - + CALL ELMOFF ( OPT, 'N' ) + IF (WHICH == 'KE') THEN ! Set the KE which was just calc'd in global coords with offsets to KEG DO I=1,ELDOF DO J=1,ELDOF KEG(I,J) = ZE(I,J) ENDDO ENDDO - ENDIF + ENDIF ENDIF @@ -287,9 +287,9 @@ SUBROUTINE ELEM_TRANSFORM_LBG ( WHICH, ZE, QE ) ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE GET_KE_OFFSET @@ -311,7 +311,7 @@ SUBROUTINE GET_KE_OFFSET INTEGER(LONG) :: NCOLB ! No. cols in a matrix for subr MATMULT_FFF/MATMULT_FFF_T, called herein INTEGER(LONG), PARAMETER :: NROW = 3 ! No. rows to get/put for subrs MATGET/MATPUT, called herein INTEGER(LONG), PARAMETER :: NROWA = 3 ! No. rows in a matrix for subr MATMULT_FFF/MATMULT_FFF_T, called herein - + REAL(DOUBLE) :: DUM11(3,3) ! An intermediate result REAL(DOUBLE) :: DUM12(3,3) ! An intermediate result REAL(DOUBLE) :: TET(3,3) ! Transpose of TE @@ -335,15 +335,15 @@ SUBROUTINE GET_KE_OFFSET CALL MATMULT_FFF ( DUM11, TET_GA_GB, NROWA, NCOLA, NCOLB, DUM12 ) CALL MATMULT_FFF_T ( TE_GA_GB, DUM12, NROWA, NCOLA, NCOLB, DUM11 ) CALL MATPUT ( DUM11, SIZE(KEO_BUSH, 2), SIZE(KEO_BUSH, 1), BEG_ROW, BEG_COL, NROW, NCOL, KEO_BUSH ) - ENDDO + ENDDO ENDDO DO II=1,ELDOF ! Set lower portion of KE using symmetry. DO JJ=1,II-1 KEO_BUSH(II,JJ) = KEO_BUSH(JJ,II) - ENDDO + ENDDO ENDDO - + ! ********************************************************************************************************************************** diff --git a/Source/LK1/L1C/ELESORT.f90 b/Source/LK1/L1C/ELESORT.f90 index f9274b5a..531cf8fa 100644 --- a/Source/LK1/L1C/ELESORT.f90 +++ b/Source/LK1/L1C/ELESORT.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ELESORT - + ! Performs 3 functions: ! (1) Generates ESORT1 array (actual elem ID's) and ESORT2 array (internal elem no.) for all elements. @@ -35,19 +35,19 @@ SUBROUTINE ELESORT ! (3) Sorts RIGID_ELEM_IDS so that the actual ID's of rigid elements are in numerically increasing order ! (4) Checks for redundant element ID's - elastic as well as rigid elements - + ! At the beginning of the subroutine, ESORT1(I) is set to element ID's in the order in which they were encountered ! in the Bulk Data Deck and ESORT2(I) = I. EPNT(I) gives the location in EDAT where connection data starts for element ! ESORT1(I) and ETYPE(I) is the element type for element ESORT1(I). - + ! This subr then sorts ESORT1, ESORT2, EPNT and ETYPE (together) so that the actual element numbers in ESORT1 are in ! numerical order. Then ESORT2(I) is the position, in the Bulk Data Deck (BDD), where actual elem ESORT1(I) was located. - + ! For example: - + ! EID's in | At Beginning of Subr | At End of Subroutine: ! Order | (after (1)) | -! as input | | +! as input | | ! in BDD I | ESORT1 ESORT2 EPNT ETYPE | ESORT1 ESORT2 EPNT ETYPE ! -------------|--------------------------|------------------------- ! 31 1 | 31 1 1 B1 | 11 2 9 E1 @@ -56,24 +56,24 @@ SUBROUTINE ELESORT ! 21 4 | 21 4 19 T2 | 41 3 15 R1 ! 61 5 | 61 5 24 Q2 | 51 6 30 B1 ! 51 6 | 51 6 30 B1 | 61 5 24 Q2 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, ELESORT_RUN, NELE, NRIGEL USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, EOFF, EPNT, ESORT1, ESORT2, ETYPE, RIGID_ELEM_IDS USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE ELESORT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELESORT' INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERROR ! Error count - + ! ********************************************************************************************************************************** @@ -98,7 +98,7 @@ SUBROUTINE ELESORT IF (NELE > 1) THEN CALL SORT_INT3_CHAR2 ( SUBR_NAME, 'ESORT1, ESORT2, EPNT, ETYPE, EOFF', NELE, ESORT1, ESORT2, EPNT, ETYPE, EOFF ) ENDIF - + IF (DEBUG(7) == 1) THEN ! Debug output after sorting ESORT1, ESORT2, EPNT, ETYPE WRITE(F06,1002) WRITE(F06,1011) @@ -140,7 +140,7 @@ SUBROUTINE ELESORT WRITE(ERR,1408) IERROR WRITE(F06,1408) IERROR CALL OUTA_HERE ( 'Y' ) ! Duplicate elem numbers, so quit - ENDIF + ENDIF ! Set ELESORT_RUN so subrs which need to know if ELESORT subr has run, will know it has run @@ -152,9 +152,9 @@ SUBROUTINE ELESORT ! ********************************************************************************************************************************** 1001 FORMAT(' Element arrays before sorting in subroutine ELESORT:') - + 1002 FORMAT(' Element arrays after sorting in subroutine ELESORT:') - + 1011 FORMAT(' I ESORT1(I) ESORT2(I) EPNT(I) ETYPE(I)') 1021 FORMAT(1X,4I12,10X,A) @@ -164,5 +164,5 @@ SUBROUTINE ELESORT 1408 FORMAT(' PROCESSING TERMINATED DUE TO ABOVE ',I8,' ERRORS') ! ********************************************************************************************************************************** - + END SUBROUTINE ELESORT diff --git a/Source/LK1/L1C/ELSAVE.f90 b/Source/LK1/L1C/ELSAVE.f90 index 1444182d..a7f4f415 100644 --- a/Source/LK1/L1C/ELSAVE.f90 +++ b/Source/LK1/L1C/ELSAVE.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ELSAVE - + ! Saves element data to file LINK1G. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1G USE SCONTR, ONLY : BLNK_SUB_NAM, DATA_NAM_LEN, MMATL, MPBAR, MPBEAM, MPBUSH, MPELAS, MPROD, MPSHEL, & @@ -35,7 +35,7 @@ SUBROUTINE ELSAVE MRPSHEAR, MRPSHEL, MRPUSER1, NBAROFF, NBUSHOFF, NEDAT, NELE, NMATANGLE, NMATL, MPCOMP0, & MRPCOMP0, MPCOMP_PLIES, MRPCOMP_PLIES, MUSERIN_MAT_NAMES, NPBAR, NPBEAM, NPBUSH, NPCOMP, & NPELAS, NPLATEOFF, NPLATETHICK, NPROD, NPSHEAR, NPSHEL, NPSOLID, NPUSER1, NPUSERIN, NVVEC - USE PARAMS, ONLY : CBMIN3, CBMIN4, IORQ1M, IORQ1S, IORQ1B, IORQ2B, IORQ2T + USE PARAMS, ONLY : CBMIN3, CBMIN4, IORQ1M, IORQ1S, IORQ1B, IORQ2B, IORQ2T USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : BAROFF, BUSHOFF, EDAT, EOFF, EPNT, ESORT1, ESORT2, ETYPE, MATANGLE, MATL, RMATL,PBAR, & RPBAR, PBEAM, RPBEAM, PBUSH, RPBUSH, PCOMP, RPCOMP, PELAS, RPELAS, PROD, RPROD, PSHEAR, & @@ -44,14 +44,14 @@ SUBROUTINE ELSAVE USE ELSAVE_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELSAVE' CHARACTER(LEN=DATA_NAM_LEN) :: DATA_SET_NAME ! A data set name for output purposes - + INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: PCOMP_PLIES ! Number of plies in 1 PCOMP entry incl sym plies not explicitly defined - + ! ********************************************************************************************************************************** @@ -66,8 +66,8 @@ SUBROUTINE ELSAVE WRITE(L1G) ESORT1(I) WRITE(L1G) ESORT2(I) WRITE(L1G) EOFF(I) - ENDDO - + ENDDO + DATA_SET_NAME = 'EDAT' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NEDAT @@ -88,16 +88,16 @@ SUBROUTINE ELSAVE WRITE(L1G) CBMIN4 ! Write BAR, BEAM v vectors - + DATA_SET_NAME = 'V VECTORS IN GLOBAL COORDS' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NVVEC DO I=1,NVVEC WRITE(L1G) (VVEC(I,J),J=1,3) - ENDDO + ENDDO ! Write BAR, BEAM offsets - + DATA_SET_NAME = 'BAR, BEAM OFFSETS' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NBAROFF @@ -105,10 +105,10 @@ SUBROUTINE ELSAVE DO J = 1,6 WRITE(L1G) BAROFF(I,J) ENDDO - ENDDO + ENDDO ! Write BUSH offsets - + DATA_SET_NAME = 'BUSH OFFSETS' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NBUSHOFF @@ -116,28 +116,28 @@ SUBROUTINE ELSAVE DO J = 1,6 WRITE(L1G) BUSHOFF(I,J) ENDDO - ENDDO + ENDDO ! Write plate offsets - + DATA_SET_NAME = 'PLATE OFFSETS' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NPLATEOFF DO I = 1,NPLATEOFF WRITE(L1G) PLATEOFF(I) - ENDDO + ENDDO ! Write plate thicknesses - + DATA_SET_NAME = 'PLATE THICKNESSES FROM CONNECTION ENTRIES' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NPLATETHICK DO I = 1,NPLATETHICK WRITE(L1G) PLATETHICK(I) - ENDDO + ENDDO ! Write property data - + DATA_SET_NAME = 'PBAR, RPBAR' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NPBAR @@ -146,12 +146,12 @@ SUBROUTINE ELSAVE DO I = 1,NPBAR DO J=1,MPBAR WRITE(L1G) PBAR(I,J) - ENDDO + ENDDO DO J = 1,MRPBAR WRITE(L1G) RPBAR(I,J) ENDDO - ENDDO - + ENDDO + DATA_SET_NAME = 'PBEAM, RPBEAM' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NPBEAM @@ -160,12 +160,12 @@ SUBROUTINE ELSAVE DO I = 1,NPBEAM DO J=1,MPBEAM WRITE(L1G) PBEAM(I,J) - ENDDO + ENDDO DO J = 1,MRPBEAM WRITE(L1G) RPBEAM(I,J) ENDDO - ENDDO - + ENDDO + DATA_SET_NAME = 'PBUSH, RPBUSH' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NPBUSH @@ -174,12 +174,12 @@ SUBROUTINE ELSAVE DO I = 1,NPBUSH DO J=1,MPBUSH WRITE(L1G) PBUSH(I,J) - ENDDO + ENDDO DO J = 1,MRPBUSH WRITE(L1G) RPBUSH(I,J) ENDDO - ENDDO - + ENDDO + DATA_SET_NAME = 'PROD, RPROD' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NPROD @@ -188,12 +188,12 @@ SUBROUTINE ELSAVE DO I = 1,NPROD DO J=1,MPROD WRITE(L1G) PROD(I,J) - ENDDO + ENDDO DO J = 1,MRPROD WRITE(L1G) RPROD(I,J) ENDDO - ENDDO - + ENDDO + DATA_SET_NAME = 'PELAS, RPELAS' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NPELAS @@ -202,12 +202,12 @@ SUBROUTINE ELSAVE DO I = 1,NPELAS DO J=1,MPELAS WRITE(L1G) PELAS(I,J) - ENDDO + ENDDO DO J = 1,MRPELAS WRITE(L1G) RPELAS(I,J) ENDDO - ENDDO - + ENDDO + DATA_SET_NAME = 'PSHEAR, RPSHEAR' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NPSHEAR @@ -216,12 +216,12 @@ SUBROUTINE ELSAVE DO I = 1,NPSHEAR DO J = 1,MPSHEAR WRITE(L1G) PSHEAR(I,J) - ENDDO + ENDDO DO J = 1,MRPSHEAR WRITE(L1G) RPSHEAR(I,J) - ENDDO - ENDDO - + ENDDO + ENDDO + DATA_SET_NAME = 'PSHEL, RPSHEL' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NPSHEL @@ -230,12 +230,12 @@ SUBROUTINE ELSAVE DO I = 1,NPSHEL DO J = 1,MPSHEL WRITE(L1G) PSHEL(I,J) - ENDDO + ENDDO DO J = 1,MRPSHEL WRITE(L1G) RPSHEL(I,J) - ENDDO - ENDDO - + ENDDO + ENDDO + DATA_SET_NAME = 'PCOMP, RPCOMP' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NPCOMP @@ -251,9 +251,9 @@ SUBROUTINE ELSAVE ENDDO DO J = 1,MRPCOMP0+MRPCOMP_PLIES*PCOMP_PLIES WRITE(L1G) RPCOMP(I,J) - ENDDO - ENDDO - + ENDDO + ENDDO + DATA_SET_NAME = 'PSOLID' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NPSOLID @@ -261,9 +261,9 @@ SUBROUTINE ELSAVE DO I = 1,NPSOLID DO J = 1,MPSOLID WRITE(L1G) PSOLID(I,J) - ENDDO - ENDDO - + ENDDO + ENDDO + DATA_SET_NAME = 'PUSER1, RPUSER1' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NPUSER1 @@ -272,12 +272,12 @@ SUBROUTINE ELSAVE DO I = 1,NPUSER1 DO J=1,MPUSER1 WRITE(L1G) PUSER1(I,J) - ENDDO + ENDDO DO J = 1,MRPUSER1 WRITE(L1G) RPUSER1(I,J) ENDDO - ENDDO - + ENDDO + DATA_SET_NAME = 'PUSERIN' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NPUSERIN @@ -285,9 +285,9 @@ SUBROUTINE ELSAVE DO I = 1,NPUSERIN DO J=1,MPUSERIN WRITE(L1G) PUSERIN(I,J) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Write USERIN_MAT_NAMES DATA_SET_NAME = 'USERIN_MAT_NAMES' @@ -297,11 +297,11 @@ SUBROUTINE ELSAVE DO I = 1,NPUSERIN DO J=1,MUSERIN_MAT_NAMES WRITE(L1G) USERIN_MAT_NAMES(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ! Write material data - + DATA_SET_NAME = 'MATL, RMATL' WRITE(L1G) DATA_SET_NAME WRITE(L1G) NMATL @@ -310,12 +310,12 @@ SUBROUTINE ELSAVE DO I = 1,NMATL DO J=1,MMATL WRITE(L1G) MATL(I,J) - ENDDO + ENDDO DO J = 1,MRMATLC WRITE(L1G) RMATL(I,J) ENDDO - ENDDO - + ENDDO + ! Write material property angles DATA_SET_NAME = 'MATERIAL PROPERTY ANGLES' @@ -323,12 +323,12 @@ SUBROUTINE ELSAVE WRITE(L1G) NMATANGLE DO I = 1,NMATANGLE WRITE(L1G) MATANGLE(I) - ENDDO + ENDDO RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE ELSAVE diff --git a/Source/LK1/L1C/GPWG.f90 b/Source/LK1/L1C/GPWG.f90 index b73b0863..13a8d927 100644 --- a/Source/LK1/L1C/GPWG.f90 +++ b/Source/LK1/L1C/GPWG.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ ! End MIT license text SUBROUTINE GPWG ( WHICH ) - + ! Generates rigid body mass properties for the finite element model - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, OP2, SC1, WRT_BUG, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_ME_BIT, IBIT, MBUG, NCONM2, NCORD, NELE, NGRID, SOL_NAME, WARN_ERR @@ -39,11 +39,11 @@ SUBROUTINE GPWG ( WHICH ) GRID, GRID_ID, MCG, ME, MEFFMASS_CALC, MEFM_RB_MASS, & MODEL_MASS, MODEL_IXX, MODEL_IYY, MODEL_IZZ, MODEL_XCG, MODEL_YCG, MODEL_ZCG, & OFFDIS, OFFSET, PLY_NUM, RCONM2, RGRID, TYPE, USERIN_RBM0 - + USE GPWG_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GPWG' CHARACTER(12*BYTE), INTENT(IN) :: WHICH ! Whether to get mass props for @@ -102,14 +102,14 @@ SUBROUTINE GPWG ( WHICH ) INTEGER(LONG) :: ANALYSIS_CODE ! the result type INTEGER(LONG), PARAMETER :: TABLE_CODE = 0 ! is this right? CHARACTER(LEN=8) :: TABLE_NAME ! Name of the op2 table that we're writing - + INTRINSIC :: DABS INTRINSIC :: IAND ! ********************************************************************************************************************************** -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages EPS1 = EPSIL(1) @@ -123,7 +123,7 @@ SUBROUTINE GPWG ( WHICH ) REFPNT = MEFMGRID ELSE REFPNT = GRDPNT - ENDIF + ENDIF ! Get reference point coordinates in basic system for the reference point IF (REFPNT /= -1) THEN @@ -143,15 +143,15 @@ SUBROUTINE GPWG ( WHICH ) REFPNT = REFPNT_DEF ENDIF ENDIF - + ! Generate total mass, first and second moments by summing up mass terms. XD(i) are components of vector from ! ref point to a mass point. At this time, mass units are input units without PARAM WTMASS which is what we want for ! the grid point weight generator. Later the mass will be converted by multiplying by WTMASS. - + MASS = ZERO MX = ZERO MY = ZERO - MZ = ZERO + MZ = ZERO DO I=1,3 DO J=1,3 MOI1(I,J) = ZERO @@ -160,7 +160,7 @@ SUBROUTINE GPWG ( WHICH ) XB(1) = ZERO XB(2) = ZERO XB(3) = ZERO - + ! First process element mass terms OPT(1) = 'Y' ! OPT(1) is for calc of ME OPT(2) = 'N' ! OPT(2) is for calc of PTE @@ -268,7 +268,7 @@ SUBROUTINE GPWG ( WHICH ) ENDIF - ELSE + ELSE IERROR = IERROR + NUM_EMG_FATAL_ERRS CYCLE @@ -292,7 +292,7 @@ SUBROUTINE GPWG ( WHICH ) ! so that this subr must be run after subr CONM2_PROC_1 and before subr CONM2_PROC_2. ! We process all CONM2's, and add values for repeated grids (i.e. if model has 2 diff CONM2's at the same grid the mass props ! for that grid will be the sum of the mass props for each grid) - + DO I=1,NCONM2 GRID_NUM = CONM2(I,2) @@ -304,7 +304,7 @@ SUBROUTINE GPWG ( WHICH ) DY = RCONM2(I,3) DZ = RCONM2(I,4) - ! XD(i) are distances from XREF to the i-th mass + ! XD(i) are distances from XREF to the i-th mass XD(1) = RGRID(GRID_ID_ROW_NUM,1) + DX - XREF(1) XD(2) = RGRID(GRID_ID_ROW_NUM,2) + DY - XREF(2) XD(3) = RGRID(GRID_ID_ROW_NUM,3) + DZ - XREF(3) @@ -332,7 +332,7 @@ SUBROUTINE GPWG ( WHICH ) MOI1(3,1) = MOI1(3,1) + RCONM2(I, 8) - M0*XZ MOI1(3,2) = MOI1(3,2) + RCONM2(I, 9) - M0*YZ - ENDDO + ENDDO ! Set other 3 products of inertia based on symmetry MOI1(1,2) = MOI1(2,1) @@ -358,7 +358,7 @@ SUBROUTINE GPWG ( WHICH ) XB(2) = MY/MASS XB(3) = MZ/MASS ENDIF - + ! M0 - RB_MASS_BASIC: is 6x6 rigid body mass matrix about ref point in basic coords DO I=1,6 ! Init DO J=1,6 @@ -436,7 +436,7 @@ SUBROUTINE GPWG ( WHICH ) WRITE(F06,*) ENDIF - + ! S, TRANS: Generate moments of inertia about c.g. in basic coord. system TRANS(1,1) = MASS*(XB(2)*XB(2) + XB(3)*XB(3)) TRANS(2,2) = MASS*(XB(1)*XB(1) + XB(3)*XB(3)) @@ -452,16 +452,16 @@ SUBROUTINE GPWG ( WHICH ) MOI1(I,J) = MOI1(I,J) - TRANS(I,J) ENDDO ENDDO - + ! backup MOI1 to create IS IS(1,1) = MOI1(1,1) IS(2,2) = MOI1(2,2) IS(3,3) = MOI1(3,3) - + IS(1,2) = MOI1(1,2) IS(1,3) = MOI1(1,3) IS(2,3) = MOI1(2,3) - + IS(2,1) = MOI1(1,2) IS(3,1) = MOI1(1,3) IS(3,2) = MOI1(2,3) @@ -497,12 +497,12 @@ SUBROUTINE GPWG ( WHICH ) WRITE(F06,*) WRITE(F06,*) ENDIF - + ! Q - Get principal MOI's and S transformation matrix (eigenvectors of MOI1) CALL GPWG_PMOI ( MOI1, Q, INFO ) - + ! Write out princ MOI's and coord transf. Otherwise errors were written in subr GPWG_PMOI - IF ((INFO == 0) .AND. (REFPNT >= 0)) THEN + IF ((INFO == 0) .AND. (REFPNT >= 0)) THEN IF(REFPNT > -1) THEN ITABLE = -3 @@ -510,7 +510,7 @@ SUBROUTINE GPWG ( WHICH ) 2 FORMAT("* DEBUG OGPWG ITABLE=",i4) WRITE(ERR,1) "START" WRITE(ERR,2) ITABLE - + TABLE_NAME = "OGPWG " CALL WRITE_TABLE_HEADER(TABLE_NAME) ANALYSIS_CODE = 1 ! TODO: this is probably wrong, but is weird for this table @@ -531,9 +531,9 @@ SUBROUTINE GPWG ( WHICH ) !data = (self.MO.ravel().tolist() + self.S.ravel().tolist() + ! mcg.ravel().tolist() + self.IS.ravel().tolist() + self.IQ.ravel().tolist() + ! self.Q.ravel().tolist()) - + ! not verified - ! mass shouldn't be a scalar (it's a vector), + ! mass shouldn't be a scalar (it's a vector), ! but for physical structure they're all the same WRITE(OP2) 78 ! the number of values we're going to write WRITE(OP2) ((REAL(RB_MASS_BASIC(I,J), 4), J=1,6), I=1,6), & ! (6,6) MO - 36 @@ -558,7 +558,7 @@ SUBROUTINE GPWG ( WHICH ) WRITE(F06,1008) WRITE(F06,1900) - + ! I(Q) - MOI1 is now principal MOI matrix DO I=1,3 WRITE(F06,1101) (MOI1(I,J),J=1,3) @@ -566,7 +566,7 @@ SUBROUTINE GPWG ( WHICH ) WRITE(F06,1900) WRITE(F06,*) WRITE(F06,*) - + WRITE(F06,1009) WRITE(F06,1900) DO I=1,3 @@ -576,7 +576,7 @@ SUBROUTINE GPWG ( WHICH ) WRITE(F06,*) WRITE(F06,*) ENDIF - + RETURN @@ -631,7 +631,7 @@ SUBROUTINE GPWG ( WHICH ) ! ********************************************************************************************************************************** - + END SUBROUTINE GPWG !------------------------------------------------------------------------------------------------------------- @@ -639,11 +639,11 @@ SUBROUTINE WRITE_OPGWG_TABLE3(ITABLE, ANALYSIS_CODE, TABLE_CODE, REFERENCE_POINT USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, OP2 - + USE WRITE_ROD_USE_IFs IMPLICIT NONE - + !INTEGER(LONG), INTENT(IN) :: ISUBCASE ! the current subcase INTEGER(LONG), INTENT(INOUT) :: ITABLE ! the current op2 subtable, should be -3, -5, ... CHARACTER(LEN=128) :: TITLE ! the model TITLE @@ -660,7 +660,7 @@ SUBROUTINE WRITE_OPGWG_TABLE3(ITABLE, ANALYSIS_CODE, TABLE_CODE, REFERENCE_POINT SUBTITLE = "" LABEL = "" DEVICE_CODE = 1 ! plot - + APPROACH_CODE = ANALYSIS_CODE*10 + DEVICE_CODE ! 584 bytes diff --git a/Source/LK1/L1C/GPWG_PMOI.f90 b/Source/LK1/L1C/GPWG_PMOI.f90 index 2556a195..739e9bd4 100644 --- a/Source/LK1/L1C/GPWG_PMOI.f90 +++ b/Source/LK1/L1C/GPWG_PMOI.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE GPWG_PMOI (MOI1, Q, INFO ) - + ! Jacobi solution for 3x3 eigenvalue problem used in finding principal moments of inertia for the Grid Point Weight Generator (GPWG) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, WARN_ERR @@ -35,11 +35,11 @@ SUBROUTINE GPWG_PMOI (MOI1, Q, INFO ) USE CONSTANTS_1, ONLY : ZERO, ONE USE PARAMS, ONLY : SUPWARN, WTMASS USE LAPACK_STD_EIG_1 - + USE GPWG_PMOI_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GPWG_PMOI' CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: CALLED_SUBR = ' ' ! Name of a called subr (for output error purposes) CHARACTER( 1*BYTE), PARAMETER :: JOBZ = 'V' ! Indicates to solve for eigenvalues and vectors in LAPACK subr DSYEV @@ -60,15 +60,15 @@ SUBROUTINE GPWG_PMOI (MOI1, Q, INFO ) ! On exit , the principal MOI's in basic coords (if INFO = 0) REAL(DOUBLE) , INTENT(OUT) :: Q(3,3) ! Transformation from basic to principal directions ! Q = Z'. That is; -! U(principal) = Q*U(basic), where U is a displ vector +! U(principal) = Q*U(basic), where U is a displ vector REAL(DOUBLE) :: Z(3,3) ! When subr DSYEV is called, Z = input MOI1 ! When subr DSYEV returns, Z = eigenvecs: PMOI = Z'*MOI1*Z - REAL(DOUBLE) :: DUM(N,N) ! Intermediate result in calculating Z'*MOI1*Z + REAL(DOUBLE) :: DUM(N,N) ! Intermediate result in calculating Z'*MOI1*Z REAL(DOUBLE) , PARAMETER :: ALPHA = ONE ! Scalar multiplier for subr DGEMM REAL(DOUBLE) , PARAMETER :: BETA = ZERO ! Scalar multiplier for subr DGEMM REAL(DOUBLE) :: PMOI(3) ! Principal MOI's in a 1-D array REAL(DOUBLE) :: WORK(LWORK) ! Workspace - + EXTERNAL :: DGEMM @@ -90,7 +90,7 @@ SUBROUTINE GPWG_PMOI (MOI1, Q, INFO ) Q(I,J) = ZERO ENDDO ENDDO - + CALL DSYEV ( JOBZ, UPLO, N, Z, N, PMOI, WORK, LWORK, INFO ) ! Set MOI1 matrix to zero for off-diag terms and to PMOI for diag terms. @@ -116,7 +116,7 @@ SUBROUTINE GPWG_PMOI (MOI1, Q, INFO ) ELSE ! INFO=0, so no error - + ! Set Q = Z' DO I=1,N DO J=1,N @@ -132,8 +132,8 @@ SUBROUTINE GPWG_PMOI (MOI1, Q, INFO ) TRANSB = 'N' CALL DGEMM ( TRANSA, TRANSB, N, N, N, ALPHA, Z, N, DUM, N, BETA, MOI1, N ) - ENDIF - + ENDIF + @@ -148,7 +148,7 @@ SUBROUTINE GPWG_PMOI (MOI1, Q, INFO ) ,/,14X,' CANNOT CONVERGE IN ATTEMPTING TO FIND PRINCIPAL MOIs' & ,/,14X,' THE ALGORITHM HAS FAILED TO FIND ALL THE EIGENVALUES (PRINCIPAL MOIs) IN 90 ITERATIONS' & ,/,14X,' PRINCIPAL MOIs AND PRINCIPAL DIRECTIONS CANNOT BE FOUND') - + ! ********************************************************************************************************************************** END SUBROUTINE GPWG_PMOI diff --git a/Source/LK1/L1C/GPWG_USERIN.f90 b/Source/LK1/L1C/GPWG_USERIN.f90 index 7155ddd5..5445f2dd 100644 --- a/Source/LK1/L1C/GPWG_USERIN.f90 +++ b/Source/LK1/L1C/GPWG_USERIN.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GPWG_USERIN ( IEID ) - + ! Generates rigid body mass properties for one USERIN element - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, NGRID, SOL_NAME, WARN_ERR @@ -35,12 +35,12 @@ SUBROUTINE GPWG_USERIN ( IEID ) USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : NUM_EMG_FATAL_ERRS, EID, GRID_ID, ME, PLY_NUM, RGRID, USERIN_RBM0 - + USE GPWG_USERIN_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GPWG_USERIN' CHARACTER(1*BYTE) :: OPT(6) ! Option flags for what to calculate when subr EMG is called @@ -63,7 +63,7 @@ SUBROUTINE GPWG_USERIN ( IEID ) REAL(DOUBLE) :: XB(3) ! Basic coord diffs bet c.g. and XREF in X, Y, Z directions REAL(DOUBLE) :: XD(3) ! Basic coord diffs bet a mass (at it's c.m.) and XREF in X, Y, Z dirs REAL(DOUBLE) :: XREF(3) ! GRDPNT basic coords (or origin of basic sys if GRDPNT doesn't exist) - + INTRINSIC :: DABS @@ -79,7 +79,7 @@ SUBROUTINE GPWG_USERIN ( IEID ) XREF(3) = ZERO ! Get reference point coordinates in basic system for the reference point - + IF (GRDPNT /= -1) THEN CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, GRDPNT, GRID_ID_ROW_NUM ) IF (GRID_ID_ROW_NUM /= -1) THEN ! GRDPNT is a grid point in the model, so get its basic coords @@ -97,22 +97,22 @@ SUBROUTINE GPWG_USERIN ( IEID ) GRDPNT = GRDPNT_DEF ENDIF ENDIF - + ! Generate total mass, first and second moments by summing up mass terms. XD(i) are components of vector from ! ref point to a mass point. At this time, mass units are input units without PARAM WTMASS which is what we want for ! the grid point weight generator. Later the mass will be converted by multiplying by WTMASS. - + M0 = ZERO MX = ZERO MY = ZERO - MZ = ZERO + MZ = ZERO XB(1) = ZERO XB(2) = ZERO XB(3) = ZERO - + ! Process this USERIN element mass terms - + OPT(1) = 'Y' ! OPT(1) is for calc of ME OPT(2) = 'N' ! OPT(2) is for calc of PTE OPT(3) = 'N' ! OPT(3) is for calc of SEi, STEi @@ -152,15 +152,15 @@ SUBROUTINE GPWG_USERIN ( IEID ) ENDIF ! XB(I) are components of distance from reference point, XREF, to c.g. - + IF (DABS(M0) > EPS1) THEN XB(1) = MX/M0 XB(2) = MY/M0 XB(3) = MZ/M0 ENDIF - + ! Output results so far - + IF (GRDPNT >= 0) THEN WRITE(F06,1000) EID IF (GRDPNT == 0) THEN @@ -193,15 +193,15 @@ SUBROUTINE GPWG_USERIN ( IEID ) WRITE(F06,1900) DO I=1,3 WRITE(F06,1101) (USERIN_RBM0(I+3,J+3),J=1,3) - ENDDO + ENDDO WRITE(F06,1900) WRITE(F06,*) WRITE(F06,*) ENDIF - + ! Generate moments of inertia about c.g. in basic coord. system - + TRANS(1,1) = M0*(XB(2)*XB(2) + XB(3)*XB(3)) TRANS(2,2) = M0*(XB(1)*XB(1) + XB(3)*XB(3)) TRANS(3,3) = M0*(XB(1)*XB(1) + XB(2)*XB(2)) @@ -215,47 +215,47 @@ SUBROUTINE GPWG_USERIN ( IEID ) DO J=1,3 MOI1(I,J) = USERIN_RBM0(I+3,J+3) - TRANS(I,J) ENDDO - ENDDO - + ENDDO + ! Output MOI's about c.g. - + IF (GRDPNT >= 0) THEN WRITE(F06,1007) WRITE(F06,1900) DO I=1,3 WRITE(F06,1101) (MOI1(I,J),J=1,3) ! MOI1 now are MOI's about cg in basic - ENDDO + ENDDO WRITE(F06,1900) WRITE(F06,*) WRITE(F06,*) ENDIF - + ! Get principal MOI's and transformation matrix (eigenvectors of MOI1) - + CALL GPWG_PMOI ( MOI1, Q, INFO ) - + ! Write out princ MOI's and coord transf. Otherwise errors were written in subr GPWG_PMOI - IF ((INFO == 0) .AND. (GRDPNT >= 0)) THEN + IF ((INFO == 0) .AND. (GRDPNT >= 0)) THEN WRITE(F06,1008) WRITE(F06,1900) DO I=1,3 WRITE(F06,1101) (MOI1(I,J),J=1,3) ! MOI1 is now principal MOI matrix - ENDDO + ENDDO WRITE(F06,1900) WRITE(F06,*) WRITE(F06,*) - + WRITE(F06,1009) WRITE(F06,1900) DO I=1,3 WRITE(F06,1101) (Q(I,J),J=1,3) - ENDDO + ENDDO WRITE(F06,1900) WRITE(F06,*) WRITE(F06,*) ENDIF - + RETURN diff --git a/Source/LK1/L1C/RB_DISP_MATRIX_PROC.f90 b/Source/LK1/L1C/RB_DISP_MATRIX_PROC.f90 index f50e5ee0..dfa651ac 100644 --- a/Source/LK1/L1C/RB_DISP_MATRIX_PROC.f90 +++ b/Source/LK1/L1C/RB_DISP_MATRIX_PROC.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) @@ -34,7 +34,7 @@ SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) ! d) an arbitrary grid (REF_PT_TXT = 'GRID' and REF_PT = the grid ID) ! 2) transform to global coords at the grid ! 3) assemble the 6 x 6 rigid body displ matrices, in global coords, for all grids - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -42,14 +42,14 @@ SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TDOF, TDOFI, TDOF_ROW_START USE PARAMS, ONLY : EQCHK_REF_GRID, SUPWARN - USE MODEL_STUF, ONLY : CORD, GRID, RGRID, GRID_ID, INV_GRID_SEQ, MODEL_XCG, MODEL_YCG, MODEL_ZCG + USE MODEL_STUF, ONLY : CORD, GRID, RGRID, GRID_ID, INV_GRID_SEQ, MODEL_XCG, MODEL_YCG, MODEL_ZCG USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE RB_DISP_MATRIX_PROC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'RB_DISP_MATRIX_PROC' CHARACTER(LEN=*), INTENT(IN) :: REF_PT_TXT ! Reference point used in calculating the 6 rigid body displ vectors CHARACTER( 2*BYTE) :: COMP(6) ! Text reference to the 6 components of displ (T1, T2, etc) @@ -72,7 +72,7 @@ SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) INTEGER(LONG) :: NUM_COMPS ! 6 if GRID_NUM is an physical grid, 1 if an SPOINT INTEGER(LONG) :: ROW_NUM_START ! DOF number where TDOF data begins for a grid - + REAL(DOUBLE) :: DUM1(6,6) ! Intermediate result in obtaining RB_GRID_GLOBL REAL(DOUBLE) :: DX0 ! X coord difference between grid I and ref grid REAL(DOUBLE) :: DY0 ! Y coord difference between grid I and ref grid @@ -90,7 +90,7 @@ SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) REAL(DOUBLE) :: X0_K ! Basic X coord of AGRID_I REAL(DOUBLE) :: Y0_K ! Basic Y coord of AGRID_I REAL(DOUBLE) :: Z0_K ! Basic Z coord of AGRID_I - + ! ********************************************************************************************************************************** @@ -142,7 +142,7 @@ SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) ICORD_R = I EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( GRID_ID_ROW_NUM_R, ICORD_R, THETAD, PHID, T0G_R ) DO I=1,3 DO J=1,3 @@ -153,7 +153,7 @@ SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) ELSE DO I=1,6 TTR_R(I,I) = ONE - ENDDO + ENDDO ENDIF ELSE WARN_ERR = WARN_ERR + 1 @@ -179,17 +179,17 @@ SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) DO I=1,6 TTR_R(I,I) = ONE - ENDDO + ENDDO ELSE IF (REF_PT_TXT == 'CG') THEN - + X0_R = MODEL_XCG Y0_R = MODEL_YCG Z0_R = MODEL_ZCG DO I=1,6 TTR_R(I,I) = ONE - ENDDO + ENDDO ELSE @@ -221,10 +221,10 @@ SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) Y0_K = RGRID(GRID_ID_ROW_NUM_K,2) Z0_K = RGRID(GRID_ID_ROW_NUM_K,3) - DX0 = X0_K - X0_R - DY0 = Y0_K - Y0_R - DZ0 = Z0_K - Z0_R - + DX0 = X0_K - X0_R + DY0 = Y0_K - Y0_R + DZ0 = Z0_K - Z0_R + DO I=1,6 DO J=1,6 RB_GRID_BASIC(I,J) = ZERO @@ -246,7 +246,7 @@ SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) ICORD_K = I EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( GRID_ID_ROW_NUM_K, ICORD_K, THETAD, PHID, T0G_K ) DO I=1,3 DO J=1,3 @@ -257,7 +257,7 @@ SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) ELSE DO I=1,6 TTR_K(I,I) = ONE - ENDDO + ENDDO ENDIF IF (ECORD_R == 0) THEN @@ -345,7 +345,7 @@ SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) RETURN ! ********************************************************************************************************************************** - 111 FORMAT(' RIGID BODY DISPL MATRIX IN GLOBAL COORDS FOR GRID ',I8) + 111 FORMAT(' RIGID BODY DISPL MATRIX IN GLOBAL COORDS FOR GRID ',I8) 112 FORMAT(1X,6(1ES15.6)) @@ -376,6 +376,6 @@ SUBROUTINE RB_DISP_MATRIX_PROC ( REF_PT_TXT, REF_PT ) ! ********************************************************************************************************************************** - + END SUBROUTINE RB_DISP_MATRIX_PROC diff --git a/Source/LK1/L1C/SUBCASE_PROC.f90 b/Source/LK1/L1C/SUBCASE_PROC.f90 index e5cd3acc..7ef85b66 100644 --- a/Source/LK1/L1C/SUBCASE_PROC.f90 +++ b/Source/LK1/L1C/SUBCASE_PROC.f90 @@ -1,39 +1,39 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE SUBCASE_PROC - + ! Subcase processor - + ! Processes all output requests from Case Control. When output requests were read in Case Control, they were temporarily stored into ! the arrays (each array is NSUB x 1): - + ! SC_ACCE for displacement output requests ! SC_DISP for displacement output requests -! SC_ELFN for elem nodal force output requests +! SC_ELFN for elem nodal force output requests ! SC_ELFE for elem engineering force output requests ! SC_GPFO for G.P. force balance output requests ! SC_MPCF for MPC force output requests @@ -41,35 +41,35 @@ SUBROUTINE SUBCASE_PROC ! SC_SPCF for SPC force output requests ! SC_STRE for elem stress output requests ! SC_STRN for elem strain output requests - + ! Each of the NSUB entries in each of these arrays is one of the following: -! -! 0 : means no output was requested, or +! +! 0 : means no output was requested, or ! -1 : means output for all (grids or elems) was requested, or ! SETID: means output for all members of set SETID was requested - + ! This subr processes this information, along with the set definitions that are contained in array ALL_SETS_ARRAY, ! to create arrays that specify for every grid, element, and subcase the specific output requested. This specification -! is put into arrays OGROUT and GROUT (for grid related outputs), OELOUT and ELOUT (for element related outputs) +! is put into arrays OGROUT and GROUT (for grid related outputs), OELOUT and ELOUT (for element related outputs) ! (for element force and stress), and ELDT (for element debug output): - -! (1) ACCE, DISP, GPFO, MPCF, OLOA, SPCF output requests are put into arrays OGROUT and GROUT + +! (1) ACCE, DISP, GPFO, MPCF, OLOA, SPCF output requests are put into arrays OGROUT and GROUT ! (a) OGROUT is NSUB x 1 with an indicator for every S/C as to whether any grid related outputs were requested ! (b) GROUT is NGRID x NSUB with an indicator for every G.P.-S/C for which grid related output was requested - + ! (2) ELFN, ELFE, STRE,STRN output requests are put into arrays OELOUT and ELOUT -! (a) OELOUT is NSUB x 1 with an indicator for every S/C as to whether any element related output was requested +! (a) OELOUT is NSUB x 1 with an indicator for every S/C as to whether any element related output was requested ! (b) ELOUT is NELE x NSUB with an indicator for every elem-S/C for which element related outputs were requested - + ! (3) Element debug (ELDATA Case Control requests) are put into array ELDT (these requests are above subcase level) -! (a) ELDT is NELE x 1 with an indicator for every element for which element debug output was requested - - +! (a) ELDT is NELE x 1 with an indicator for every element for which element debug output was requested + + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1D USE SCONTR, ONLY : BLNK_SUB_NAM, CC_ENTRY_LEN, DATA_NAM_LEN, FATAL_ERR, IBIT, WARN_ERR, LSETLN, & - MELDTS, MELOUTS, METYPE, MGROUTS, NELE, NGRID, NSUB + MELDTS, MELOUTS, METYPE, MGROUTS, NELE, NGRID, NSUB USE SCONTR, ONLY : GROUT_ACCE_BIT, GROUT_DISP_BIT, GROUT_GPFO_BIT, GROUT_MPCF_BIT, GROUT_OLOA_BIT, & GROUT_SPCF_BIT, ELOUT_ELFE_BIT, ELOUT_ELFN_BIT, ELOUT_STRE_BIT, ELOUT_STRN_BIT @@ -80,19 +80,19 @@ SUBROUTINE SUBCASE_PROC USE MODEL_STUF, ONLY : CCELDT, ONE_SET_ARRAY, SC_ACCE, SC_DISP, SC_ELFN, SC_ELFE, SC_GPFO, SC_MPCF, & SC_OLOA, SC_SPCF, SC_STRE, SC_STRN, ELDT, OELDT, ELOUT, OELOUT, GROUT, OGROUT, LABEL, & SCNUM, STITLE, TITLE, SUBLOD, GRID, GRID_ID, ESORT1, ETYPE - + USE MODEL_STUF, ONLY : ANY_ACCE_OUTPUT, ANY_DISP_OUTPUT, ANY_MPCF_OUTPUT, ANY_SPCF_OUTPUT, ANY_OLOA_OUTPUT, & ANY_GPFO_OUTPUT, ANY_ELFE_OUTPUT, ANY_ELFN_OUTPUT, ANY_STRE_OUTPUT, ANY_STRN_OUTPUT USE SUBCASE_PROC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SUBCASE_PROC' CHARACTER( 1*BYTE) :: CBIT(16) ! Flag to indicate if a bit in GROUT, ELOUT, ELDT is turned on CHARACTER(20*BYTE) :: ELM_OUTPUT_REQ ! Type of elem output request (stress, etc) CHARACTER(10*BYTE) :: ELM_BIT_NAME ! Char name for output warning purposes CHARACTER(LEN(ETYPE)) :: ELM_TYP(METYPE) ! List of elem types requested for elem output but not allowed - CHARACTER(LSETLN*BYTE) :: ERRTOK ! Error message for printout (returned from subr STOKEN) + CHARACTER(LSETLN*BYTE) :: ERRTOK ! Error message for printout (returned from subr STOKEN) CHARACTER( 3*BYTE) :: EXCEPT ! Flag indicating whether EXCEPT is "ON "/"OFF" (INOUT for subr STOKEN) CHARACTER(DATA_NAM_LEN*BYTE) :: DATA_SET_NAME ! A data set name for output purposes CHARACTER( 8*BYTE) :: WARN_NAME ! Name for output error message purposes @@ -104,8 +104,8 @@ SUBROUTINE SUBCASE_PROC ! from ALL_SETS_ARRAY by a call to subr SETPRO (CONTAIN'd herein). We ! use TOKSTR instead of ONE_SET_ARRAY here because ONE_SET_ARRAY is an ! LSETLN array of 1 byte characters and we want TOKSTR to be a single -! character variable of length LSETLN) - +! character variable of length LSETLN) + INTEGER(LONG) :: AELEM ! Actual elem ID INTEGER(LONG) :: AELEM_LO ! Lower elem ID (actual) in a range of elem ID's INTEGER(LONG) :: AELEM_HI ! Higher elem ID (actual) in a range of elem ID's @@ -129,43 +129,43 @@ SUBROUTINE SUBCASE_PROC INTEGER(LONG) :: SETID ! = 0, -1, or pos integer set ID read from array SC_xxxx INTEGER(LONG) :: TOKLEN = 0 ! Length (bytes) of TOKSTR sent to subr STOKEN - + INTRINSIC :: IAND,IBCLR,IBSET - + ! ********************************************************************************************************************************** JERR = 0 - + ! ********************************************************************************************************************************** ! 1st: Process grid output requests to generate OGROUT(i), GROUT(j,i) - + ! OGROUT(i) is an overall indicator for each S/C for whether any of the types of G.P. output requests were made in ! Case Control. - + ! GROUT(j,i) is a specific indicator for each S/C for every G.P. of the types of G.P. output requests were made in ! Case Control. - + ! Both OGROUT and GROUT are set here to be used in LINK9. - + ! Bit position 0 in OGROUT(i), GROUT(i) is for DISP requests (turned on if SC_DISP(i) > 0 which is set in subr CC_DISP). ! Bit position 1 in OGROUT(i), GROUT(i) is for OLOA requests (turned on if SC_OLOA(i) > 0 which is set in subr CC_OLOA). ! Bit position 2 in OGROUT(i), GROUT(i) is for SPCF requests (turned on if SC_SPCF(i) > 0 which is set in subr CC_SPCF). ! Bit position 3 in OGROUT(i), GROUT(i) is for MPCF requests (turned on if SC_MPCF(i) > 0 which is set in subr CC_MPCF). ! Bit position 4 in OGROUT(i), GROUT(i) is for GPFO requests (turned on if SC_GPFO(i) > 0 which is set in subr CC_GPFO). ! Bit position 5 in OGROUT(i), GROUT(i) is for ACCE requests (turned on if SC_ACCE(i) > 0 which is set in subr CC_ACCE). - + ! SC_DISP(i), etc. are integer arrays containing SET ID's (-1 for 'ALL', 0 for 'NONE', positive integer no. for -! SETID) of the 4 possible G.P. related outputs requested in Case Control - +! SETID) of the 4 possible G.P. related outputs requested in Case Control + WARN_NAME = 'GRID ' - + ! I ranges over the number of types of G.P. output requests that can be made in Case Control (described above) - + DO I=0,MGROUTS-1 - + j_loop1: DO J=1,NSUB - + IF (I == 0) THEN SETID = SC_DISP(J) ELSE IF (I == 1) THEN @@ -179,7 +179,7 @@ SUBROUTINE SUBCASE_PROC ELSE IF (I == 5) THEN SETID = SC_ACCE(J) ENDIF - + IF (SETID == 0) THEN ! Check for 'NONE' CYCLE j_loop1 ENDIF @@ -191,19 +191,19 @@ SUBROUTINE SUBCASE_PROC ENDDO CYCLE j_loop1 ENDIF - + IF (SETID > 0) THEN ! Check for actual set ID - + CALL SETPRO ( SETID, NULSET, TOKLEN ) ! Call SETPRO to get the data which was input for set SETID. DO K=1,LSETLN TOKSTR(K:K) = ONE_SET_ARRAY(K) ENDDO - + IF (NULSET == 0) THEN ! No SET's in array ALL_SETS_ARRAY (error was already written in SETPRO) JERR = JERR + 1 CYCLE j_loop1 ENDIF - + ISTART = 1 ! Init ISTART, THRU, EXCEPT for the DO loop looking for tokens in TOKSTR THRU = 'OFF' EXCEPT = 'OFF' @@ -211,7 +211,7 @@ SUBROUTINE SUBCASE_PROC token_loop1: DO ! Call STOKEN in a DO loop until we run out of tokens in TOKSTR CALL STOKEN ( SUBR_NAME, TOKSTR, ISTART, TOKLEN, NTOKEN, IERROR, TOKTYP, TOKEN, ERRTOK, THRU, EXCEPT ) - + IF (IERROR == 1) THEN ! Error: too long a token in the set definition WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR @@ -223,7 +223,7 @@ SUBROUTINE SUBCASE_PROC FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 EXIT token_loop1 - + ELSE IF (IERROR == 2) THEN ! Error: "I1 THRU I2" is missing I2 in the set definition WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR @@ -235,31 +235,31 @@ SUBROUTINE SUBCASE_PROC FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 EXIT token_loop1 - + ELSE IF (IERROR == 3) THEN ! Error: found "EXCEPT" but EXCEPT has already been turned "ON " WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1428) + WRITE(ERR,1428) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1428) + WRITE(F06,1428) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 EXIT token_loop1 - + ELSE IF (IERROR == 4) THEN ! Error: found "EXCEPT" but "THRU" has not been found yet WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1429) + WRITE(ERR,1429) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1429) + WRITE(F06,1429) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 EXIT token_loop1 - + ELSE IF (NTOKEN == 1) THEN ! Is the TOKEN a number not connected to a 'THRU'? IF (TOKTYP(1) == 'INTEGER ') THEN OGROUT(J) = IBSET(OGROUT(J),I) @@ -300,21 +300,21 @@ SUBROUTINE SUBCASE_PROC ENDIF ENDIF ENDIF - + ELSE IF (TOKTYP(1) == 'EXCEPT ') THEN IF (THRU /= 'ON ') THEN WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1427) + WRITE(ERR,1427) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1427) + WRITE(F06,1427) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 EXIT token_loop1 ENDIF - + ELSE WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR @@ -327,18 +327,18 @@ SUBROUTINE SUBCASE_PROC JERR = JERR + 1 EXIT token_loop1 ENDIF - + ELSE IF (NTOKEN == 3) THEN ! TOKEN's connected by 'THRU' - IF ((TOKTYP(1) == 'INTEGER ') .AND. (TOKTYP(2) == 'THRU ') .AND. (TOKTYP(3) == 'INTEGER ')) THEN + IF ((TOKTYP(1) == 'INTEGER ') .AND. (TOKTYP(2) == 'THRU ') .AND. (TOKTYP(3) == 'INTEGER ')) THEN OGROUT(J) = IBSET(OGROUT(J),I) READ(TOKEN(1),'(I8)',IOSTAT=IOCHK1) AGRID_LO IF (IOCHK1 > 0) THEN WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1404) + WRITE(ERR,1404) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1404) + WRITE(F06,1404) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 @@ -348,10 +348,10 @@ SUBROUTINE SUBCASE_PROC IF (IOCHK2 > 0) THEN WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1404) + WRITE(ERR,1404) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1404) + WRITE(F06,1404) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 @@ -371,7 +371,7 @@ SUBROUTINE SUBCASE_PROC JERR = JERR + 1 EXIT token_loop1 ENDIF - + INUM = 0 DO M = AGRID_LO,AGRID_HI CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, M, GRID_ID_ROW_NUM ) @@ -380,17 +380,17 @@ SUBROUTINE SUBCASE_PROC IDUM = GROUT(GRID_ID_ROW_NUM,J) GROUT(GRID_ID_ROW_NUM,J) = IBSET(IDUM,I) ENDIF - ENDDO + ENDDO IF (INUM == 0) THEN WARN_ERR = WARN_ERR + 1 WRITE(ERR,1403) WARN_NAME,AGRID_LO,AGRID_HI,SETID IF (SUPWARN == 'N') THEN WRITE(F06,1403) WARN_NAME,AGRID_LO,AGRID_HI,SETID ENDIF - ENDIF - - ENDIF - + ENDIF + + ENDIF + ELSE WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR @@ -403,7 +403,7 @@ SUBROUTINE SUBCASE_PROC JERR = JERR + 1 EXIT token_loop1 ENDIF - + ELSE ! Error: wrong tokens from set definition for some other reason WRITE(ERR,1426) SUBR_NAME,NTOKEN @@ -411,44 +411,44 @@ SUBROUTINE SUBCASE_PROC WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (NTOKEN /= 1 or 3), so quit - + ENDIF - + IF (ISTART <= TOKLEN) THEN CYCLE token_loop1 ELSE EXIT token_loop1 ENDIF - + ENDDO token_loop1 - + ENDIF - + ENDDO j_loop1 - - ENDDO - + + ENDDO + ! ********************************************************************************************************************************** ! 2nd: Process element output requests to generate OELOUT(i),ELOUT(j,i) - + ! OELOUT(i) is an overall indicator for each S/C for whether any of the types of elem output requests were made in ! Case Control. - + ! ELOUT(j,i) is a specific indicator for each S/C for every elem of the types of elem output requests that were made in ! Case Control - + ! Both OELOUT and ELOUT are set here to be used in LINK9. - + ! Bit position 0 in OELOUT(i), ELOUT(i) is for ELFORCE(NODE) requests (turned on if SC_ELFN(i) > 0 set in subr CC_ELFO). ! Bit position 1 in OELOUT(i), ELOUT(i) is for ELFORCE(ENGR) requests (turned on if SC_ELFE(i) > 0 set in subr CC_ELFO). ! Bit position 2 in OELOUT(i), ELOUT(i) is for STRESS requests (turned on if SC_STRE(i) > 0 set in subr CC_STRE). ! Bit position 3 in OELOUT(i), ELOUT(i) is for STRAIN requests (turned on if SC_STRN(i) > 0 set in subr CC_STRN). - + ! SC_ELFN(i), etc. are integer arrays containing SET ID's (-1 for 'ALL', 0 for 'NONE', positive integer no. for -! SETID) of the 3 possible elem related outputs requested in Case Control - +! SETID) of the 3 possible elem related outputs requested in Case Control + WARN_NAME = 'ELEMENT ' - + ! I ranges over the number of types of elem output requests that can be made in Case Control (described above) DO I=0,MELOUTS-1 @@ -486,22 +486,22 @@ SUBROUTINE SUBCASE_PROC WRITE(F06,1406) ELM_OUTPUT_REQ, ETYPE(K) ENDIF ENDIF - ENDDO + ENDDO CYCLE j_loop2 ENDIF - + IF (SETID > 0) THEN ! Check for actual set ID - + CALL SETPRO ( SETID, NULSET, TOKLEN ) ! Call SETPRO to get the data which was input for set SETID. DO K=1,LSETLN TOKSTR(K:K) = ONE_SET_ARRAY(K) - ENDDO - + ENDDO + IF (NULSET == 0) THEN ! Error was already written in SETPRO JERR = JERR + 1 CYCLE j_loop2 ENDIF - + ISTART = 1 ! Init ISTART, THRU, EXCEPT for the DO loop looking for tokens in TOKSTR THRU = 'OFF' EXCEPT = 'OFF' @@ -509,7 +509,7 @@ SUBROUTINE SUBCASE_PROC token_loop2: DO ! Call STOKEN in a DO loop until we run out of tokens in TOKSTR CALL STOKEN ( SUBR_NAME, TOKSTR, ISTART, TOKLEN, NTOKEN, IERROR, TOKTYP, TOKEN, ERRTOK, THRU, EXCEPT ) - + IF (IERROR == 1) THEN ! Error: too long a token in the set definition WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR @@ -521,7 +521,7 @@ SUBROUTINE SUBCASE_PROC FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 EXIT token_loop2 - + ELSE IF (IERROR == 2) THEN ! Error: "I1 THRU I2" is missing I2 in the set definition WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR @@ -533,31 +533,31 @@ SUBROUTINE SUBCASE_PROC FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 EXIT token_loop2 - + ELSE IF (IERROR == 3) THEN ! Error: found "EXCEPT" but EXCEPT has already been turned "ON " WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1428) + WRITE(ERR,1428) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1428) + WRITE(F06,1428) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 EXIT token_loop2 - + ELSE IF (IERROR == 4) THEN ! Error: found "EXCEPT" but "THRU" has not been found yet WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1429) + WRITE(ERR,1429) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1429) + WRITE(F06,1429) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 EXIT token_loop2 - + ELSE IF (NTOKEN == 1) THEN ! Is the TOKEN a number not connected to a 'THRU'? IF (TOKTYP(1) == 'INTEGER ') THEN OELOUT(J) = IBSET(OELOUT(J),I) @@ -594,7 +594,7 @@ SUBROUTINE SUBCASE_PROC ENDIF ENDIF IF (EXCEPT == 'ON ') THEN - IF ((AELEM >= AELEM_LO) .AND. (AELEM <= AELEM_HI)) THEN + IF ((AELEM >= AELEM_LO) .AND. (AELEM <= AELEM_HI)) THEN IDUM = ELOUT(ESORT1_ROW_NUM,J) IF (ETYPE(ESORT1_ROW_NUM) /= 'PLOTEL ') THEN ELOUT(ESORT1_ROW_NUM,J) = IBCLR(IDUM,I) @@ -622,21 +622,21 @@ SUBROUTINE SUBCASE_PROC ENDIF ENDIF ENDIF - + ELSE IF (TOKTYP(1) == 'EXCEPT ') THEN IF (THRU /= 'ON ') THEN WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1427) + WRITE(ERR,1427) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1427) + WRITE(F06,1427) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 EXIT token_loop2 ENDIF - + ELSE WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR @@ -649,18 +649,18 @@ SUBROUTINE SUBCASE_PROC JERR = JERR + 1 EXIT token_loop2 ENDIF - - ELSE IF (NTOKEN == 3) THEN ! TOKEN's connected by 'THRU' - IF ((TOKTYP(1) == 'INTEGER ') .AND. (TOKTYP(2) == 'THRU ') .AND. (TOKTYP(3) == 'INTEGER ')) THEN + + ELSE IF (NTOKEN == 3) THEN ! TOKEN's connected by 'THRU' + IF ((TOKTYP(1) == 'INTEGER ') .AND. (TOKTYP(2) == 'THRU ') .AND. (TOKTYP(3) == 'INTEGER ')) THEN OELOUT(J) = IBSET(OELOUT(J),I) READ(TOKEN(1),'(I8)',IOSTAT=IOCHK1) AELEM_LO IF (IOCHK1 > 0) THEN WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1404) + WRITE(ERR,1404) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1404) + WRITE(F06,1404) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 @@ -670,16 +670,16 @@ SUBROUTINE SUBCASE_PROC IF (IOCHK2 > 0) THEN WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1404) + WRITE(ERR,1404) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1404) + WRITE(F06,1404) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 EXIT token_loop2 ENDIF - + IF ((IOCHK1 == 0) .AND. (IOCHK2 == 0)) THEN ! Error: "I1 THRU I2" has I1 > I2 (AELEM_LO > AELEM_HI) IF (AELEM_LO > AELEM_HI) THEN WRITE(ERR,1410) SETID @@ -693,7 +693,7 @@ SUBROUTINE SUBCASE_PROC JERR = JERR + 1 EXIT token_loop2 ENDIF - + INUM = 0 DO M = AELEM_LO,AELEM_HI CALL GET_ARRAY_ROW_NUM ( 'ESORT1', SUBR_NAME, NELE, ESORT1, M, ESORT1_ROW_NUM ) @@ -710,17 +710,17 @@ SUBROUTINE SUBCASE_PROC ENDIF ENDIF ENDIF - ENDDO + ENDDO IF (INUM == 0) THEN WARN_ERR = WARN_ERR + 1 WRITE(ERR,1403) WARN_NAME,AELEM_LO,AELEM_HI,SETID IF (SUPWARN == 'N') THEN WRITE(F06,1403) WARN_NAME,AELEM_LO,AELEM_HI,SETID ENDIF - ENDIF - - ENDIF - + ENDIF + + ENDIF + ELSE WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR @@ -733,7 +733,7 @@ SUBROUTINE SUBCASE_PROC JERR = JERR + 1 EXIT token_loop2 ENDIF - + ELSE ! Error: wrong tokens from set definition for some other reason WRITE(ERR,1426) SUBR_NAME,NTOKEN @@ -741,29 +741,29 @@ SUBROUTINE SUBCASE_PROC WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (NTOKEN /= 1 or 3), so quit - + ENDIF - + IF (ISTART <= TOKLEN) THEN CYCLE token_loop2 ELSE EXIT token_loop2 ENDIF - + ENDDO token_loop2 - + ENDIF - + ENDDO j_loop2 - + ENDDO - + ! ********************************************************************************************************************************** ! 3rd: Process element output requests to generate OELDT, ELDT(j). The outputs are not subcase dependent. UEL, PEL ! are printed or written to disk for all subcases, if any request is made. CCELDT(1-16) is an integer array containing ! SET ID's (-1 for 'ALL', 0 for 'NONE', positive integer no. for SETID) of the 16 possible outputs requested by the -! Case Control ELDATA command: - +! Case Control ELDATA command: + ! CCELDT( 0) is CC requests for print to BUGFIL of elem geometric data ! CCELDT( 1) is CC requests for print to BUGFIL of elem property and material info ! CCELDT( 2) is CC requests for print to BUGFIL of elem thermal and pressure matrices : PTE, PPE @@ -803,37 +803,37 @@ SUBROUTINE SUBCASE_PROC ! Bit 15 is not used ! Bit position k is turned on if any of that output is requested by CCELDT(k) - + WARN_NAME = 'ELEMENT ' outer:DO I=0,MELDTS-1 - + SETID = CCELDT(I) IF (SETID == 0) THEN ! Check for 'NONE' CYCLE outer ENDIF - + IF (SETID == -1) THEN ! Check for 'ALL' (SETID = -1) OELDT = IBSET(OELDT,I) ! Set bit position I in OELDT to 1 DO K = 1,NELE ELDT(K) = IBSET(ELDT(K),I) - ENDDO + ENDDO CYCLE outer ENDIF IF (SETID > 0) THEN ! Check for actual set ID - + CALL SETPRO ( SETID, NULSET, TOKLEN ) ! Call SETPRO to get the data which was input for set SETID. DO K=1,LSETLN TOKSTR(K:K) = ONE_SET_ARRAY(K) - ENDDO - + ENDDO + IF (NULSET == 0) THEN ! Error was already written in SETPRO JERR = JERR + 1 CYCLE outer ENDIF - + ISTART = 1 ! Init ISTART, THRU, EXCEPT for the DO loop looking for tokens in TOKSTR THRU = 'OFF' EXCEPT = 'OFF' @@ -869,10 +869,10 @@ SUBROUTINE SUBCASE_PROC ELSE IF (IERROR == 3) THEN ! Error: found "EXCEPT" but EXCEPT has already been turned "ON " WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1428) + WRITE(ERR,1428) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1428) + WRITE(F06,1428) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 @@ -881,10 +881,10 @@ SUBROUTINE SUBCASE_PROC ELSE IF (IERROR == 4) THEN ! Error: found "EXCEPT" but "THRU" has not been found yet WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1429) + WRITE(ERR,1429) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1429) + WRITE(F06,1429) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 @@ -930,21 +930,21 @@ SUBROUTINE SUBCASE_PROC ENDIF ENDIF ENDIF - + ELSE IF (TOKTYP(1) == 'EXCEPT ') THEN IF (THRU /= 'ON ') THEN WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1427) + WRITE(ERR,1427) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1427) + WRITE(F06,1427) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 EXIT token_loop3 ENDIF - + ELSE WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR @@ -959,16 +959,16 @@ SUBROUTINE SUBCASE_PROC ENDIF ELSE IF (NTOKEN == 3) THEN ! TOKEN's connected by 'THRU' - IF ((TOKTYP(1) == 'INTEGER ') .AND. (TOKTYP(2) == 'THRU ') .AND. (TOKTYP(3) == 'INTEGER ')) THEN + IF ((TOKTYP(1) == 'INTEGER ') .AND. (TOKTYP(2) == 'THRU ') .AND. (TOKTYP(3) == 'INTEGER ')) THEN OELDT = IBSET(OELDT,I) READ(TOKEN(1),'(I8)',IOSTAT=IOCHK1) AELEM_LO IF (IOCHK1 > 0) THEN WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1404) + WRITE(ERR,1404) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1404) + WRITE(F06,1404) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 @@ -978,10 +978,10 @@ SUBROUTINE SUBCASE_PROC IF (IOCHK2 > 0) THEN WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1404) + WRITE(ERR,1404) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR - WRITE(F06,1404) + WRITE(F06,1404) WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 JERR = JERR + 1 @@ -1001,7 +1001,7 @@ SUBROUTINE SUBCASE_PROC JERR = JERR + 1 EXIT token_loop3 ENDIF - + INUM = 0 DO M = AELEM_LO,AELEM_HI CALL GET_ARRAY_ROW_NUM ( 'ESORT1', SUBR_NAME, NELE, ESORT1, M, ESORT1_ROW_NUM ) @@ -1009,21 +1009,21 @@ SUBROUTINE SUBCASE_PROC INUM = INUM + 1 ELDT(ESORT1_ROW_NUM) = IBSET(ELDT(ESORT1_ROW_NUM),I) ENDIF - ENDDO + ENDDO IF (INUM == 0) THEN WARN_ERR = WARN_ERR + 1 WRITE(ERR,1403) WARN_NAME,AELEM_LO,AELEM_HI,SETID IF (SUPWARN == 'N') THEN WRITE(F06,1403) WARN_NAME,AELEM_LO,AELEM_HI,SETID ENDIF - ENDIF - - ENDIF - + ENDIF + + ENDIF + ELSE WRITE(ERR,1410) SETID WRITE(ERR,1411) TOKSTR - WRITE(ERR,1424) TOKEN(1),TOKEN(2),TOKEN(3) + WRITE(ERR,1424) TOKEN(1),TOKEN(2),TOKEN(3) WRITE(F06,1410) SETID WRITE(F06,1411) TOKSTR WRITE(F06,1424) TOKEN(1),TOKEN(2),TOKEN(3) @@ -1040,26 +1040,26 @@ SUBROUTINE SUBCASE_PROC WRITE(F06,*) FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (NTOKEN /= 1 or 3), so quit - + ENDIF - + IF (ISTART <= TOKLEN) THEN CYCLE token_loop3 ELSE EXIT token_loop3 ENDIF - - ENDDO token_loop3 - + + ENDDO token_loop3 + ENDIF - + ENDDO outer - + ! ********************************************************************************************************************************** ! Parameter PRTSCP = 1 requests output of subcase parameters. IF (PRTSCP == 1) CALL PARAM_PRTSCP_OUTPUT - + ! ********************************************************************************************************************************** ! Check if any grid output was requested for SPOINT's that do not support these requests. Set WARN_ERR, write message and reset bit. @@ -1123,13 +1123,13 @@ SUBROUTINE SUBCASE_PROC ! ********************************************************************************************************************************** ! Check for errors and quit if any - + IF (JERR > 0) THEN WRITE(ERR,1405) WRITE(F06,1405) CALL OUTA_HERE ( 'Y' ) ! Errors reading SET's, so quit ENDIF - + ! ********************************************************************************************************************************** ! Set ANY_xxxx_OUTPUT variables to tell whether any output of a particular kind was requested in Case Control @@ -1184,7 +1184,7 @@ SUBROUTINE SUBCASE_PROC ENDDO ! Now write out subcase data to L1D - + DATA_SET_NAME = 'S/C NUMBERS, TITLING, LOAD SET IDS' WRITE(L1D) DATA_SET_NAME WRITE(L1D) NSUB @@ -1203,18 +1203,18 @@ SUBROUTINE SUBCASE_PROC DO I = 1,NSUB WRITE(L1D) OGROUT(I) ENDDO - + DATA_SET_NAME = 'OELOUT' WRITE(L1D) DATA_SET_NAME WRITE(L1D) NSUB DO I = 1,NSUB WRITE(L1D) OELOUT(I) ENDDO - + DATA_SET_NAME = 'OELDT' WRITE(L1D) DATA_SET_NAME WRITE(L1D) OELDT - + DATA_SET_NAME = 'GROUT' WRITE(L1D) DATA_SET_NAME WRITE(L1D) NGRID @@ -1224,7 +1224,7 @@ SUBROUTINE SUBCASE_PROC WRITE(L1D) GROUT(I,J) ENDDO ENDDO - + DATA_SET_NAME = 'ELOUT' WRITE(L1D) DATA_SET_NAME WRITE(L1D) NELE @@ -1234,14 +1234,14 @@ SUBROUTINE SUBCASE_PROC WRITE(L1D) ELOUT(I,J) ENDDO ENDDO - + DATA_SET_NAME = 'ELDT' WRITE(L1D) DATA_SET_NAME WRITE(L1D) NELE DO I=1,NELE WRITE(L1D) ELDT(I) ENDDO - + DATA_SET_NAME = 'ANY_xxxx_OUTPUT' WRITE(L1D) DATA_SET_NAME WRITE(L1D) ANY_ACCE_OUTPUT @@ -1254,7 +1254,7 @@ SUBROUTINE SUBCASE_PROC WRITE(L1D) ANY_ELFE_OUTPUT WRITE(L1D) ANY_STRE_OUTPUT WRITE(L1D) ANY_STRN_OUTPUT - + RETURN @@ -1303,41 +1303,41 @@ SUBROUTINE SUBCASE_PROC CONTAINS ! ################################################################################################################################## - + SUBROUTINE SETPRO ( SETID_IN, NULSET, SLEN ) - + ! Processes data from Case Control SET cards that have all been loaded into array ALL_SETS_ARRAY (when read by ! subroutine CC_SET) to get one sets' data (which is put into array ONE_SET_ARRAY). - + ! For example, if the Case Control SET input is: ! SET 1243= 12, 34 ,1358, 8976, ! 201,302, 406 ! SET 6 = 1001, 3002 - + ! Then variable ALL_SETS_ARRAY, as output from subroutine LOADC, is: ! SET 1243= 12, 34 ,1358, 8976,201,302, 406SET 6 = 1001, 3002 - + ! There is no limit on the number of SET's in Case Control - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LSETLN, MAX_TOKEN_LEN, SETLEN, WARN_ERR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ALL_SETS_ARRAY, ONE_SET_ARRAY - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SETPRO' - CHARACTER(LSETLN*BYTE) :: SETCHR ! Equiv to ALL_SETS_ARRAY (used in finding strings in ONE_SET_ARRAY) + CHARACTER(LSETLN*BYTE) :: SETCHR ! Equiv to ALL_SETS_ARRAY (used in finding strings in ONE_SET_ARRAY) CHARACTER(8*BYTE) :: TOKENI ! String that should contain an integer set ID from SETCHR. CHARACTER(LSETLN*BYTE) :: TOKSTR ! Equiv to ONE_SET_ARRAY (used in setting strings in ONE_SET_ARRAY) CHARACTER(8*BYTE) :: TOKTY1 ! 8 char string from subr TOKSTR (what type of data was in TOKENI) - + INTEGER(LONG), INTENT(IN) :: SETID_IN ! The set ID whose data we are looking for - INTEGER(LONG), INTENT(OUT) :: NULSET ! 0 if no set with ID equal to SETID_IN was found, 1 if set was found + INTEGER(LONG), INTENT(OUT) :: NULSET ! 0 if no set with ID equal to SETID_IN was found, 1 if set was found INTEGER(LONG), INTENT(OUT) :: SLEN ! Length (in bytes) of the SET description put into ONE_SET_ARRAY INTEGER(LONG) :: DATA_BEG ! Position in SETCHR where a sets data begins INTEGER(LONG) :: DATA_END ! Position in SETCHR where a sets data ends @@ -1352,9 +1352,9 @@ SUBROUTINE SETPRO ( SETID_IN, NULSET, SLEN ) INTEGER(LONG) :: SID_BEG ! Pos'n in SETCHR where a sets ID begins INTEGER(LONG) :: SID_END ! Pos'n in SETCHR where a sets ID ends - + INTRINSIC INDEX - + ! ********************************************************************************************************************************** @@ -1366,8 +1366,8 @@ SUBROUTINE SETPRO ( SETID_IN, NULSET, SLEN ) DO I=1,LSETLN ! Load SETCHR with data in ALL_SETS_ARRAY and init ONE_SET_ARRAY SETCHR(I:I) = ALL_SETS_ARRAY(I) ONE_SET_ARRAY(I) = ' ' - ENDDO - + ENDDO + SET_1_BEG = INDEX(SETCHR(1:),'SET') ! Are any SET's in SETCHR ? If not, print error and return IF (SET_1_BEG == 0) THEN NULSET = 0 @@ -1376,23 +1376,23 @@ SUBROUTINE SETPRO ( SETID_IN, NULSET, SLEN ) FATAL_ERR = FATAL_ERR + 1 RETURN ENDIF - + ! Begin loop on extracting SET's from SETCHR (ALL_SETS_ARRAY) -outer:DO - +outer:DO + TOKSTR(1:) = ' ' - + POSN = INDEX(SETCHR(SET_1_BEG+1:),'SET') ! Find next occurrance of 'SET' so we can find SET definition in between IF (POSN == 0) THEN SET_2_BEG = SETLEN + 1 ! There is no other SET, so make "starting" posn > SETLEN ELSE SET_2_BEG = SET_1_BEG + POSN ! This is where the next SET begins ENDIF - + POSN = INDEX(SETCHR(SET_1_BEG:),'=') ! Find the col where "=" is for current SET. The set ID (SETID) should ECOL = SET_1_BEG + POSN - 1 ! be between SET and "=". The "=" is in col ECOL. - + DATA_BEG = ECOL + 1 ! Find col where the SET data is (following "=" and skipping delimiters). DATA_END = SET_2_BEG - 1 @@ -1403,7 +1403,7 @@ SUBROUTINE SETPRO ( SETID_IN, NULSET, SLEN ) EXIT i_loop1 ENDIF ENDDO i_loop1 - + TOKENI(1:) = ' ' ! Now find the set ID and load it into TOKENI SID_BEG = SET_1_BEG + 3 SID_END = ECOL - 1 @@ -1416,13 +1416,13 @@ SUBROUTINE SETPRO ( SETID_IN, NULSET, SLEN ) ENDIF K = K + 1 IF (K > MAX_TOKEN_LEN) THEN ! Token too long. Set NULSET, SET_2_BEG and cycle outer - NULSET = 0 ! so we can continue to look for + NULSET = 0 ! so we can continue to look for SET_1_BEG = SET_2_BEG CYCLE outer ENDIF TOKENI(K:K) = SETCHR(I:I) ! Load set ID chars into TOKENI - ENDDO i_loop2 - + ENDDO i_loop2 + CALL TOKCHK (TOKENI, TOKTY1 ) ! TOKCHK will determine type of token in TOKENI IF (TOKTY1 == 'INTEGER ') THEN ! If token is an integer, read it into SETID READ(TOKENI,'(I8)',IOSTAT=IOCHK) SETID @@ -1441,11 +1441,11 @@ SUBROUTINE SETPRO ( SETID_IN, NULSET, SLEN ) SET_1_BEG = SET_2_BEG CYCLE outer ENDIF - + IF (SETID == SETID_IN) THEN ! Now get the data for set ID = SETID NULSET = 1 SLEN = DATA_END - DATA_BEG + 1 - TOKSTR(1:) = SETCHR(DATA_BEG:DATA_END) + TOKSTR(1:) = SETCHR(DATA_BEG:DATA_END) EXIT ! We have our set data for set ID = SETID_IN, so exit outer ELSE NULSET = 0 @@ -1462,15 +1462,15 @@ SUBROUTINE SETPRO ( SETID_IN, NULSET, SLEN ) CYCLE outer ENDIF ENDIF - + ENDDO outer - + IF (NULSET /= 0) THEN DO I=1,LSETLN ! Load TOKSTR data into ONE_SET_ARRAY ONE_SET_ARRAY(I) = TOKSTR(I:I) ENDDO - ENDIF - + ENDIF + RETURN @@ -1479,9 +1479,9 @@ SUBROUTINE SETPRO ( SETID_IN, NULSET, SLEN ) 1405 FORMAT(' *ERROR 1405: SET ID ',I8,' NOT FOUND') 1407 FORMAT(' *WARNING : ERROR READING SET ID ON CASE CONTROL SET ENTRY. ENTRY IGNORED') - + ! ********************************************************************************************************************************** - + END SUBROUTINE SETPRO ! ################################################################################################################################## @@ -1509,7 +1509,7 @@ SUBROUTINE PARAM_PRTSCP_OUTPUT PRNTOUT = 'Y' ENDIF ENDDO - IF (PRNTOUT == 'Y') THEN + IF (PRNTOUT == 'Y') THEN WRITE(F06,1011) WRITE(F06,1012) WRITE(F06,1013) @@ -1543,8 +1543,8 @@ SUBROUTINE PARAM_PRTSCP_OUTPUT WRITE(F06,*) '* indicates that output request was made but it is not allowed for scalar points' ENDIF WRITE(F06,1016) - ENDIF - + ENDIF + ! Print element ELFi/STR output requests PRNTOUT = 'N' @@ -1585,7 +1585,7 @@ SUBROUTINE PARAM_PRTSCP_OUTPUT ENDIF WRITE(F06,1024) ENDIF - + ! Print ELDATA output requests IF (OELDT /= 0) THEN @@ -1616,7 +1616,7 @@ SUBROUTINE PARAM_PRTSCP_OUTPUT WRITE(F06,1035) - + ! ********************************************************************************************************************************** 1001 FORMAT(' __________________________________________________________________________________________________________________',& '_________________' ,//,& @@ -1657,10 +1657,10 @@ SUBROUTINE PARAM_PRTSCP_OUTPUT 1031 FORMAT(82X,'CASE CONTROL ELDATA OUTPUT REQUESTS',/) - 1032 FORMAT(88X,'B I T P O S I T I O N',/,77X,'0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15',/) + 1032 FORMAT(88X,'B I T P O S I T I O N',/,77X,'0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15',/) 1033 FORMAT(1X,'ELEMENT ',I8,',TYPE ',A,', ELDATA OUTPUT REQUESTS (ALL SUBCASES) ARE:',16(2X,A1)) - + 1034 FORMAT(1X ,/,& ' Bit position 0 is for printed output of element grid geometric data' ,/,& ' Bit position 1 is for printed output of element property, material and other data' ,/,& diff --git a/Source/LK1/L1D/EPTL.f90 b/Source/LK1/L1D/EPTL.f90 index 1941620f..db0728a3 100644 --- a/Source/LK1/L1D/EPTL.f90 +++ b/Source/LK1/L1D/EPTL.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE EPTL - + ! Element pressure and thermal loads processor - + ! Processes the elems to generate the elem pressure and thermal loads using the EMG set of routines. The thermal ! and pressure loads are inserted into the system loads array SYS_LOAD. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, F21, F21FIL, F21_MSG, SC1, WRT_BUG, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, ELDT_BUG_P_T_BIT, ELDT_F21_P_T_BIT, IBIT, LINKNO, MBUG, MELDOF, NCORD, & @@ -45,34 +45,34 @@ SUBROUTINE EPTL USE EPTL_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'EPTL' - CHARACTER( 1*BYTE) :: OPT(6) + CHARACTER( 1*BYTE) :: OPT(6) INTEGER(LONG) :: EDOF(MELDOF) ! A list of the G-set DOF's for an elem - INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept + INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: I1 ! Intermediate variable used in setting WRT_BUG(3) and OUT10 INTEGER(LONG) :: IGRID ! Internal grid ID INTEGER(LONG) :: IERROR ! Local error indicator INTEGER(LONG) :: L ! Counter INTEGER(LONG) :: NUM_COMPS ! 6 if GRID_NUM is an physical grid, 1 if an SPOINT - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr READERR - INTEGER(LONG) :: ROW_NUM ! Row no. in array TDOF corresponding to an elem DOF + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr READERR + INTEGER(LONG) :: ROW_NUM ! Row no. in array TDOF corresponding to an elem DOF INTEGER(LONG) :: ROW_NUM_START ! Row no. in array TDOF where data begins for AGRID INTEGER(LONG) :: TCASE2(NSUB) ! TCASE2(I) gives the internal subcase no. for internal thermal case I ! If there are 5 subcases and internal S/C 3 is the 1-st S/C to have ! thermal load and internal S/C 5 is the 2-nd to have thermal load: -! TCASE2(1-5) = 3, 5, 0, 0, 0 +! TCASE2(1-5) = 3, 5, 0, 0, 0 ! Indicator for output of elem data to BUG file REAL(DOUBLE) :: DZE(MELDOF,MELDOF)! A dummy array for the call to ELEM_TRANSFORM_LBG REAL(DOUBLE) :: EPS1 ! A small number to compare real zero - + INTRINSIC IAND - + INTRINSIC :: DABS @@ -103,34 +103,34 @@ SUBROUTINE EPTL ENDDO ! Thermal load flag (OPT(2)). Need TCASE2 - table relating jth thermal case to ith subcase - + IF (NTSUB > 0) THEN OPT(2) = 'Y' ! OPT(2) is for calc of PTE DO I = 1,NSUB TCASE2(I) = 0 - ENDDO + ENDDO J = 0 DO I = 1,NSUB IF (SUBLOD(I,2) /= 0) THEN J = J + 1 TCASE2(J) = I ENDIF - ENDDO + ENDDO ELSE OPT(2) = 'N' ENDIF - + ! Set element pressure calc flag - + OPT(5) = 'Y' ! OPT(5) is for calc of PPE - + ! Process the elements: - + IERROR = 0 -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages CALL COUNTER_INIT('Calculating load matrix for element', NELE) DO I = 1,NELE - + DO J=0,MBUG-1 WRT_BUG(J) = 0 ENDDO @@ -152,7 +152,7 @@ SUBROUTINE EPTL IF (NUM_EMG_FATAL_ERRS /=0) THEN IERROR = IERROR + NUM_EMG_FATAL_ERRS CYCLE - ENDIF + ENDIF I1 = IAND(OELDT,IBIT(ELDT_F21_P_T_BIT)) ! Do we need to write elem thermal load matrices to F21 files IF (I1 > 0) THEN @@ -170,8 +170,8 @@ SUBROUTINE EPTL ROW_NUM = ROW_NUM_START + K - 1 L = L + 1 EDOF(L) = TDOF(ROW_NUM,G_SET_COL_NUM) - ENDDO - ENDDO + ENDDO + ENDDO IF (OPT(2) == 'Y') THEN ! Process the element thermal loads - PTE array: ! Transform PTE from local-basic-global @@ -184,8 +184,8 @@ SUBROUTINE EPTL IF (DABS(PTE(J,K)) < EPS1) CYCLE k_do113 SYS_LOAD(EDOF(J),TCASE2(K)) = SYS_LOAD(EDOF(J),TCASE2(K)) + PTE(J,K) ENDDO k_do113 - ENDDO - + ENDDO + ENDIF IF (OPT(5) == 'Y') THEN ! Process element pressure loads - PPE array. @@ -199,19 +199,19 @@ SUBROUTINE EPTL IF (DABS(PPE(J,K)) < EPS1) CYCLE k_do123 SYS_LOAD(EDOF(J),K) = SYS_LOAD(EDOF(J),K) + PPE(J,K) ENDDO k_do123 - ENDDO - + ENDDO + ENDIF CALL COUNTER_PROGRESS(I) - ENDDO + ENDDO WRITE(SC1,*) CR13 ! Reset option values: - + OPT(2) = 'N' OPT(5) = 'N' - + ! Quit if IERROR > 0 IF (IERROR > 0) THEN @@ -230,5 +230,5 @@ SUBROUTINE EPTL 98712 format('J, PPE(J) = ',i8,10(1es15.6)) ! ********************************************************************************************************************************** - + END SUBROUTINE EPTL diff --git a/Source/LK1/L1D/FORCE_MOM_PROC.f90 b/Source/LK1/L1D/FORCE_MOM_PROC.f90 index 31d2afd0..cfe7eb73 100644 --- a/Source/LK1/L1D/FORCE_MOM_PROC.f90 +++ b/Source/LK1/L1D/FORCE_MOM_PROC.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE FORCE_MOM_PROC - + ! Force/moment processor - + ! Transforms the input B.D. force and moment data to system force data in the SYS_LOAD array for dof's in the G set. ! File LINK1I was written when FORCE or MOMENT B.D entries were read, with one record for each such card. ! There are NFORCE total no. records written to file LINK1I with each record containing: @@ -41,7 +41,7 @@ SUBROUTINE FORCE_MOM_PROC ! The process in creating array SYS_LOAD from this information is as follows: ! (1) For each record (1 to NFORCE) in file LINK1I: - + ! (a) Read a record: (SETID, AGRID, ACID_L, FORMON(1-3) and NAME) ! (b) Transform coords from local to basic @@ -63,7 +63,7 @@ SUBROUTINE FORCE_MOM_PROC ! ( ii) If the load set requested in Case Control is not a set ID from a LOAD Bulk data card then the ! load must be on a separate FORCE/MOMENT in which case LSID(1) and RSID(1) are all that is needed ! to define the load set contribution due to the FORCE/MOMENT cards for this subcase. - + ! (iii) If the load set requested in Case Control is a set ID from a LOAD Bulk data card then the ramainder ! (K = 2,LLOADC) of entries into LSID and RSID will be the pairs of load set ID's/scale factors from ! that LOAD Bulk Data card (with RSID also multiplied by the overall scale factor on the LOAD Bulk data @@ -72,18 +72,18 @@ SUBROUTINE FORCE_MOM_PROC ! Note, there may not be as many as LLOADC pairs of set ID's/scale factors on a given LOAD Bulk Data ! card since LLOADC is the max, from all LOAD Bulk Data cards, of pairs. ! Thus, the entries in LSID from the last entry (for a given LOAD card) to LLOADC will be zero (LSID -! was initialized to zero). This fact is used in a DO loop to EXIT when LSID(K) = 0 +! was initialized to zero). This fact is used in a DO loop to EXIT when LSID(K) = 0 ! (b) For each record in SCRATCH-991 (1 to NFORCE) ! ( i) Read a record from file: (SETID, AGRID, ACID_G, FORMON(i) (in coord sys ACID_ G), NAME) - + ! ( ii) Scan LSID and RSID to get the scale factor for the FORMON components in SETID, if this -! FORCE/MOMENT's set ID is in LSID +! FORCE/MOMENT's set ID is in LSID ! (iii) Load these force/moment values into the system load array, SYS_LOAD - - + + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : FILE_NAM_MAXLEN, WRT_ERR, ERR, F06, SCR, L1I, LINK1I, L1I_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LLOADC, NCORD, NFORCE, NGRID, NLOAD, NSUB, WARN_ERR @@ -92,26 +92,26 @@ SUBROUTINE FORCE_MOM_PROC USE PARAMS, ONLY : EPSIL, SUPWARN USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : LOAD_SIDS, LOAD_FACS, SYS_LOAD, SUBLOD, GRID, GRID_ID, CORD - + USE FORCE_MOM_PROC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'FORCE_MOM_PROC' CHARACTER( 1*BYTE) :: FOUND ! Indicator on whether we found something we were looking for CHARACTER( 1*BYTE) :: CORD_FND ! = 'Y' if coord sys ID on FORCE/MOMENT defined, 'N' otherwise CHARACTER( 1*BYTE) :: GRID_FND ! = 'Y' if grid ID on FORCE/MOMENT defined, 'N' otherwise - CHARACTER(24*BYTE) :: MESSAG ! File description. + CHARACTER(24*BYTE) :: MESSAG ! File description. CHARACTER( 8*BYTE) :: NAME ! Name to indicate whether we are processing a FORCE or a MOMENT CHARACTER(FILE_NAM_MAXLEN*BYTE) :: SCRFIL ! File name - + INTEGER(LONG) :: ACID_L ! Actual local coord sys ID on FORCE or MOMENT card INTEGER(LONG) :: ACID_G ! Actual global coord sys ID for AGRID - INTEGER(LONG) :: AGRID ! Actual grid number from FORCE or MOMENT card + INTEGER(LONG) :: AGRID ! Actual grid number from FORCE or MOMENT card INTEGER(LONG) :: COMP1, COMP2 ! DOF components (1-6) INTEGER(LONG) :: GDOF ! G-set DOF no. for actual grid AGRID INTEGER(LONG) :: GRID_ID_ROW_NUM ! Row number in array GRID_ID where AGRID is found - INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept + INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: ICID ! Internal coordinate system ID for ACID_L or ACID_G INTEGER(LONG) :: IERROR = 0 ! Local error count @@ -119,12 +119,12 @@ SUBROUTINE FORCE_MOM_PROC INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening a file INTEGER(LONG) :: K1 ! Counter INTEGER(LONG) :: SETID ! Load set ID read from record in file LINK1I - INTEGER(LONG) :: LSID(LLOADC+1) ! Array of load SID's, from a LOAD Bulk Data card, for one S/C - INTEGER(LONG) :: NSID ! Count on no. of pairs of entries on a LOAD B.D. card (<= LLOADC) - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. + INTEGER(LONG) :: LSID(LLOADC+1) ! Array of load SID's, from a LOAD Bulk Data card, for one S/C + INTEGER(LONG) :: NSID ! Count on no. of pairs of entries on a LOAD B.D. card (<= LLOADC) + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. INTEGER(LONG) :: READ_ERR = 0 ! Count of errors reading records from FORCE/MOMENT file INTEGER(LONG) :: REC_NO ! Record number when reading a file - INTEGER(LONG) :: ROW_NUM ! Row no. in array TDOF corresponding to GDOF + INTEGER(LONG) :: ROW_NUM ! Row no. in array TDOF corresponding to GDOF INTEGER(LONG) :: ROW_NUM_START ! Row no. in array TDOF where data begins for AGRID @@ -147,13 +147,13 @@ SUBROUTINE FORCE_MOM_PROC NAME = ' ' ! will be read as FORCE or MOMENT from file L1I ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! Open a scratch file that will be used to rewrite data from L1I after the coords have been transformed to ! global. This file is only needed in this subr and is closed and deleted herein. - + SCRFIL(1:) = ' ' SCRFIL(1:9) = 'SCRATCH-991' OPEN (SCR(1),STATUS='SCRATCH',POSITION='REWIND',FORM='UNFORMATTED',ACTION='READWRITE',IOSTAT=IOCHK) @@ -163,7 +163,7 @@ SUBROUTINE FORCE_MOM_PROC CALL OUTA_HERE ( 'Y' ) ! Error opening scratch file, so quit ENDIF REWIND (SCR(1)) - + ! ********************************************************************************************************************************** ! Successively read records from LINK1I and transform coords: @@ -183,23 +183,23 @@ SUBROUTINE FORCE_MOM_PROC READ_ERR = READ_ERR + 1 CYCLE i_do1 ENDIF - + DO J=1,3 F1(J) = FORMON(J) - ENDDO + ENDDO ! From actual grid pt number (AGRID) on the FORCE/MOMENT card, get row number in array GRID_ID where AGRID exists GRID_FND = 'Y' CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, AGRID, GRID_ID_ROW_NUM ) IF (GRID_ID_ROW_NUM == -1) THEN - GRID_FND = 'N' ! Grid ID on FORCE/MOMENT undefined + GRID_FND = 'N' ! Grid ID on FORCE/MOMENT undefined IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(ERR,1822) 'GRID ', AGRID, NAME, SETID WRITE(F06,1822) 'GRID ', AGRID, NAME, SETID ENDIF - + CORD_FND = 'N' ICID = -1 IF (ACID_L /= 0) THEN ! Get local coord sys for this FORCE/MOMENT card @@ -229,7 +229,7 @@ SUBROUTINE FORCE_MOM_PROC ELSE ! Local coord system is basic, so equate F2, F1 DO J=1,3 F2(J) = F1(J) - ENDDO + ENDDO ENDIF ! (1-c) Transform from basic to global. Note that F2 are forces in basic @@ -250,34 +250,34 @@ SUBROUTINE FORCE_MOM_PROC CALL MATMULT_FFF_T (T12, F2, 3, 3, 1, F1) ! Transform coords from basic to global for F2 DO J=1,3 F2(J) = F1(J) ! F2 has the force/moment values in global coords - ENDDO + ENDDO ENDIF - + DO J=1,3 ! Reset FORMON to F2, which now has forces in global coords FORMON(J) = F2(J) - ENDDO - ! (1-d) Write results to scratch file. FORMON comps arein global coords - WRITE(SCR(1)) SETID,AGRID,ACID_G,(FORMON(J),J=1,3),NAME + ENDDO + ! (1-d) Write results to scratch file. FORMON comps arein global coords + WRITE(SCR(1)) SETID,AGRID,ACID_G,(FORMON(J),J=1,3),NAME ENDIF - + ENDDO i_do1 - + IF (READ_ERR > 0) THEN WRITE(ERR,9998) READ_ERR,LINK1I - WRITE(ERR,9998) READ_ERR,LINK1I + WRITE(ERR,9998) READ_ERR,LINK1I CALL OUTA_HERE ( 'Y' ) ! Quit due to errors reading FORCE/MOMENT file ENDIF - + IF (IERROR > 0) THEN WRITE(ERR,9996) SUBR_NAME,IERROR WRITE(ERR,9996) SUBR_NAME,IERROR CALL OUTA_HERE ( 'Y' ) ! Quit due to undefined grid and coord sys ID's ENDIF - + ! ********************************************************************************************************************************** ! Now process forces in global coords into SYS_LOAD for each subcase. - + DO I=1,LLOADC ! Initialize LSID, RSID arrays LSID(I) = 0 RSID(I) = ZERO @@ -285,9 +285,9 @@ SUBROUTINE FORCE_MOM_PROC REWIND (SCR(1)) MESSAG = 'SCRATCH: FORCE_MOM_PROC ' - + i_do2:DO I=1,NSUB ! Loop through the S/C's - + IF (SUBLOD(I,1) == 0) THEN ! If no load for this S/C, CYCLE CYCLE i_do2 ENDIF @@ -299,15 +299,15 @@ SUBROUTINE FORCE_MOM_PROC IF (SUBLOD(I,1) == LOAD_SIDS(J,1)) THEN k_do21: DO K = 2,LLOADC IF (LOAD_SIDS(J,K) == 0) THEN - EXIT k_do21 + EXIT k_do21 ELSE NSID = K ! Note: NSID will not get larger than LLOADC RSID(K) = LOAD_FACS(J,1)*LOAD_FACS(J,K) LSID(K) = LOAD_SIDS(J,K) ENDIF - ENDDO k_do21 + ENDDO k_do21 ENDIF - ENDDO + ENDDO j_do22: DO J=1,NFORCE ! Process FORCE / MOMENT card info ! (2-b- i) Read a record from scratch - forces are in global coords @@ -318,21 +318,21 @@ SUBROUTINE FORCE_MOM_PROC CALL FILE_CLOSE ( SCR(1), SCRFIL, 'DELETE' ) CALL OUTA_HERE ( 'Y' ) ! Error reading scratch file, so quit ENDIF - + FOUND = 'N' ! (2-b- ii). Scan through LSID to find set that matches SETID read. k_do221: DO K = 1,NSID ! There is a match; we made sure all requested loads were in B.D. deck IF (SETID == LSID(K)) THEN ! We start with K = 1 to cover the case of no LOAD B.D cards SCALE = RSID(K) FOUND = 'Y' - EXIT k_do221 + EXIT k_do221 ENDIF - ENDDO k_do221 + ENDDO k_do221 - IF (FOUND == 'N') THEN ! Cycle back on J loop and read another force/moment card - CYCLE j_do22 + IF (FOUND == 'N') THEN ! Cycle back on J loop and read another force/moment card + CYCLE j_do22 ENDIF - IF (NAME == 'FORCE ') THEN ! Set component range (for loop below) based on card type + IF (NAME == 'FORCE ') THEN ! Set component range (for loop below) based on card type COMP1 = 1 COMP2 = 3 ELSE IF (NAME == 'MOMENT ') THEN @@ -347,7 +347,7 @@ SUBROUTINE FORCE_MOM_PROC ENDIF ! Get GRID_ID_ROW_NUM, we checked it's existence earlier CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, AGRID, GRID_ID_ROW_NUM ) - + IF ((DABS(FORMON(1)) < EPS1) .AND. (DABS(FORMON(2)) < EPS1) .AND. (DABS(FORMON(3)) < EPS1)) THEN WARN_ERR = WARN_ERR + 1 WRITE(ERR,1513) NAME,SETID @@ -355,7 +355,7 @@ SUBROUTINE FORCE_MOM_PROC WRITE(F06,1513) NAME,SETID ENDIF ENDIF - + !xx CALL CALC_TDOF_ROW_NUM ( AGRID, ROW_NUM_START, 'N' ) CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, AGRID, IGRID ) ROW_NUM_START = TDOF_ROW_START(IGRID) @@ -371,7 +371,7 @@ SUBROUTINE FORCE_MOM_PROC ELSE FORCEI = SCALE*FORMON(K1) IF (DABS(FORCEI) < EPS1) THEN - CYCLE k_do222 + CYCLE k_do222 ELSE CALL TDOF_COL_NUM ( 'G ', G_SET_COL_NUM ) ROW_NUM = ROW_NUM_START + K -1 @@ -379,16 +379,16 @@ SUBROUTINE FORCE_MOM_PROC SYS_LOAD(GDOF,I) = SYS_LOAD(GDOF,I) + FORCEI ENDIF ENDIF - ENDDO k_do222 - + ENDDO k_do222 + ENDDO j_do22 - + REWIND (SCR(1)) ! Need to read all of the FORCE/MOMENT records again for the next S/C - + ENDDO i_do2 - + CALL FILE_CLOSE ( SCR(1), SCRFIL, 'DELETE' ) - + RETURN @@ -411,9 +411,9 @@ SUBROUTINE FORCE_MOM_PROC ,/,14X,' VARIABLE "NAME" SHOULD BE "FORCE" OR "MOMENT" BUT IS: ',A8) 9998 FORMAT(/,' PROCESSING TERMINATED DUE TO ABOVE ',I8,' ERRORS READING FILE:',/,A) - + 9996 FORMAT(/,' PROCESSING ABORTED IN SUBROUTINE ',A,' DUE TO ABOVE ',I8,' ERRORS') ! ********************************************************************************************************************************** - + END SUBROUTINE FORCE_MOM_PROC diff --git a/Source/LK1/L1D/GET_GRID_6X6_MASS.f90 b/Source/LK1/L1D/GET_GRID_6X6_MASS.f90 index c1999570..f160d929 100644 --- a/Source/LK1/L1D/GET_GRID_6X6_MASS.f90 +++ b/Source/LK1/L1D/GET_GRID_6X6_MASS.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_GRID_6X6_MASS ( AGRID, IGRID, FOUND, GRID_MGG ) - + ! Gets a 6 x 6 mass matrix for 1 grid point from the MGG mass matrix (which contains block diagonal 6 x 6 grid mass matrices). ! THis subr was not coded for SPOINT's so check if AGRID is an SPOINT and give program error and quit if it is - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NGRID, NTERM_MGG @@ -37,17 +37,17 @@ SUBROUTINE GET_GRID_6X6_MASS ( AGRID, IGRID, FOUND, GRID_MGG ) USE DOF_TABLES, ONLY : TDOF USE SPARSE_MATRICES, ONLY : I2_MGG, J_MGG, MGG USE MODEL_STUF, ONLY : GRID_SEQ - + USE GET_GRID_6X6_MASS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GET_GRID_6X6_MASS' CHARACTER( 1*BYTE), INTENT(OUT) :: FOUND ! 'Y' if there is a mass matrix for this grid and 'N' otherwise INTEGER(LONG), INTENT(IN) :: AGRID ! Actual grid number of grid for which we want the 6 x 6 mass matrix INTEGER(LONG), INTENT(IN) :: IGRID ! Internal grid number of grid for which we want the 6 x 6 mass matrix - INTEGER(LONG) :: I,J,K ! DO loop indices or counters + INTEGER(LONG) :: I,J,K ! DO loop indices or counters INTEGER(LONG) :: I1,J1 ! Indices INTEGER(LONG) :: IGRID_DOF_NUM ! G-set DOF number for IGRID INTEGER(LONG) :: NUM_COMPS ! No. displ components (1 for SPOINT, 6 for actual grid) @@ -112,13 +112,13 @@ SUBROUTINE GET_GRID_6X6_MASS ( AGRID, IGRID, FOUND, GRID_MGG ) ENDIF - ENDDO k_do + ENDDO k_do DO I=1,6 DO J=1,I-1 GRID_MGG(I,J) = GRID_MGG(J,I) - ENDDO - ENDDO + ENDDO + ENDDO diff --git a/Source/LK1/L1D/GRAV_PROC.f90 b/Source/LK1/L1D/GRAV_PROC.f90 index 0a50cdde..05c2a40f 100644 --- a/Source/LK1/L1D/GRAV_PROC.f90 +++ b/Source/LK1/L1D/GRAV_PROC.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GRAV_PROC - + ! Gravity load processor - + ! Transforms the input B.D. gravity load data to system force data in the SYS_LOAD array for dof's in the G set. ! File LINK1P was written when GRAV B.D cards were read, with one record for each such card. ! There are NGRAV total number of records written to file LINK1P with each record containing: @@ -40,8 +40,8 @@ SUBROUTINE GRAV_PROC ! The process in creating array SYS_LOAD from this information is as follows: ! (1) For each record (1 to NGRAV) in file LINK1P: - -! (a) Read a record + +! (a) Read a record ! (b) Transform coords from local (on GRAV card) to basic. Transformation to global is done later (see 2a(iii)) @@ -60,7 +60,7 @@ SUBROUTINE GRAV_PROC ! ( ii) If the load set requested in Case Control is not a set ID from a LOAD Bulk data card then the ! load must be on a separate GRAV card in which case LSID(1) and RSID(1) are all that is needed ! to define the load set contribution due to the GRAV card for this subcase. - + ! (iii) If the load set requested in Case Control is a set ID from a LOAD Bulk data card then the ramainder ! (K = 2,LLOADC) of entries into LSID and RSID will be the pairs of load set ID's/scale factors from ! that LOAD Bulk Data card (with RSID also multiplied by the overall scale factor on the LOAD Bulk data @@ -69,15 +69,15 @@ SUBROUTINE GRAV_PROC ! Note, there may not be as many as LLOADC pairs of set ID's/scale factors on a given LOAD Bulk Data ! card since LLOADC is the max, from all LOAD Bulk Data cards, of pairs. ! Thus, the entries in LSID from the last entry (for a given LOAD card) to LLOADC will be zero (LSID -! was initialized to zero). This fact is used in a DO loop to EXIT when LSID(K) = 0 +! was initialized to zero). This fact is used in a DO loop to EXIT when LSID(K) = 0 ! (b) For each record in SCRATCH-991 (1 to NGRAV) ! ( i) Read a record - + ! ( ii) Scan LSID and RSID to get the scale factor (SCALE) for the ACCEL_RB components in SETID, if this ! GRAV's set ID is in LSID. When found, reset grav vector components to ACCEL_RB = SCALE*ACCEL_RB. -! At this point ACCEL_RB has the correct magnitudes and is in basic coordinates. +! At this point ACCEL_RB has the correct magnitudes and is in basic coordinates. ! (iii) For a grid point, determine if a transformation of ACCEL_RB to global is needed and transform it if so. @@ -86,7 +86,7 @@ SUBROUTINE GRAV_PROC ! ( v) Get the 6 x 6 mass matrix for a grid point times ACCEL_I to get grav forces at this grid ! ( vi) Load the grav forces into the SYS_LOAD (systems load) array - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : FILE_NAM_MAXLEN, ERR, F06, SCR, L1P, LINK1P, L1P_MSG, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LLOADC, NCORD, NGRAV, NGRID, NLOAD, NSUB, WARN_ERR @@ -95,19 +95,19 @@ SUBROUTINE GRAV_PROC USE CONSTANTS_1, ONLY : ZERO, ONE USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : CORD, GRID, GRID_ID, LOAD_FACS, LOAD_SIDS, RCORD, RGRID, SYS_LOAD, SUBLOD - + USE GRAV_PROC_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GRAV_PROC' CHARACTER( 1*BYTE) :: FOUND ! Indicator on whether we found something we were looking for CHARACTER( 1*BYTE) :: GRID_MGG_FND ! Indicator on whether a mass matrix was found in MGG for a given grid CHARACTER( 8*BYTE) :: NAME ! Name for output error purposes - CHARACTER(24*BYTE) :: MESSAG ! File description. + CHARACTER(24*BYTE) :: MESSAG ! File description. CHARACTER(FILE_NAM_MAXLEN*BYTE) :: SCRFIL ! File name - + INTEGER(LONG) :: ACID = 0 ! A coord system ID (actual) INTEGER(LONG), PARAMETER :: ACID_0 = 0 ! Basic coord system INTEGER(LONG) :: ACID_L ! Actual local coord sys ID on FORCE or MOMENT card @@ -117,25 +117,25 @@ SUBROUTINE GRAV_PROC INTEGER(LONG) :: GID_ERR = 0 ! Count of grids undefined INTEGER(LONG) :: GDOF ! G-set DOF number for a grid INTEGER(LONG) :: GRAV_GRID_ROW_NUM ! Row number in array GRID_ID where an actual grid ID is found - INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept + INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept INTEGER(LONG) :: I,J,K,L ! DO loop indices INTEGER(LONG) :: ICID ! Internal coordinate system ID for ACID_L or ACID_G INTEGER(LONG) :: IERRT ! Total number of errors found INTEGER(LONG) :: IGRID ! Internal grid ID INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening a file INTEGER(LONG) :: SETID ! Load set ID read from record in file LINK1P - INTEGER(LONG) :: LSID(LLOADC+1) ! Array of load SID's, for GRAV cards, needed for one S/C + INTEGER(LONG) :: LSID(LLOADC+1) ! Array of load SID's, for GRAV cards, needed for one S/C INTEGER(LONG) :: NCOLA ! No. cols in a matrix. For subr MATMULT_FFF/MATMULT_FFF_T, called herein INTEGER(LONG) :: NCOLB ! No. cols in a matrix. For subr MATMULT_FFF/MATMULT_FFF_T, called herein INTEGER(LONG) :: NROWA ! No. rows in a matrix. For subr MATMULT_FFF/MATMULT_FFF_T, called herein - INTEGER(LONG) :: NSID ! Count on no. of pairs of entries on a LOAD B.D. card (<= LLOADC) - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. + INTEGER(LONG) :: NSID ! Count on no. of pairs of entries on a LOAD B.D. card (<= LLOADC) + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. INTEGER(LONG) :: READ_ERR = 0 ! Cum. count of errors as we read, and check cards from file LINK1K INTEGER(LONG) :: REC_NO ! Record number when reading a file - INTEGER(LONG) :: ROW_NUM ! Row no. in array TDOF corresponding to GDOF + INTEGER(LONG) :: ROW_NUM ! Row no. in array TDOF corresponding to GDOF INTEGER(LONG) :: ROW_NUM_START ! Row no. in array TDOF where data begins for a grid - + REAL(DOUBLE) :: ACCEL_I(6) ! 6 components of accel due to gravity at a grid REAL(DOUBLE) :: ACCEL_I_T1(3) ! 3 translational components of accel due to gravity at a grid REAL(DOUBLE) :: ACCEL_I_T2(3) ! 3 translational components of accel due to gravity at a grid @@ -167,12 +167,12 @@ SUBROUTINE GRAV_PROC NAME = 'GRAV ' ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! Open a scratch file that will be used to rewrite data from LINK1P after the coords have been transformed to global. - + SCRFIL(1:) = ' ' SCRFIL(1:9) = 'SCRATCH-991' OPEN (SCR(1),STATUS='SCRATCH',POSITION='REWIND',FORM='UNFORMATTED',ACTION='READWRITE',IOSTAT=IOCHK) @@ -182,11 +182,11 @@ SUBROUTINE GRAV_PROC CALL OUTA_HERE ( 'Y' ) ! Error opening scratch file, so quit ENDIF REWIND (SCR(1)) - + ! ********************************************************************************************************************************** -! (1) Read record from L1P and transform coords for GRAV from local sys (on GRAV bulk data card) to basic and write results to +! (1) Read record from L1P and transform coords for GRAV from local sys (on GRAV bulk data card) to basic and write results to ! SCRATCH-991. - + i_do1:DO I=1,NGRAV ! Read a record from L1P READ(L1P,IOSTAT=IOCHK) SETID, ACID_L, GRAV_GRID, (ACCEL_RB(J),J=1,6) @@ -195,9 +195,9 @@ SUBROUTINE GRAV_PROC REC_NO = I CALL READERR ( IOCHK, LINK1P, L1P_MSG, REC_NO, OUNT ) READ_ERR = READ_ERR + 1 ! Increment READ_ERR and go back to read another grav card - CYCLE i_do1 + CYCLE i_do1 ENDIF - + IF (GRAV_GRID > 0) THEN CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, GRAV_GRID, GRAV_GRID_ROW_NUM ) IF (GRAV_GRID_ROW_NUM == -1) THEN @@ -211,13 +211,13 @@ SUBROUTINE GRAV_PROC DO J=1,3 ACCEL_RB_T1(J) = ACCEL_RB(J) ACCEL_RB_R1(J) = ACCEL_RB(J+3) - ENDDO + ENDDO ! The local system that gravity is defined in is ACID_L. IF (ACID_L /= 0) THEN ! ACID_L is not basic, so find it and transform coords FOUND = 'N' j_do12: DO J=1,NCORD IF (CORD(J,2) == ACID_L) THEN - FOUND = 'Y' + FOUND = 'Y' ICID = J ! ICID is the internal coord ID corresponding to ACID_L EXIT j_do12 ENDIF @@ -234,10 +234,10 @@ SUBROUTINE GRAV_PROC DO K=1,3 L = 3 + 3*(J-1) + K T12(J,K) = RCORD(ICID,L) - ENDDO - ENDDO + ENDDO + ENDDO - NROWA = 3 ! Transform coordinates + NROWA = 3 ! Transform coordinates NCOLA = 3 NCOLB = 1 CALL MATMULT_FFF ( T12, ACCEL_RB_T1, NROWA, NCOLA, NCOLB, ACCEL_RB_T2 ) @@ -246,39 +246,39 @@ SUBROUTINE GRAV_PROC DO J=1,3 ACCEL_RB_T2(J) = ACCEL_RB_T1(J) ACCEL_RB_R2(J) = ACCEL_RB_R1(J) - ENDDO + ENDDO ENDIF - + DO J=1,3 ! Reset ACCEL_RB(I) to values in basic coords. ACCEL_RB(J) = ACCEL_RB_T2(J) ACCEL_RB(J+3) = ACCEL_RB_R2(J) - ENDDO + ENDDO ! Write data to scratch file. GRAV now in basic coords WRITE(SCR(1)) SETID,ACID_0,GRAV_GRID,(ACCEL_RB(J),J=1,6) - + ENDDO i_do1 - + ! Quit if CID_ERR, GID_ERR or READ_ERR > 0 - + IF ((CID_ERR > 0) .OR. (GID_ERR > 0) .OR. (READ_ERR > 0)) THEN IERRT = CID_ERR + GID_ERR + READ_ERR WRITE(ERR,1599) SUBR_NAME,IERRT WRITE(F06,1599) SUBR_NAME,IERRT CALL OUTA_HERE ( 'Y' ) ! Errors from reading grav data, so quit ENDIF - + REWIND (SCR(1)) - + ! ********************************************************************************************************************************** ! Now process grav loads into SYS_LOAD - + DO I=1,LLOADC ! Initialize LSID, RSID arrays LSID(I) = 0 RSID(I) = ZERO ENDDO MESSAG = 'SCRATCH FILE IN FORCEP ' - + WRITE(SC1, * ) IERRT = 0 i_do2:DO I = 1,NSUB ! Loop through the S/C's @@ -304,7 +304,7 @@ SUBROUTINE GRAV_PROC ENDDO k_do_211 ENDIF - ENDDO + ENDDO j_do_22: DO J = 1,NGRAV ! Process GRAV card info that is now in basic coords ! (2-b- i) Read a GRAV record (in basic coords) from scratch unit @@ -330,19 +330,19 @@ SUBROUTINE GRAV_PROC FOUND = 'Y' DO L=1,3 ACCEL_RB(L) = SCALE*ACCEL_RB(L) - ENDDO - EXIT k_do221 + ENDDO + EXIT k_do221 ENDIF - ENDDO k_do221 + ENDDO k_do221 IF (FOUND /= 'Y') THEN ! This GRAV set ID isn't called for in this S/C, so CYCLE on GRAV load CYCLE j_do_22 - ENDIF + ENDIF DO K=1,3 ACCEL_RB_T1(K) = ACCEL_RB(K) ACCEL_RB_R1(K) = ACCEL_RB(K+3) - ENDDO + ENDDO k_d0222: DO K = 1,NGRID WRITE(SC1,12345,ADVANCE='NO') K, NGRID, I, CR13 @@ -411,14 +411,14 @@ SUBROUTINE GRAV_PROC DO L=1,3 ACCEL_I(L) = ACCEL_I_T2(L) ! ACCEL_I (grid accel) is now in global coords if it was not before ACCEL_I(L+3) = ACCEL_I_R2(L) - ENDDO + ENDDO ENDIF ! Get internal ID for the grid for which we want 6x6 mass CALL GET_GRID_6X6_MASS ( GRID_ID(K), IGRID, GRID_MGG_FND, GRID_MGG ) DO L=1,6 FORCE_I(L) = ZERO - ENDDO + ENDDO IF (GRID_MGG_FND == 'Y') THEN NROWA = 6 @@ -434,20 +434,20 @@ SUBROUTINE GRAV_PROC CALL TDOF_COL_NUM ( 'G ', G_SET_COL_NUM ) ROW_NUM = ROW_NUM_START + L - 1 GDOF = TDOF(ROW_NUM,G_SET_COL_NUM) - SYS_LOAD(GDOF,I) = SYS_LOAD(GDOF,I) + FORCE_I(L) + SYS_LOAD(GDOF,I) = SYS_LOAD(GDOF,I) + FORCE_I(L) ENDDO l_do_2214 - + ENDDO k_d0222 - + ENDDO j_do_22 REWIND (SCR(1)) ! Need to read all of the GRAV records again for the next S/C - + ENDDO i_do2 - - WRITE(SC1,*) CR13 + + WRITE(SC1,*) CR13 CALL FILE_CLOSE ( SCR(1), SCRFIL, 'DELETE' ) - + RETURN @@ -467,5 +467,5 @@ SUBROUTINE GRAV_PROC ! ********************************************************************************************************************************** - + END SUBROUTINE GRAV_PROC diff --git a/Source/LK1/L1D/PRESSURE_DATA_PROC.f90 b/Source/LK1/L1D/PRESSURE_DATA_PROC.f90 index 1cb1a2e1..2a3c8080 100644 --- a/Source/LK1/L1D/PRESSURE_DATA_PROC.f90 +++ b/Source/LK1/L1D/PRESSURE_DATA_PROC.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE PRESSURE_DATA_PROC - + ! Processes element pressure data. The element overall pressure and/or element G.P. pressure data was written to file L1Q when the ! element pressure Bulk Data entries were read. In this subr, records are read from L1Q and the data processed into arrays PPNT and ! PDATA (arrays used in the element generation routines) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1Q USE IOUNT1, ONLY : WRT_ERR, LINK1Q @@ -41,11 +41,11 @@ SUBROUTINE PRESSURE_DATA_PROC USE PARAMS, ONLY : SUPWARN USE CONSTANTS_1, ONLY : ZERO, ONE USE MODEL_STUF, ONLY : LOAD_SIDS, LOAD_FACS, SUBLOD, PDATA, PPNT, PLOAD4_3D_DATA, PTYPE - + USE PRESSURE_DATA_PROC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'PRESSURE_DATA_PROC' CHARACTER(LEN=BD_ENTRY_LEN) :: CARD ! B.D elem pressure card image read from file LINK1Q CHARACTER(LEN=DATA_NAM_LEN) :: DATA_SET_NAME ! A data set name for output purposes @@ -57,9 +57,9 @@ SUBROUTINE PRESSURE_DATA_PROC CHARACTER( 8*BYTE) :: TOKEN ! The 1st 8 characters from a JCARD CHARACTER( 8*BYTE) :: TOKTYP ! Variable to test whether "THRU" option was used on B.D. PLOAD2 card CHARACTER( 8*BYTE) :: THRU ! ='Y' if THRU option used on TEMPRB, TEMPP1 continuation card - + INTEGER(LONG) :: EID ! Actual element ID - INTEGER(LONG) :: EID1,EID2 ! The 2 actual elem ID's in "EID1 THRU EID2" on elem press B.D. card + INTEGER(LONG) :: EID1,EID2 ! The 2 actual elem ID's in "EID1 THRU EID2" on elem press B.D. card INTEGER(LONG) :: EL_PRES_ERR ! Count of error messages when elements have redundant pressures INTEGER(LONG) :: EL_REDUNDANT_PRES ! Count of warning messages when elements have redundant pressures INTEGER(LONG) :: G1,G34 ! Grid numbers from a PLOAD4 entry for solid elements @@ -69,15 +69,15 @@ SUBROUTINE PRESSURE_DATA_PROC INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening a file INTEGER(LONG) :: IPLOAD4_3D ! Count of 3D elements that have PLOAD4 face pressure definition INTEGER(LONG) :: IPPNT ! Index in array PPNT (a pointer to where press data for EID starts) - INTEGER(LONG) :: LSID(LLOADC+1) ! Array of load SID's, from a LOAD Bulk Data card, for one S/C + INTEGER(LONG) :: LSID(LLOADC+1) ! Array of load SID's, from a LOAD Bulk Data card, for one S/C INTEGER(LONG) :: NFIELD ! No. fields on PLOAD1, PLOAD2 B.D. cards that have pressure data - INTEGER(LONG) :: NSID ! Count on no. of pairs of entries on a LOAD B.D. card (<= LLOADC) - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: NSID ! Count on no. of pairs of entries on a LOAD B.D. card (<= LLOADC) + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: REC_NO ! Record number when reading a file INTEGER(LONG) :: SETID ! Pressure load set ID read from an elem pressure B.D. card INTEGER(LONG) :: XTIME ! Time stamp read from an unformatted file - + REAL(DOUBLE) :: SCALE ! Scale factor from a LOAD Bulk Data card REAL(DOUBLE) :: RPDAT ! Real pressure value read from file LINK1Q REAL(DOUBLE) :: RPDAT1 ! Real pressure value read from file LINK1Q @@ -100,7 +100,7 @@ SUBROUTINE PRESSURE_DATA_PROC ENDDO isubc:DO I=1,NSUB ! Loop through the S/C's - + NPDAT = 0 ! 09/21/21: Init NPDAT before each S/C. Otherwise can get error 1523 IF (SUBLOD(I,1) == 0) THEN ! If no load for this S/C, CYCLE @@ -114,15 +114,15 @@ SUBROUTINE PRESSURE_DATA_PROC IF (SUBLOD(I,1) == LOAD_SIDS(J,1)) THEN k_do1: DO K = 2,LLOADC IF (LOAD_SIDS(J,K) == 0) THEN - EXIT k_do1 + EXIT k_do1 ELSE NSID = K ! Note: NSID will not get larger than LLOADC RSID(K) = LOAD_FACS(J,1)*LOAD_FACS(J,K) LSID(K) = LOAD_SIDS(J,K) ENDIF - ENDDO k_do1 + ENDDO k_do1 ENDIF - ENDDO j_do1 + ENDDO j_do1 pcards: DO J=1,NPCARD ! Process elem pressure card info ! (2-b- i) Read a record from scratch - forces are in global coords @@ -134,7 +134,7 @@ SUBROUTINE PRESSURE_DATA_PROC CYCLE isubc ENDIF CALL MKJCARD ( SUBR_NAME, CARD, JCARD ) ! Make 10 fields of 8 chars from CARD - + NAME = CARD(1:8) ! Set NFIELD based on parent CARD type IF ((NAME(1:7) == 'PLOAD1 ') .OR. (NAME(1:7) == 'PLOAD1*')) THEN NFIELD = MPDAT_PLOAD1 @@ -142,25 +142,25 @@ SUBROUTINE PRESSURE_DATA_PROC NFIELD = MPDAT_PLOAD2 ELSE IF ((NAME(1:7) == 'PLOAD4 ') .OR. (NAME(1:7) == 'PLOAD4*')) THEN NFIELD = MPDAT_PLOAD4 - ELSE + ELSE CYCLE pcards ! Ignore record if not for PLOAD1 or PLOAD2 ENDIF - + IPPNT = NPDAT + 1 ! Set index for pointer array, PPNT - + READ(JCARD(2),'(I8)') SETID ! Get pressure load SID - + FOUND = 'N' ! (2-b- ii). Scan through LSID to find set that matches SETID read. k_do2: DO K = 1,NSID ! There is a match; we made sure all requested loads were in B.D. deck IF (SETID == LSID(K)) THEN ! We start with K = 1 to cover the case of no LOAD B.D cards SCALE = RSID(K) FOUND = 'Y' - EXIT k_do2 + EXIT k_do2 ENDIF - ENDDO k_do2 + ENDDO k_do2 - IF (FOUND == 'N') THEN ! Cycle back on J loop and read another elem pressure card - CYCLE pcards + IF (FOUND == 'N') THEN ! Cycle back on J loop and read another elem pressure card + CYCLE pcards ENDIF ! Put pressure data into PDATA @@ -170,7 +170,7 @@ SUBROUTINE PRESSURE_DATA_PROC FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (dim of array PDATA too small), so quit ENDIF - + ! Set the field number where we expect to find the 1st pressure value IF ((NAME(1:7) == 'PLOAD1 ') .OR. (NAME(1:7) == 'PLOAD1*')) THEN Write(err,'(a,a)') ' *ERROR : Code not written for PLOAD1 processing in subr ', subr_name @@ -180,7 +180,7 @@ SUBROUTINE PRESSURE_DATA_PROC ELSE IF ((NAME(1:7) == 'PLOAD2 ') .OR. (NAME(1:7) == 'PLOAD2*')) THEN NPDAT = NPDAT + 1 READ(JCARD(3),'(F16.0)') RPDAT - PDATA(NPDAT) = SCALE*RPDAT + PDATA(NPDAT) = SCALE*RPDAT ELSE IF ((NAME(1:7) == 'PLOAD4 ') .OR. (NAME(1:7) == 'PLOAD4*')) THEN NPDAT = NPDAT + 1 READ(JCARD(K+3),'(F16.0)') RPDAT1 @@ -198,19 +198,19 @@ SUBROUTINE PRESSURE_DATA_PROC ! Process EID's. First check for the 2 options on specifying elem data. For PLOAD2, either all data are EID's or THRU option is used ! For PLOAD4, either "THRU" is used or there is only 1 EID - + IF (NAME(1:6) == 'PLOAD2') THEN TOKEN = JCARD(5)(1:8) ! Only send the 1st 8 chars of this JCARD. It has been left justified ELSE IF (NAME(1:6) == 'PLOAD4') THEN TOKEN = JCARD(8)(1:8) - ENDIF + ENDIF CALL TOKCHK ( TOKEN, TOKTYP ) THRU = 'N' IF (TOKTYP == 'THRU ') THEN THRU = 'Y' - ENDIF - + ENDIF + IF (NAME(1:6) == 'PLOAD2') THEN IF (THRU == 'N') THEN @@ -218,12 +218,12 @@ SUBROUTINE PRESSURE_DATA_PROC k_do4: DO K=4,9 IF (JCARD(K) == ' ') THEN ! See if there is any data in other JCARD fields CYCLE k_do4 - ELSE + ELSE READ(JCARD(K),'(I8)') EID CALL EPPUT ( SETID, EID, I, IPPNT, NAME, EFLAG, IELEM, EL_REDUNDANT_PRES, EL_PRES_ERR ) ENDIF ENDDO k_do4 - ELSE + ELSE READ(JCARD(4),'(I8)') EID1 READ(JCARD(6),'(I8)') EID2 EFLAG = 'N' @@ -231,7 +231,7 @@ SUBROUTINE PRESSURE_DATA_PROC CALL EPPUT ( SETID, K, I, IPPNT, NAME, EFLAG, IELEM, EL_REDUNDANT_PRES, EL_PRES_ERR ) ENDDO k_do5 ENDIF - + ELSE IF (NAME(1:6) == 'PLOAD4') THEN IF (THRU == 'N') THEN @@ -262,8 +262,8 @@ SUBROUTINE PRESSURE_DATA_PROC ENDIF - ENDDO pcards - + ENDDO pcards + IF (EL_REDUNDANT_PRES > 0) THEN WARN_ERR = WARN_ERR + 1 WRITE(ERR,9999) @@ -271,7 +271,7 @@ SUBROUTINE PRESSURE_DATA_PROC WRITE(F06,9999) ENDIF ENDIF - + REWIND (L1Q) ! Need to read all of the elem pressure records again for the next S/C READ(L1Q,IOSTAT=IOCHK) XTIME IF (IOCHK /= 0) THEN @@ -279,26 +279,26 @@ SUBROUTINE PRESSURE_DATA_PROC CALL READERR ( IOCHK, LINK1Q, L1Q_MSG, REC_NO, OUNT ) CALL OUTA_HERE ( 'Y' ) ! Cannot read STIME from temperature data file, so quit ENDIF - + ENDDO isubc - + IF ((IERROR /= 0) .OR. (EL_PRES_ERR > 0)) THEN WRITE(ERR,9998) IERROR+EL_PRES_ERR WRITE(F06,9998) IERROR+EL_PRES_ERR CALL OUTA_HERE ( 'Y' ) ! Quit due to errors reading elem press file ENDIF - + ! ********************************************************************************************************************************** ! Now finally write processed pressure data to L1Q (destroying the PLOAD card data on the records) - + ! First close and delete L1Q file - + CALL FILE_CLOSE ( L1Q, LINK1Q, 'DELETE' ) - + ! Open L1Q for write: - + CALL FILE_OPEN ( L1Q, LINK1Q, OUNT, 'REPLACE', L1Q_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) - + DATA_SET_NAME = 'PPNT' WRITE(L1Q) DATA_SET_NAME WRITE(L1Q) NELE @@ -308,28 +308,28 @@ SUBROUTINE PRESSURE_DATA_PROC WRITE(L1Q) PPNT(I,J) ENDDO ENDDO - + DATA_SET_NAME = 'PDATA' WRITE(L1Q) DATA_SET_NAME WRITE(L1Q) NPDAT DO I=1,NPDAT WRITE(L1Q) PDATA(I) ENDDO - + DATA_SET_NAME = 'PTYPE' WRITE(L1Q) DATA_SET_NAME WRITE(L1Q) NELE DO I=1,NELE WRITE(L1Q) PTYPE(I) ENDDO - + DATA_SET_NAME = 'PLOAD4_3D_DATA' WRITE(L1Q) DATA_SET_NAME WRITE(L1Q) NPLOAD4_3D DO I=1,NPLOAD4_3D WRITE(L1Q) (PLOAD4_3D_DATA(I,J),J=1,MPLOAD4_3D_DATA) ENDDO - + RETURN @@ -347,12 +347,12 @@ SUBROUTINE PRESSURE_DATA_PROC ,/,14X,' TOO MUCH ELEMENT PRESSURE DATA. MAX IS LPDAT = ',I8) ! ################################################################################################################################## - + CONTAINS - + ! Change log (changes following completion of Version 1.02 on 05/01/03) -! 08/13/04: (1) Add EL_PRES_ERR to arg list (like EL_REDUNDANT_PRES it gives actual error count as opposed to warning count). +! 08/13/04: (1) Add EL_PRES_ERR to arg list (like EL_REDUNDANT_PRES it gives actual error count as opposed to warning count). ! Then remove CALL OUTA_HERE and replace with updating EL_PRES_ERR and RETURN ! (2) Change EL_REDUNDANT_PRES to INOUT arg (was only OUT so total amount of warn errors was not correct) ! (3) Change arg CARD to SETID and change *ERROR 1320 @@ -360,21 +360,21 @@ SUBROUTINE PRESSURE_DATA_PROC ! ################################################################################################################################## SUBROUTINE EPPUT ( SETID, EID, JSUB, IPPNT, NAME, EFLAG, IELEM, EL_REDUNDANT_PRES, EL_PRES_ERR ) - + ! Element pressure routine - generates the PPNT(i,J) array and PTYPE(i) array - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NELE, NSUB, WARN_ERR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ESORT1, ETYPE, SUBLOD, PPNT, PTYPE - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'EPPUT' CHARACTER(LEN=*), INTENT(IN) :: EFLAG ! Flag to decide whether a situation in subr EPPUT is an error or not CHARACTER(LEN=*), INTENT(IN) :: NAME ! 'PLOAD1', 'PLOAD2' or 'PLOAD4' - + INTEGER(LONG), INTENT(IN) :: EID ! Actual elem ID INTEGER(LONG), INTENT(IN) :: IPPNT ! Index in array PPNT (a pointer to where press data for EID starts) INTEGER(LONG), INTENT(IN) :: JSUB ! Internal subcase number @@ -392,11 +392,11 @@ SUBROUTINE EPPUT ( SETID, EID, JSUB, IPPNT, NAME, EFLAG, IELEM, EL_REDUNDANT_PRE IELEM = 0 ! First convert EID to interal value - + CALL GET_ARRAY_ROW_NUM ( 'ESORT1', SUBR_NAME, NELE, ESORT1, EID, IELEM ) -! If EID not found then: error if EFLAG = Y, or return if EFLAG /= Y - +! If EID not found then: error if EFLAG = Y, or return if EFLAG /= Y + IF (IELEM == -1) THEN IF (EFLAG == 'Y') THEN WRITE(ERR,1520) EID, SETID @@ -406,17 +406,17 @@ SUBROUTINE EPPUT ( SETID, EID, JSUB, IPPNT, NAME, EFLAG, IELEM, EL_REDUNDANT_PRE ENDIF RETURN ENDIF - + ! No error, so put pointer into PPNT(i,j) and give warning if the elem has had a pressure defined previously - + IF (PPNT(IELEM,JSUB) /= 0) THEN EL_REDUNDANT_PRES = EL_REDUNDANT_PRES + 1 WARN_ERR = WARN_ERR + 1 WRITE(ERR,1521) JSUB,ESORT1(IELEM) - IF (SUPWARN == 'N') THEN + IF (SUPWARN == 'N') THEN WRITE(F06,1521) JSUB,ESORT1(IELEM) - ENDIF - ENDIF + ENDIF + ENDIF PPNT(IELEM,JSUB) = IPPNT @@ -427,13 +427,13 @@ SUBROUTINE EPPUT ( SETID, EID, JSUB, IPPNT, NAME, EFLAG, IELEM, EL_REDUNDANT_PRE ELSE IF (NAME(1:6) == 'PLOAD2') THEN PTYPE(IELEM) = '1' ELSE IF (NAME(1:6) == 'PLOAD4') THEN - IF ((ETYPE(IELEM)(1:4) == 'TRIA') .OR. (ETYPE(IELEM)(1:5) == 'TETRA') .OR. (ETYPE(IELEM)(1:5) == 'PENTA')) THEN + IF ((ETYPE(IELEM)(1:4) == 'TRIA') .OR. (ETYPE(IELEM)(1:5) == 'TETRA') .OR. (ETYPE(IELEM)(1:5) == 'PENTA')) THEN PTYPE(IELEM) = '3' ELSE IF ((ETYPE(IELEM)(1:4) == 'QUAD') .OR. (ETYPE(IELEM)(1:4) == 'HEXA')) THEN PTYPE(IELEM) = '4' ENDIF ENDIF - + RETURN @@ -447,7 +447,7 @@ SUBROUTINE EPPUT ( SETID, EID, JSUB, IPPNT, NAME, EFLAG, IELEM, EL_REDUNDANT_PRE 1522 FORMAT(/,' PROCESSING TERMINATED DUE TO ABOVE PRESSURE DATA ERRORS') ! ********************************************************************************************************************************** - + END SUBROUTINE EPPUT - + END SUBROUTINE PRESSURE_DATA_PROC diff --git a/Source/LK1/L1D/RBE2_PROC.f90 b/Source/LK1/L1D/RBE2_PROC.f90 index 3c2a4a89..6bca2da7 100644 --- a/Source/LK1/L1D/RBE2_PROC.f90 +++ b/Source/LK1/L1D/RBE2_PROC.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) ! Processes a single RBE2 rigid element, per call, to get terms for the RMG constraint matrix. When the Bulk data was read, the ! RBE2 input data was written to file LINK1F. In this subr, file LINK1F is read and RBE2 terms for array RMG are calculated and ! written to file LINK1J. Later, in subr SPARSE_RMG, LINK1J will be read to create the sparse array RMG (of all rigid element and -! MPC coefficients) which will be used in LINK2 to reduce the G-set mass, stiffness and load matrices to the N-set. - +! MPC coefficients) which will be used in LINK2 to reduce the G-set mass, stiffness and load matrices to the N-set. + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1F, LINK1F, L1F_MSG, L1J USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NCORD, NGRID @@ -39,11 +39,11 @@ SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : GRID, RGRID, GRID_ID, CORD USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE RBE2_PROC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'RBE2_PROC' CHARACTER( 8*BYTE), INTENT(IN) :: RTYPE ! The type of rigid element being processed (RBE2) CHARACTER( 1*BYTE) :: CDOF(6) ! An output from subr RDOF (= 1 if a digit 1-6 is in DDOF) @@ -68,14 +68,14 @@ SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) INTEGER(LONG) :: M_SET_COL_NUM ! Col no., in TDOF array, of the M-set DOF list INTEGER(LONG) :: NUM_COMPS_D ! 6 if AGRID_D is a physical grid, 1 if a scalar point INTEGER(LONG) :: NUM_COMPS_I ! 6 if AGRID_I is a physical grid, 1 if a scalar point - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: REID ! RBE2 elem ID read from file LINK1F INTEGER(LONG) :: RMG_COL_NUM ! Col no. of a term in array RMG INTEGER(LONG) :: RMG_ROW_NUM ! Row no. of a term in array RMG INTEGER(LONG) :: ROW_NUM ! A row number in array TDOF INTEGER(LONG) :: ROW_NUM_START ! DOF number where TDOF data begins for a grid - + REAL(DOUBLE) :: DELTA_0(3,3) ! 3 x 3 matrix of diffs in coords bet dep & indep grids in basic coords REAL(DOUBLE) :: DUM1(3,3) ! Intermediate result in obtaining RDI_GLOBAL REAL(DOUBLE) :: DUM2(3,3) ! Intermediate result in obtaining RDI_GLOBAL @@ -84,18 +84,18 @@ SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) REAL(DOUBLE) :: RDI_GLOBAL(6,6) ! RDI matrix (see explanation below) REAL(DOUBLE) :: T0G_D(3,3) ! Transforms a dep DOF vector in basic coords to global coords REAL(DOUBLE) :: T0G_I(3,3) ! Transforms a indep DOF vector in basic coords to global coords - + ! ********************************************************************************************************************************** ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - JERR = 0 + JERR = 0 - READ(L1F,IOSTAT=IOCHK) REID, AGRID_D, DDOF, AGRID_I + READ(L1F,IOSTAT=IOCHK) REID, AGRID_D, DDOF, AGRID_I CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, AGRID_D, GRID_ID_ROW_NUM_D ) CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, AGRID_I, GRID_ID_ROW_NUM_I ) @@ -127,7 +127,7 @@ SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) IF (JERR /= 0) THEN FATAL_ERR = FATAL_ERR + 1 RETURN - ENDIF + ENDIF ! We know that the indep and dep grids (AGRID_I and AGRID_D) exist. This was checked in subr DOF_PROC. ! Get the basic-to-global trensformation matrices for AGRID_D and AGRID_I @@ -139,17 +139,17 @@ SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) ICORD_D = I EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( GRID_ID_ROW_NUM_D, ICORD_D, THETAD, PHID, T0G_D ) ELSE DO I=1,3 DO J=1,3 T0G_D(I,J) = ZERO - ENDDO + ENDDO T0G_D(I,I) = ONE - ENDDO + ENDDO ENDIF - + ECORD_I = GRID(GRID_ID_ROW_NUM_I,3) IF (ECORD_I /= 0) THEN DO I=1,NCORD @@ -157,17 +157,17 @@ SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) ICORD_I = I EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( GRID_ID_ROW_NUM_I, ICORD_I, THETAD, PHID, T0G_I ) ELSE DO I=1,3 DO J=1,3 T0G_I(I,J) = ZERO - ENDDO + ENDDO T0G_I(I,I) = ONE - ENDDO + ENDDO ENDIF - + ! Generate DELTA_0 DO I=1,3 @@ -176,16 +176,16 @@ SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) ENDDO ENDDO DELTA_0(1,2) = (RGRID(GRID_ID_ROW_NUM_D,3) - RGRID(GRID_ID_ROW_NUM_I,3)) - DELTA_0(1,3) = -(RGRID(GRID_ID_ROW_NUM_D,2) - RGRID(GRID_ID_ROW_NUM_I,2)) + DELTA_0(1,3) = -(RGRID(GRID_ID_ROW_NUM_D,2) - RGRID(GRID_ID_ROW_NUM_I,2)) DELTA_0(2,1) = -DELTA_0(1,2) - DELTA_0(2,3) = (RGRID(GRID_ID_ROW_NUM_D,1) - RGRID(GRID_ID_ROW_NUM_I,1)) + DELTA_0(2,3) = (RGRID(GRID_ID_ROW_NUM_D,1) - RGRID(GRID_ID_ROW_NUM_I,1)) DELTA_0(3,1) = -DELTA_0(1,3) DELTA_0(3,2) = -DELTA_0(2,3) ! The global constraint equations are -! | UN | +! | UN | ! RMG x UG = [RMN | RMM]| | = 0 -! | UM | +! | UM | ! where UM are all of the dependent DOF's and UN are all indep. DOF's @@ -193,9 +193,9 @@ SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) ! | UD | ! RMG x UG = [ I | RDI]| | = 0 -! | UI | +! | UI | -! where UD are all dependent (or M-set) DOF's, but UI may contain M-set, as well as N-set, DOF's. +! where UD are all dependent (or M-set) DOF's, but UI may contain M-set, as well as N-set, DOF's. ! Generate the 6 x 6 matrix of RDI coeffs for this rigid elem. The 6 x 6 consists of three nonzero 3 x 3 matrices: ! 1) The upper left 3 x 3 partition is (T0G_D)(transpose) x (T0G_I) @@ -206,9 +206,9 @@ SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) ! Multiply (T0G_D)(trans) x (T0G_I) to get DUM1 (upper left and lower right 3 x 3 partitions of the 6 x 6 RDI matrix ! of coeffs for this rigid elem) - CALL MATMULT_FFF_T ( T0G_D, T0G_I, 3, 3, 3, DUM1 ) + CALL MATMULT_FFF_T ( T0G_D, T0G_I, 3, 3, 3, DUM1 ) -! Now get DUM3 (upper right 3 x 3 partition of the 6 x 6 RDI matrix of coefficients for this rigid element) +! Now get DUM3 (upper right 3 x 3 partition of the 6 x 6 RDI matrix of coefficients for this rigid element) CALL MATMULT_FFF ( DELTA_0, T0G_I, 3, 3, 3, DUM2 ) ! Multiply DELTA_0 x (T0G_I) CALL MATMULT_FFF_T ( T0G_D , DUM2 , 3, 3, 3, DUM3 ) ! Multiply (T0G_D)(transpose) x DUM2 @@ -293,7 +293,7 @@ SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) RETURN ENDIF -! If DEBUG(14) = 1, print results +! If DEBUG(14) = 1, print results IF (DEBUG(14) == 1) THEN WRITE(F06,3001) RTYPE,REID,AGRID_D,ECORD_D,AGRID_I,ECORD_I @@ -308,7 +308,7 @@ SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) WRITE(F06,3005) (RDI_GLOBAL(I,J),J=1,6) ENDDO WRITE(F06,*) - ENDIF + ENDIF @@ -343,6 +343,6 @@ SUBROUTINE RBE2_PROC ( RTYPE, REC_NO, IERR ) 1ES15.6) ! ********************************************************************************************************************************** - + END SUBROUTINE RBE2_PROC diff --git a/Source/LK1/L1D/RFORCE_PROC.f90 b/Source/LK1/L1D/RFORCE_PROC.f90 index 983564ad..3b23b30a 100644 --- a/Source/LK1/L1D/RFORCE_PROC.f90 +++ b/Source/LK1/L1D/RFORCE_PROC.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE RFORCE_PROC - + ! RFORCE load processor. Forces on grids for an RFORCE are: ! Fi = Mi*[W x (W x (Ri - Ra)) + A x (Ri - Ra)] @@ -37,7 +37,7 @@ SUBROUTINE RFORCE_PROC ! Ri = radius from basic coord system origin to grid i (variable RI) ! Ra = radius from basic coord system origin to the reference point for angular velocity/accel (variable RA) ! A = angular acceleration (variable ANG_ACC) - + ! The input B.D. RFORCE load data is transferred to system force data in the SYS_LOAD array for DOF's in the G set. ! File LINK1U was written when RFORCE B.D entries were read, with one record for each such card. @@ -53,8 +53,8 @@ SUBROUTINE RFORCE_PROC ! The process in creating array SYS_LOAD from this information is as follows: ! (1) For each record (1 to NRFORCE) in file LINK1U: - -! (a) Read a record + +! (a) Read a record ! (b) Transform coords from local (on RFORCE card) to basic. Transformation to global is done later (see 2a(iii)) @@ -73,7 +73,7 @@ SUBROUTINE RFORCE_PROC ! ( ii) If the load set requested in Case Control is not a set ID from a LOAD Bulk data card then the ! load must be on a separate RFORCE card in which case LSID(1) and RSID(1) are all that is needed ! to define the load set contribution due to the RFORCE card for this subcase. - + ! (iii) If the load set requested in Case Control is a set ID from a LOAD Bulk data card then the ramainder ! (K = 2,LLOADC) of entries into LSID and RSID will be the pairs of load set ID's/scale factors from ! that LOAD Bulk Data card (with RSID also multiplied by the overall scale factor on the LOAD Bulk data @@ -82,15 +82,15 @@ SUBROUTINE RFORCE_PROC ! Note, there may not be as many as LLOADC pairs of set ID's/scale factors on a given LOAD Bulk Data ! card since LLOADC is the max, from all LOAD Bulk Data cards, of pairs. ! Thus, the entries in LSID from the last entry (for a given LOAD card) to LLOADC will be zero (LSID -! was initialized to zero). This fact is used in a DO loop to EXIT when LSID(K) = 0 +! was initialized to zero). This fact is used in a DO loop to EXIT when LSID(K) = 0 ! (b) For each record in SCRATCH-991 (1 to NRFORCE) ! ( i) Read a record - + ! ( ii) Scan LSID and RSID to get the scale factor (SCALE) for the ACCEL_RB components in SETID, if this ! RFORCE's set ID is in LSID. When found, reset RFORCE vector components to ACCEL_RB = SCALE*ACCEL_RB. -! At this point ACCEL_RB has the correct magnitudes and is in basic coordinates. +! At this point ACCEL_RB has the correct magnitudes and is in basic coordinates. ! (iii) For a grid point, determine if a transformation of ACCEL_RB to global is needed and transform it if so. @@ -99,7 +99,7 @@ SUBROUTINE RFORCE_PROC ! ( v) Get the 6 x 6 mass matrix for a grid point times ACCEL_I to get RFORCE forces at this grid ! ( vi) Load the RFORCE forces into the SYS_LOAD (systems load) array - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, FILE_NAM_MAXLEN, L1U, LINK1U, L1U_MSG, SC1, SCR, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LLOADC, NCORD, NRFORCE, NGRID, NLOAD, NSUB, WARN_ERR @@ -108,19 +108,19 @@ SUBROUTINE RFORCE_PROC USE PARAMS, ONLY : SUPWARN USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : CORD, GRID, GRID_ID, LOAD_FACS, LOAD_SIDS, RCORD, RGRID, SYS_LOAD, SUBLOD - + USE RFORCE_PROC_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'RFORCE_PROC' CHARACTER( 1*BYTE) :: FOUND ! Indicator on whether we found something we were looking for CHARACTER( 1*BYTE) :: GRID_MGG_FND ! Indicator on whether a mass matrix was found in MGG for a given grid CHARACTER( 8*BYTE) :: NAME ! Name for output error purposes - CHARACTER(24*BYTE) :: MESSAG ! File description. + CHARACTER(24*BYTE) :: MESSAG ! File description. CHARACTER(FILE_NAM_MAXLEN*BYTE) :: SCRFIL ! File name - + INTEGER(LONG) :: ACID = 0 ! A coord system ID (actual) INTEGER(LONG), PARAMETER :: ACID_0 = 0 ! Basic coord system INTEGER(LONG) :: ACID_L ! Actual local coord sys ID on FORCE or MOMENT card @@ -128,27 +128,27 @@ SUBROUTINE RFORCE_PROC INTEGER(LONG) :: CID_ERR = 0 ! Count of coord systems undefined INTEGER(LONG) :: GID_ERR = 0 ! Count of grids undefined INTEGER(LONG) :: GDOF ! G-set DOF number for a grid - INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept + INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept INTEGER(LONG) :: I,J,K,L,m ! DO loop indices INTEGER(LONG) :: ICID ! Internal coordinate system ID for ACID_L or ACID_G INTEGER(LONG) :: IERRT ! Total number of errors found INTEGER(LONG) :: IGRID ! Internal grid ID INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening a file - INTEGER(LONG) :: LSID(LLOADC+1) ! Array of load SID's, for RFORCE cards, needed for one S/C + INTEGER(LONG) :: LSID(LLOADC+1) ! Array of load SID's, for RFORCE cards, needed for one S/C INTEGER(LONG) :: NCOLA ! No. cols in a matrix. For subr MATMULT_FFF/MATMULT_FFF_T, called herein INTEGER(LONG) :: NCOLB ! No. cols in a matrix. For subr MATMULT_FFF/MATMULT_FFF_T, called herein INTEGER(LONG) :: NROWA ! No. rows in a matrix. For subr MATMULT_FFF/MATMULT_FFF_T, called herein - INTEGER(LONG) :: NSID ! Count on no. of pairs of entries on a LOAD B.D. card (<= LLOADC) - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. + INTEGER(LONG) :: NSID ! Count on no. of pairs of entries on a LOAD B.D. card (<= LLOADC) + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. INTEGER(LONG) :: READ_ERR = 0 ! Cum. count of errors as we read, and check cards from file LINK1K INTEGER(LONG) :: REC_NO ! Record number when reading a file INTEGER(LONG) :: RFORCE_GRD ! ID of grid that rotational RFOECE vel/accels are about INTEGER(LONG) :: RFORCE_GRD_ROW_NUM! Row number in array GRID_ID where an actual grid ID is found - INTEGER(LONG) :: ROW_NUM ! Row no. in array TDOF corresponding to GDOF + INTEGER(LONG) :: ROW_NUM ! Row no. in array TDOF corresponding to GDOF INTEGER(LONG) :: ROW_NUM_START ! DOF number where TDOF data begins for a grid INTEGER(LONG) :: SETID ! Load set ID read from record in file LINK1U - + REAL(DOUBLE) :: ACCEL_I(6) ! 6 components of accel due to gravity at a grid REAL(DOUBLE) :: ACCEL_I_T1(3) ! 3 transl components of accel due to RFORCE at a grid in basic coords REAL(DOUBLE) :: ACCEL_I_T2(3) ! 3 transl components of accel due to RFORCE at a grid in global coords @@ -164,7 +164,7 @@ SUBROUTINE RFORCE_PROC REAL(DOUBLE) :: RA(3) ! Vector components, in basic coords, of GID REAL(DOUBLE) :: RI(3) ! Vector components, in basic coords, of grid i REAL(DOUBLE) :: SCALE ! Scale factor for a load (on a LOAD Bulk Data entry) - REAL(DOUBLE) :: SCALEF_AA ! Magnitude of the RFORCE angular acceleration + REAL(DOUBLE) :: SCALEF_AA ! Magnitude of the RFORCE angular acceleration REAL(DOUBLE) :: SCALEF_AV ! Magnitude of the RFORCE angular velocity REAL(DOUBLE) :: T12(3,3) ! Coord transformation matrix REAL(DOUBLE) :: VEC(3) ! 3 components of RFORCE vector at RFORCE_GRD in any coords @@ -179,12 +179,12 @@ SUBROUTINE RFORCE_PROC NAME = 'RFORCE ' ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! Open a scratch file that will be used to rewrite data from LINK1U after the coords have been transformed to global. - + SCRFIL(1:) = ' ' SCRFIL(1:9) = 'SCRATCH-991' OPEN (SCR(1),STATUS='SCRATCH',POSITION='REWIND',FORM='UNFORMATTED',ACTION='READWRITE',IOSTAT=IOCHK) @@ -194,11 +194,11 @@ SUBROUTINE RFORCE_PROC CALL OUTA_HERE ( 'Y' ) ! Error opening scratch file, so quit ENDIF REWIND (SCR(1)) - + ! ********************************************************************************************************************************** ! (1) Read record from L1U and transform coords for RFORCE VEC from local sys (on RFORCE bulk data card) to basic and write results ! to SCRATCH-991. - + i_do1:DO I=1,NRFORCE ! Read a record from L1U READ(L1U,IOSTAT=IOCHK) SETID, ACID_L, RFORCE_GRD, SCALEF_AV, SCALEF_AA, (VEC(J),J=1,3) @@ -206,9 +206,9 @@ SUBROUTINE RFORCE_PROC REC_NO = I CALL READERR ( IOCHK, LINK1U, L1U_MSG, REC_NO, OUNT ) READ_ERR = READ_ERR + 1 ! Increment READ_ERR and go back to read another RFORCE card - CYCLE i_do1 + CYCLE i_do1 ENDIF - + DO J=1,3 RA(J) = ZERO ENDDO @@ -228,12 +228,12 @@ SUBROUTINE RFORCE_PROC ! The local system that RFORCE is defined in is ACID_L. DO J=1,3 VEC_LOCAL(J) = VEC(J) - ENDDO + ENDDO IF (ACID_L /= 0) THEN ! ACID_L is not basic, so find it and transform coords FOUND = 'N' j_do12: DO J=1,NCORD IF (CORD(J,2) == ACID_L) THEN - FOUND = 'Y' + FOUND = 'Y' ICID = J ! ICID is the internal coord ID corresponding to ACID_L EXIT j_do12 ENDIF @@ -250,48 +250,48 @@ SUBROUTINE RFORCE_PROC DO K=1,3 L = 3 + 3*(J-1) + K T12(J,K) = RCORD(ICID,L) - ENDDO - ENDDO + ENDDO + ENDDO - NROWA = 3 ! Transform coordinates + NROWA = 3 ! Transform coordinates NCOLA = 3 NCOLB = 1 CALL MATMULT_FFF ( T12, VEC_LOCAL, NROWA, NCOLA, NCOLB, VEC_BASIC ) ELSE ! No transformation needed since ACID_L is basic DO J=1,3 VEC_BASIC(J) = VEC_LOCAL(J) - ENDDO + ENDDO ENDIF - + DO J=1,3 ! Reset VEC(I) to values in basic coords. VEC(J) = VEC_BASIC(J) - ENDDO + ENDDO ! Write data to scratch file. RFORCE vec now in basic coords WRITE(SCR(1)) SETID, ACID_0, RFORCE_GRD, SCALEF_AV, SCALEF_AA, (VEC(J),J=1,3) - + ENDDO i_do1 - + ! Quit if CID_ERR, GID_ERR or READ_ERR > 0 - + IF ((CID_ERR > 0) .OR. (GID_ERR > 0) .OR. (READ_ERR > 0)) THEN IERRT = CID_ERR + GID_ERR + READ_ERR WRITE(ERR,1599) SUBR_NAME,IERRT WRITE(F06,1599) SUBR_NAME,IERRT CALL OUTA_HERE ( 'Y' ) ! Errors from reading RFORCE data, so quit ENDIF - + REWIND (SCR(1)) - + ! ********************************************************************************************************************************** ! Now process RFORCE loads into SYS_LOAD - + DO I=1,LLOADC ! Initialize LSID, RSID arrays LSID(I) = 0 RSID(I) = ZERO ENDDO MESSAG = 'SCRATCH FILE IN FORCEP ' - + WRITE(SC1, * ) IERRT = 0 i_do2:DO I = 1,NSUB ! Loop through the S/C's @@ -317,7 +317,7 @@ SUBROUTINE RFORCE_PROC ENDDO k_do_211 ENDIF - ENDDO + ENDDO j_do_22: DO J = 1,NRFORCE ! Process RFORCE card info that is now in basic coords ! (2-b- i) Read a RFORCE record (in basic coords) from scratch unit @@ -345,14 +345,14 @@ SUBROUTINE RFORCE_PROC DO L=1,3 ANG_ACC(L) = SCALE*SCALEF_AA*VEC(L) ! Ang accel and vel of model due to RFORCE angular vel, accel entries ANG_VEL(L) = SCALE*SCALEF_AV*VEC(L) - ENDDO - EXIT k_do221 + ENDDO + EXIT k_do221 ENDIF - ENDDO k_do221 + ENDDO k_do221 IF (FOUND /= 'Y') THEN ! This RFORCE set ID isn't called for in this S/C, so CYCLE on RFORCE's CYCLE j_do_22 - ENDIF + ENDIF DO K = 1,NGRID WRITE(SC1,12345,ADVANCE='NO') K, NGRID, I, CR13 @@ -365,7 +365,7 @@ SUBROUTINE RFORCE_PROC DO L=1,3 DRI(L) = RI(L) - RA(L) ENDDO - + CALL GET_GRID_ANG_ACCEL @@ -389,7 +389,7 @@ SUBROUTINE RFORCE_PROC ACCEL_I(L) = ACCEL_I_T2(L) ! ACCEL_I (grid accel) is now in global coords if it was not before ACCEL_I(L+3) = ACCEL_I_R2(L) ENDDO - ELSE + ELSE DO L=1,3 ACCEL_I(L) = ACCEL_I_T1(L) ! ACCEL_I (grid accel) is now in global coords if it was not before ACCEL_I(L+3) = ACCEL_I_R1(L) @@ -417,7 +417,7 @@ SUBROUTINE RFORCE_PROC DO L=1,6 FORCE_I(L) = ZERO - ENDDO + ENDDO IF (GRID_MGG_FND == 'Y') THEN NROWA = 6 @@ -433,20 +433,20 @@ SUBROUTINE RFORCE_PROC CALL TDOF_COL_NUM ( 'G ', G_SET_COL_NUM ) ROW_NUM = ROW_NUM_START + L - 1 GDOF = TDOF(ROW_NUM,G_SET_COL_NUM) - SYS_LOAD(GDOF,I) = SYS_LOAD(GDOF,I) + FORCE_I(L) + SYS_LOAD(GDOF,I) = SYS_LOAD(GDOF,I) + FORCE_I(L) ENDDO l_do_2214 - ENDDO - + ENDDO + ENDDO j_do_22 REWIND (SCR(1)) ! Need to read all of the RFORCE records again for the next S/C - + ENDDO i_do2 - - WRITE(SC1,*) CR13 + + WRITE(SC1,*) CR13 CALL FILE_CLOSE ( SCR(1), SCRFIL, 'DELETE' ) - + RETURN @@ -483,11 +483,11 @@ SUBROUTINE RFORCE_PROC 99911 format(' In RFORCE_PROC: Rigid body angular acceleration = ',3(1es14.6)) ! ********************************************************************************************************************************** - + ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE GET_GRID_ANG_ACCEL diff --git a/Source/LK1/L1D/RIGID_ELEM_PROC.f90 b/Source/LK1/L1D/RIGID_ELEM_PROC.f90 index 2eb87119..fb87d3e4 100644 --- a/Source/LK1/L1D/RIGID_ELEM_PROC.f90 +++ b/Source/LK1/L1D/RIGID_ELEM_PROC.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE RIGID_ELEM_PROC - + ! Processes RBAR, RBE1, RBE2 rigid elements to get terms for the RMG constraint matrix - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L1F, LINK1F, L1F_MSG, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NRECARD @@ -36,25 +36,25 @@ SUBROUTINE RIGID_ELEM_PROC USE RIGID_ELEM_PROC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'RIGID_ELEM_PROC' CHARACTER( 8*BYTE) :: RTYPE INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening/reading a file - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: IERR = 0 ! Count of read errors when rigid elem data file is read INTEGER(LONG) :: REC_NO ! Record number when reading a file - + ! ********************************************************************************************************************************** ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! Read a record from L1F and find out which rigid element it is IERR = 0 @@ -68,7 +68,7 @@ SUBROUTINE RIGID_ELEM_PROC CALL OUTA_HERE ( 'Y' ) ! Error reading RTYPE from rigid elem file. Can't continue ENDIF - IF (RTYPE == 'RBAR ') THEN + IF (RTYPE == 'RBAR ') THEN WRITE(ERR,*) '*ERROR: Code for RBAR processing not written yet. RBAR element ignored' WRITE(F06,*) '*ERROR: Code for RBAR processing not written yet. RBAR element ignored' diff --git a/Source/LK1/L1D/RSPLINE_PROC.f90 b/Source/LK1/L1D/RSPLINE_PROC.f90 index 90425364..10adad07 100644 --- a/Source/LK1/L1D/RSPLINE_PROC.f90 +++ b/Source/LK1/L1D/RSPLINE_PROC.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE RSPLINE_PROC ( RTYPE, REC_NO, IERR ) ! Processes a single RSPLINE rigid element, per call, to get terms for the RMG constraint matrix - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1F, L1F_MSG, LINK1F, L1J USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MRSPLINE, NCORD, NGRID, NTERM_RMG @@ -37,11 +37,11 @@ SUBROUTINE RSPLINE_PROC ( RTYPE, REC_NO, IERR ) USE MODEL_STUF, ONLY : CORD, GRID, RGRID, GRID_ID, CORD USE PARAMS, ONLY : EPSIL USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE RSPLINE_PROC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'RSPLINE_PROC' CHARACTER( 8*BYTE), INTENT(IN) :: RTYPE ! The type of rigid element being processed (RSPLINE) CHARACTER( 1*BYTE) :: CDOF(6) ! An output from subr RDOF (= 1 if a digit 1-6 is in DDOF) @@ -70,7 +70,7 @@ SUBROUTINE RSPLINE_PROC ( RTYPE, REC_NO, IERR ) INTEGER(LONG) :: NUM_COMPS_D ! 6 if AGRID_D is a physical grid, 1 if a scalar point INTEGER(LONG) :: NUM_COMPS_I1 ! 6 if AGRID_I1 is a physical grid, 1 if a scalar point INTEGER(LONG) :: NUM_COMPS_I2 ! 6 if AGRID_I2 is a physical grid, 1 if a scalar point - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: REID ! RBE2 elem ID read from file LINK1F INTEGER(LONG) :: RMG_COL_NUM ! Col no. of a term in array RMG INTEGER(LONG) :: RMG_ROW_NUM ! Row no. of a term in array RMG @@ -78,7 +78,7 @@ SUBROUTINE RSPLINE_PROC ( RTYPE, REC_NO, IERR ) INTEGER(LONG) :: ROW_NUM_START ! DOF number where TDOF data begins for a grid INTEGER(LONG) :: TOTAL_NUM ! Total number of records read for a single rigid element - + REAL(DOUBLE) :: DL_RAT ! D/L ratio from the B.D. RSPLINE entry REAL(DOUBLE) :: FR(6,12) ! Matrix of spline coefficients relating the 6 components of displ at the @@ -103,7 +103,7 @@ SUBROUTINE RSPLINE_PROC ( RTYPE, REC_NO, IERR ) REAL(DOUBLE) :: TRSPLINE(3,3) ! Coord transformation matrix for RSPLINE that transforms a vector in ! basic coords to a vector in RSPLINE coords - + REAL(DOUBLE) :: V01(3) ! Vector in basic coords from basic origin to AGRID_I1 REAL(DOUBLE) :: V02(3) ! Vector in basic coords from basic origin to AGRID_I2 REAL(DOUBLE) :: V0D(3) ! Vector in basic coords from basic origin to AGRID_D @@ -117,20 +117,20 @@ SUBROUTINE RSPLINE_PROC ( RTYPE, REC_NO, IERR ) ! File LINK1F contains data from the logical RSPLINE cards in the input B.D. deck. For each logical RSPLINE card, LINK1F has: ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - - JERR = 0 + + JERR = 0 ! Make sure that the grids are all 6 components (i.e. no SPOINTS) - READ(L1F,IOSTAT=IOCHK) REID, INDEX, TOTAL_NUM, AGRID_I1, AGRID_I2, AGRID_D, COMPS_D, DL_RAT + READ(L1F,IOSTAT=IOCHK) REID, INDEX, TOTAL_NUM, AGRID_I1, AGRID_I2, AGRID_D, COMPS_D, DL_RAT IF (DEBUG(111) > 0) CALL DEB_RSPLINE_PROC ( ' 1' ) -! Get the internal grid ID's for AGRID I1, AGRID_I2 and AGRID_D. We know they exist +! Get the internal grid ID's for AGRID I1, AGRID_I2 and AGRID_D. We know they exist CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, AGRID_I1, GRID_ID_ROW_NUM_I1 ) CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, AGRID_I2, GRID_ID_ROW_NUM_I2 ) @@ -218,17 +218,17 @@ SUBROUTINE RSPLINE_PROC ( RTYPE, REC_NO, IERR ) ICORD = I EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( GRID_ID_ROW_NUM_I1, ICORD, THETAD, PHID, T0G_I1 ) ELSE DO I=1,3 DO J=1,3 T0G_I1(I,J) = ZERO - ENDDO + ENDDO T0G_I1(I,I) = ONE - ENDDO + ENDDO ENDIF - + ECORD_I2 = GRID(GRID_ID_ROW_NUM_I2,3) ! Indep grid, AGRID_I2, basic to global transformation is T0G_I2 IF (ECORD_I2 /= 0) THEN DO I=1,NCORD @@ -236,17 +236,17 @@ SUBROUTINE RSPLINE_PROC ( RTYPE, REC_NO, IERR ) ICORD = I EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( GRID_ID_ROW_NUM_I2, ICORD, THETAD, PHID, T0G_I2 ) ELSE DO I=1,3 DO J=1,3 T0G_I2(I,J) = ZERO - ENDDO + ENDDO T0G_I2(I,I) = ONE - ENDDO + ENDDO ENDIF - + ECORD_D = GRID(GRID_ID_ROW_NUM_D,3) ! Dep grid, AGRID_D, basic to global transformation is T0G_D IF (ECORD_D /= 0) THEN DO I=1,NCORD @@ -254,22 +254,22 @@ SUBROUTINE RSPLINE_PROC ( RTYPE, REC_NO, IERR ) ICORD = I EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( GRID_ID_ROW_NUM_D, ICORD, THETAD, PHID, T0G_D ) ELSE DO I=1,3 DO J=1,3 T0G_D(I,J) = ZERO - ENDDO + ENDDO T0G_D(I,I) = ONE - ENDDO + ENDDO ENDIF - + IF (DEBUG(111) > 0) CALL DEB_RSPLINE_PROC ( ' 7' ) ! Transform FR from basic coords to global coords at the 2 indep and 1 dep grid - CALL TRANSFORM_FR_0G ( T0G_I1, T0G_I2, T0G_D, FR11, FR12, FR13, FR14, FR21, FR22, FR23, FR24 ) + CALL TRANSFORM_FR_0G ( T0G_I1, T0G_I2, T0G_D, FR11, FR12, FR13, FR14, FR21, FR22, FR23, FR24 ) CALL ASSEMBLE_FR ( FR11, FR12, FR13, FR14, FR21, FR22, FR23, FR24, FR ) IF (DEBUG(111) > 0) CALL DEB_RSPLINE_PROC ( ' 8' ) @@ -393,11 +393,11 @@ SUBROUTINE RSPLINE_PROC ( RTYPE, REC_NO, IERR ) 1ES15.6) ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## - + SUBROUTINE RSPLINE_GEOM ( REID, AGRID1, AGRID2, V012, LENGTH, TRSPLINE ) ! Calculate an RSPLINE coord transformation matriox that transforms a vector in basic coords to one in element coords (x axis along @@ -419,9 +419,9 @@ SUBROUTINE RSPLINE_GEOM ( REID, AGRID1, AGRID2, V012, LENGTH, TRSPLINE ) INTEGER(LONG), INTENT(IN) :: AGRID2 ! Indep grid number 2 on the RSPLINE INTEGER(LONG), INTENT(IN) :: REID ! Element ID INTEGER(LONG) :: I,J ! DO loop indices - INTEGER(LONG) :: I3_IN(3) ! Integer array used in sorting VX. + INTEGER(LONG) :: I3_IN(3) ! Integer array used in sorting VX. INTEGER(LONG) :: I3_OUT(3) ! Integer array in sort order of VX_SORT. If VX is sorted sp that -! comp 2 is smallest then comp 3 then comp 1 then I3_OUT is 2, 3, 1 +! comp 2 is smallest then comp 3 then comp 1 then I3_OUT is 2, 3, 1 REAL(DOUBLE) , INTENT(IN) :: V012(3) ! Vector in basic coords from 1st to 2nd indep grids on the RSPLINE @@ -446,8 +446,8 @@ SUBROUTINE RSPLINE_GEOM ( REID, AGRID1, AGRID2, V012, LENGTH, TRSPLINE ) DO I=1,3 DO J=1,3 TRSPLINE(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,3 VX(I) = ZERO @@ -522,7 +522,7 @@ SUBROUTINE RSPLINE_GEOM ( REID, AGRID1, AGRID2, V012, LENGTH, TRSPLINE ) DO I=1,3 TRSPLINE(3,I) = VZ(I)/MAGZ - ENDDO + ENDDO @@ -536,7 +536,7 @@ SUBROUTINE RSPLINE_GEOM ( REID, AGRID1, AGRID2, V012, LENGTH, TRSPLINE ) ,/,14X,' THE VECTOR COMPONENTS CALCULATED WERE ',3(1ES14.6)) 1944 FORMAT(' *ERROR 1944: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' THE VX VECTOR FOR ',A,' ELEMENT ',I8,' WAS LEFT UNSORTED. IT MUST BE SORTED TO DETERMINE VY, VZ') + ,/,14X,' THE VX VECTOR FOR ',A,' ELEMENT ',I8,' WAS LEFT UNSORTED. IT MUST BE SORTED TO DETERMINE VY, VZ') ! ********************************************************************************************************************************** @@ -587,7 +587,7 @@ SUBROUTINE RSPLINE_FUNCTIONS ( Z, L12, FR11, FR12, FR13, FR14, FR21, FR22, FR23, FR21(I,J) = ZERO ; FR22(I,J) = ZERO ; FR23(I,J) = ZERO ; FR24(I,J) = ZERO ENDDO ENDDO - + Z_2 = Z*Z Z_3 = Z*Z_2 @@ -616,8 +616,8 @@ SUBROUTINE RSPLINE_FUNCTIONS ( Z, L12, FR11, FR12, FR13, FR14, FR21, FR22, FR23, FR22(2,2) = ONE - FOUR*Z +THREE*Z_2 FR22(3,3) = FR22(2,2) - FR23(2,3) = (Z_2 - Z)*SIX/L12 - FR23(3,2) = -FR23(2,3) + FR23(2,3) = (Z_2 - Z)*SIX/L12 + FR23(3,2) = -FR23(2,3) FR24(1,1) = Z FR24(2,2) = THREE*Z_2 - TWO*Z @@ -739,9 +739,9 @@ SUBROUTINE TRANSFORM_FR_0G ( TR_I1, TR_I2, TR_D, FR11, FR12, FR13, FR14, FR21, F IMPLICIT NONE - REAL(DOUBLE) , INTENT(IN) :: TR_I1(3,3) ! Matrix that transforms a vector in global to basic for 1st indep grid - REAL(DOUBLE) , INTENT(IN) :: TR_I2(3,3) ! Matrix that transforms a vector in global to basic for 2nd indep grid - REAL(DOUBLE) , INTENT(IN) :: TR_D(3,3) ! Matrix that transforms a vector in global to basic for dep grid + REAL(DOUBLE) , INTENT(IN) :: TR_I1(3,3) ! Matrix that transforms a vector in global to basic for 1st indep grid + REAL(DOUBLE) , INTENT(IN) :: TR_I2(3,3) ! Matrix that transforms a vector in global to basic for 2nd indep grid + REAL(DOUBLE) , INTENT(IN) :: TR_D(3,3) ! Matrix that transforms a vector in global to basic for dep grid REAL(DOUBLE) , INTENT(INOUT) :: FR11(3,3) ! Partition of FR in 1st 3 rows and 1st 3 cols REAL(DOUBLE) , INTENT(INOUT) :: FR12(3,3) ! Partition of FR in 1st 3 rows and 2nd 3 cols @@ -851,7 +851,7 @@ SUBROUTINE DEB_RSPLINE_PROC ( WHAT ) WRITE(F06,*) ELSE IF (WHAT == ' 7' ) THEN - WRITE(F06,7001) AGRID_I1, ECORD_I1, AGRID_I2, ECORD_I2, AGRID_D, ECORD_D + WRITE(F06,7001) AGRID_I1, ECORD_I1, AGRID_I2, ECORD_I2, AGRID_D, ECORD_D DO II=1,3 WRITE(F06,7002) (T0G_I1(II,JJ),JJ=1,3), (T0G_I2(II,JJ),JJ=1,3), (T0G_D(II,JJ),JJ=1,3) ENDDO @@ -900,7 +900,7 @@ SUBROUTINE DEB_RSPLINE_PROC ( WHAT ) 5002 FORMAT(56X,'(coord system is elem coords with x axis between the 2 indep grids)',/) - 5003 FORMAT(3(1ES14.6),' |', 3(1ES14.6),' |', 3(1ES14.6),' |', 3(1ES14.6)) + 5003 FORMAT(3(1ES14.6),' |', 3(1ES14.6),' |', 3(1ES14.6),' |', 3(1ES14.6)) 6002 FORMAT(56X,' (coord system is basic)',/) @@ -916,7 +916,7 @@ SUBROUTINE DEB_RSPLINE_PROC ( WHAT ) 9001 FORMAT(' :::::::::::::::::::::::::::::::::::::::END DEBUG(111) OUTPUT FROM SUBROUTINE RSPLINE_PROC:::::::::::::::::::::::::',& ':::::::::::::::::' ,/,& ' __________________________________________________________________________________________________________________',& - '_________________',/) + '_________________',/) ! ********************************************************************************************************************************** diff --git a/Source/LK1/L1D/SLOAD_PROC.f90 b/Source/LK1/L1D/SLOAD_PROC.f90 index bacfe8f3..a34ab165 100644 --- a/Source/LK1/L1D/SLOAD_PROC.f90 +++ b/Source/LK1/L1D/SLOAD_PROC.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SLOAD_PROC - + ! Scalar load processor - + ! Transforms the input B.D. scalar load data to system force data in the SYS_LOAD array for dof's in the G set. ! File LINK1W was written when SLOAD B.D entries were read, with one record for each such pair of scalar point/load values. ! There are NSLOAD total no. records written to file LINK1W with each record containing: @@ -51,7 +51,7 @@ SUBROUTINE SLOAD_PROC ! ( ii) If the load set requested in Case Control is not a set ID from a LOAD Bulk data card then the ! load must be on a separate FORCE/MOMENT in which case LSID(1) and RSID(1) are all that is needed ! to define the load set contribution due to the FORCE/MOMENT cards for this subcase. - + ! (iii) If the load set requested in Case Control is a set ID from a LOAD Bulk data card then the ramainder ! (K = 2,LLOADC) of entries into LSID and RSID will be the pairs of load set ID's/scale factors from ! that LOAD Bulk Data card (with RSID also multiplied by the overall scale factor on the LOAD Bulk data @@ -60,18 +60,18 @@ SUBROUTINE SLOAD_PROC ! Note, there may not be as many as LLOADC pairs of set ID's/scale factors on a given LOAD Bulk Data ! card since LLOADC is the max, from all LOAD Bulk Data cards, of pairs. ! Thus, the entries in LSID from the last entry (for a given LOAD card) to LLOADC will be zero (LSID -! was initialized to zero). This fact is used in a DO loop to EXIT when LSID(K) = 0 +! was initialized to zero). This fact is used in a DO loop to EXIT when LSID(K) = 0 ! (b) For each record in LINK1W (1 to NSLOAD) ! ( i) Read a record from file: (SETID, SPOINT, FMAG) - + ! ( ii) Scan LSID and RSID to get the scale factor for the SLOAD components in SETID, if this -! SLOAD's set ID is in LSID +! SLOAD's set ID is in LSID ! (iii) Load these force values values into the system load array, SYS_LOAD - - + + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : FILE_NAM_MAXLEN, WRT_ERR, ERR, F06, L1W, LINK1W, L1W_MSG, L1WSTAT USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LLOADC, NGRID, NLOAD, NSLOAD, NSUB, WARN_ERR @@ -80,26 +80,26 @@ SUBROUTINE SLOAD_PROC USE PARAMS, ONLY : EPSIL, SUPWARN USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : LOAD_SIDS, LOAD_FACS, SYS_LOAD, SUBLOD, GRID, GRID_ID - + USE SLOAD_PROC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SLOAD_PROC' CHARACTER( 1*BYTE) :: FOUND ! Indicator on whether we found something we were looking for - + INTEGER(LONG) :: GDOF ! G-set DOF no. for actual grid AGRID INTEGER(LONG) :: GRID_ID_ROW_NUM ! Row number in array GRID_ID where AGRID is found - INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept + INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: IGRID ! Internal grid ID INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening a file INTEGER(LONG) :: SETID ! Load set ID read from record in file LINK1I - INTEGER(LONG) :: LSID(LLOADC+1) ! Array of load SID's, from a LOAD Bulk Data card, for one S/C - INTEGER(LONG) :: NSID ! Count on no. of pairs of entries on a LOAD B.D. card (<= LLOADC) - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. + INTEGER(LONG) :: LSID(LLOADC+1) ! Array of load SID's, from a LOAD Bulk Data card, for one S/C + INTEGER(LONG) :: NSID ! Count on no. of pairs of entries on a LOAD B.D. card (<= LLOADC) + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. INTEGER(LONG) :: REC_NO ! Record number when reading a file - INTEGER(LONG) :: ROW_NUM ! Row no. in array TDOF corresponding to GDOF + INTEGER(LONG) :: ROW_NUM ! Row no. in array TDOF corresponding to GDOF INTEGER(LONG) :: SPOINT ! Scalra point read from a record of L1W (point where force acts) INTEGER(LONG) :: XTIME ! Time stamp read from file @@ -117,20 +117,20 @@ SUBROUTINE SLOAD_PROC EPS1 = EPSIL(1) ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! ********************************************************************************************************************************** ! Now process forces into SYS_LOAD for each subcase. - + DO I=1,LLOADC ! Initialize LSID, RSID arrays LSID(I) = 0 RSID(I) = ZERO ENDDO i_do2:DO I=1,NSUB ! Loop through the S/C's - + IF (SUBLOD(I,1) == 0) THEN ! If no load for this S/C, CYCLE CYCLE i_do2 ENDIF @@ -142,15 +142,15 @@ SUBROUTINE SLOAD_PROC IF (SUBLOD(I,1) == LOAD_SIDS(J,1)) THEN k_do21: DO K = 2,LLOADC IF (LOAD_SIDS(J,K) == 0) THEN - EXIT k_do21 + EXIT k_do21 ELSE NSID = K ! Note: NSID will not get larger than LLOADC RSID(K) = LOAD_FACS(J,1)*LOAD_FACS(J,K) LSID(K) = LOAD_SIDS(J,K) ENDIF - ENDDO k_do21 + ENDDO k_do21 ENDIF - ENDDO + ENDDO j_do22: DO J=1,NSLOAD ! Process SLOAD card info ! (2-b- i) Read a record from scratch - forces are in global coords @@ -161,22 +161,22 @@ SUBROUTINE SLOAD_PROC CALL FILE_CLOSE ( L1W, LINK1W, L1WSTAT ) CALL OUTA_HERE ( 'Y' ) ! Error reading scratch file, so quit ENDIF - + FOUND = 'N' ! (2-b- ii). Scan through LSID to find set that matches SETID read. k_do221: DO K = 1,NSID ! There is a match; we made sure all requested loads were in B.D. deck IF (SETID == LSID(K)) THEN ! We start with K = 1 to cover the case of no LOAD B.D cards SCALE = RSID(K) FOUND = 'Y' - EXIT k_do221 + EXIT k_do221 ENDIF - ENDDO k_do221 + ENDDO k_do221 - IF (FOUND == 'N') THEN ! Cycle back on J loop and read another force/moment card - CYCLE j_do22 + IF (FOUND == 'N') THEN ! Cycle back on J loop and read another force/moment card + CYCLE j_do22 ENDIF ! Get GRID_ID_ROW_NUM, we checked it's existence earlier CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, SPOINT, GRID_ID_ROW_NUM ) - + IF (DABS(FMAG) < EPS1) THEN WARN_ERR = WARN_ERR + 1 WRITE(ERR,1513) 'SLOAD', SETID @@ -184,16 +184,16 @@ SUBROUTINE SLOAD_PROC WRITE(F06,1513) 'SLOAD', SETID ENDIF ENDIF - + CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, SPOINT, IGRID ) ROW_NUM = TDOF_ROW_START(IGRID) CALL TDOF_COL_NUM ( 'G ', G_SET_COL_NUM ) ! (2-b-iii). Put forces and moments into SYS_LOAD array GDOF = TDOF(ROW_NUM,G_SET_COL_NUM) SYS_LOAD(GDOF,I) = SYS_LOAD(GDOF,I) + SCALE*FMAG - + ENDDO j_do22 - + REWIND (L1W) ! Need to read all of the FORCE/MOMENT records again for the next S/C READ(L1W,IOSTAT=IOCHK) XTIME IF (IOCHK /= 0) THEN @@ -202,9 +202,9 @@ SUBROUTINE SLOAD_PROC CALL FILERR ( OUNT ) CALL OUTA_HERE ( 'Y' ) ENDIF - + ENDDO i_do2 - + RETURN @@ -219,5 +219,5 @@ SUBROUTINE SLOAD_PROC 1513 FORMAT(' *WARNING : ',A8,1X,I8,' HAS ZERO FORCE MAGNITUDE') ! ********************************************************************************************************************************** - + END SUBROUTINE SLOAD_PROC diff --git a/Source/LK1/L1D/TEMPERATURE_DATA_PROC.f90 b/Source/LK1/L1D/TEMPERATURE_DATA_PROC.f90 index 5b701a14..8da3f45c 100644 --- a/Source/LK1/L1D/TEMPERATURE_DATA_PROC.f90 +++ b/Source/LK1/L1D/TEMPERATURE_DATA_PROC.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TEMPERATURE_DATA_PROC - + ! Grid and element temperature data processor ! Processes model, grid and elem temperature data. The model (TEMPD), grid (TEMP), or element temperature (TEMPRB, TEMPP1) entries ! were written to file LINK1K when the Bulk Data was read. Here, that data is read and processed into arrays needed for temp load ! calculation. - + ! There are NTCARD records in file LINK1K. There is ! 1 record for any model TEMPD B.D. card whose set ID (SID) matches that of a subcase TEMP = SID request ! 1 record for any grid TEMP B.D. card whose set ID (SID) matches that of a subcase TEMP = SID request @@ -58,7 +58,7 @@ SUBROUTINE TEMPERATURE_DATA_PROC ! At the end, array CETEMP is scanned to make sure that every elem has had a temperature defined ! either on a TEMPRB or TEMPP1 card directly, or indirectly on TEMPD/TEMP cards for each grid belonging to the element. ! If all elems have temperature defined, file LINK1K is closed and reopened to write the above temperature arrays -! for further processing in the element subr ELMDAT. +! for further processing in the element subr ELMDAT. USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -70,21 +70,21 @@ SUBROUTINE TEMPERATURE_DATA_PROC USE MODEL_STUF, ONLY : CETEMP, CETEMP_ERR, CGTEMP, CGTEMP_ERR, ETEMP, GTEMP, TDATA, TPNT, GRID_ID, ESORT1, ETYPE,& SCNUM, SUBLOD, eid USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE TEMPERATURE_DATA_PROC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TEMPERATURE_DATA_PROC' CHARACTER(LEN=DATA_NAM_LEN) :: DATA_SET_NAME ! A data set name for output purposes CHARACTER( 1*BYTE) :: NOTE ! Used to indicate whether or not to print out a message CHARACTER( 1*BYTE) :: TEMP_ELM ! Descriptor of how elem temp is defined - + INTEGER(LONG) :: ELID_ERR ! Output from subr ELEM_TEMP_DATA_PROC (elem ID's undefined). INTEGER(LONG) :: GID_ERR ! Output from subr GRID_TEMP_DATA_PROC (grid ID's undefined). INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERRT ! Cum. count of grids with no temp defined after all data processed - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: READ_ERR = 0 ! Count of read errors when temperature data file is read INTEGER(LONG) :: TCASE1(NSUB) ! TCASE1(I) gives the internal thermal case number for internal S/C I ! If there are 5 subcases and internal S/C 3 is the 1-st S/C to have @@ -93,59 +93,59 @@ SUBROUTINE TEMPERATURE_DATA_PROC INTEGER(LONG) :: TCASE2(NSUB) ! TCASE2(I) gives the internal subcase no. for internal thermal case I ! If there are 5 subcases and internal S/C 3 is the 1-st S/C to have ! thermal load and internal S/C 5 is the 2-nd to have thermal load: -! TCASE2(1-5) = 3, 5, 0, 0, 0 +! TCASE2(1-5) = 3, 5, 0, 0, 0 + - ! ********************************************************************************************************************************** ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! Generate TCASE1, TCASE2 arrays. - + J = 0 DO I=1,NSUB TCASE1(I) = 0 - ENDDO + ENDDO DO I = 1,NSUB IF (SUBLOD(I,2) > 0) THEN J = J + 1 TCASE1(I) = J ENDIF ENDDO - + DO I = 1,NSUB TCASE2(I) = 0 - ENDDO + ENDDO J = 0 DO I = 1,NSUB IF (SUBLOD(I,2) /= 0) THEN J = J + 1 TCASE2(J) = I ENDIF - ENDDO - + ENDDO + ! ********************************************************************************************************************************** ! (1) Pass 1: Read and process TEMPD cards from L1K and set G.P. temperatures - - CALL TEMPD_DATA_PROC ( TCASE1, OUNT, READ_ERR ) + + CALL TEMPD_DATA_PROC ( TCASE1, OUNT, READ_ERR ) ! ********************************************************************************************************************************** ! (2) Pass 2: Read and process TEMP cards from L1K and set G.P. temperatures - - CALL GRID_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, GID_ERR ) + + CALL GRID_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, GID_ERR ) ! ********************************************************************************************************************************** ! (3) Pass 3: Read and process the element temperature cards, TEMPRB, TEMPP1 and set elem temperatures - + CALL ELEM_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, ELID_ERR ) ! ********************************************************************************************************************************** ! (4) If no errors, check thermal data for completeness - + IF ((READ_ERR /= 0) .OR. (GID_ERR /= 0) .OR. (ELID_ERR /= 0)) THEN IERRT = READ_ERR + GID_ERR + ELID_ERR @@ -170,11 +170,11 @@ SUBROUTINE TEMPERATURE_DATA_PROC ENDIF ENDIF ENDIF - ENDDO + ENDDO ENDDO ENDIF - + ! Make sure that CETEMP has no error terms ! Debug output of grid and element temperature data @@ -229,15 +229,15 @@ SUBROUTINE TEMPERATURE_DATA_PROC ! ********************************************************************************************************************************** ! (5) Write processed temperature data to L1K - + ! First close and delete L1K file - + CALL FILE_CLOSE ( L1K, LINK1K, 'DELETE' ) - + ! Open L1K for write: - + CALL FILE_OPEN ( L1K, LINK1K, OUNT, 'REPLACE', L1K_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) - + DATA_SET_NAME = 'TPNT' WRITE(L1K) DATA_SET_NAME WRITE(L1K) NELE @@ -246,15 +246,15 @@ SUBROUTINE TEMPERATURE_DATA_PROC DO J = 1,NTSUB WRITE(L1K) TPNT(I,J) ENDDO - ENDDO - + ENDDO + DATA_SET_NAME = 'TDATA' WRITE(L1K) DATA_SET_NAME WRITE(L1K) NTDAT DO I = 1,NTDAT WRITE(L1K) TDATA(I) - ENDDO - + ENDDO + DATA_SET_NAME = 'GTEMP' WRITE(L1K) DATA_SET_NAME WRITE(L1K) NGRID @@ -263,8 +263,8 @@ SUBROUTINE TEMPERATURE_DATA_PROC DO J = 1,NTSUB WRITE(L1K) GTEMP(I,J) ENDDO - ENDDO - + ENDDO + DATA_SET_NAME = 'CGTEMP' WRITE(L1K) DATA_SET_NAME WRITE(L1K) NGRID @@ -273,8 +273,8 @@ SUBROUTINE TEMPERATURE_DATA_PROC DO J = 1,NTSUB WRITE(L1K) CGTEMP(I,J) ENDDO - ENDDO - + ENDDO + DATA_SET_NAME = 'CETEMP' WRITE(L1K) DATA_SET_NAME WRITE(L1K) NELE @@ -283,8 +283,8 @@ SUBROUTINE TEMPERATURE_DATA_PROC DO J = 1,NTSUB WRITE(L1K) CGTEMP(I,J) ENDDO - ENDDO - + ENDDO + RETURN @@ -294,7 +294,7 @@ SUBROUTINE TEMPERATURE_DATA_PROC 9996 FORMAT(/,' Processing terminated in subroutine ',A,' due to above ',I8,' ERRORS') -99971 FORMAT(/,' OUTPUT FROM SUBROUTINE TEMPERATURE_DATA_PROC:',//,' SUBCASE GRID TEMPERATURE CGTEMP') +99971 FORMAT(/,' OUTPUT FROM SUBROUTINE TEMPERATURE_DATA_PROC:',//,' SUBCASE GRID TEMPERATURE CGTEMP') 99972 FORMAT(1X,2I10,20X ,9X,A1) @@ -302,25 +302,25 @@ SUBROUTINE TEMPERATURE_DATA_PROC 99974 FORMAT(1X,A,' INDICATES NO TEMPERATURE DEFINED FOR THIS SUBCASE FOR THIS GRID') -99991 FORMAT(/,' OUTPUT FROM SUBROUTINE TEMPERATURE_DATA_PROC:',//,' SUBCASE ELEMENT TEMPERATURE CETEMP') +99991 FORMAT(/,' OUTPUT FROM SUBROUTINE TEMPERATURE_DATA_PROC:',//,' SUBCASE ELEMENT TEMPERATURE CETEMP') 99994 FORMAT(1X,A,' INDICATES NO TEMPERATURE DEFINED FOR THIS SUBCASE FOR THIS ELEMENT') ! ********************************************************************************************************************************** - + ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## - + SUBROUTINE TEMPD_DATA_PROC ( TCASE1, OUNT, IERR ) ! Overall model temperature data processor ! Processes data on TEMPD B.D. cards. These card images were written to file LINK1K when the Bulk Data was read. ! Here, that data is read and processed into arrays needed for temp load calculation. - + ! There are NTCARD records in file LINK1K. There is ! 1 record for any model TEMPD B.D. card whose set ID (SID) matches that of a subcase TEMP = SID request ! 1 record for any grid TEMP B.D. card whose set ID (SID) matches that of a subcase TEMP = SID request @@ -332,7 +332,7 @@ SUBROUTINE TEMPD_DATA_PROC ( TCASE1, OUNT, IERR ) ! (1) Read a record from file LINK1K. If it is TEMPD and the set ID (SID) matches a subcase request, then ! ( i) Load the temperature value into array GTEMP for all grids for this subcase ! (ii) Write 'D' to array CGTEMP for all grids for this subcase (grid temperature defined) to indicate that the -! temperature is defined via a default (hence 'D') TEMPD card. +! temperature is defined via a default (hence 'D') TEMPD card. USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -340,14 +340,14 @@ SUBROUTINE TEMPD_DATA_PROC ( TCASE1, OUNT, IERR ) USE SCONTR, ONLY : BD_ENTRY_LEN, JCARD_LEN, NGRID, NSUB, NTCARD, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : CGTEMP, GTEMP, SUBLOD - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TEMPD_DATA_PROC' CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of 8 characters in CARD CHARACTER(LEN=BD_ENTRY_LEN) :: CARD ! B.D elem temp card image read from file LINK1K - - INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + + INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG), INTENT(IN) :: TCASE1(NSUB) ! TCASE1(I) gives the internal thermal case number for internal S/C I ! If there are 5 subcases and internal S/C 3 is the 1-st S/C to have ! thermal load and internal S/C 5 is the 2-nd to have thermal load: @@ -358,9 +358,9 @@ SUBROUTINE TEMPD_DATA_PROC ( TCASE1, OUNT, IERR ) INTEGER(LONG) :: REC_NO ! Record number when reading a file INTEGER(LONG) :: SID ! Thermal load set ID read from an elem temperature B.D. card - + REAL(DOUBLE) :: RTEMP ! Real value of a temperature on a TEMPD or TEMP B.D. card - + ! ********************************************************************************************************************************** @@ -385,11 +385,11 @@ SUBROUTINE TEMPD_DATA_PROC ( TCASE1, OUNT, IERR ) DO L = 1,NGRID GTEMP(L,TCASE1(K)) = RTEMP CGTEMP(L,TCASE1(K)) = 'D' - ENDDO + ENDDO ENDIF ENDDO - ENDIF - ENDDO + ENDIF + ENDDO ENDIF ENDDO @@ -402,14 +402,14 @@ SUBROUTINE TEMPD_DATA_PROC ( TCASE1, OUNT, IERR ) END SUBROUTINE TEMPD_DATA_PROC ! ################################################################################################################################## - + SUBROUTINE GRID_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, GID_ERR ) ! Grid temperature data processor ! Processes data on TEMP B.D. cards. These card images were written to file LINK1K when the Bulk Data was read. ! Here, that data is read and processed into arrays needed for temp load calculation. - + ! There are NTCARD records in file LINK1K. There is ! 1 record for any model TEMPD B.D. card whose set ID (SID) matches that of a subcase TEMP = SID request ! 1 record for any grid TEMP B.D. card whose set ID (SID) matches that of a subcase TEMP = SID request @@ -422,7 +422,7 @@ SUBROUTINE GRID_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, GID_ERR ) ! ( i) Load the temperature value into array GTEMP for the grids on this TEMP card for this subcase ! (ii) Write 'G' to array CGTEMP for these grids for this subcase (grid temperature defined) to indicate that the ! temperature is defined via a grid (hence 'G') TEMP card. If that grid already has a 'G' issue a warning. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -431,15 +431,15 @@ SUBROUTINE GRID_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, GID_ERR ) USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : CGTEMP, GTEMP, GRID_ID, SUBLOD - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GRID_TEMP_DATA_PROC' CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of 8 characters in CARD CHARACTER( 8*BYTE), PARAMETER :: NAME = 'GRID ' ! name for output error purposes CHARACTER(LEN=BD_ENTRY_LEN) :: CARD ! B.D elem temp card image read from file LINK1K - - INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + + INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG), INTENT(IN) :: TCASE1(NSUB) ! TCASE1(I) gives the internal thermal case number for internal S/C I INTEGER(LONG), INTENT(INOUT) :: READ_ERR ! Count of read errors when temperature data file is read INTEGER(LONG), INTENT(OUT) :: GID_ERR ! Count of errors due to a grid ID not defined @@ -455,9 +455,9 @@ SUBROUTINE GRID_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, GID_ERR ) ! thermal load and internal S/C 5 is the 2-nd to have thermal load: ! TCASE1(1-5) = 0, 0, 1, 0, 2 - + REAL(DOUBLE) :: RTEMP ! Real value of a temperature on a TEMPD or TEMP B.D. card - + ! ********************************************************************************************************************************** @@ -471,7 +471,7 @@ SUBROUTINE GRID_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, GID_ERR ) CALL READERR ( IOCHK, LINK1K, L1K_MSG, REC_NO, OUNT ) CALL OUTA_HERE ( 'Y' ) ! Cannot read STIME from temperature data file, so quit ENDIF - + DO I=1,NTCARD READ(L1K,IOSTAT=IOCHK) CARD IF (IOCHK /= 0) THEN @@ -502,17 +502,17 @@ SUBROUTINE GRID_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, GID_ERR ) GD_REDUNDANT_TEMP = GD_REDUNDANT_TEMP + 1 WARN_ERR = WARN_ERR + 1 WRITE(ERR,1531) NAME,AGRID - IF (SUPWARN == 'N') THEN + IF (SUPWARN == 'N') THEN WRITE(F06,1531) NAME,AGRID - ENDIF + ENDIF ENDIF CGTEMP(GRID_ID_ROW_NUM,TCASE1(K)) = 'G' ENDIF ENDDO - ENDIF - ENDDO + ENDIF + ENDDO ENDIF - ENDDO + ENDDO IF (GD_REDUNDANT_TEMP > 0) THEN WARN_ERR = WARN_ERR + 1 @@ -538,14 +538,14 @@ SUBROUTINE GRID_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, GID_ERR ) END SUBROUTINE GRID_TEMP_DATA_PROC ! ################################################################################################################################## - + SUBROUTINE ELEM_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, ELID_ERR ) ! Element temperature data processor ! Processes data on TEMPRB, TEMPP1 B.D. cards. These card images were written to file LINK1K when the Bulk Data was read. ! Here, that data is read and processed into arrays needed for temp load calculation. - + ! There are NTCARD records in file LINK1K. There is ! 1 record for any model TEMPD B.D. card whose set ID (SID) matches that of a subcase TEMP = SID request ! 1 record for any grid TEMP B.D. card whose set ID (SID) matches that of a subcase TEMP = SID request @@ -568,38 +568,38 @@ SUBROUTINE ELEM_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, ELID_ERR ) ! In case ( i ) an error is given if any elem ID's are undefined. ! In cases (iia) and (iib) the elem ID's are specified by a range and some, or all, of these do not have to exist. ! Thus, no error is given for these cases. If some elems wind up with no temperature defined at all, them this will -! be detected in the calling routine +! be detected in the calling routine USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BD_ENTRY_LEN, BLNK_SUB_NAM, FATAL_ERR, JCARD_LEN, LTDAT, MTDAT_TEMPRB, MTDAT_TEMPP1, & NTCARD, NTDAT, & - NSUB, WARN_ERR + NSUB, WARN_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : TWO USE PARAMS, ONLY : SUPWARN USE MODEL_STUF, ONLY : TDATA - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELEM_TEMP_DATA_PROC' CHARACTER( 1*BYTE) :: IELEM_ERR ! Flag to decide whether to CYCLE a loop CHARACTER( 1*BYTE) :: EFLAG ! Flag to decide whether a situation in subr ETPUT is an error or not CHARACTER(LEN=JCARD_LEN) :: CARD_NAME ! The 1st field of the parent card of an entry in file L1K CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! The 10 fields of characters in CARD - CHARACTER(LEN=JCARD_LEN) :: OLDTAG ! Field 10 (continuation field) on CARD + CHARACTER(LEN=JCARD_LEN) :: OLDTAG ! Field 10 (continuation field) on CARD CHARACTER( 8*BYTE) :: THRU ! ='Y' if THRU option used on TEMPRB, TEMPP1 continuation card CHARACTER( 8*BYTE) :: TOKEN ! The 1st 8 characters from a JCARD CHARACTER( 8*BYTE) :: TOKTYP ! Variable to test whether "THRU" option was used on B.D. temp card CHARACTER(BD_ENTRY_LEN) :: CARD ! B.D elem temp card image read from file LINK1K - - INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + + INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG), INTENT(IN) :: TCASE1(NSUB) ! TCASE1(I) gives the internal thermal case number for internal S/C I INTEGER(LONG), INTENT(INOUT) :: READ_ERR ! Count of read errors when temperature data file is read INTEGER(LONG), INTENT(OUT) :: ELID_ERR ! Count of errors due to an elem ID not defined INTEGER(LONG) :: EID ! Actual element ID - INTEGER(LONG) :: EID1,EID2 ! The 2 actual elem ID's in "EID1 THRU EID2" on elem temp B.D. card + INTEGER(LONG) :: EID1,EID2 ! The 2 actual elem ID's in "EID1 THRU EID2" on elem temp B.D. card INTEGER(LONG) :: EL_REDUNDANT_TEMP ! Count of warning messages when elements have redundant temperatures INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: ICRD ! Count of the records (cards) read from file LINK1K @@ -615,11 +615,11 @@ SUBROUTINE ELEM_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, ELID_ERR ) ! thermal load and internal S/C 5 is the 2-nd to have thermal load: ! TCASE1(1-5) = 0, 0, 1, 0, 2 - - REAL(DOUBLE) :: TB1 ! Bulk temperature from TEMPRB card - REAL(DOUBLE) :: TB2 ! Bulk temperature from TEMPRB card - REAL(DOUBLE) :: TE_BULK ! Element bulk temperature - + + REAL(DOUBLE) :: TB1 ! Bulk temperature from TEMPRB card + REAL(DOUBLE) :: TB2 ! Bulk temperature from TEMPRB card + REAL(DOUBLE) :: TE_BULK ! Element bulk temperature + ! ********************************************************************************************************************************** @@ -627,16 +627,16 @@ SUBROUTINE ELEM_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, ELID_ERR ) EL_REDUNDANT_TEMP = 0 ! Initialize warning indicator for redundant elem temp definition REWIND (L1K) ! L1K has been read from by subr GRID_TEMP_DATA_PROC earlier - READ(L1K,IOSTAT=IOCHK) XTIME + READ(L1K,IOSTAT=IOCHK) XTIME IF (IOCHK /= 0) THEN REC_NO = 1 CALL READERR ( IOCHK, LINK1K, L1K_MSG, REC_NO, OUNT ) CALL OUTA_HERE ( 'Y' ) ! Cannot read STIME from temperature data file, so quit ENDIF - + ICRD = 0 ! ICRD will count records read from file LINK1K -ntcrd:DO ! Top of loop for reading parent CARD +ntcrd:DO ! Top of loop for reading parent CARD ICRD = ICRD + 1 IF (ICRD <= NTCARD) THEN ! Read and process CARD as long as card count <= NTCARD @@ -658,38 +658,38 @@ SUBROUTINE ELEM_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, ELID_ERR ) ELSE IF ((CARD(1:7) == 'TEMPP1 ') .OR. (CARD(1:7) == 'TEMPP1*')) THEN NFIELD = MTDAT_TEMPP1 READ(JCARD(4),'(F16.0)') TE_BULK - ELSE ! otherwise, CYCLE back to read another parent + ELSE ! otherwise, CYCLE back to read another parent CYCLE ntcrd ENDIF - + ITPNT = NTDAT + 1 ! Set index for pointer array, TPNT - + READ(JCARD(2),'(I8)') SID ! Get thermal load SID, EID READ(JCARD(3),'(I8)') EID - + IF ((NTDAT + NFIELD) > LTDAT) THEN ! Check for overflow in TDATA WRITE(ERR,1525) SUBR_NAME,LTDAT WRITE(F06,1525) SUBR_NAME,LTDAT FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (dim of array TDATA too small), so quit ENDIF - + IFIELD = 4 ! Put temperature data into array TDATA JFIELD = IFIELD - 1 + NFIELD DO J = IFIELD,JFIELD NTDAT = NTDAT + 1 READ(JCARD(J),'(F16.0)') TDATA(NTDAT) - ENDDO + ENDDO EFLAG = 'Y' ! First process EID on parent card into TPNT array CALL ETPUT ( CARD_NAME, EFLAG, EID, SID, TCASE1, ITPNT, TE_BULK, IELEM, EL_REDUNDANT_TEMP ) IF (IELEM == -1) THEN ELID_ERR = ELID_ERR + 1 ENDIF - + ! Process continuation cards, if any. If we get read error on CARD, go back to top of main loop to look for new parent card. - -cont_cards: DO ! Top of loop for reading optional cont. CARD's for the parent CARD + +cont_cards: DO ! Top of loop for reading optional cont. CARD's for the parent CARD IF (ICRD == NTCARD) EXIT cont_cards OLDTAG = JCARD(10) READ(L1K,IOSTAT=IOCHK) CARD @@ -702,22 +702,22 @@ SUBROUTINE ELEM_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, ELID_ERR ) ENDIF IF (OLDTAG == JCARD(1)) THEN ICRD = ICRD + 1 - ELSE ! Next card was not a continuation, so cycle back to read another parent + ELSE ! Next card was not a continuation, so cycle back to read another parent BACKSPACE(L1K) CYCLE ntcrd ENDIF - + ! First check for the 2 options on specifying data on continuation card. Either all data are EID's or the THRU option is used ! in which case field 3 and/or 6 will have "THRU". Notice that EFLAG = 'N' when ETPUT is called for the case where EID1 THRU EID2 ! is on temp card. This is so that all elements in the range EID1 thru EID2 do not have to exist to avoid an error being flagged. - + TOKEN = JCARD(3)(1:8) ! Only send the 1st 8 chars of this JCARD. It has been left justified CALL TOKCHK ( TOKEN, TOKTYP ) THRU = 'N' IF (TOKTYP == 'THRU ') THEN THRU = 'Y' - ENDIF - + ENDIF + IF (THRU == 'N') THEN IELEM_ERR = 'N' EFLAG = 'Y' ! Any elem ID's read in fields 2-9 must be valid @@ -733,14 +733,14 @@ SUBROUTINE ELEM_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, ELID_ERR ) IF (IELEM_ERR == 'Y') THEN CYCLE cont_cards ENDIF - ELSE + ELSE READ(JCARD(2),'(I8)') EID1 READ(JCARD(4),'(I8)') EID2 EFLAG = 'N' ! Some, or all, elem ID's can be missing from range EID1 -> EID2 DO J=EID1,EID2 ! Process "EID1 THRU EID2" (fields 2-4) on cont card into TPNT array CALL ETPUT ( CARD_NAME, EFLAG, J, SID, TCASE1, ITPNT, TE_BULK, IELEM, EL_REDUNDANT_TEMP ) - ENDDO - + ENDDO + TOKEN = JCARD(6)(1:8) ! Only send the 1st 8 chars of this JCARD. It has been left justified CALL TOKCHK ( TOKEN, TOKTYP ) IF (TOKTYP == 'THRU ') THEN @@ -749,18 +749,18 @@ SUBROUTINE ELEM_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, ELID_ERR ) EFLAG = 'N' ! Some, or all, elem ID's can be missing from range EID1 -> EID2 DO J=EID1,EID2 ! Process "EID1 THRU EID2" (fields 5-7) on cont card into TPNT array CALL ETPUT ( CARD_NAME, EFLAG, J, SID, TCASE1, ITPNT, TE_BULK, IELEM, EL_REDUNDANT_TEMP ) - ENDDO + ENDDO ENDIF ENDIF - + ENDDO cont_cards - + ELSE - - EXIT ! EXIT loop when ICRD exceeds NTCARD - + + EXIT ! EXIT loop when ICRD exceeds NTCARD + ENDIF - + ENDDO ntcrd IF (EL_REDUNDANT_TEMP > 0) THEN @@ -786,43 +786,43 @@ SUBROUTINE ELEM_TEMP_DATA_PROC ( TCASE1, OUNT, READ_ERR, ELID_ERR ) END SUBROUTINE ELEM_TEMP_DATA_PROC ! ################################################################################################################################## - + SUBROUTINE ELEM_TEMP_CHK( ISCNO, JTCOL, IELEM, TEMP_ELM ) - + ! Called by subr TEMPERATURE_PROC for all elements that do not have their temperature defined via a B.D. ! element temperature card (TEMPRB, TEMPP1) to determine if the element's grids have a temperature ! defined via a TEMPD or TEMP entry. If it does, then an avg bulk temperature is calculated from the grid ! tamperature data. This avg bulk temp is loaded into array ETEMP. Output variable TEMP_ELM is a character ! which gives info about how the elem temp was arrived at. - USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MELGP, NGRID USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : ETEMP, CGTEMP, CETEMP_ERR, GTEMP, EDAT, EPNT, ETYPE, GRID_ID, SCNUM, & AGRID, ELGP, EID, TYPE - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELEM_TEMP_CHK' CHARACTER( 1*BYTE), INTENT(OUT) :: TEMP_ELM ! Descriptor of how temperature is defined for elem IELEM: -! = 'D' if all grids have temperature defined on TEMPD -! = 'G' if all grids have temperature defined on TEMP -! = 'B' if grids have temperature defined on TEMPD and TEMP -! = CETEMP_ERR if one or more grids have no temperature defined +! = 'D' if all grids have temperature defined on TEMPD +! = 'G' if all grids have temperature defined on TEMP +! = 'B' if grids have temperature defined on TEMPD and TEMP +! = CETEMP_ERR if one or more grids have no temperature defined CHARACTER( 1*BYTE) :: TEMP_DEF ! = 'Y' if any grid for elem IELEM has TEMPD definition CHARACTER( 1*BYTE) :: TEMP_GRD ! = 'Y' if any grid for elem IELEM has TEMP definition CHARACTER( 1*BYTE) :: TEMP_ERR ! = 'Y' if any grid for elem IELEM has no temperature defined INTEGER(LONG) :: GRID_ID_ROW_NUM ! Row number in array GRID_ID where AGRID(I) is found - INTEGER(LONG) :: I ! DO loop index + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG), INTENT(IN) :: IELEM ! Internal element number for a specific actual element ID INTEGER(LONG), INTENT(IN) :: ISCNO ! Internal subcase number INTEGER(LONG), INTENT(IN) :: JTCOL ! Col in thermal array CGTEMP, CETEMP for internal subcase no. ISCNO - + ! ********************************************************************************************************************************** @@ -840,7 +840,7 @@ SUBROUTINE ELEM_TEMP_CHK( ISCNO, JTCOL, IELEM, TEMP_ELM ) CALL GET_ELGP ( IELEM ) ETEMP(IELEM,JTCOL) = ZERO - DO I=1,ELGP + DO I=1,ELGP AGRID(I) = EDAT(EPNT(IELEM)+I+1) CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, AGRID(I), GRID_ID_ROW_NUM ) IF (CGTEMP(GRID_ID_ROW_NUM,JTCOL) == 'D') THEN @@ -867,7 +867,7 @@ SUBROUTINE ELEM_TEMP_CHK( ISCNO, JTCOL, IELEM, TEMP_ELM ) ELSE IF ((TEMP_DEF == 'Y') .AND. (TEMP_GRD == 'Y')) THEN TEMP_ELM = 'B' ENDIF - + RETURN @@ -876,13 +876,13 @@ SUBROUTINE ELEM_TEMP_CHK( ISCNO, JTCOL, IELEM, TEMP_ELM ) 1526 FORMAT(' *ERROR 1526: CANNOT CALC TEMPERATURE FOR ELEM ',I8,' SUBCASE ',I8,'. GRID ',I8,' HAS NO TEMPERATURE DEFINED') ! ********************************************************************************************************************************** - + END SUBROUTINE ELEM_TEMP_CHK ! ################################################################################################################################## - + SUBROUTINE ETPUT( CARD_NAME, EFLAG, EID, SID, TCASE1, ITPNT, TE_BULK, IELEM, EL_REDUNDANT_TEMP ) - + ! Elem temperature routine - generates the TPNT(i,j) array that points into array TDATA to indicate where temperature ! data for an element begins for a thermal subcase. Also loads avg bulk temp for this elem into array ETEMP and sets ! array CETEMP to state that this elem temp was specified on an elem temp card @@ -893,27 +893,27 @@ SUBROUTINE ETPUT( CARD_NAME, EFLAG, EID, SID, TCASE1, ITPNT, TE_BULK, IELEM, EL_ USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ETEMP, ESORT1, CETEMP, TPNT, TYPE, SUBLOD USE PARAMS, ONLY : SUPWARN - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ETPUT' CHARACTER( 1*BYTE), INTENT(IN) :: EFLAG ! Flag used to decide whether it is an error if an elem in the range CHARACTER( 8*BYTE), PARAMETER :: NAME = 'ELEMENT ' ! name for output error purposes ! IEL_LO to IEL_HI does not exist - CHARACTER(LEN=*), INTENT(IN) :: CARD_NAME ! The 1st field of the parent card of an entry in file L1K - + CHARACTER(LEN=*), INTENT(IN) :: CARD_NAME ! The 1st field of the parent card of an entry in file L1K + INTEGER(LONG), INTENT(IN) :: ITPNT ! Index in array TPNT (a pointer to where temp data for EID starts) INTEGER(LONG), INTENT(IN) :: EID ! Actual element ID INTEGER(LONG), INTENT(IN) :: SID ! Set ID from the elem temperature card being processed INTEGER(LONG), INTENT(OUT) :: IELEM ! Internal element number for the actual element ID, EID INTEGER(LONG), INTENT(INOUT) :: EL_REDUNDANT_TEMP ! Count of warning messages when elements have redundant temperatures - INTEGER(LONG) :: I ! DO loop index + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG), INTENT(IN) :: TCASE1(NSUB) ! TCASE1(I) gives the internal thermal case number for internal S/C I ! If there are 5 subcases and internal S/C 3 is the 1-st S/C to have ! thermal load and internal S/C 5 is the 2-nd to have thermal load: ! TCASE1(1-5) = 0, 0, 1, 0, 2 - + REAL(DOUBLE) , INTENT(IN) :: TE_BULK ! Bulk temperature from element temperature B.D. card @@ -924,41 +924,41 @@ SUBROUTINE ETPUT( CARD_NAME, EFLAG, EID, SID, TCASE1, ITPNT, TE_BULK, IELEM, EL_ IELEM = 0 ! First convert EID to interal value - + CALL GET_ARRAY_ROW_NUM ( 'ESORT1', SUBR_NAME, NELE, ESORT1, EID, IELEM ) - + ! If EID not found then: error if EFLAG = 'Y', or return if EFLAG /= 'Y' - + IF (IELEM == -1) THEN IF (EFLAG == 'Y') THEN - WRITE(ERR,1530) EID, CARD_NAME, SID, TYPE + WRITE(ERR,1530) EID, CARD_NAME, SID, TYPE WRITE(F06,1530) EID, CARD_NAME, SID, TYPE FATAL_ERR = FATAL_ERR + 1 ENDIF RETURN ENDIF - + ! No error, so put pointer into TPNT(i,j) and give warning if the ! element has had a temperature defined previously - + DO I = 1,NSUB IF (SID == SUBLOD(I,2)) THEN IF (TPNT(IELEM,TCASE1(I)) /= 0) THEN EL_REDUNDANT_TEMP = EL_REDUNDANT_TEMP + 1 !xx FATAL_ERR = FATAL_ERR + 1 WARN_ERR = WARN_ERR + 1 - WRITE(ERR,1531) NAME,ESORT1(IELEM) + WRITE(ERR,1531) NAME,ESORT1(IELEM) IF (SUPWARN == 'N') THEN WRITE(F06,1531) NAME,ESORT1(IELEM) - ENDIF - ENDIF + ENDIF + ENDIF TPNT(IELEM,TCASE1(I)) = ITPNT ETEMP(IELEM,TCASE1(I)) = TE_BULK CETEMP(IELEM,TCASE1(I)) = 'E' ENDIF - ENDDO - + ENDDO + RETURN @@ -969,7 +969,7 @@ SUBROUTINE ETPUT( CARD_NAME, EFLAG, EID, SID, TCASE1, ITPNT, TE_BULK, IELEM, EL_ 1531 FORMAT(' *WARNING : ',A8,1X,I8,' HAS TEMPERATURE DEFINED MORE THAN ONCE. LAST VALUE IN INPUT DECK WILL BE USED') ! ********************************************************************************************************************************** - + END SUBROUTINE ETPUT - END SUBROUTINE TEMPERATURE_DATA_PROC \ No newline at end of file + END SUBROUTINE TEMPERATURE_DATA_PROC diff --git a/Source/LK1/L1D/YS_ARRAY.f90 b/Source/LK1/L1D/YS_ARRAY.f90 index bb019a9e..d1802b57 100644 --- a/Source/LK1/L1D/YS_ARRAY.f90 +++ b/Source/LK1/L1D/YS_ARRAY.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE YS_ARRAY - + ! Process enforced displacement data in file LINK1H and write the enforced displacement array, YSe, for use in subsequent LINK's. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1H USE IOUNT1, ONLY : WRT_ERR, LINK1H @@ -37,39 +37,39 @@ SUBROUTINE YS_ARRAY USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : GRID_ID USE COL_VECS, ONLY : YSe - + USE YS_ARRAY_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'YS_ARRAY' - + INTEGER(LONG) :: COMP ! Displ component number read from file LINK1H INTEGER(LONG) :: GRID_ID_ROW_NUM ! Row num in array GRID_ID of the actual grid that the YS displ is at INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR1H ! Count of errors as file LINK1H is read INTEGER(LONG) :: IGRID ! Internal grid ID INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening/reading a file - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: REC_NO ! Record number when reading a file INTEGER(LONG) :: ROW_NUM_START ! Row no. in array TDOF where data begins for GRID_ID(GRID_ID_ROW_NUM) INTEGER(LONG) :: SE_SET_COL_NUM ! Col no., in TDOF array, of the SE-set DOF list INTEGER(LONG) :: TDOF_ROW_NUM ! Row num in array TDOF for DOF corresponding to GRID_ID_ROW_NUM, COMP INTEGER(LONG) :: YSDOF ! SE-set DOF number for the DOF corresponding to GRID_ID_ROW_NUM, COMP - + REAL(DOUBLE) :: YSV ! Enforced displ value read from file LINK1H - + ! ********************************************************************************************************************************** ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! Get YSV values from file L1H array This subr is only called if NDOFSE > 0 so we can assume there is a SE-set - + IERR1H = 0 DO I = 1,NDOFSE READ(L1H,IOSTAT=IOCHK) GRID_ID_ROW_NUM,COMP,YSV @@ -85,27 +85,27 @@ SUBROUTINE YS_ARRAY YSDOF = TDOF(TDOF_ROW_NUM,SE_SET_COL_NUM) YSe(YSDOF) = YSV ENDIF - ENDDO - + ENDDO + ! If there were any errors based on reading above file, quit. - + IF (IERR1H > 0) THEN CALL FILERR ( OUNT ) CALL OUTA_HERE ( 'Y' ) ! Errors reading YSe file, so quit ENDIF - + ! Rewind L1H and write out ordered YSe array - + REWIND (L1H) WRITE(L1H) STIME DO I = 1,NDOFSE WRITE(L1H) YSe(I) - ENDDO - + ENDDO + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE YS_ARRAY diff --git a/Source/LK1/L1E/EMP.f90 b/Source/LK1/L1E/EMP.f90 index b7e1168e..52682879 100644 --- a/Source/LK1/L1E/EMP.f90 +++ b/Source/LK1/L1E/EMP.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE EMP - + ! Element mass processor - + ! EMP generates the portion of the G-set mass matrix due to element mass and puts it into the 1D array EMS of nonzero mass terms -! above the diagonal. Integer arrays EMSKEY, EMSPNT and EMSCOL are generated to form a linked list for the mass terms. - +! above the diagonal. Integer arrays EMSKEY, EMSPNT and EMSCOL are generated to form a linked list for the mass terms. + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, F22, F22FIL, F22_MSG, SC1, WRT_BUG, WRT_ERR @@ -43,18 +43,18 @@ SUBROUTINE EMP USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START USE MODEL_STUF, ONLY : AGRID, ELDT, ELDOF, ELGP, GRID_ID, NUM_EMG_FATAL_ERRS, ME, OELDT, PLY_NUM, TYPE USE EMS_ARRAYS, ONLY : EMS, EMSCOL, EMSKEY, EMSPNT - + USE EMP_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'EMP' CHARACTER( 1*BYTE) :: OPT(6) ! Option flags for subr EMG (to tell it what to calc) - + INTEGER(LONG) :: EDOF(MELDOF) ! A list of the G-set DOF's for an elem INTEGER(LONG) :: EDOF_ROW_NUM ! Row number in array EDOF - INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept + INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: I1 ! Intermediate variable resulting from an IAND operation INTEGER(LONG) :: IDUM ! Dummy variable used when flipping DOF's @@ -69,15 +69,15 @@ SUBROUTINE EMP INTEGER(LONG) :: MGG_ROWJ ! Another row no. in EMS INTEGER(LONG) :: MGG_COL ! A col no. in MGG INTEGER(LONG) :: NUM_COMPS ! 6 if GRID is a physical grid, 1 if a scalar point - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr READERR + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr READERR INTEGER(LONG) :: ROW_NUM_START ! DOF number where TDOF data begins for a grid INTEGER(LONG) :: TDOF_ROW_NUM ! Row number in array TDOF ! Indicator for output of elem data to BUG file - + REAL(DOUBLE) :: DQE(MELDOF,NSUB) ! Dummy array in call to ELEM_TRANSFORM_LBG REAL(DOUBLE) :: EPS1 ! A small number to compare real zero - + INTRINSIC :: DABS, IAND @@ -99,24 +99,24 @@ SUBROUTINE EMP ENDDO ! Set up the option flags for EMG: - + OPT(1) = 'Y' ! OPT(1) is for calc of ME OPT(2) = 'N' ! OPT(2) is for calc of PTE OPT(3) = 'N' ! OPT(3) is for calc of SEi, STEi OPT(4) = 'N' ! OPT(4) is for calc of KE-linear OPT(5) = 'N' ! OPT(5) is for calc of PPE OPT(6) = 'N' ! OPT(6) is for calc of KE-diff stiff - + ! Process the elements: - + IS = 0 ISS = IS IF ((DEBUG(10) == 22) .OR. (DEBUG(10) == 23) .OR. (DEBUG(10) == 32) .OR. (DEBUG(10) == 33)) THEN CALL DUMPEMS ( '0', 0, 0, 0, 0, 0, 0 ) ENDIF - + IERROR = 0 -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages CALL COUNTER_INIT(' Calculating mass matrix. Process elem ', NELE) elems:DO I=1,NELE @@ -141,7 +141,7 @@ SUBROUTINE EMP IF (NUM_EMG_FATAL_ERRS /=0) THEN IERROR = IERROR + NUM_EMG_FATAL_ERRS CYCLE elems - ENDIF + ENDIF I1 = IAND(OELDT,IBIT(ELDT_F22_ME_BIT)) ! Do we need to write elem mass matrices to F22 files IF (I1 > 0) THEN @@ -159,9 +159,9 @@ SUBROUTINE EMP TDOF_ROW_NUM = ROW_NUM_START + K - 1 EDOF_ROW_NUM = EDOF_ROW_NUM + 1 EDOF(EDOF_ROW_NUM) = TDOF(TDOF_ROW_NUM, G_SET_COL_NUM) - ENDDO + ENDDO ENDDO - + ! Transform ME from local at the elem ends to basic at elem ends to global at elem ends to global at grids. ! Transform PTE from local-basic-global @@ -170,10 +170,10 @@ SUBROUTINE EMP CALL ELEM_TRANSFORM_LBG ( 'ME', ME, DQE ) 24357 format(6(1es14.6)) - ENDIF + ENDIF + +! Put the element mass matrix, ME, into EMS array. J ranges over rows, K over cols of elem mass matrix, ME -! Put the element mass matrix, ME, into EMS array. J ranges over rows, K over cols of elem mass matrix, ME - mgg_rows:DO J = 1,ELDOF MGG_ROWJ = EDOF(J) IF ((DEBUG(10) == 22) .OR. (DEBUG(10) == 23) .OR. (DEBUG(10) == 32) .OR. (DEBUG(10) == 33)) THEN @@ -192,7 +192,7 @@ SUBROUTINE EMP IF (DABS(ME(J,K)) < EPS1) THEN CYCLE mgg_cols ENDIF - + IF (SPARSTOR == 'SYM') THEN ! If 'SYM', Flip MGG_COL,MGG_ROW if MGG_COL < MGG_ROW IF (MGG_COL < MGG_ROW) THEN IDUM = MGG_ROW @@ -226,8 +226,8 @@ SUBROUTINE EMP emspnt0: DO ! so, run this loop until we find a place to put ME(J,K). If there is ! already a term in this row w/ same DOF's as ME(J,K), loop runs once. ! If not, then this loop runs until it finds EMSPNT=0, and insetrs term. - - IF (MGG_COL == EMSCOL(IS)) THEN ! There is a term that exists with same DOF'S as ME(J,K) so add terms + + IF (MGG_COL == EMSCOL(IS)) THEN ! There is a term that exists with same DOF'S as ME(J,K) so add terms EMS(IS) = EMS(IS) + ME(J,K) IF ((DEBUG(10) == 22) .OR. (DEBUG(10) == 23) .OR. (DEBUG(10) == 32) .OR. (DEBUG(10) == 33)) THEN @@ -235,12 +235,12 @@ SUBROUTINE EMP ENDIF CYCLE mgg_cols ! We have added a term to EMS so exit this loop and do next col of MGG - + ELSE ! This is a new term for row J. Need to cycle until we find EMSPNT = 0. ! Then we can put ME(J,K) in EMS ISS = IS IS = EMSPNT(IS) - IF (IS == 0) THEN ! We are at end of where terms are in this row, so ME(J,K) goes here + IF (IS == 0) THEN ! We are at end of where terms are in this row, so ME(J,K) goes here IF (NTERM_MGGE+1 > LTERM_MGGE) THEN WRITE(ERR,1624) SUBR_NAME, 'MASS', 'LTERM_MGGE', LTERM_MGGE WRITE(F06,1624) SUBR_NAME, 'MASS', 'LTERM_MGGE', LTERM_MGGE @@ -248,39 +248,39 @@ SUBROUTINE EMP ENDIF NTERM_MGGE = NTERM_MGGE+1! Increment NTERM_MGGE EMSPNT(ISS) = NTERM_MGGE ! EMSPNT for the current ME(J,K) term - EMSPNT(NTERM_MGGE) = 0 ! Latest EMSPNT is set to 0 so we will know when to insert next ME(J,K) + EMSPNT(NTERM_MGGE) = 0 ! Latest EMSPNT is set to 0 so we will know when to insert next ME(J,K) EMSCOL(NTERM_MGGE) = MGG_COL ! EMSCOL always is MGG_COL EMS (NTERM_MGGE) = ME(J,K) IF ((DEBUG(10) == 22) .OR. (DEBUG(10) == 23) .OR. (DEBUG(10) == 32) .OR. (DEBUG(10) == 33)) THEN CALL DUMPEMS ( 'C', J, K, MGG_ROW, MGG_COL, IS, ISS ) ENDIF - CYCLE mgg_cols ! We put ME(J,K) into EMS so exit this loop and do next col of MGG + CYCLE mgg_cols ! We put ME(J,K) into EMS so exit this loop and do next col of MGG ELSE ! EMSPNT /= 0 so cycle this loop until we get it = 0 CYCLE emspnt0 ENDIF - + ENDIF - ENDDO emspnt0 - + ENDDO emspnt0 + ENDIF - - ENDDO mgg_cols - ENDDO mgg_rows + ENDDO mgg_cols + + ENDDO mgg_rows CALL COUNTER_PROGRESS(I) - ENDDO elems + ENDDO elems WRITE(SC1,*) CR13 ! Debug output: - + IF((DEBUG(10) == 21) .OR. (DEBUG(10) == 22) .OR. (DEBUG(10) == 23) .OR. & (DEBUG(10) == 31) .OR. (DEBUG(10) == 32) .OR. (DEBUG(10) == 33)) THEN WRITE(F06,1260) - MAX_NUM = MAX(NTERM_MGGE,NDOFG) + MAX_NUM = MAX(NTERM_MGGE,NDOFG) DO I=1,MAX_NUM IF (MAX_NUM == NTERM_MGGE) THEN IF (NDOFG >= I) THEN @@ -295,15 +295,15 @@ SUBROUTINE EMP WRITE(F06,1263) I,EMSKEY(I) ENDIF ENDIF - ENDDO + ENDDO WRITE(F06,*) ENDIF - + ! Reset subr EMG option flags: - + OPT(3) = 'N' OPT(4) = 'N' - + ! Quit if IERROR > 0 IF (IERROR > 0) THEN @@ -316,7 +316,7 @@ SUBROUTINE EMP RETURN ! ********************************************************************************************************************************** - 1260 FORMAT(/,' I EMSKEY(I) EMSCOL(I) EMSPNT(I) EMS(I)') + 1260 FORMAT(/,' I EMSKEY(I) EMSCOL(I) EMSPNT(I) EMS(I)') 1261 FORMAT(1X,I12,I12,I12,I12,3X,1ES21.14) @@ -333,11 +333,11 @@ SUBROUTINE EMP &******') ! ********************************************************************************************************************************** - + ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE DUMPEMS ( WHAT, J, K, MGG_ROW, MGG_COL, IS, ISS ) @@ -358,8 +358,8 @@ SUBROUTINE DUMPEMS ( WHAT, J, K, MGG_ROW, MGG_COL, IS, ISS ) INTEGER(LONG) :: ISS ! A particular value of IS INTEGER(LONG) , INTENT(IN) :: J ! Row number of elem mass matrix term, ME(J,K) INTEGER(LONG) , INTENT(IN) :: K ! Col number of elem mass matrix term, ME(J,K) - INTEGER(LONG) , INTENT(IN) :: MGG_COL ! Row number of MGG matrix where ME(J,K) goes - INTEGER(LONG) , INTENT(IN) :: MGG_ROW ! Col number of MGG matrix where ME(J,K) goes + INTEGER(LONG) , INTENT(IN) :: MGG_COL ! Row number of MGG matrix where ME(J,K) goes + INTEGER(LONG) , INTENT(IN) :: MGG_ROW ! Col number of MGG matrix where ME(J,K) goes ! ********************************************************************************************************************************** IF (WHAT == '0') THEN diff --git a/Source/LK1/L1E/EMP0.f90 b/Source/LK1/L1E/EMP0.f90 index a444dc8c..e7d801c0 100644 --- a/Source/LK1/L1E/EMP0.f90 +++ b/Source/LK1/L1E/EMP0.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE EMP0 - + ! Provides an estimate of LTERM_MGGE, which is the size that is required for the G-set mass array for element (not grid point) mass, ! MGGE. The estimate is needed so that MGGE can be allocated. @@ -70,46 +70,46 @@ SUBROUTINE EMP0 LTERM_MGGE = USR_LTERM_MGG ENDIF - + RETURN ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## - + SUBROUTINE EMP0_0 - + ! Estimates LTERM_MGGE based on full elem mass matrices in an unassembled state (not connected) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : LTERM_MGGE, NELE, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SPARSTOR, SUPINFO USE MODEL_STUF, ONLY : EDAT, EID, EPNT, ETYPE, ELGP, TYPE - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'EMP0_0' INTEGER(LONG) :: DELTA_LTERM_MGGE ! Increment of LTERM_MGGE for one element INTEGER(LONG) :: I ! DO loop index - - + + ! ********************************************************************************************************************************** ! Process the elements: Assume mass has no coupling from one grid to another - + LTERM_MGGE = 0 DO I = 1,NELE - + CALL GET_ELGP ( I ) IF (SPARSTOR == 'SYM ') THEN @@ -119,10 +119,10 @@ SUBROUTINE EMP0_0 DELTA_LTERM_MGGE = (6*ELGP)*(6*ELGP) LTERM_MGGE = LTERM_MGGE + DELTA_LTERM_MGGE ! NONSYM can have full matrix ENDIF - + ENDDO - + WRITE(ERR,4321) LTERM_MGGE, SETLKTM IF (SUPINFO == 'N') THEN WRITE(F06,4321) LTERM_MGGE, SETLKTM @@ -137,15 +137,15 @@ SUBROUTINE EMP0_0 ' BASED ON PARAM SETLKTM = ',I3) ! ********************************************************************************************************************************** - + END SUBROUTINE EMP0_0 ! ################################################################################################################################## - + SUBROUTINE EMP0_3 - + ! Estimates LTERM_MGG based on actual element mass matrices unconnected. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, LTERM_MGGE, MELDOF, NELE, NSUB @@ -153,12 +153,12 @@ SUBROUTINE EMP0_3 USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : ELDOF, NUM_EMG_FATAL_ERRS, ME, PLY_NUM, TYPE - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'EMP0_3' CHARACTER( 1*BYTE) :: OPT(6) ! Option flags for subr EMG (to tell it what to calc) - + INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: IERROR ! Local error indicator INTEGER(LONG) :: KSTART ! Index @@ -166,13 +166,13 @@ SUBROUTINE EMP0_3 REAL(DOUBLE) :: DQE(MELDOF,NSUB) ! Dummy array in call to ELEM_TRANSFORM_LBG REAL(DOUBLE) :: EPS1 ! A small number to compare real zero - + INTRINSIC :: DABS ! ********************************************************************************************************************************** -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages EPS1 = EPSIL(1) @@ -185,16 +185,16 @@ SUBROUTINE EMP0_3 ENDDO ! Set up the option flags for EMG: - + OPT(1) = 'Y' ! OPT(1) is for calc of ME OPT(2) = 'N' ! OPT(2) is for calc of PTE OPT(3) = 'N' ! OPT(3) is for calc of SEi, STEi OPT(4) = 'N' ! OPT(4) is for calc of KE-linear OPT(5) = 'N' ! OPT(5) is for calc of PPE OPT(6) = 'N' ! OPT(6) is for calc of KE-diff stiff - + ! Process the elements: - + IERROR = 0 LTERM_MGGE = 0 CALL COUNTER_INIT(' Estimate size of MGG: process elem ', NELE) @@ -206,13 +206,13 @@ SUBROUTINE EMP0_3 IF (NUM_EMG_FATAL_ERRS /=0) THEN IERROR = IERROR + NUM_EMG_FATAL_ERRS CYCLE elems - ENDIF + ENDIF ! Transform ME from local at the elem ends to basic at elem ends to global at elem ends to global at grids. ! Transform PTE from local-basic-global IF ((TYPE(1:4) /= 'ELAS') .AND. (TYPE /= 'USERIN '))THEN CALL ELEM_TRANSFORM_LBG ( 'ME', ME, DQE ) - ENDIF + ENDIF ! Count nonzero terms in transformed ME @@ -259,7 +259,7 @@ SUBROUTINE EMP0_3 9876 FORMAT(/,' PROCESSING ABORTED DUE TO ABOVE ',I8,' ELEMENT GENERATION ERRORS') ! ********************************************************************************************************************************** - + END SUBROUTINE EMP0_3 END SUBROUTINE EMP0 diff --git a/Source/LK1/L1E/ESP.f90 b/Source/LK1/L1E/ESP.f90 index 4cf47c37..6ea64615 100644 --- a/Source/LK1/L1E/ESP.f90 +++ b/Source/LK1/L1E/ESP.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ESP - + ! Element stiffness processor - + ! ESP generates the G-set stiffness matrix and puts it into the 1D array STF of nonzero stiffness terms above the ! diagonal. - + ! ESP processes the elements sequentially to generate element KE matrix using the EMG set of routines. The element ! stiffness are transformed from local to basic to global coords for each grid and then merged into the system ! stiffness, STF, array. See explanation, with an example, in module STF_ARRAYS @@ -52,21 +52,21 @@ SUBROUTINE ESP USE STF_ARRAYS, ONLY : STFKEY, STF3 USE STF_TEMPLATE_ARRAYS, ONLY : CROW, TEMPLATE USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE ESP_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ESP' CHARACTER( 1*BYTE) :: OPT(6) ! Option flags for subr EMG (to tell it what to calc) CHARACTER(24*BYTE) :: NAME ! Name for output error purposes CHARACTER(FILE_NAM_MAXLEN*BYTE) :: SCRFIL ! File name - + INTEGER(LONG), PARAMETER :: DEB_NUM = 46 ! Debug number for output error message INTEGER(LONG) :: EDOF(MELDOF) ! A list of the G-set DOF's for an elem INTEGER(LONG) :: EDOF_ROW_NUM ! Row number in array EDOF - INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept + INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: I1 ! Intermediate variable resulting from an IAND operation INTEGER(LONG) :: IDUM ! Dummy variable used when flipping DOF's @@ -83,7 +83,7 @@ SUBROUTINE ESP INTEGER(LONG) :: MAX_NUM ! MAX of NTERM_KGG/NDOFG (used for DEBUG printout) INTEGER(LONG) :: NTERM ! Either NTERM_KGGD (BUCKLING) or NTERM_KGG otherwise INTEGER(LONG) :: NUM_COMPS ! 6 if GRID is a physical grid, 1 if a scalar point - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. INTEGER(LONG) :: PKTERM ! Count of the terms in TEMPLATE for nonzero stiffness terms INTEGER(LONG) :: REC_NO ! Record number when reading a file INTEGER(LONG) :: ROW_NUM_START ! DOF number where TDOF data begins for a grid @@ -94,7 +94,7 @@ SUBROUTINE ESP REAL(DOUBLE) :: DQE(MELDOF,NSUB) ! Dummy array in call to ELEM_TRANSFORM_LBG REAL(DOUBLE) :: EPS1 ! A small number to compare real zero - + INTRINSIC :: DABS INTRINSIC :: IAND INTRINSIC :: MAX @@ -106,10 +106,10 @@ SUBROUTINE ESP NTERM = 0 ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! Null dummy array DQE used in call to ELEM_TRANSFORM_LBG DO I=1,MELDOF @@ -140,7 +140,7 @@ SUBROUTINE ESP OPT(2) = 'N' ! OPT(2) is for calc of PTE OPT(3) = 'N' ! OPT(3) is for calc of SEi, STEi OPT(5) = 'N' ! OPT(5) is for calc of PPE - + IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN OPT(4) = 'N' ! OPT(4) is for calc of KE-linear OPT(6) = 'Y' ! OPT(6) is for calc of KE-nonlinear @@ -153,15 +153,15 @@ SUBROUTINE ESP ENDIF ! Process the elements: - + IS = 0 ISS = IS IF ((DEBUG(10) == 12) .OR. (DEBUG(10) == 13) .OR. (DEBUG(10) == 32) .OR. (DEBUG(10) == 33)) THEN CALL DUMPSTF ( '0', 0, 0, 0, 0, 0, 0 ) ENDIF - + IERROR = 0 -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages CALL COUNTER_INIT(' Calculating stiff matrix. Process elem ', NELE) elems:DO I=1,NELE @@ -206,14 +206,14 @@ SUBROUTINE ESP IF ((WRT_BUG(4) == 1) .OR. (WRT_BUG(5) == 1)) THEN OPT(3) = 'Y' ENDIF - + PLY_NUM = 0 CALL EMG ( I , OPT, 'Y', SUBR_NAME, 'Y' ) ! 'N' means do not write to BUG file IF (NUM_EMG_FATAL_ERRS /=0) THEN IERROR = IERROR + NUM_EMG_FATAL_ERRS CYCLE elems - ENDIF + ENDIF I1 = IAND(OELDT,IBIT(ELDT_F23_KE_BIT)) ! Do we need to write elem stiff matrices to F23 files? IF (I1 > 0) THEN @@ -235,9 +235,9 @@ SUBROUTINE ESP TDOF_ROW_NUM = ROW_NUM_START + K - 1 EDOF_ROW_NUM = EDOF_ROW_NUM + 1 EDOF(EDOF_ROW_NUM) = TDOF(TDOF_ROW_NUM, G_SET_COL_NUM) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Write diagonostics on negative diag stiffness before transformation to global IF ((DEBUG(189) == 1) .OR. (DEBUG(189) == 3)) THEN @@ -252,7 +252,7 @@ SUBROUTINE ESP ELSE CALL ELEM_TRANSFORM_LBG ( 'KE' , KE , DQE ) ENDIF - ENDIF + ENDIF ! Write diagonostics on negative diag stiffness after transformation to global @@ -260,8 +260,8 @@ SUBROUTINE ESP CALL WRITE_NEG_DIAG_STIFFNESS ( 2 ) ENDIF -! Put the elem stiff matrix, KE, or KED (now in global coords), into STF array. J ranges over rows, K over cols of elem stiff mat - +! Put the elem stiff matrix, KE, or KED (now in global coords), into STF array. J ranges over rows, K over cols of elem stiff mat + kgg_rows:DO J = 1,ELDOF KGG_ROWJ = EDOF(J) IF ((DEBUG(10) == 12) .OR. (DEBUG(10) == 13) .OR. (DEBUG(10) == 32) .OR. (DEBUG(10) == 33)) THEN @@ -286,7 +286,7 @@ SUBROUTINE ESP CYCLE kgg_cols ENDIF ENDIF - + IF (SPARSTOR == 'SYM') THEN ! If 'SYM', Flip KGG_COL,KGG_ROW if KGG_COL < KGG_ROW IF (KGG_COL < KGG_ROW) THEN IDUM = KGG_ROW @@ -332,14 +332,14 @@ SUBROUTINE ESP IF ((DEBUG(10) == 12) .OR. (DEBUG(10) == 13) .OR. (DEBUG(10) == 32) .OR. (DEBUG(10) == 33)) THEN CALL DUMPSTF ( 'A', J, K, KGG_ROW, KGG_COL, IS, ISS ) ENDIF - + ELSE ! STFKEY(KGG_ROW) /= 0 means there are already some terms in row KGG_ROW stfpnt0: DO ! so, run this loop until we find a place to put stiff(J,K). If there is ! already a term in this row w/ same DOF's as stiff(J,K), loop runs once. ! If not, then this loop runs until it finds STFPNT=0, and inserts term. - - IF (KGG_COL == STF3(IS)%Col_1) THEN ! There is a term that exists with same DOF'S as stiff(J,K) so add terms + + IF (KGG_COL == STF3(IS)%Col_1) THEN ! There is a term that exists with same DOF'S as stiff(J,K) so add terms IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN STF3(IS)%Col_3 = STF3(IS)%Col_3 + KED(J,K) @@ -362,12 +362,12 @@ SUBROUTINE ESP ENDIF CYCLE kgg_cols ! We have added a term to STF so exit this loop and go to next col of KGG - + ELSE ! This is a new term for row J. Need to cycle until we find STFPNT = 0. ! Then we can put KE(J,K), or KED(J,K) in STF ISS = IS IS = STF3(IS)%Col_2 - IF (IS == 0) THEN ! We are at end of where terms are in this row, so stiff(J,K) goes here + IF (IS == 0) THEN ! We are at end of where terms are in this row, so stiff(J,K) goes here IF ((DEBUG(10) == 13) .OR. (DEBUG(10) == 33)) THEN IF (ALLOCATED(TEMPLATE)) THEN TEMPLATE(KGG_ROW,KGG_COL) = .TRUE. @@ -398,30 +398,30 @@ SUBROUTINE ESP CALL DUMPSTF ( 'C', J, K, KGG_ROW, KGG_COL, IS, ISS ) ENDIF - CYCLE kgg_cols ! We put stiff(J,K) into STF so exit this loop and go to next col of KGG + CYCLE kgg_cols ! We put stiff(J,K) into STF so exit this loop and go to next col of KGG ELSE ! STFPNT /= 0 so cycle this loop until we get it = 0 CYCLE stfpnt0 ENDIF - + ENDIF - ENDDO stfpnt0 - + ENDDO stfpnt0 + ENDIF - - ENDDO kgg_cols - ENDDO kgg_rows + ENDDO kgg_cols + + ENDDO kgg_rows CALL COUNTER_PROGRESS(I) - ENDDO elems + ENDDO elems WRITE(SC1,*) CR13 - + ! Reset subr EMG option flags: - + OPT(3) = 'N' OPT(4) = 'N' OPT(6) = 'N' - + ! Quit if IERROR > 0 IF (IERROR > 0) THEN @@ -432,7 +432,7 @@ SUBROUTINE ESP ! Print out TEMPLATE which shows where the nonzero values are in the upper triangle of the stiffness matrix - IF ((DEBUG(10) == 13) .OR. (DEBUG(10) == 33)) THEN + IF ((DEBUG(10) == 13) .OR. (DEBUG(10) == 33)) THEN IF (ALLOCATED(TEMPLATE)) THEN @@ -442,10 +442,10 @@ SUBROUTINE ESP IF (TEMPLATE(I,J)) THEN PKTERM = PKTERM + 1 ENDIF - ENDDO + ENDDO ENDDO - WRITE(F06,14002) PKTERM + WRITE(F06,14002) PKTERM WRITE(F06,*) DO I=1,NDOFG DO J=1,NDOFG @@ -457,7 +457,7 @@ SUBROUTINE ESP ELSE CROW(J) = '_' ENDIF - ENDDO + ENDDO WRITE(F06,*) (CROW(J),J=1,NDOFG) ENDDO WRITE(F06,*) @@ -471,16 +471,16 @@ SUBROUTINE ESP ENDIF ENDIF - -! Deallocate TEMPLATE and CROW arrays + +! Deallocate TEMPLATE and CROW arrays IF ((ALLOCATED(TEMPLATE)) .OR. (ALLOCATED(CROW))) THEN CALL DEALLOCATE_TEMPLATE - ENDIF + ENDIF ! Open a scratch file that will be used to write array STF3 so that we can deallocate them and then reallocate them with the exact ! amount of memory they need (so we do have wasted memory going into subr SPARSE_KGG) - + SCRFIL(1:) = ' ' SCRFIL(1:9) = 'SCRATCH-991' OPEN (SCR(1),STATUS='SCRATCH',POSITION='REWIND',FORM='UNFORMATTED',ACTION='READWRITE',IOSTAT=IOCHK) @@ -523,11 +523,11 @@ SUBROUTINE ESP ! ********************************************************************************************************************************** ! Debug output: - + IF((DEBUG(10) == 11) .OR. (DEBUG(10) == 12) .OR. (DEBUG(10) == 13) .OR. & (DEBUG(10) == 31) .OR. (DEBUG(10) == 32) .OR. (DEBUG(10) == 33)) THEN WRITE(F06,1260) - MAX_NUM = MAX(NTERM,NDOFG) + MAX_NUM = MAX(NTERM,NDOFG) DO I=1,MAX_NUM IF (MAX_NUM == NTERM) THEN IF (NDOFG >= I) THEN @@ -542,16 +542,16 @@ SUBROUTINE ESP WRITE(F06,1263) I,STFKEY(I) ENDIF ENDIF - ENDDO + ENDDO WRITE(F06,*) ENDIF - + RETURN ! ********************************************************************************************************************************** - 1260 FORMAT(/,' I STFKEY(I) STFCOL(I) STFPNT(I) STF(I)') + 1260 FORMAT(/,' I STFKEY(I) STFCOL(I) STFPNT(I) STF(I)') 1261 FORMAT(1X,I12,I12,I12,I12,3X,1ES21.14) @@ -583,11 +583,11 @@ SUBROUTINE ESP 88773 format(' In ESP #3: J, K, IS, NTERM_KGG, KGG(diagonal term) = ',4i8,1es15.6) ! ********************************************************************************************************************************** - + ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE DUMPSTF ( WHAT, J, K, KGG_ROW, KGG_COL, IS, ISS ) @@ -607,8 +607,8 @@ SUBROUTINE DUMPSTF ( WHAT, J, K, KGG_ROW, KGG_COL, IS, ISS ) INTEGER(LONG) :: ISS ! A particular value of IS INTEGER(LONG) , INTENT(IN) :: J ! Row number of elem stiff matrix term, KE(J,K), or KED(J,K) INTEGER(LONG) , INTENT(IN) :: K ! Col number of elem stiff matrix term, KE(J,K), or KED(J,K) - INTEGER(LONG) , INTENT(IN) :: KGG_COL ! Row number of KGG matrix where KE(J,K), or KED(J,K), goes - INTEGER(LONG) , INTENT(IN) :: KGG_ROW ! Col number of KGG matrix where KE(J,K), or KED(J,K), goes + INTEGER(LONG) , INTENT(IN) :: KGG_COL ! Row number of KGG matrix where KE(J,K), or KED(J,K), goes + INTEGER(LONG) , INTENT(IN) :: KGG_ROW ! Col number of KGG matrix where KE(J,K), or KED(J,K), goes ! ********************************************************************************************************************************** IF (WHAT == '0') THEN @@ -689,7 +689,7 @@ SUBROUTINE WRITE_NEG_DIAG_STIFFNESS ( WHAT ) MAX_ABS_DIAG = ZE(II,II) ENDIF IF (ZE(II,II) < 0.D0) THEN - NUM_DIAG_NEGS = NUM_DIAG_NEGS + 1 + NUM_DIAG_NEGS = NUM_DIAG_NEGS + 1 ENDIF ENDDO diff --git a/Source/LK1/L1E/ESP0.f90 b/Source/LK1/L1E/ESP0.f90 index 37c27999..628ee251 100644 --- a/Source/LK1/L1E/ESP0.f90 +++ b/Source/LK1/L1E/ESP0.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ESP0 - + ! Provides an estimate of the size that is required for array KGG or KGGD. The estimate is needed so that the G-set stiffness ! matrix can be allocated. There are 4 possible means of providing the estimate of this size, and they all use Bulk Data ! PARAM SETLKTK. The variable used here to estimate the size of either the KGG or KGGD stiffness matrix is LTERM. After all @@ -97,7 +97,7 @@ SUBROUTINE ESP0 LTERM = USR_LTERM_KGG ENDIF - + ! Now use LTERM to be the estimate for the appropriate G-set stiffness: IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN @@ -111,15 +111,15 @@ SUBROUTINE ESP0 RETURN ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## - + SUBROUTINE ESP0_0 ( LTERM ) - + ! Estimates LTERM based on full elem stiffness matrices in an unassembled state (not connected) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, NELE, SOL_NAME @@ -128,26 +128,26 @@ SUBROUTINE ESP0_0 ( LTERM ) USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP USE MODEL_STUF, ONLY : EDAT, EPNT, ETYPE, ELGP, TYPE use model_stuf, only : eid - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ESP0_0' INTEGER(LONG), INTENT(OUT) :: LTERM ! Count of number of estimated terms in KGG or KGGD INTEGER(LONG) :: DELTA_LTERM ! Increment of LTERM for one element INTEGER(LONG) :: I ! DO loop index - - + + ! ********************************************************************************************************************************** ! Process the elements: Asume each is has a stiffness matrix that is completely full - + LTERM = 0 DO I = 1,NELE - + CALL GET_ELGP ( I ) IF (SPARSTOR == 'SYM ') THEN @@ -158,9 +158,9 @@ SUBROUTINE ESP0_0 ( LTERM ) LTERM = LTERM + DELTA_LTERM ! NONSYM can have full matrix ENDIF - - ENDDO - + + ENDDO + IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN WRITE(ERR,4321) LTERM, SETLKTK IF (SUPINFO == 'N') THEN @@ -185,33 +185,33 @@ SUBROUTINE ESP0_0 ( LTERM ) ' BASED ON PARAM SETLKTK = ',I3) ! ********************************************************************************************************************************** - + END SUBROUTINE ESP0_0 ! ################################################################################################################################## - + SUBROUTINE ESP0_1 ( LTERM ) - + ! Estimates LTERM based on number of rows in the stiff matrix times the stiffness matrix bandwidth from BANDIT. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : F06 USE SCONTR, ONLY : KMAT_BW, KMAT_DEN, NDOFG, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ESP0_1' INTEGER(LONG), INTENT(OUT) :: LTERM ! Count of number of estimated terms in KGG or KGGD - - + + ! ********************************************************************************************************************************** ! Estimate number of nonzero terms as the number of rows in the stiff matrix times the stiff matrix bandwidth: - + LTERM = NDOFG*KMAT_BW IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN @@ -240,35 +240,35 @@ SUBROUTINE ESP0_1 ( LTERM ) ,/,100X,' NDOFG = ',I12,/,100X,' BANDIT BW = ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE ESP0_1 ! ################################################################################################################################## - + SUBROUTINE ESP0_2 ( LTERM ) - + ! Estimates LTERM based on the full size of the stiffness matrix times the density returned from subr BANDIT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : F06 USE SCONTR, ONLY : BLNK_SUB_NAM, KMAT_BW, KMAT_DEN, NDOFG, SOL_NAME USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ONE_HUNDRED USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ESP0_2' INTEGER(LONG), INTENT(OUT) :: LTERM ! Count of number of estimated terms in KGG or KGGD - - + + ! ********************************************************************************************************************************** ! Estimate number of nonzero terms as the number of rows in the stiff matrix times the stiff matrix bandwidth: - + LTERM = NINT((KMAT_DEN/ONE_HUNDRED)*NDOFG*NDOFG) ! KMAT_DEN is in % IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN @@ -297,15 +297,15 @@ SUBROUTINE ESP0_2 ( LTERM ) ,/,100X,' NDOFG = ',I12,/,100X,' MATRIX DENSITY= ',1ES11.3,'%') ! ********************************************************************************************************************************** - + END SUBROUTINE ESP0_2 ! ################################################################################################################################## - + SUBROUTINE ESP0_3 ( LTERM ) - + ! Estimates LTERM based on actual element stiffness matrices unconnected. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, MELDOF, NELE, NSUB, SOL_NAME @@ -314,12 +314,12 @@ SUBROUTINE ESP0_3 ( LTERM ) USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : ELDOF, NUM_EMG_FATAL_ERRS, PLY_NUM, KE, TYPE - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ESP0_3' CHARACTER( 1*BYTE) :: OPT(6) ! Option flags for subr EMG (to tell it what to calc) - + INTEGER(LONG), INTENT(OUT) :: LTERM ! Count of number of estimated terms in KGG or KGGD INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: IERROR ! Local error indicator @@ -328,13 +328,13 @@ SUBROUTINE ESP0_3 ( LTERM ) REAL(DOUBLE) :: DQE(MELDOF,NSUB) ! Dummy array in call to ELEM_TRANSFORM_LBG REAL(DOUBLE) :: EPS1 ! A small number to compare real zero - + INTRINSIC :: DABS ! ********************************************************************************************************************************** -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages EPS1 = EPSIL(1) @@ -347,12 +347,12 @@ SUBROUTINE ESP0_3 ( LTERM ) ENDDO ! Set up the option flags for EMG: - + OPT(1) = 'N' ! OPT(1) is for calc of ME OPT(2) = 'N' ! OPT(2) is for calc of PTE OPT(3) = 'N' ! OPT(3) is for calc of SEi, STEi OPT(5) = 'N' ! OPT(5) is for calc of PPE - + IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN OPT(4) = 'N' ! OPT(4) is for calc of KE-linear OPT(6) = 'Y' ! OPT(6) is for calc of KE-nonlinear @@ -365,7 +365,7 @@ SUBROUTINE ESP0_3 ( LTERM ) ENDIF ! Process the elements: - + IERROR = 0 LTERM = 0 CALL COUNTER_INIT('Estimate size of KGG: process elem ', NELE) @@ -377,13 +377,13 @@ SUBROUTINE ESP0_3 ( LTERM ) IF (NUM_EMG_FATAL_ERRS /=0) THEN IERROR = IERROR + NUM_EMG_FATAL_ERRS CYCLE elems - ENDIF + ENDIF ! Transform KE from local at the elem ends to basic at elem ends to global at elem ends to global at grids. ! Transform PTE from local-basic-global IF ((TYPE(1:4) /= 'ELAS') .AND. (TYPE /= 'USERIN '))THEN CALL ELEM_TRANSFORM_LBG ( 'KE', KE, DQE ) - ENDIF + ENDIF ! Count nonzero terms in transformed KE @@ -439,7 +439,7 @@ SUBROUTINE ESP0_3 ( LTERM ) 9876 FORMAT(/,' PROCESSING ABORTED DUE TO ABOVE ',I8,' ELEMENT GENERATION ERRORS') ! ********************************************************************************************************************************** - + END SUBROUTINE ESP0_3 ! ################################################################################################################################## @@ -458,8 +458,8 @@ SUBROUTINE DUMPSTF0 ( WHAT, J, K, KGG_ROW, KGG_COL ) INTEGER(LONG) , INTENT(IN) :: J ! Row number of elem stiff matrix term, KE(J,K) INTEGER(LONG) , INTENT(IN) :: K ! Col number of elem stiff matrix term, KE(J,K) - INTEGER(LONG) , INTENT(IN) :: KGG_COL ! Row number of KGG matrix where KE(J,K) goes - INTEGER(LONG) , INTENT(IN) :: KGG_ROW ! Col number of KGG matrix where KE(J,K) goes + INTEGER(LONG) , INTENT(IN) :: KGG_COL ! Row number of KGG matrix where KE(J,K) goes + INTEGER(LONG) , INTENT(IN) :: KGG_ROW ! Col number of KGG matrix where KE(J,K) goes ! ********************************************************************************************************************************** IF (WHAT == '0') THEN @@ -475,7 +475,7 @@ SUBROUTINE DUMPSTF0 ( WHAT, J, K, KGG_ROW, KGG_COL ) RETURN ! ********************************************************************************************************************************** - 8910 FORMAT(1X,' ELEM J K KGG_ROW KGG_COL') + 8910 FORMAT(1X,' ELEM J K KGG_ROW KGG_COL') 8930 FORMAT(1X,'A',I8,I8,I8,I8,I8) diff --git a/Source/LK1/L1E/ESP0_FINAL.f90 b/Source/LK1/L1E/ESP0_FINAL.f90 index 18fbb386..ad1da128 100644 --- a/Source/LK1/L1E/ESP0_FINAL.f90 +++ b/Source/LK1/L1E/ESP0_FINAL.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ESP0_FINAL - + ! Estimate number of terms in stiffness matrix by going through the complete process of generating it except that terms are not put ! into array STF. This way, we only need to allocate arrays STFCOL, STFPNT with the conservative estimate of LTERM_KGG. Once this ! subr finishes, we will hae an exact value of LTERM_KGG at which time we deallocate STFCOL, STFPNT and allocate them plus STF with ! the exact LTERM_KGG and then calculate them in subr ESP. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, IBIT, LTERM_KGG, MELDOF, NELE, NGRID, NTERM_KGG, NSUB @@ -41,18 +41,18 @@ SUBROUTINE ESP0_FINAL USE MODEL_STUF, ONLY : AGRID, ELDT, ELDOF, ELGP, GRID_ID, NUM_EMG_FATAL_ERRS, PLY_NUM, KE, TYPE USE STF_ARRAYS, ONLY : STFKEY, STF3 USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE ESP0_FINAL_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ESP0_FINAL' CHARACTER( 1*BYTE) :: OPT(6) ! Option flags for subr EMG (to tell it what to calc) - + INTEGER(LONG) :: EDOF(MELDOF) ! A list of the G-set DOF's for an elem INTEGER(LONG) :: EDOF_ROW_NUM ! Row number in array EDOF - INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept + INTEGER(LONG) :: G_SET_COL_NUM ! Col no. in array TDOF where G-set DOF's are kept INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: IDUM ! Dummy variable used when flipping DOF's INTEGER(LONG) :: IGRID ! Internal grid ID @@ -71,13 +71,13 @@ SUBROUTINE ESP0_FINAL REAL(DOUBLE) :: DQE(MELDOF,NSUB) ! Dummy array in call to ELEM_TRANSFORM_LBG REAL(DOUBLE) :: EPS1 ! A small number to compare real zero - + INTRINSIC :: DABS ! ********************************************************************************************************************************** -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages EPS1 = EPSIL(1) @@ -90,16 +90,16 @@ SUBROUTINE ESP0_FINAL ENDDO ! Set up the option flags for EMG: - + OPT(1) = 'N' ! OPT(1) is for calc of ME OPT(2) = 'N' ! OPT(2) is for calc of PTE OPT(3) = 'N' ! OPT(3) is for calc of SEi, STEi OPT(4) = 'Y' ! OPT(4) is for calc of KE-linear OPT(5) = 'N' ! OPT(5) is for calc of PPE OPT(6) = 'N' ! OPT(6) is for calc of KE-diff stiff - + ! Process the elements: - + IS = 0 ISS = IS LTERM_KGG = 0 @@ -120,17 +120,17 @@ SUBROUTINE ESP0_FINAL TDOF_ROW_NUM = ROW_NUM_START + K - 1 EDOF_ROW_NUM = EDOF_ROW_NUM + 1 EDOF(EDOF_ROW_NUM) = TDOF(TDOF_ROW_NUM, G_SET_COL_NUM) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Transform KE from local at the elem ends to basic at elem ends to global at elem ends to global at grids. ! Transform PTE from local-basic-global IF ((TYPE(1:4) /= 'ELAS') .AND. (TYPE /= 'USERIN '))THEN CALL ELEM_TRANSFORM_LBG ( 'KE', KE, DQE ) - ENDIF + ENDIF + +! Put the element stiff matrix, KE (now in global coords), into STF array. J ranges over rows, K over cols of elem stiff matrix, KE -! Put the element stiff matrix, KE (now in global coords), into STF array. J ranges over rows, K over cols of elem stiff matrix, KE - kgg_rows:DO J = 1,ELDOF KGG_ROWJ = EDOF(J) @@ -146,7 +146,7 @@ SUBROUTINE ESP0_FINAL IF (DABS(KE(J,K)) < EPS1) THEN CYCLE kgg_cols ENDIF - + IF (SPARSTOR == 'SYM') THEN ! If 'SYM', Flip KGG_COL,KGG_ROW if KGG_COL < KGG_ROW IF (KGG_COL < KGG_ROW) THEN IDUM = KGG_ROW @@ -170,44 +170,44 @@ SUBROUTINE ESP0_FINAL stfpnt0: DO ! so, run this loop until we find a place to put KE(J,K). If there is ! already a term in this row w/ same DOF's as KE(J,K), loop runs once. ! If not, then this loop runs until it finds STFPNT=0, and inserts term. - - IF (KGG_COL == STF3(IS)%Col_1) THEN ! There is a term that exists with same DOF's as KE(J,K) so add terms + + IF (KGG_COL == STF3(IS)%Col_1) THEN ! There is a term that exists with same DOF's as KE(J,K) so add terms CYCLE kgg_cols ! We have added a term to STF so exit this loop and go to next col of KGG - + ELSE ! This is a new term for row J. Need to cycle until we find STFPNT = 0. ! Then we can put KE(J,K) in STF ISS = IS IS = STF3(IS)%Col_2 - IF (IS == 0) THEN ! We are at end of where terms are in this row, so KE(J,K) goes here + IF (IS == 0) THEN ! We are at end of where terms are in this row, so KE(J,K) goes here LTERM_KGG = LTERM_KGG+1 ! Increment LTERM_KGG STF3(ISS)%Col_2 = LTERM_KGG! STFPNT for the current KE(J,K) term - STF3(LTERM_KGG)%Col_2 = 0 ! Latest STFPNT is set to 0 so we will know when to insert next KE(J,K) + STF3(LTERM_KGG)%Col_2 = 0 ! Latest STFPNT is set to 0 so we will know when to insert next KE(J,K) STF3(LTERM_KGG)%Col_1 = KGG_COL ! STFCOL always is KGG_COL - CYCLE kgg_cols ! We put KE(J,K) into STF so exit this loop and go to next col of KGG + CYCLE kgg_cols ! We put KE(J,K) into STF so exit this loop and go to next col of KGG ELSE ! STFPNT /= 0 so cycle this loop until we get it = 0 CYCLE stfpnt0 ENDIF - + ENDIF - ENDDO stfpnt0 - + ENDDO stfpnt0 + ENDIF - - ENDDO kgg_cols - ENDDO kgg_rows + ENDDO kgg_cols + + ENDDO kgg_rows CALL COUNTER_PROGRESS(I) - ENDDO elems + ENDDO elems WRITE(SC1,*) CR13 - + ! Reset subr EMG option flags: - + OPT(3) = 'N' OPT(4) = 'N' - + WRITE(ERR,4321) LTERM_KGG IF (SUPINFO == 'N') THEN WRITE(F06,4321) LTERM_KGG @@ -221,5 +221,5 @@ SUBROUTINE ESP0_FINAL 4321 FORMAT(' *INFORMATION: FINAL LTERM_KGG EST OF THE NUMBER OF NONZEROS IN STIFF MATRIX KGG IS = ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE ESP0_FINAL diff --git a/Source/LK1/L1E/KGG_SINGULARITY_PROC.f90 b/Source/LK1/L1E/KGG_SINGULARITY_PROC.f90 index 7c88d389..f4df7cbf 100644 --- a/Source/LK1/L1E/KGG_SINGULARITY_PROC.f90 +++ b/Source/LK1/L1E/KGG_SINGULARITY_PROC.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE KGG_SINGULARITY_PROC ( AGRID, KGRD, NUM_ASPC_BY_COMP ) - + ! Grid point singularity processor. The algorithm is based on input matrix KGRD that is the 6x6 matrix from the diagonal of KGG for -! one grid point. The 2 3x3 diagonal partitions from KGRD are checked to see if there are any singularities based on: +! one grid point. The 2 3x3 diagonal partitions from KGRD are checked to see if there are any singularities based on: ! 1) Get eigenvalues and eigenvectors of each of the 3x3 matrices (one for translation and 1 for rotation). Calc the ratios of ! the 3 eigenvales to the max value (among the 3) and, if the ratio is less than AUTOSPC_RAT, mark the DOF for AUTOSPC. @@ -58,7 +58,7 @@ SUBROUTINE KGG_SINGULARITY_PROC ( AGRID, KGRD, NUM_ASPC_BY_COMP ) INTEGER(LONG), INTENT(INOUT) :: NUM_ASPC_BY_COMP(6)! The number of DOF's AUTOSPC'd for each displ component INTEGER(LONG) :: EIGENVAL_NUM(6) ! Array to hold the eigenvalue number used in finding a SINGLR_COMP INTEGER(LONG) :: GRID_ID_ROW_NUM ! Row number in array GRID_ID where AGRID is found - INTEGER(LONG) :: IDOF ! Internal DOF number + INTEGER(LONG) :: IDOF ! Internal DOF number INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: IGRID ! Internal grid ID INTEGER(LONG) :: INFO ! See subr K33_EIGENS (CONTAIN'ed herein) @@ -223,7 +223,7 @@ SUBROUTINE KGG_SINGULARITY_PROC ( AGRID, KGRD, NUM_ASPC_BY_COMP ) IF (CONSTR_COMP(I) == 'Y') THEN SINGLR_COMP_CHAR(I:I) = ' ' ENDIF - ENDDO + ENDDO DO I=1,6 ! Reset table TSET for the DOF's AUTOSPC'd and increment NUM_ASPC_BY_COMP IF (SINGLR_COMP_CHAR(I:I) /= ' ') THEN @@ -231,7 +231,7 @@ SUBROUTINE KGG_SINGULARITY_PROC ( AGRID, KGRD, NUM_ASPC_BY_COMP ) CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, AGRID, GRID_ID_ROW_NUM ) TSET ( GRID_ID_ROW_NUM, I ) = 'SA' NDOFSA = NDOFSA + 1 - NUM_ASPC_BY_COMP(I) = NUM_ASPC_BY_COMP(I) + 1 + NUM_ASPC_BY_COMP(I) = NUM_ASPC_BY_COMP(I) + 1 ENDIF ENDIF ENDDO @@ -251,7 +251,7 @@ SUBROUTINE KGG_SINGULARITY_PROC ( AGRID, KGRD, NUM_ASPC_BY_COMP ) ENDIF ENDIF ENDIF - + DO I=1,6 ! If requested, write SPC1 card images to text file for singulaqr DOF's IF (SINGLR_COMP_CHAR(I:I) /= ' ') THEN IF (PCHSPC1 == 'Y') THEN @@ -275,23 +275,23 @@ SUBROUTINE KGG_SINGULARITY_PROC ( AGRID, KGRD, NUM_ASPC_BY_COMP ) ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## - + SUBROUTINE K33_EIGENS (K33, K33_LAMBDAS, K33_VECS, INFO ) - + ! Jacobi solution for 3x3 eigenvalue problem used in finding the eigenvalues of a 3x3 diag partition of a 6x6 grid stiffness matrix - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE CONSTANTS_1, ONLY : ZERO USE LAPACK_STD_EIG_1 - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: CALLED_SUBR = ' ' ! Name of a called subr (for output error purposes) CHARACTER( 1*BYTE), PARAMETER :: JOBZ = 'V' ! Indicates to solve for eigenvalues and vectors in LAPACK subr DSYEV CHARACTER( 1*BYTE), PARAMETER :: UPLO = 'U' ! Indicates array A is the upper triangular part of K33 @@ -309,7 +309,7 @@ SUBROUTINE K33_EIGENS (K33, K33_LAMBDAS, K33_VECS, INFO ) REAL(DOUBLE) , INTENT(OUT) :: K33_VECS(N,N) ! Prior to entry to DSYEV, K33_VECS is set = K33. ! On exit, K33_VECS contains the eigenvectors of K33 REAL(DOUBLE) :: WORK(LWORK) ! Workspace for subr DSYEV - + ! ********************************************************************************************************************************** ! Initialize outputs @@ -332,9 +332,9 @@ SUBROUTINE K33_EIGENS (K33, K33_LAMBDAS, K33_VECS, INFO ) K33_VECS(I,J) = K33(I,J) ENDDO ENDDO - + CALL DSYEV ( JOBZ, UPLO, N, K33_VECS, N, K33_LAMBDAS, WORK, LWORK, INFO ) - CALLED_SUBR = 'DSYEV' + CALLED_SUBR = 'DSYEV' IF (INFO < 0) THEN ! LAPACK subr XERBLA should have reported error on an illegal argument ! in a call to a LAPACK subr, which would only occur if the call to DSYEV @@ -361,35 +361,35 @@ SUBROUTINE K33_EIGENS (K33, K33_LAMBDAS, K33_VECS, INFO ) 1612 FORMAT(' *ERROR 1612: LAPACK DRIVER ',A8,' CALLED BY SUBROUTINE ',A & ,/,14X,' CANNOT CONVERGE IN ATTEMPTING TO FIND K33 EIGENVALUES AND EIGENVECTORS' & ,/,14X,' THE ALGORITHM HAS FAILED TO FIND ALL THE EIGENVALUES (PRINCIPAL MOIs) IN 90 ITERATIONS') - + ! ********************************************************************************************************************************** END SUBROUTINE K33_EIGENS ! ################################################################################################################################## - + SUBROUTINE KGG_SING_PROC_DEBUG ( WHAT ) - + ! Debug output for KGG singularity calcs - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE LAPACK_STD_EIG_1 - + IMPLICIT NONE - + INTEGER(LONG) :: COMP_NUM ! Displ component number (1 - 6) INTEGER(LONG) :: II,JJ ! DO loop indices INTEGER(LONG) :: WHAT ! What to print out ! ********************************************************************************************************************************** IF ( WHAT == 1) THEN - + WRITE(F06,201) NDOFSA+1, AGRID ! Use NDOFSA+1 since NDOFSA is not incremented until later - + ELSE IF (WHAT == 2) THEN - + IF (K == 1) THEN WRITE(F06,202) WRITE(F06,204) @@ -397,13 +397,13 @@ SUBROUTINE KGG_SING_PROC_DEBUG ( WHAT ) WRITE(F06,203) WRITE(F06,204) ENDIF - + DO II=1,3 COMP_NUM = II + 3*(K - 1) WRITE(F06,205) COMP_NUM,(K33(II,JJ),JJ=1,3),II,K33_LAMBDAS(II),(K33_VECS(II,JJ),JJ=1,3) ENDDO WRITE(F06,*) - + ELSE IF (WHAT == 3) THEN WRITE(F06,101) I2, EIGENVAL_NUM(I2), I2, EIGENVAL_NUM(I2), I2 diff --git a/Source/LK1/L1E/MGGC_MASS_MATRIX.f90 b/Source/LK1/L1E/MGGC_MASS_MATRIX.f90 index b2f42e5d..afda0fa1 100644 --- a/Source/LK1/L1E/MGGC_MASS_MATRIX.f90 +++ b/Source/LK1/L1E/MGGC_MASS_MATRIX.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MGGC_MASS_MATRIX - + ! Forms the mass matrix, MGGC, for concentrated masses by calling subr MGG_CONM2_PROC to process the concentrated masses - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : NGRID, NTERM_MGGC, BLNK_SUB_NAM @@ -36,11 +36,11 @@ SUBROUTINE MGGC_MASS_MATRIX USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : AGRID, GRID_ID, INV_GRID_SEQ USE SPARSE_MATRICES, ONLY : I_MGGC, J_MGGC, MGGC - + USE MGGC_MASS_MATRIX_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MGGC_MASS_MATRIX' CHARACTER( 1*BYTE) :: MGG_CONM2_NONZERO ! 'Y'/'N' indicator if a nonzero MGG_CONM2 6 x 6 matrix was created @@ -49,7 +49,7 @@ SUBROUTINE MGGC_MASS_MATRIX ! one CONM2 or 1 element (if one exists for this grid) INTEGER(LONG) :: DELTA_KTERM_MGGC ! Coumt of nonzero terms in MGGC array for 1 grid INTEGER(LONG) :: KTERM_MGGC ! Coumt of nonzero terms in MGGC array - INTEGER(LONG) :: I,J,K ! DO loop indices or counters + INTEGER(LONG) :: I,J,K ! DO loop indices or counters INTEGER(LONG) :: IJ ! Index INTEGER(LONG) :: IROW_START ! Row number in TDOF where data begins for IGRID INTEGER(LONG) :: NUM_COMPS ! Number of displ components (1 for SPOINT, 6 for physical grid) @@ -82,7 +82,7 @@ SUBROUTINE MGGC_MASS_MATRIX CALL MGG_CONM2_PROC ( I, GRID_NUM, MGG_CONM2, MGG_CONM2_NONZERO ) CALL GET_GRID_NUM_COMPS ( I, NUM_COMPS, SUBR_NAME ) - IF (MGG_CONM2_NONZERO == 'Y') THEN + IF (MGG_CONM2_NONZERO == 'Y') THEN DO J=1,NUM_COMPS DELTA_KTERM_MGGC = 0 @@ -101,9 +101,9 @@ SUBROUTINE MGGC_MASS_MATRIX MGGC(KTERM_MGGC) = MGG_CONM2(J,K) ENDIF ENDDO -!xx IJ = 6*(I-1) + J - IJ = NUM_COMPS*(I-1) + J - I_MGGC(IJ+1) = I_MGGC(IJ) + DELTA_KTERM_MGGC +!xx IJ = 6*(I-1) + J + IJ = NUM_COMPS*(I-1) + J + I_MGGC(IJ+1) = I_MGGC(IJ) + DELTA_KTERM_MGGC ENDDO ELSE @@ -132,9 +132,9 @@ SUBROUTINE MGGC_MASS_MATRIX CONTAINS ! ################################################################################################################################## - + SUBROUTINE MGG_CONM2_PROC ( INT_GRID_ID, GRID_NUM, MGG_CONM2, MGG_CONM2_NONZERO ) - + ! Generates 6 x 6 mass matrix, MGG_CONM2, for one CONM2 for grid GRID_NUM (if there is any CONM2 connected to this grid) USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -144,16 +144,16 @@ SUBROUTINE MGG_CONM2_PROC ( INT_GRID_ID, GRID_NUM, MGG_CONM2, MGG_CONM2_NONZERO USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : CONM2, RCONM2 USE PARAMS, ONLY : ART_MASS, ART_ROT_MASS, ART_TRAN_MASS - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MGG_CONM2_PROC' CHARACTER( 1*BYTE), INTENT(OUT) :: MGG_CONM2_NONZERO ! 'Y'/'N' indicator if a nonzero MGG_CONM2 6 x 6 matrix was created INTEGER(LONG), INTENT(IN) :: INT_GRID_ID ! The internal grid number for which we create a 6 x 6 mass matrix for ! one CONM2 (if one exists for this grid) INTEGER(LONG), INTENT(IN) :: GRID_NUM ! The actual grid number for internal grid ID INT_GRID_ID - INTEGER(LONG) :: I,J,L ! DO loop indices or counters + INTEGER(LONG) :: I,J,L ! DO loop indices or counters REAL(DOUBLE) , INTENT(OUT) :: MGG_CONM2(6,6) ! 6 X 6 mass matrix in global coords for one CONM2 @@ -168,7 +168,7 @@ SUBROUTINE MGG_CONM2_PROC ( INT_GRID_ID, GRID_NUM, MGG_CONM2, MGG_CONM2_NONZERO DO I=1,6 DO J=1,6 MGG_CONM2(I,J) = ZERO - ENDDO + ENDDO ENDDO ! Add artificial mass terms to the grid, if requested @@ -202,7 +202,7 @@ SUBROUTINE MGG_CONM2_PROC ( INT_GRID_ID, GRID_NUM, MGG_CONM2, MGG_CONM2_NONZERO MGG_CONM2(2,2) = MGG_CONM2(2,2) + RCONM2(L, 1) MGG_CONM2(3,3) = MGG_CONM2(3,3) + RCONM2(L, 1) - MGG_CONM2(1,5) = MGG_CONM2(1,5) + RCONM2(L, 1)*RCONM2(L,4) + MGG_CONM2(1,5) = MGG_CONM2(1,5) + RCONM2(L, 1)*RCONM2(L,4) MGG_CONM2(1,6) = MGG_CONM2(1,6) - RCONM2(L, 1)*RCONM2(L,3) MGG_CONM2(2,4) = MGG_CONM2(2,4) - RCONM2(L, 1)*RCONM2(L,4) @@ -228,7 +228,7 @@ SUBROUTINE MGG_CONM2_PROC ( INT_GRID_ID, GRID_NUM, MGG_CONM2, MGG_CONM2_NONZERO ENDIF - ENDDO + ENDDO diff --git a/Source/LK1/L1E/MGGS_MASS_MATRIX.f90 b/Source/LK1/L1E/MGGS_MASS_MATRIX.f90 index 706124d5..6b307fcc 100644 --- a/Source/LK1/L1E/MGGS_MASS_MATRIX.f90 +++ b/Source/LK1/L1E/MGGS_MASS_MATRIX.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MGGS_MASS_MATRIX - + ! Forms the sparse scalar mass matrix, MGGS, (for masses defined on Bulk Data CMASS) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : FATAL_ERR, NCMASS, NDOFG, NGRID, NPMASS, NTERM_MGGS, BLNK_SUB_NAM @@ -38,19 +38,19 @@ SUBROUTINE MGGS_MASS_MATRIX USE DOF_TABLES, ONLY : TDOF USE MODEL_STUF, ONLY : CMASS, GRID_ID, PMASS, RPMASS USE SPARSE_MATRICES, ONLY : I_MGGS, J_MGGS, MGGS - + USE MGGS_MASS_MATRIX_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MGGS_MASS_MATRIX' CHARACTER( 1*BYTE) :: FOUND ! 'Y'/'N' indicator of whether we found something INTEGER(LONG) :: G_SET_DOF(NGRID) ! G-set array with grid actual ID's for the grids that have scalar mass INTEGER(LONG) :: G_SET_COL ! Col in TDOF where G-set exists - INTEGER(LONG) :: I,J,K ! DO loop indices or counters + INTEGER(LONG) :: I,J,K ! DO loop indices or counters INTEGER(LONG) :: IERROR ! Local error count - INTEGER(LONG) :: IDOF(NCMASS) ! G-set DOF number + INTEGER(LONG) :: IDOF(NCMASS) ! G-set DOF number INTEGER(LONG) :: KTERM_MGGS ! Count of number of terma going into MGGS INTEGER(LONG) :: ROW_NUM ! Row number in TDOF where data begins for IGRID INTEGER(LONG) :: SGRID(NCMASS) ! Grid number for a scalar mass (from array CMASS) @@ -102,7 +102,7 @@ SUBROUTINE MGGS_MASS_MATRIX ENDDO -! Get mass value at each SGRID (PMASS_VAL array) +! Get mass value at each SGRID (PMASS_VAL array) i_do1:DO I=1,NCMASS FOUND = 'N' @@ -116,11 +116,11 @@ SUBROUTINE MGGS_MASS_MATRIX IF (FOUND == 'N') THEN IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,1601) PMASS_ID(I), CMASS(I,1) - WRITE(ERR,1601) PMASS_ID(I), CMASS(I,1) + WRITE(ERR,1601) PMASS_ID(I), CMASS(I,1) + WRITE(ERR,1601) PMASS_ID(I), CMASS(I,1) ENDIF ENDDO i_do1 - + IF (DEBUG(182) > 0) CALL DEB_MGGS ( 1 ) ! Quit if IERROR > 0 @@ -156,7 +156,7 @@ SUBROUTINE MGGS_MASS_MATRIX ENDDO i_do2 IF (DEBUG(182) > 0) CALL DEB_MGGS ( 3 ) - + ! Reset NTERM_MGGS to what was counted above NTERM_MGGS = KTERM_MGGS @@ -174,9 +174,9 @@ SUBROUTINE MGGS_MASS_MATRIX ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE DEB_MGGS ( WHAT ) diff --git a/Source/LK1/L1E/SPARSE_KGG.f90 b/Source/LK1/L1E/SPARSE_KGG.f90 index 9958d139..6a03ce33 100644 --- a/Source/LK1/L1E/SPARSE_KGG.f90 +++ b/Source/LK1/L1E/SPARSE_KGG.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SPARSE_KGG - + ! (1) Converts the system KGG matrix from a sparse linked list format to a row, col, val format. It sorts each row to be ! in G-set DOF numerical order. The transformed matrix is written out to file LINK1L row by row. @@ -47,11 +47,11 @@ SUBROUTINE SPARSE_KGG USE STF_ARRAYS, ONLY : STFKEY, STF3 USE SPARSE_MATRICES, ONLY : I_KGG, J_KGG, KGG USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE SPARSE_KGG_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SPARSE_KGG' CHARACTER( 7*BYTE) :: ASPC_SUM_MSG1 ! Message to be printed out in the AUTOSPC summary table @@ -60,7 +60,7 @@ SUBROUTINE SPARSE_KGG CHARACTER(132*BYTE) :: TDOF_MSG ! Message to be printed out regarding at what pt in the run the TDOF,I ! tables are printed out CHARACTER( 1*BYTE) :: SKIPIT = 'N' ! Indicator of whether to skip KGG sing proc (for MPC indep grids) - + INTEGER(LONG) :: AGRIDI ! Actual grid ID INTEGER(LONG) :: G_SET_COL ! Col in TDOF where G-set DOF's are INTEGER(LONG) :: I,J,K,L,N ! DO loop indices @@ -77,11 +77,11 @@ SUBROUTINE SPARSE_KGG INTEGER(LONG) :: NUM_MAX = 0 ! largest number of terms in any row of the KGG stiffness matrix INTEGER(LONG) :: NUM_COMPS ! Number of displ components (1 for SPOINT, 6 for physical grid) INTEGER(LONG) :: NZERO = 0 ! Count on zero terms in array STF - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: ROW_NUM_START ! DOF number where TDOF data begins for a grid INTEGER(LONG) :: RJ(NDOFG) ! Column numbers corresponding to the terms in RSTF(I). - + REAL(DOUBLE) :: EPS1 ! A small number to compare real zero REAL(DOUBLE) :: KGG_II(6,6) ! 6 x 6 diagonal stiffness matrices for 1 grid REAL(DOUBLE) :: RSTF(NDOFG) ! 1D array of terms from STF(I) pertaining to one row of the G-set @@ -91,7 +91,7 @@ SUBROUTINE SPARSE_KGG INTRINSIC :: DABS - + ! ********************************************************************************************************************************** @@ -119,7 +119,7 @@ SUBROUTINE SPARSE_KGG ENDDO IF (NUM_NONZERO_IN_ROW > NUM_MAX) THEN NUM_MAX = NUM_NONZERO_IN_ROW - ENDIF + ENDIF IF (IS /= 0) THEN WRITE(ERR,1625) SUBR_NAME,I WRITE(F06,1625) SUBR_NAME,I @@ -127,7 +127,7 @@ SUBROUTINE SPARSE_KGG CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit ENDIF - ENDDO + ENDDO NTERM_KGG = NTERM_KGG - NZERO @@ -151,7 +151,7 @@ SUBROUTINE SPARSE_KGG ENDIF ! Open L1L to write stiffness. - + OUNT(1) = ERR OUNT(2) = F06 CALL FILE_OPEN ( L1L, LINK1L, OUNT, 'REPLACE', L1L_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) @@ -165,7 +165,7 @@ SUBROUTINE SPARSE_KGG CALL FILERR ( OUNT ) CALL OUTA_HERE ( 'Y' ) ENDIF - + DO I=1,6 ! Initialize NUM_ASPC_BY_COMP. It will get accumulated in KGG_SING_PROC NUM_ASPC_BY_COMP(I) = 0 ENDDO @@ -186,7 +186,7 @@ SUBROUTINE SPARSE_KGG DO L=1,6 KGG_II = ZERO ENDDO - ENDDO + ENDDO !xx CALL CALC_TDOF_ROW_NUM ( GRID_ID(INV_GRID_SEQ(I)), IROW_START, 'N' ) CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, GRID_ID(INV_GRID_SEQ(I)), IGRID ) @@ -218,17 +218,17 @@ SUBROUTINE SPARSE_KGG IF (NUM_NONZERO_IN_ROW > NUM_MAX) THEN NUM_MAX = NUM_NONZERO_IN_ROW - ENDIF + ENDIF IF (IS /= 0) THEN WRITE(ERR,1625) SUBR_NAME,I WRITE(F06,1625) SUBR_NAME,I FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit ENDIF - + IF (NUM_NONZERO_IN_ROW /= 1) THEN ! Sort row by the shell method so that RJ is in numerical order CALL SORT_INT1_REAL1 ( SUBR_NAME, 'RJ, RSTF', NUM_NONZERO_IN_ROW, RJ, RSTF ) - ENDIF + ENDIF n_do: DO N=1,NUM_NONZERO_IN_ROW ! Formulate the K-th row of KGG_II @@ -237,7 +237,7 @@ SUBROUTINE SPARSE_KGG KGG_II(K,KGG_II_COL_NUM) = RSTF(N) ENDIF ENDDO n_do - + j_do3: DO J=1,NUM_NONZERO_IN_ROW KTERM_KGG = KTERM_KGG + 1 ! KTERM_KGG is a count on the no. records written WRITE(L1L) KGG_ROW_NUM, RJ(J), RSTF(J) @@ -253,7 +253,7 @@ SUBROUTINE SPARSE_KGG DO J=1,K-1 KGG_II(K,J) = KGG_II(J,K) ENDDO - ENDDO + ENDDO AGRIDI = GRID_ID(INV_GRID_SEQ(I)) ! We don't want to call KGG_SINGULARITY_PROC for grids that are indep @@ -295,7 +295,7 @@ SUBROUTINE SPARSE_KGG WRITE(F06,57) DO J = 1,NGRID WRITE(F06,58) GRID(J,1), GRID_SEQ(J), (TSET(J,K),K = 1,6) - ENDDO + ENDDO WRITE(F06,'(//)') ENDIF diff --git a/Source/LK1/L1E/SPARSE_KGGD.f90 b/Source/LK1/L1E/SPARSE_KGGD.f90 index 7dc0923b..2426a4fc 100644 --- a/Source/LK1/L1E/SPARSE_KGGD.f90 +++ b/Source/LK1/L1E/SPARSE_KGGD.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SPARSE_KGGD - + ! Converts the system KGGD differential stiff matrix from a sparse linked list format to a sparse row, col, val format. It sorts ! each row to be in G-set DOF numerical order. @@ -41,14 +41,14 @@ SUBROUTINE SPARSE_KGGD USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START, TDOFI, TSET USE STF_ARRAYS, ONLY : STFKEY, STF3 USE SPARSE_MATRICES, ONLY : I_KGGD, J_KGGD, KGGD - + USE SPARSE_KGGD_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SPARSE_KGGD' - + INTEGER(LONG) :: G_SET_COL ! Col in TDOF where G-set DOF's are INTEGER(LONG) :: I,J,K,L,N ! DO loop indices INTEGER(LONG) :: IGRID ! Internal grid ID @@ -64,7 +64,7 @@ SUBROUTINE SPARSE_KGGD INTEGER(LONG) :: ROW_NUM_START ! DOF number where TDOF data begins for a grid INTEGER(LONG) :: RJ(NDOFG) ! Column numbers corresponding to the terms in RSTF(I). - + REAL(DOUBLE) :: EPS1 ! A small number to compare real zero REAL(DOUBLE) :: KGGD_II(6,6) ! 6 x 6 diagonal stiffness matrices for 1 grid REAL(DOUBLE) :: RSTF(NDOFG) ! 1D array of terms from STF(I) pertaining to one row of the G-set @@ -72,7 +72,7 @@ SUBROUTINE SPARSE_KGGD ! DOF order. RSTF is sorted so that the cols are in incr DOF order. INTRINSIC :: DABS - + ! ********************************************************************************************************************************** @@ -100,7 +100,7 @@ SUBROUTINE SPARSE_KGGD ENDDO IF (NUM_NONZERO_IN_ROW > NUM_MAX) THEN NUM_MAX = NUM_NONZERO_IN_ROW - ENDIF + ENDIF IF (IS /= 0) THEN WRITE(ERR,1625) SUBR_NAME,I WRITE(F06,1625) SUBR_NAME,I @@ -108,7 +108,7 @@ SUBROUTINE SPARSE_KGGD CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit ENDIF - ENDDO + ENDDO NTERM_KGGD = NTERM_KGGD - NZERO @@ -144,7 +144,7 @@ SUBROUTINE SPARSE_KGGD DO L=1,6 KGGD_II = ZERO ENDDO - ENDDO + ENDDO !xx CALL CALC_TDOF_ROW_NUM ( GRID_ID(INV_GRID_SEQ(I)), IROW_START, 'N' ) CALL GET_ARRAY_ROW_NUM ( 'GRID_ID', SUBR_NAME, NGRID, GRID_ID, GRID_ID(INV_GRID_SEQ(I)), IGRID ) @@ -176,17 +176,17 @@ SUBROUTINE SPARSE_KGGD IF (NUM_NONZERO_IN_ROW > NUM_MAX) THEN NUM_MAX = NUM_NONZERO_IN_ROW - ENDIF + ENDIF IF (IS /= 0) THEN WRITE(ERR,1625) SUBR_NAME,I WRITE(F06,1625) SUBR_NAME,I FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error, so quit ENDIF - + IF (NUM_NONZERO_IN_ROW /= 1) THEN ! Sort row by the shell method so that RJ is in numerical order CALL SORT_INT1_REAL1 ( SUBR_NAME, 'RJ, RSTF', NUM_NONZERO_IN_ROW, RJ, RSTF ) - ENDIF + ENDIF n_do: DO N=1,NUM_NONZERO_IN_ROW ! Formulate the K-th row of KGGD_II @@ -195,7 +195,7 @@ SUBROUTINE SPARSE_KGGD KGGD_II(K,KGGD_II_COL_NUM) = RSTF(N) ENDIF ENDDO n_do - + j_do3: DO J=1,NUM_NONZERO_IN_ROW KTERM_KGGD = KTERM_KGGD + 1 ! KTERM_KGGD is a count on the no. records written J_KGGD(KTERM_KGGD) = RJ(J) @@ -210,7 +210,7 @@ SUBROUTINE SPARSE_KGGD DO J=1,K-1 KGGD_II(K,J) = KGGD_II(J,K) ENDDO - ENDDO + ENDDO CALL COUNTER_PROGRESS(I) ENDDO i_do diff --git a/Source/LK1/L1E/SPARSE_MGG.f90 b/Source/LK1/L1E/SPARSE_MGG.f90 index 75dd30c9..bb1fceeb 100644 --- a/Source/LK1/L1E/SPARSE_MGG.f90 +++ b/Source/LK1/L1E/SPARSE_MGG.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SPARSE_MGG - + ! Add sparse arrays for concentrated masses (array MGGC), scalar masses (array MGGS) and element mass (array EMS) to get the final ! sparse G-set mass matrix, MGG. Rows are sorted to be in numerical G-set DOF order and the final MGG is written to file LINK1R @@ -42,17 +42,17 @@ SUBROUTINE SPARSE_MGG USE EMS_ARRAYS, ONLY : EMS, EMSCOL, EMSKEY, EMSPNT USE SPARSE_MATRICES, ONLY : I2_MGG, I_MGG, J_MGG, MGG, I_MGGC, J_MGGC, MGGC, I_MGGE, J_MGGE, MGGE, & I_MGGS, J_MGGS, MGGS, SYM_MGGC, SYM_MGGE, SYM_MGGS - USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1 - + USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1 + USE SPARSE_MGG_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SPARSE_MGG' CHARACTER( 1*BYTE) :: FOUND ! 'Y' if there is a mass matrix for this grid and 'N' otherwise CHARACTER(LEN=LEN(SYM_MGGE)) :: SYM_CRS1 ! 'Y'/'N' Symmetry indicator for scratch matrix CRS1 - + INTEGER(LONG) :: GRID_NUM ! An actual grid ID INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: IERR ! Local error count @@ -66,20 +66,20 @@ SUBROUTINE SPARSE_MGG INTEGER(LONG) :: NUM_IN_ROW_I ! Number of nonzero terms in a row of MGG INTEGER(LONG) :: NUM_COMPS ! Number of displ components (1 for SPOINT, 6 for physical grid) INTEGER(LONG) :: NZERO = 0 ! Count on zero terms in array EMS - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: RJ(NDOFG) ! Column numbers corresponding to the terms in REMS(I). INTEGER(LONG) :: ROW_NUM_START ! DOF number where TDOF data begins for a grid - + REAL(DOUBLE) :: EPS1 ! A small number to compare real zero REAL(DOUBLE) :: GRID_MGG(6,6) ! 6 x 6 mass matrix for a grid REAL(DOUBLE) :: REMS(NDOFG) ! 1D array of the terms from EMS(I) pertaining to one row of the G-set ! mass matrix. Initially, the cols are not in increasing global DOF ! order. REMS is sorted, prior to writing the G-set mass matrix ! to file LINK1R, so that the cols are in increasing DOF order. - + INTRINSIC :: DABS - + ! ********************************************************************************************************************************** @@ -124,7 +124,7 @@ SUBROUTINE SPARSE_MGG ! Pass # 2: Reformulate rows and write to file LINK1R ! Open L1R to write mass. - + OUNT(1) = ERR OUNT(2) = F06 CALL FILE_OPEN ( L1R, LINK1R, OUNT, 'REPLACE', L1R_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) @@ -165,7 +165,7 @@ SUBROUTINE SPARSE_MGG ENDDO j_do1 I_MGGE(IK+1) = I_MGGE(IK) + NUM - + IF (IS /= 0) THEN WRITE(ERR,1626) SUBR_NAME,I WRITE(F06,1626) SUBR_NAME,I @@ -175,7 +175,7 @@ SUBROUTINE SPARSE_MGG IF (NUM /= 1) THEN ! Sort row by the shell method so that RJ is in numerical order CALL SORT_INT1_REAL1 ( SUBR_NAME, 'RJ, REMS', NUM, RJ, REMS ) - ENDIF + ENDIF j_do3: DO J = 1,NUM KTERM_MGGE = KTERM_MGGE + 1 ! KTERM_MGGE is a count on the number of records @@ -205,7 +205,7 @@ SUBROUTINE SPARSE_MGG CALL MGGS_MASS_MATRIX ENDIF -! Add MGGC, MGGE and MGGS to get MGG. This is done in 2 steps: add MGGC and MGGE to get temporary CRS1 then add CRS1 to MGGS +! Add MGGC, MGGE and MGGS to get MGG. This is done in 2 steps: add MGGC and MGGE to get temporary CRS1 then add CRS1 to MGGS ! (1) add MGGC and MGGE to get CRS1 (do not mult by WTMASS here) ! -------------------------------------------------------------- @@ -246,7 +246,7 @@ SUBROUTINE SPARSE_MGG J_MGG(I) = J_CRS1(I) MGG(I) = WTMASS*CRS1(I) ENDDO - + ENDIF @@ -298,7 +298,7 @@ SUBROUTINE SPARSE_MGG MAX_NUM_IN_ROW = IK ENDIF ENDDO - + WRITE(ERR,147) NTERM_MGG WRITE(ERR,101) MAX_NUM_IN_ROW IF (SUPINFO == 'N') THEN @@ -308,7 +308,7 @@ SUBROUTINE SPARSE_MGG ENDIF -! Debug output (print grid 6x6 mass for every grid) +! Debug output (print grid 6x6 mass for every grid) IERR = 0 IF (DEBUG(36) > 0) THEN diff --git a/Source/LK1/L1E/SPARSE_PG.f90 b/Source/LK1/L1E/SPARSE_PG.f90 index aa20c4ef..cdf937fc 100644 --- a/Source/LK1/L1E/SPARSE_PG.f90 +++ b/Source/LK1/L1E/SPARSE_PG.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SPARSE_PG ! Convert full array SYS_LOAD of all loads for all subcases to sparse array PG and write data to file LINK1E. The data that is -! written (for nonzero loads) is: G-set DOF number, internal subcase number, non-zero load value +! written (for nonzero loads) is: G-set DOF number, internal subcase number, non-zero load value USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L1E, L1E_MSG, L1ESTAT, LINK1E, SC1, WRT_ERR @@ -37,19 +37,19 @@ SUBROUTINE SPARSE_PG USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP, NL_NUM_LOAD_STEPS USE MODEL_STUF, ONLY : SYS_LOAD USE SPARSE_MATRICES, ONLY : I_PG, J_PG, PG - + USE SPARSE_PG_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SPARSE_PG' INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: KTERM_PG ! Count of the number of terms written to file L1E for PG loads - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + - REAL(DOUBLE) :: EPS1 ! A small number to compare real zero INTRINSIC :: DABS @@ -60,7 +60,7 @@ SUBROUTINE SPARSE_PG EPS1 = EPSIL(1) ! Open L1E to write G-set loads to. - + OUNT(1) = ERR OUNT(2) = F06 CALL FILE_OPEN ( L1E, LINK1E, OUNT, 'REPLACE', L1E_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) @@ -72,8 +72,8 @@ SUBROUTINE SPARSE_PG IF (DABS(SYS_LOAD(I,J)) > EPS1) THEN NTERM_PG = NTERM_PG + 1 ENDIF - ENDDO - ENDDO + ENDDO + ENDDO ! Allocate PG sparse arrays @@ -95,7 +95,7 @@ SUBROUTINE SPARSE_PG !xx????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? ENDIF ENDDO - ENDDO + ENDDO ! Write the systems loads matrix to L1E in sparse form @@ -121,7 +121,7 @@ SUBROUTINE SPARSE_PG PG(KTERM_PG) = SYS_LOAD(I,J) WRITE(L1E) I, J, SYS_LOAD(I,J) ENDIF - ENDDO + ENDDO CALL COUNTER_PROGRESS(I) ENDDO @@ -131,13 +131,13 @@ SUBROUTINE SPARSE_PG WRITE(F06,1627) KTERM_PG, NTERM_PG ENDIF - + IF (NTERM_PG > 0) THEN CALL FILE_CLOSE ( L1E, LINK1E, 'KEEP' ) ELSE CALL FILE_CLOSE ( L1E, LINK1E, L1ESTAT ) ENDIF - + IF (PRTFOR(1) == 1) THEN ! Print PG if requested IF (NTERM_PG > 0) THEN CALL WRITE_SPARSE_CRS ( 'G-SET LOADS, MATRIX PG', 'G ', 'SUBCASE', NTERM_PG, NDOFG, I_PG, J_PG, PG ) @@ -158,5 +158,5 @@ SUBROUTINE SPARSE_PG RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE SPARSE_PG diff --git a/Source/LK1/L1E/SPARSE_RMG.f90 b/Source/LK1/L1E/SPARSE_RMG.f90 index 7d1a42f8..ab80fe08 100644 --- a/Source/LK1/L1E/SPARSE_RMG.f90 +++ b/Source/LK1/L1E/SPARSE_RMG.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SPARSE_RMG - + ! Reads RMG constraint terms from file LINK1J. Zero terms are stripped and rows are sorted in numerical order. The final sparse RMG ! constraint matrix is written to file LINK1J in format: i, j, RMG(i,j) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L1J, LINK1J, L1J_MSG USE SCONTR, ONLY : NDOFM, NTERM_RMG, BLNK_SUB_NAM @@ -36,13 +36,13 @@ SUBROUTINE SPARSE_RMG USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : EPSIL USE SPARSE_MATRICES, ONLY : I_RMG, J_RMG, RMG - + USE SPARSE_RMG_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SPARSE_RMG' - + INTEGER(LONG) :: I,K ! DO loop indices or counters INTEGER(LONG) :: I2_RMG(NTERM_RMG) ! Row numbers of all terms in matrix RMG. Coming into this subr there is @@ -55,34 +55,34 @@ SUBROUTINE SPARSE_RMG INTEGER(LONG) :: JRMG ! Col number for RMG INTEGER(LONG) :: KTERM_RMG ! Count of number of terms in RMG INTEGER(LONG) :: NTERM_ROW_I ! Number of nonzero terms in row I of RMG - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: REC_NO ! Record number when reading a file - + REAL(DOUBLE) :: EPS1 ! A small number to compare real zero REAL(DOUBLE) :: RRMG ! Real value for RMG - + INTRINSIC DABS - + ! ********************************************************************************************************************************** EPS1 = EPSIL(1) ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! Read RMG constraint matrix. The matrix is not in DOF order IF (NDOFM > 0) THEN CALL FILE_OPEN ( L1J, LINK1J, OUNT, 'OLD', L1J_MSG, 'READ_STIME', 'UNFORMATTED', 'READ', 'REWIND', 'Y', 'N' ) - + NTERM_RMG = 0 ! First, calc NTERM_RMG REC_NO = 0 -nterm: DO +nterm: DO IRMG = 0 JRMG = 0 RRMG = ZERO @@ -145,13 +145,13 @@ SUBROUTINE SPARSE_RMG CALL SORT_INT2_REAL1 ( SUBR_NAME, 'I2_RMG, J_RMG, RMG', NTERM_RMG, I2_RMG, J_RMG, RMG ) -! Rewrite RMG matrix in the format i, j, RMG(i,j) to L1J - +! Rewrite RMG matrix in the format i, j, RMG(i,j) to L1J + CALL FILE_OPEN ( L1J, LINK1J, OUNT, 'REPLACE', L1J_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) WRITE(L1J) NTERM_RMG DO I=1,NTERM_RMG - WRITE(L1J) I2_RMG(I),J_RMG(I),RMG(I) - ENDDO + WRITE(L1J) I2_RMG(I),J_RMG(I),RMG(I) + ENDDO CALL FILE_CLOSE ( L1J, LINK1J, 'KEEP' ) ENDIF @@ -174,10 +174,10 @@ SUBROUTINE SPARSE_RMG ! ********************************************************************************************************************************** 1616 FORMAT(' *ERROR 1616: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' THE NUMBER OF TERMS IN THE RMG MATRIX = ',I12,' BUT SHOULD BE NTERM_RMG = ',I12,' IN FILE:' & - ,/,15X,A) + ,/,15X,A) ! ********************************************************************************************************************************** - + END SUBROUTINE SPARSE_RMG diff --git a/Source/LK1/L1U/CHAR_FLD.f90 b/Source/LK1/L1U/CHAR_FLD.f90 index 7f6e228d..fff767bc 100644 --- a/Source/LK1/L1U/CHAR_FLD.f90 +++ b/Source/LK1/L1U/CHAR_FLD.f90 @@ -1,47 +1,47 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CHAR_FLD ( JCARDI, IFLD, CHAR_INP ) - + ! Reads a field of CHARACTER data that can be 1 to LEN(JCARDI) chars in length - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : IERRFL, FATAL_ERR - + USE CHAR_FLD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: JCARDI ! The field of characters to read CHARACTER(LEN(JCARDI)), INTENT(OUT):: CHAR_INP ! The character variable to read - + INTEGER(LONG), INTENT(IN) :: IFLD ! Field (2 - 9) of a Bulk Data card to read INTEGER(LONG) :: IOCHK ! IOSTAT error value from READ - + ! ********************************************************************************************************************************** CHAR_INP(1:) = ' ' @@ -62,9 +62,9 @@ SUBROUTINE CHAR_FLD ( JCARDI, IFLD, CHAR_INP ) FATAL_ERR = FATAL_ERR + 1 ENDIF - + RETURN - + ! ********************************************************************************************************************************** - + END SUBROUTINE CHAR_FLD diff --git a/Source/LK1/L1U/CHECK_BAR_MOIs.f90 b/Source/LK1/L1U/CHECK_BAR_MOIs.f90 index 6fbf602c..aef50c85 100644 --- a/Source/LK1/L1U/CHECK_BAR_MOIs.f90 +++ b/Source/LK1/L1U/CHECK_BAR_MOIs.f90 @@ -1,51 +1,51 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CHECK_BAR_MOIs ( NAME, ID, I1, I2, I12, IERR ) - -! Checks sensibility of the 3 MOI's of a BAR or BEAM element and replaces zero values with small finite ones + +! Checks sensibility of the 3 MOI's of a BAR or BEAM element and replaces zero values with small finite ones USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : EPSIL, SUPINFO USE CONSTANTS_1, ONLY : ZERO USE CHECK_BAR_MOIs_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CHECK_BAR_MOIs' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Either PBAR, PBARL or PBEAM CHARACTER(LEN=*), INTENT(IN) :: ID ! Character value of the bar's ID INTEGER(LONG), INTENT(OUT) :: IERR ! Error indicator - + REAL(DOUBLE), INTENT(INOUT) :: I1 ! MOI of the bar or beam REAL(DOUBLE), INTENT(INOUT) :: I2 ! MOI of the bar or beam REAL(DOUBLE), INTENT(INOUT) :: I12 ! MOI of the bar or beam diff --git a/Source/LK1/L1U/CRDERR.f90 b/Source/LK1/L1U/CRDERR.f90 index a1fde543..00770743 100644 --- a/Source/LK1/L1U/CRDERR.f90 +++ b/Source/LK1/L1U/CRDERR.f90 @@ -1,49 +1,49 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CRDERR ( CARD ) - + ! Prints Bulk Data card errors and warnings - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, IERRFL + USE SCONTR, ONLY : BLNK_SUB_NAM, ECHO, IERRFL USE TIMDAT, ONLY : TSEC - + USE CRDERR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CRDERR' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE) :: CARD_ERR ! = 'Y' if IERRFL is 'Y' for any Bulk Data card field - + INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** @@ -54,7 +54,7 @@ SUBROUTINE CRDERR ( CARD ) EXIT ENDIF ENDDO - + IF (CARD_ERR == 'Y') THEN IF (ECHO == 'NONE ') THEN WRITE(ERR,101) CARD @@ -65,13 +65,13 @@ SUBROUTINE CRDERR ( CARD ) WRITE(ERR,1702) I WRITE(F06,1702) I ENDIF - ENDDO + ENDDO ENDIF - + DO I=1,10 IERRFL(I) = 'N' - ENDDO - + ENDDO + RETURN @@ -80,7 +80,7 @@ SUBROUTINE CRDERR ( CARD ) 101 FORMAT(A) 1702 FORMAT(' *ERROR 1702: FORMAT ERROR IN FIELD',I3,' OF PREVIOUS CARD') - + ! ********************************************************************************************************************************** - + END SUBROUTINE CRDERR diff --git a/Source/LK1/L1U/GET_ANSID.f90 b/Source/LK1/L1U/GET_ANSID.f90 index 86a3582f..13d6815a 100644 --- a/Source/LK1/L1U/GET_ANSID.f90 +++ b/Source/LK1/L1U/GET_ANSID.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_ANSID ( CARD, SETID ) - -! Gets 'ALL', 'NONE' or set ID from Case Control cards: DISP, ELDATA, ELFORCE, GPFORCE, OLOAD, SPCFORCE, STRESS - + +! Gets 'ALL', 'NONE' or set ID from Case Control cards: DISP, ELDATA, ELFORCE, GPFORCE, OLOAD, SPCFORCE, STRESS + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : CC_ENTRY_LEN, FATAL_ERR, BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + USE GET_ANSID_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GET_ANSID' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Case Control card (can be modified by subr CSHIFT, called herein) CHARACTER(LEN=LEN(CARD)+1) :: CARD1 ! CARD shifted to begin in col after "=" sign @@ -45,7 +45,7 @@ SUBROUTINE GET_ANSID ( CARD, SETID ) CHARACTER( 3*BYTE) :: THRU ! An inputoutput to/from subr STOKEN, called herein CHARACTER( 8*BYTE) :: TOKEN(3) ! An output from subr STOKEN, called herein CHARACTER( 8*BYTE) :: TOKTYP(3) ! An output from subr STOKEN, called herein - + INTEGER(LONG), INTENT(OUT) :: SETID ! Set ID read from CARD after '=', if CARD contains an integer here. ! SETID is set to -1 if 'ALL' is found after '=' & to 0 if 'NONE' found INTEGER(LONG) :: ECOL ! Column on CARD where '=' is located @@ -56,12 +56,12 @@ SUBROUTINE GET_ANSID ( CARD, SETID ) INTEGER(LONG) :: NTOKEN ! An output from subr STOKEN, called herein INTEGER(LONG) :: TOKLEN ! An input to subr STOKEN, called herein - + ! ********************************************************************************************************************************** ! Get 'ALL', 'NONE' or SETID - + SETID = 0 CALL CSHIFT ( CARD, '=', CARD1, ECOL, IERR ) IF (IERR /= 0) THEN @@ -108,7 +108,7 @@ SUBROUTINE GET_ANSID ( CARD, SETID ) ENDIF ENDIF ENDIF - + RETURN @@ -124,7 +124,7 @@ SUBROUTINE GET_ANSID ( CARD, SETID ) 1706 FORMAT(' *ERROR 1706: ZERO OR NEGATIVE SET ID NOT ALLOWED ON PREVIOUS CASE CONTROL ENTRY') 1708 FORMAT(' *ERROR 1708: SET ID ON ABOVE CASE CONTROL ENTRY MUST BE: "ALL", "NONE", OR AN INTEGER SET ID OF <= 8 DIGITS') - + ! ********************************************************************************************************************************** - + END SUBROUTINE GET_ANSID diff --git a/Source/LK1/L1U/GET_SETID.f90 b/Source/LK1/L1U/GET_SETID.f90 index 63e125bf..197a04f1 100644 --- a/Source/LK1/L1U/GET_SETID.f90 +++ b/Source/LK1/L1U/GET_SETID.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_SETID ( CARD, SETID ) - -! Gets SET ID from CASE CONTROL cards: LOAD, METHOD, MPC, NLPARM, SPC, TEMP - + +! Gets SET ID from CASE CONTROL cards: LOAD, METHOD, MPC, NLPARM, SPC, TEMP + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : CC_ENTRY_LEN, FATAL_ERR, BLNK_SUB_NAM @@ -36,7 +36,7 @@ SUBROUTINE GET_SETID ( CARD, SETID ) USE GET_SETID_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GET_SETID' CHARACTER(LEN=*), INTENT(IN) :: CARD ! A Case Control card (can be modified by subr CSHIFT, called herein) CHARACTER(LEN=LEN(CARD)+1) :: CARD1 ! CARD shifted to begin in col after "=" sign @@ -45,7 +45,7 @@ SUBROUTINE GET_SETID ( CARD, SETID ) CHARACTER( 3*BYTE) :: THRU ! An inputoutput to/from subr STOKEN, called herein CHARACTER( 8*BYTE) :: TOKEN(3) ! An output from subr STOKEN, called herein CHARACTER( 8*BYTE) :: TOKTYP(3) ! An output from subr STOKEN, called herein - + INTEGER(LONG), INTENT(OUT) :: SETID ! Set ID read from CARD after '=', if CARD contains an integer here. ! SETID is set to -1 if 'ALL' is found after '=' & to 0 if 'NONE' found INTEGER(LONG) :: ECOL ! Column on CARD where '=' is located @@ -56,12 +56,12 @@ SUBROUTINE GET_SETID ( CARD, SETID ) INTEGER(LONG) :: NTOKEN ! An output from subr STOKEN, called herein INTEGER(LONG) :: TOKLEN ! An input to subr STOKEN, called herein - + ! ********************************************************************************************************************************** ! Get SETID - + SETID = 0 CALL CSHIFT ( CARD, '=', CARD1, ECOL, IERR ) IF (IERR /= 0) THEN @@ -104,7 +104,7 @@ SUBROUTINE GET_SETID ( CARD, SETID ) ENDIF ENDIF ENDIF - + RETURN @@ -120,7 +120,7 @@ SUBROUTINE GET_SETID ( CARD, SETID ) 1706 FORMAT(' *ERROR 1706: ZERO OR NEGATIVE SET ID NOT ALLOWED ON PREVIOUS CASE CONTROL ENTRY') 1707 FORMAT(' *ERROR 1707: SET ID MUST BE AN INTEGER OF <= 8 DIGITS') - + ! ********************************************************************************************************************************** - + END SUBROUTINE GET_SETID diff --git a/Source/LK1/L1U/I4FLD.f90 b/Source/LK1/L1U/I4FLD.f90 index d21e1c50..19c949eb 100644 --- a/Source/LK1/L1U/I4FLD.f90 +++ b/Source/LK1/L1U/I4FLD.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE I4FLD ( JCARDI, IFLD, I4INP ) @@ -105,12 +105,12 @@ SUBROUTINE I4FLD ( JCARDI, IFLD, I4INP ) WRITE(F06,1700) IFLD ENDIF ENDIF - + RETURN - + ! ********************************************************************************************************************************** 1700 FORMAT(' *ERROR 1700: A DECIMAL POINT WAS FOUND IN WHAT IS SUPPOSED TO BE A INTEGER NUMBER IN FIELD ',I3,' OF THE', & - ' PREVIOUS BULK DATA CARD') + ' PREVIOUS BULK DATA CARD') 1709 FORMAT(' *ERROR 1709: FIELD ',I3,' OF THE PREVIOUS ENTRY HAS AN INTEGER WITH ',I3,' DIGITS. ALL INTEGERS MUST HAVE NO MORE',& ' THAN ',I3,' DIGITS') diff --git a/Source/LK1/L1U/IP6CHK.f90 b/Source/LK1/L1U/IP6CHK.f90 index acba3f9b..8b25c0a8 100644 --- a/Source/LK1/L1U/IP6CHK.f90 +++ b/Source/LK1/L1U/IP6CHK.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE IP6CHK ( JCARDI, JCARDO, IP6TYP, TOTAL_NUM_DIGITS ) - + ! Routine to check DOF component and PINFLG fields on Bulk Data cards to make sure that they contain valid entries: ! Output JCARDO is: @@ -40,32 +40,32 @@ SUBROUTINE IP6CHK ( JCARDI, JCARDO, IP6TYP, TOTAL_NUM_DIGITS ) ! (1) 'BLANK ' if JCARDI is blank ! (2) 'COMP NOS' if JCARDI has 1,2,3,4,5, and/or 6's -! (3) 'ZERO ' if JCARDI has one zero +! (3) 'ZERO ' if JCARDI has one zero ! (4) 'ERROR ' if JCARDI has anything else - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN - + USE IP6CHK_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)) :: SUBR_NAME = 'IP6CHK' CHARACTER(LEN=JCARD_LEN), INTENT(IN):: JCARDI ! Input 8 character field CHARACTER(8*BYTE), INTENT(OUT) :: IP6TYP ! Descriptor of JCARDI, see above CHARACTER(LEN(JCARDI)), INTENT(OUT) :: JCARDO ! Output 8 character field, described above CHARACTER(LEN(JCARDI)) :: JCARDO_TMP ! Output 8 character field, described above - + INTEGER(LONG), INTENT(OUT) :: TOTAL_NUM_DIGITS ! Total of NUM_DIGITS(I) INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: NUM_DIGITS(6) ! NUM_DIGITS(I) is a count of the num of digits found in JCARDI INTEGER(LONG) :: POSN ! An position in JCARDO - + ! ********************************************************************************************************************************** @@ -81,18 +81,18 @@ SUBROUTINE IP6CHK ( JCARDI, JCARDO, IP6TYP, TOTAL_NUM_DIGITS ) TOTAL_NUM_DIGITS = 0 ! Check for all blank input: - + IF (JCARDI == ' ') THEN IP6TYP = 'BLANK ' - + ! Check for only 1 zero in the field - - ELSE IF ((JCARDI == '0 ') .OR. (JCARDI == ' 0 ') .OR. (JCARDI == ' 0 ') .OR. (JCARDI == ' 0 ') .OR. & + + ELSE IF ((JCARDI == '0 ') .OR. (JCARDI == ' 0 ') .OR. (JCARDI == ' 0 ') .OR. (JCARDI == ' 0 ') .OR. & (JCARDI == ' 0 ') .OR. (JCARDI == ' 0 ') .OR. (JCARDI == ' 0 ') .OR. (JCARDI == ' 0')) THEN IP6TYP = 'ZERO ' - + ! Check for digits 1, 2, 3, 4, 5 and/or 6 (blanks among them are OK). If anything else found, then error. - + ELSE i_loop: DO I = 1,JCARD_LEN @@ -155,9 +155,9 @@ SUBROUTINE IP6CHK ( JCARDI, JCARDO, IP6TYP, TOTAL_NUM_DIGITS ) JCARDO(POSN:POSN) = JCARDO_TMP(I:I) ENDIF ENDDO - - ENDIF - + + ENDIF + IF ((NUM_DIGITS(1) > 1) .OR. (NUM_DIGITS(2) > 1) .OR. (NUM_DIGITS(3) > 1) .OR. & (NUM_DIGITS(4) > 1) .OR. (NUM_DIGITS(5) > 1) .OR. (NUM_DIGITS(6) > 1)) THEN WARN_ERR = WARN_ERR + 1 @@ -176,8 +176,8 @@ SUBROUTINE IP6CHK ( JCARDI, JCARDO, IP6TYP, TOTAL_NUM_DIGITS ) RETURN ! ********************************************************************************************************************************** - 1738 FORMAT(' *WARNING : SOME DOF COMPONENT NUMBERS 1 THROUGH 6 ARE REPEATED ON ABOVE CARD') + 1738 FORMAT(' *WARNING : SOME DOF COMPONENT NUMBERS 1 THROUGH 6 ARE REPEATED ON ABOVE CARD') ! ********************************************************************************************************************************** - + END SUBROUTINE IP6CHK diff --git a/Source/LK1/L1U/LEFT_ADJ_BDFLD.f90 b/Source/LK1/L1U/LEFT_ADJ_BDFLD.f90 index ba719ee3..d61cb8e1 100644 --- a/Source/LK1/L1U/LEFT_ADJ_BDFLD.f90 +++ b/Source/LK1/L1U/LEFT_ADJ_BDFLD.f90 @@ -1,54 +1,54 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE LEFT_ADJ_BDFLD ( CHR_FLD ) - + ! Shifts a character string so that it is left adjusted - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN USE TIMDAT, ONLY : TSEC - + USE LEFT_ADJ_BDFLD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)) :: SUBR_NAME = 'LEFT_ADJ_BDFLD' CHARACTER(LEN=JCARD_LEN), INTENT(INOUT):: CHR_FLD ! Char field to left adjust and return - CHARACTER(LEN=JCARD_LEN) :: TCHR_FLD ! Temporary char field - + CHARACTER(LEN=JCARD_LEN) :: TCHR_FLD ! Temporary char field + INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** IF (CHR_FLD(1:1) == ' ') THEN ! We need to shift: - + TCHR_FLD(1:) = CHR_FLD(1:) ! Set temporary field to CHR8_FLD DO I = 2,JCARD_LEN ! Perform shift @@ -57,16 +57,16 @@ SUBROUTINE LEFT_ADJ_BDFLD ( CHR_FLD ) EXIT ENDIF ENDDO - - CHR_FLD(1:) = TCHR_FLD(1:) ! Reset CHR_FLD and return - - ENDIF - + + CHR_FLD(1:) = TCHR_FLD(1:) ! Reset CHR_FLD and return + + ENDIF + RETURN ! ********************************************************************************************************************************** - - + + END SUBROUTINE LEFT_ADJ_BDFLD diff --git a/Source/LK1/L1U/MKCARD.f90 b/Source/LK1/L1U/MKCARD.f90 index 51166da2..464f589c 100644 --- a/Source/LK1/L1U/MKCARD.f90 +++ b/Source/LK1/L1U/MKCARD.f90 @@ -1,46 +1,46 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MKCARD ( JCARD, CARD ) - + ! Routine to create CARD from the 10 CHAR input JCARD fields - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : JCARD_LEN - + USE MKCARD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: JCARD(10) ! The 10 fields of characters making up CARD CHARACTER(LEN=10*JCARD_LEN), INTENT(OUT):: CARD ! A MYSTRAN data card - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: K1,K2 ! Range for setting CARD = JCARD - + ! ********************************************************************************************************************************** ! Initialize outputs @@ -50,10 +50,10 @@ SUBROUTINE MKCARD ( JCARD, CARD ) K1 = JCARD_LEN*(I-1) + 1 K2 = K1 + JCARD_LEN - 1 CARD(K1:K2) = JCARD(I)(1:JCARD_LEN) - ENDDO - + ENDDO + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE MKCARD diff --git a/Source/LK1/L1U/MKJCARD.f90 b/Source/LK1/L1U/MKJCARD.f90 index 8159535c..e4ac69a1 100644 --- a/Source/LK1/L1U/MKJCARD.f90 +++ b/Source/LK1/L1U/MKJCARD.f90 @@ -1,53 +1,53 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MKJCARD ( CALLING_SUBR, CARD, JCARD ) - + ! Routine to create JCARD, a set of 10 CHAR fields (each of size JCARD_LEN), from input char CARD - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : JCARD_LEN - + USE MKJCARD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR ! Subr that called this one CHARACTER(LEN=*) , INTENT(IN) :: CARD ! A MYSTRAN data card CHARACTER(LEN=JCARD_LEN), INTENT(OUT):: JCARD(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: I INTEGER(LONG) :: K1,K2 ! Range for setting CARD = JCARD - + ! ********************************************************************************************************************************** DO I=1,10 K1 = JCARD_LEN*(I-1) + 1 K2 = K1 + JCARD_LEN - 1 JCARD(I)(1:JCARD_LEN) = CARD(K1:K2) - ENDDO + ENDDO RETURN ! ********************************************************************************************************************************** diff --git a/Source/LK1/L1U/MKJCARD_08.f90 b/Source/LK1/L1U/MKJCARD_08.f90 index 88817c94..4f920746 100644 --- a/Source/LK1/L1U/MKJCARD_08.f90 +++ b/Source/LK1/L1U/MKJCARD_08.f90 @@ -1,54 +1,54 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MKJCARD_08 ( CARD, JCARD_08 ) - + ! Routine to create JCARD_08, a set of 10 CHAR fields (each of size 8 chars), from input char CARD - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG - + ! USE MKJCARD_08_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=*) , INTENT(IN) :: CARD ! A MYSTRAN data card CHARACTER( 8*BYTE), INTENT(OUT) :: JCARD_08(10) ! The 10 fields of characters making up CARD - + INTEGER(LONG) :: I INTEGER(LONG) :: K1,K2 ! Range for setting CARD = JCARD_08 - + ! ********************************************************************************************************************************** DO I=1,10 K1 = 8*(I-1) + 1 K2 = K1 + 7 JCARD_08(I)(1:8) = CARD(K1:K2) - ENDDO - + ENDDO + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE MKJCARD_08 diff --git a/Source/LK1/L1U/NEXTC0.f90 b/Source/LK1/L1U/NEXTC0.f90 index 6c001e33..09544c31 100644 --- a/Source/LK1/L1U/NEXTC0.f90 +++ b/Source/LK1/L1U/NEXTC0.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE NEXTC0 ( CARD, ICONT, IERR ) @@ -51,7 +51,7 @@ SUBROUTINE NEXTC0 ( CARD, ICONT, IERR ) !INTEGER(LONG) :: COMMENT_COL ! Col on CARD where a comment begins (if one exists) INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IOCHK ! IOSTAT error value from READ - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr READERR + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr READERR INTEGER(LONG) :: REC_NO ! Record number when reading a file. Input to subr READERR @@ -122,7 +122,7 @@ SUBROUTINE NEXTC0 ( CARD, ICONT, IERR ) ELSE BACKSPACE(IN1) RETURN - ENDIF + ENDIF CARD = TCARD ELSE BACKSPACE(IN1) diff --git a/Source/LK1/L1U/NEXTC20.f90 b/Source/LK1/L1U/NEXTC20.f90 index f4b79bf8..ec2a4cfb 100644 --- a/Source/LK1/L1U/NEXTC20.f90 +++ b/Source/LK1/L1U/NEXTC20.f90 @@ -1,62 +1,62 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE NEXTC20 ( PARENT, ICONT, IERR, CHILD ) - + ! Looks for 2 physical Bulk Data large field format continuation ! entries belonging to a large field parent. USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN1, INFILE USE SCONTR, ONLY : BD_ENTRY_LEN, BLNK_SUB_NAM, ECHO, FATAL_ERR, JCARD_LEN USE TIMDAT, ONLY : TSEC - + USE NEXTC20_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'NEXTC20' - CHARACTER(LEN=*), INTENT(IN) :: PARENT ! + CHARACTER(LEN=*), INTENT(IN) :: PARENT ! - CHARACTER(LEN=BD_ENTRY_LEN), INTENT(OUT) :: CHILD ! + CHARACTER(LEN=BD_ENTRY_LEN), INTENT(OUT) :: CHILD ! - CHARACTER(LEN=BD_ENTRY_LEN) :: CHILD1 ! - CHARACTER(LEN=BD_ENTRY_LEN) :: CHILD2 ! + CHARACTER(LEN=BD_ENTRY_LEN) :: CHILD1 ! + CHARACTER(LEN=BD_ENTRY_LEN) :: CHILD2 ! CHARACTER(LEN=JCARD_LEN) :: JCARD(10) ! 10 fields of 8 characters of PARENT CHARACTER(LEN(JCARD)) :: NEWTAG ! Field 10 of cont card CHARACTER(LEN(JCARD)) :: OLDTAG ! Field 10 of parent card - + INTEGER(LONG), INTENT(OUT) :: ICONT ! =1 if next card is current card's continuation or =0 if not INTEGER(LONG), INTENT(OUT) :: IERR ! Error indicator from subr FFIELD, called herein INTEGER(LONG) :: COMMENT_COL ! Col on PARENT where a comment begins (if one exists) INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IOCHK ! IOSTAT error value from READ - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr READERR + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr READERR INTEGER(LONG) :: REC_NO ! Record number when reading a file. Input to subr READERR - + ! ********************************************************************************************************************************** ! Initialize CHILD(1:) = 'z' @@ -94,7 +94,7 @@ SUBROUTINE NEXTC20 ( PARENT, ICONT, IERR, CHILD ) !xx ELSE !xx BACKSPACE(IN1) !xx RETURN -!xx ENDIF +!xx ENDIF IF (NEWTAG == OLDTAG) THEN ICONT = 1 @@ -105,7 +105,7 @@ SUBROUTINE NEXTC20 ( PARENT, ICONT, IERR, CHILD ) ELSE BACKSPACE(IN1) RETURN - ENDIF + ENDIF ! Read 2nd half of continuation entry, if it exists CALL READ_BDF_LINE(IN1, IOCHK, CHILD2) @@ -130,7 +130,7 @@ SUBROUTINE NEXTC20 ( PARENT, ICONT, IERR, CHILD ) ELSE BACKSPACE(IN1) RETURN - ENDIF + ENDIF ! Remove any comments within CHILD2 by deleting everything from $ on diff --git a/Source/LK1/L1U/R8FLD.f90 b/Source/LK1/L1U/R8FLD.f90 index 197bb05c..d9a13bd4 100644 --- a/Source/LK1/L1U/R8FLD.f90 +++ b/Source/LK1/L1U/R8FLD.f90 @@ -1,51 +1,51 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE R8FLD ( JCARDI, IFLD, R8INP ) - + ! Reads 8 column field of REAL DOUBLE data - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : IERRFL, FATAL_ERR, JCARD_LEN USE CONSTANTS_1, ONLY : ZERO - + USE R8FLD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: JCARDI ! The field of 8 characters to read CHARACTER( 1*BYTE) :: DEC_PT ! 'Y'/'N' indicator of whether a decimal point was founr in JCARDI - + INTEGER(LONG), INTENT(IN) :: IFLD ! Field (2 - 9) of a Bulk Data card to read INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IOCHK ! IOSTAT error value from READ - + REAL(DOUBLE) , INTENT(OUT) :: R8INP ! The 8 byte real value read - + ! ********************************************************************************************************************************** R8INP = ZERO IERRFL(IFLD) = 'N' @@ -56,7 +56,7 @@ SUBROUTINE R8FLD ( JCARDI, IFLD, R8INP ) IERRFL(IFLD) = 'Y' FATAL_ERR = FATAL_ERR + 1 ENDIF - + ! Scan to make sure there was a decimal point. Don't set IERRFL, since an error message is written here. IF (JCARDI /= ' ') THEN @@ -74,14 +74,14 @@ SUBROUTINE R8FLD ( JCARDI, IFLD, R8INP ) WRITE(F06,1701) IFLD ENDIF ENDIF - + RETURN - + ! ********************************************************************************************************************************** 1701 FORMAT(' *ERROR 1701: NO DECIMAL POINT WAS FOUND IN WHAT IS SUPPOSED TO BE A REAL NUMBER IN FIELD ',I3,' OF THE', & - ' PREVIOUS BULK DATA CARD') + ' PREVIOUS BULK DATA CARD') ! ********************************************************************************************************************************** - + END SUBROUTINE R8FLD diff --git a/Source/LK1/L1U/STOKEN.f90 b/Source/LK1/L1U/STOKEN.f90 index 21ee1425..bb5e784f 100644 --- a/Source/LK1/L1U/STOKEN.f90 +++ b/Source/LK1/L1U/STOKEN.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE STOKEN ( CALLING_SUBR, TOKSTR, TOKEN_BEG, STRNG_END, NTOKEN, IERROR, TOKTYP, TOKEN, ERRTOK, THRU, EXCEPT ) @@ -47,8 +47,8 @@ SUBROUTINE STOKEN ( CALLING_SUBR, TOKSTR, TOKEN_BEG, STRNG_END, NTOKEN, IERROR, IMPLICIT NONE CHARACTER(LEN=LEN(BLNK_SUB_NAM)) :: SUBR_NAME = 'STOKEN' - CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR! Character string to tokenize - CHARACTER(LEN=*) , INTENT(IN) :: TOKSTR ! Character string to tokenize + CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR! Character string to tokenize + CHARACTER(LEN=*) , INTENT(IN) :: TOKSTR ! Character string to tokenize CHARACTER( 3*BYTE) , INTENT(INOUT):: EXCEPT ! Flag indicating whether EXCEPT is "ON " or "OFF" CHARACTER( 3*BYTE) , INTENT(INOUT):: THRU ! Flag indicating whether THRU is "ON " or "OFF" CHARACTER(LEN=LEN(TOKSTR)), INTENT(OUT) :: ERRTOK ! Char string with data for an error to be printed by calling subr @@ -133,7 +133,7 @@ SUBROUTINE STOKEN ( CALLING_SUBR, TOKSTR, TOKEN_BEG, STRNG_END, NTOKEN, IERROR, CALL DEB_STOKEN ( PRINT_ITEM ) ENDIF - IF (TOKEN(NTOKEN) == 'EXCEPT ') THEN ! Set EXCEPT flag if TOKEN = 'EXCEPT ', but only if + IF (TOKEN(NTOKEN) == 'EXCEPT ') THEN ! Set EXCEPT flag if TOKEN = 'EXCEPT ', but only if ! THRU is 'ON ' & EXCEPT is not already 'ON '. IF ((THRU == 'ON ') .AND. (EXCEPT == 'OFF')) THEN EXCEPT = 'ON ' @@ -233,19 +233,19 @@ SUBROUTINE STOKEN ( CALLING_SUBR, TOKSTR, TOKEN_BEG, STRNG_END, NTOKEN, IERROR, ENDIF - ENDDO outer - + ENDDO outer + IF (DEBUG(19) == 1) THEN ! Print debug data following loop PRINT_ITEM = 6 CALL DEB_STOKEN ( PRINT_ITEM ) ENDIF - + RETURN ! ################################################################################################################################## - + CONTAINS ! ################################################################################################################################## @@ -269,7 +269,7 @@ SUBROUTINE DEB_STOKEN ( PRINT_ITEM ) IF (PRINT_ITEM == 0) THEN WRITE(F06,*) - WRITE(F06,99000) CALLING_SUBR, '"', TOKSTR(1:STRNG_END), '"' + WRITE(F06,99000) CALLING_SUBR, '"', TOKSTR(1:STRNG_END), '"' ELSE IF (PRINT_ITEM == 1) THEN WRITE(F06,99001) TOKEN_BEG ,THRU,EXCEPT,NUM_TOK_EXP,NTOKEN,(TOKTYP(I),I=1,3),(TOKEN(I),I=1,3),IERROR ELSE IF (PRINT_ITEM == 2) THEN diff --git a/Source/LK1/L1U/TOKCHK.f90 b/Source/LK1/L1U/TOKCHK.f90 index 576a40b2..fbcb63ce 100644 --- a/Source/LK1/L1U/TOKCHK.f90 +++ b/Source/LK1/L1U/TOKCHK.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE TOKCHK ( TOKEN, TOKTYPE ) ! Determines the type of an 8 character input string, TOKEN. Output TOKTYPE is: ! TOKTYPE = 'UNKNOWN ' if input TOKEN is none of the below -! TOKTYPE = 'COMMENT ' if input TOKEN is $ +! TOKTYPE = 'COMMENT ' if input TOKEN is $ ! TOKTYPE = 'BLANK ' if input TOKEN is blank ! TOKTYPE = 'INTEGER ' if input TOKEN is an integer ! TOKTYPE = 'FL PT ' if input TOKEN is a floating point number @@ -99,13 +99,13 @@ SUBROUTINE TOKCHK ( TOKEN, TOKTYPE ) ENDIF ENDDO - IF ((TOKEN(ISTART:ISTART) == '+') .OR. (TOKEN(ISTART:ISTART) == '-')) THEN + IF ((TOKEN(ISTART:ISTART) == '+') .OR. (TOKEN(ISTART:ISTART) == '-')) THEN ISTART = ISTART+1 ENDIF DO I=ISTART,IEND - IF ((TOKEN(I:I)=='1') .OR. (TOKEN(I:I)=='2') .OR. (TOKEN(I:I)=='3') .OR. (TOKEN(I:I)=='4') .OR. & + IF ((TOKEN(I:I)=='1') .OR. (TOKEN(I:I)=='2') .OR. (TOKEN(I:I)=='3') .OR. (TOKEN(I:I)=='4') .OR. & (TOKEN(I:I)=='5') .OR. (TOKEN(I:I)=='6') .OR. (TOKEN(I:I)=='7') .OR. (TOKEN(I:I)=='8') .OR. & - (TOKEN(I:I)=='9') .OR. (TOKEN(I:I)=='0')) THEN + (TOKEN(I:I)=='9') .OR. (TOKEN(I:I)=='0')) THEN TOKTYPE = 'INTEGER ' ELSE TOKTYPE = 'UNKNOWN ' @@ -116,7 +116,7 @@ SUBROUTINE TOKCHK ( TOKEN, TOKTYPE ) RETURN ENDIF - ENDIF + ENDIF ! Check for floating point number @@ -126,7 +126,7 @@ SUBROUTINE TOKCHK ( TOKEN, TOKTYPE ) TOKTYPE = '?FL PT? ' EXIT ENDIF - ENDDO + ENDDO IF (TOKTYPE == '?FL PT? ') THEN ! Check characters for floating point number CONTINUE @@ -141,7 +141,7 @@ SUBROUTINE TOKCHK ( TOKEN, TOKTYPE ) TOKTYPE = 'UNKNOWN ' EXIT ENDIF - ENDDO + ENDDO IF (TOKTYPE == 'FL PT ') THEN RETURN ENDIF diff --git a/Source/LK1/LINK1/ALLOCATE_EMS_ARRAYS.f90 b/Source/LK1/LINK1/ALLOCATE_EMS_ARRAYS.f90 index 1a335ed3..c42968a7 100644 --- a/Source/LK1/LINK1/ALLOCATE_EMS_ARRAYS.f90 +++ b/Source/LK1/LINK1/ALLOCATE_EMS_ARRAYS.f90 @@ -1,50 +1,50 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE ALLOCATE_EMS_ARRAYS ( CALLING_SUBR ) - +! End MIT license text. + + SUBROUTINE ALLOCATE_EMS_ARRAYS ( CALLING_SUBR ) + ! Allocate some arrays for use in LINK1 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, TWO, ONEPP6 USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LINKNO, LTERM_MGGE, NDOFG, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : YEAR, MONTH, DAY, HOUR, MINUTE, SEC, SFRAC, STIME, TSEC USE EMS_ARRAYS, ONLY : EMS, EMSCOL, EMSKEY, EMSPNT - + USE ALLOCATE_EMS_ARRAYS_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_EMS_ARRAYS' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER( 6*BYTE) :: NAME ! Array name (used for output error message) - - INTEGER(LONG) :: I ! DO loop index + + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator INTEGER(LONG) :: NROWS ! Number of rows for matrix NAME @@ -211,6 +211,6 @@ SUBROUTINE ALLOCATE_EMS_ARRAYS ( CALLING_SUBR ) 22345 FORMAT(5X,'Initializing ',A,' with ',I12,' rows', A, A) ! ********************************************************************************************************************************** - - END SUBROUTINE ALLOCATE_EMS_ARRAYS + + END SUBROUTINE ALLOCATE_EMS_ARRAYS diff --git a/Source/LK1/LINK1/ALLOCATE_L1_MGG.f90 b/Source/LK1/LINK1/ALLOCATE_L1_MGG.f90 index ee4fa582..730efd7b 100644 --- a/Source/LK1/LINK1/ALLOCATE_L1_MGG.f90 +++ b/Source/LK1/LINK1/ALLOCATE_L1_MGG.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_L1_MGG ( NAME, CALLING_SUBR ) - + ! Allocate some arrays for use in LINK1 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -35,17 +35,17 @@ SUBROUTINE ALLOCATE_L1_MGG ( NAME, CALLING_SUBR ) TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE SPARSE_MATRICES, ONLY : I_MGG, I2_MGG, J_MGG, MGG, I_MGGC, J_MGGC, MGGC, I_MGGE, J_MGGE, MGGE, I_MGGS, J_MGGS, MGGS - + USE ALLOCATE_L1_MGG_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_L1_MGG' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Name of matrix to be allocated CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(6*BYTE) :: NAMEO ! Array name (used for output error message) - INTEGER(LONG) :: I ! DO loop index + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator INTEGER(LONG) :: NROWS ! Number of rows in array @@ -351,5 +351,5 @@ SUBROUTINE ALLOCATE_L1_MGG ( NAME, CALLING_SUBR ) 1699 FORMAT(' THE SUBR IN WHICH THESE ERRORS WERE FOUND (',A,') WAS CALLED BY SUBR ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_L1_MGG diff --git a/Source/LK1/LINK1/ALLOCATE_STF_ARRAYS.f90 b/Source/LK1/LINK1/ALLOCATE_STF_ARRAYS.f90 index f428240b..9209656c 100644 --- a/Source/LK1/LINK1/ALLOCATE_STF_ARRAYS.f90 +++ b/Source/LK1/LINK1/ALLOCATE_STF_ARRAYS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE ALLOCATE_STF_ARRAYS ( NAME, CALLING_SUBR ) - +! End MIT license text. + + SUBROUTINE ALLOCATE_STF_ARRAYS ( NAME, CALLING_SUBR ) + ! Allocate some arrays for use in LINK1 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, TWO, ONEPP6 USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR @@ -37,19 +37,19 @@ SUBROUTINE ALLOCATE_STF_ARRAYS ( NAME, CALLING_SUBR ) USE PARAMS, ONLY : MEMAFAC, MXALLOCA, SUPINFO, WINAMEM USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP USE STF_ARRAYS, ONLY : STF, STFCOL, STFKEY, STFPNT, STF3 - + USE ALLOCATE_STF_ARRAYS_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_STF_ARRAYS' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) CHARACTER( 1*BYTE) :: ALLOC_SUCCESS ! 'Y' if an allocation attempt was successful - + INTEGER(LONG) :: ALLOC_ATTEMPT_NUM ! The number of times an attempt has been made to allocate an array - INTEGER(LONG) :: I ! DO loop index + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator INTEGER(LONG) :: LTERM ! Count of number of estimated terms in KGG or KGGD @@ -203,7 +203,7 @@ SUBROUTINE ALLOCATE_STF_ARRAYS ( NAME, CALLING_SUBR ) NTERMS = LTERM MB_NEEDED = RDOUBLE*REAL(NTERMS)/ONEPP6 + TWO*RLONG*REAL(NTERMS)/ONEPP6 - IF (MB_NEEDED >= WINAMEM) THEN ! Reduce request for memory to + IF (MB_NEEDED >= WINAMEM) THEN ! Reduce request for memory to NTERMS = MEMAFAC*(WINAMEM/MB_NEEDED)*NTERMS ENDIF ALLOC_ATTEMPT_NUM = 1 @@ -320,6 +320,6 @@ SUBROUTINE ALLOCATE_STF_ARRAYS ( NAME, CALLING_SUBR ) 32345 FORMAT(5X,'Attempt ', I3,' to alloc ', F9.3,' MB memory to array ',A, A, A) ! ********************************************************************************************************************************** - - END SUBROUTINE ALLOCATE_STF_ARRAYS + + END SUBROUTINE ALLOCATE_STF_ARRAYS diff --git a/Source/LK1/LINK1/ALLOCATE_TEMPLATE.f90 b/Source/LK1/LINK1/ALLOCATE_TEMPLATE.f90 index aa46203a..44e7a863 100644 --- a/Source/LK1/LINK1/ALLOCATE_TEMPLATE.f90 +++ b/Source/LK1/LINK1/ALLOCATE_TEMPLATE.f90 @@ -1,49 +1,49 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE ALLOCATE_TEMPLATE ( CALLING_SUBR ) - +! End MIT license text. + + SUBROUTINE ALLOCATE_TEMPLATE ( CALLING_SUBR ) + ! Allocate some arrays for use in LINK1 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE STF_TEMPLATE_ARRAYS, ONLY : CROW, TEMPLATE - + USE ALLOCATE_STF_ARRAYS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_TEMPLATE' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - - INTEGER(LONG) :: I,J ! DO loop indices + + INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator INTEGER(LONG) :: NROWS ! Nunber of rows in array NAME being allocated @@ -135,6 +135,6 @@ SUBROUTINE ALLOCATE_TEMPLATE ( CALLING_SUBR ) 1699 FORMAT(' THE SUBR IN WHICH THESE ERRORS WERE FOUND (',A,') WAS CALLED BY SUBR ',A) ! ********************************************************************************************************************************** - - END SUBROUTINE ALLOCATE_TEMPLATE + + END SUBROUTINE ALLOCATE_TEMPLATE diff --git a/Source/LK1/LINK1/DEALLOCATE_EMS_ARRAYS.f90 b/Source/LK1/LINK1/DEALLOCATE_EMS_ARRAYS.f90 index 2ad96575..73534af8 100644 --- a/Source/LK1/LINK1/DEALLOCATE_EMS_ARRAYS.f90 +++ b/Source/LK1/LINK1/DEALLOCATE_EMS_ARRAYS.f90 @@ -1,47 +1,47 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE DEALLOCATE_EMS_ARRAYS - +! End MIT license text. + + SUBROUTINE DEALLOCATE_EMS_ARRAYS + ! Deallocate some arrays used in LINK1 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE EMS_ARRAYS, ONLY : EMSCOL, EMSKEY, EMSPNT, EMS - + USE DEALLOCATE_EMS_ARRAYS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_EMS_ARRAYS' CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator @@ -66,7 +66,7 @@ SUBROUTINE DEALLOCATE_EMS_ARRAYS WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF ! Deallocate EMSPNT @@ -80,7 +80,7 @@ SUBROUTINE DEALLOCATE_EMS_ARRAYS WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF ! Deallocate EMSKEY @@ -94,7 +94,7 @@ SUBROUTINE DEALLOCATE_EMS_ARRAYS WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF ! Deallocate EMS @@ -108,7 +108,7 @@ SUBROUTINE DEALLOCATE_EMS_ARRAYS WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF ! Quit if there were errors @@ -125,5 +125,5 @@ SUBROUTINE DEALLOCATE_EMS_ARRAYS 992 FORMAT(' *ERROR 992: CANNOT DEALLOCATE MEMORY FROM ARRAY ',A,' IN SUBROUTINE ',A) ! ********************************************************************************************************************************** - - END SUBROUTINE DEALLOCATE_EMS_ARRAYS + + END SUBROUTINE DEALLOCATE_EMS_ARRAYS diff --git a/Source/LK1/LINK1/DEALLOCATE_L1_MGG.f90 b/Source/LK1/LINK1/DEALLOCATE_L1_MGG.f90 index 8d2e482d..027c3d24 100644 --- a/Source/LK1/LINK1/DEALLOCATE_L1_MGG.f90 +++ b/Source/LK1/LINK1/DEALLOCATE_L1_MGG.f90 @@ -1,48 +1,48 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) - +! End MIT license text. + + SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) + ! Deallocate some arrays used in LINK1 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE SPARSE_MATRICES, ONLY : I_MGG, I2_MGG, J_MGG, MGG, I_MGGC, J_MGGC, MGGC, I_MGGE, J_MGGE, MGGE, I_MGGS, J_MGGS, MGGS - + USE DEALLOCATE_L1_MGG_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_L1_MGG' CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Name of matrix to be allocated CHARACTER(6*BYTE) :: NAME ! Name of matrix to be allocated - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator @@ -67,7 +67,7 @@ SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'MGGC') THEN @@ -81,7 +81,7 @@ SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF IF (ALLOCATED(J_MGGC)) THEN @@ -93,7 +93,7 @@ SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF IF (ALLOCATED(MGGC)) THEN @@ -105,7 +105,7 @@ SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'MGGE') THEN @@ -119,7 +119,7 @@ SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF IF (ALLOCATED(J_MGGE)) THEN @@ -131,7 +131,7 @@ SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF IF (ALLOCATED(MGGE)) THEN @@ -143,7 +143,7 @@ SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(F06,992) NAME, SUBR_NAME - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'MGGS') THEN @@ -157,7 +157,7 @@ SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF IF (ALLOCATED(J_MGGS)) THEN @@ -169,7 +169,7 @@ SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF IF (ALLOCATED(MGGS)) THEN @@ -181,7 +181,7 @@ SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 WRITE(F06,992) NAME, SUBR_NAME - ENDIF + ENDIF ENDIF ELSE @@ -210,5 +210,5 @@ SUBROUTINE DEALLOCATE_L1_MGG ( NAME_IN ) 992 FORMAT(' *ERROR 992: CANNOT DEALLOCATE MEMORY FROM ARRAY ',A,' IN SUBROUTINE ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_L1_MGG diff --git a/Source/LK1/LINK1/DEALLOCATE_STF_ARRAYS.f90 b/Source/LK1/LINK1/DEALLOCATE_STF_ARRAYS.f90 index 22c743bf..fd14b422 100644 --- a/Source/LK1/LINK1/DEALLOCATE_STF_ARRAYS.f90 +++ b/Source/LK1/LINK1/DEALLOCATE_STF_ARRAYS.f90 @@ -1,48 +1,48 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_STF_ARRAYS ( NAME ) - + ! Deallocate some arrays used in LINK1 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE STF_ARRAYS, ONLY : STFCOL, STFKEY, STFPNT, STF, STF3 - + USE DEALLOCATE_STF_ARRAYS_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_STF_ARRAYS' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator @@ -66,7 +66,7 @@ SUBROUTINE DEALLOCATE_STF_ARRAYS ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME == 'STFCOL') THEN @@ -79,7 +79,7 @@ SUBROUTINE DEALLOCATE_STF_ARRAYS ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME == 'STFPNT') THEN @@ -92,7 +92,7 @@ SUBROUTINE DEALLOCATE_STF_ARRAYS ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME == 'STF ') THEN @@ -105,7 +105,7 @@ SUBROUTINE DEALLOCATE_STF_ARRAYS ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME == 'STF3') THEN @@ -118,7 +118,7 @@ SUBROUTINE DEALLOCATE_STF_ARRAYS ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF ELSE @@ -154,5 +154,5 @@ SUBROUTINE DEALLOCATE_STF_ARRAYS ( NAME ) 12345 FORMAT(5X,'Deallocated ',1ES9.2,' MB of mem from array: ',A, A) ! ********************************************************************************************************************************** - - END SUBROUTINE DEALLOCATE_STF_ARRAYS + + END SUBROUTINE DEALLOCATE_STF_ARRAYS diff --git a/Source/LK1/LINK1/DEALLOCATE_TEMPLATE.f90 b/Source/LK1/LINK1/DEALLOCATE_TEMPLATE.f90 index 8687e843..70938d5c 100644 --- a/Source/LK1/LINK1/DEALLOCATE_TEMPLATE.f90 +++ b/Source/LK1/LINK1/DEALLOCATE_TEMPLATE.f90 @@ -1,47 +1,47 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE DEALLOCATE_TEMPLATE - +! End MIT license text. + + SUBROUTINE DEALLOCATE_TEMPLATE + ! Deallocate some arrays used in LINK1 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE STF_TEMPLATE_ARRAYS, ONLY : CROW, TEMPLATE - + USE DEALLOCATE_TEMPLATE_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_TEMPLATE' CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator @@ -66,7 +66,7 @@ SUBROUTINE DEALLOCATE_TEMPLATE WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF ! Deallocate CROW @@ -80,7 +80,7 @@ SUBROUTINE DEALLOCATE_TEMPLATE WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 FATAL_ERR = FATAL_ERR + 1 - ENDIF + ENDIF ENDIF ! Quit if there were errors @@ -97,5 +97,5 @@ SUBROUTINE DEALLOCATE_TEMPLATE 992 FORMAT(' *ERROR 992: CANNOT DEALLOCATE MEMORY FROM ARRAY ',A,' IN SUBROUTINE ',A) ! ********************************************************************************************************************************** - - END SUBROUTINE DEALLOCATE_TEMPLATE + + END SUBROUTINE DEALLOCATE_TEMPLATE diff --git a/Source/LK1/LINK1/LINK0.f90 b/Source/LK1/LINK1/LINK0.f90 index e0d6e549..8e100f6d 100644 --- a/Source/LK1/LINK1/LINK0.f90 +++ b/Source/LK1/LINK1/LINK0.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE LINK0 - + ! LINK0: ! - reads in the data deck @@ -37,7 +37,7 @@ SUBROUTINE LINK0 ! - processes concentrated masses ! - calcs rigid body mass props (GPWG) ! - process temperature and pressure load input data to get arrays needed for element load calcs - + USE PENTIUM_II_KIND, ONLY : BYTE, SHORT, LONG, SINGLE, DOUBLE, QUAD USE IOUNT1, ONLY : MOU4, SC1, WRT_BUG @@ -76,13 +76,13 @@ SUBROUTINE LINK0 GRID_ID, SNORM, RSNORM, GRID_SNORM USE DEBUG_PARAMETERS, ONLY : DEBUG USE BANDIT_MODULE - USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET, TR6_CG, TR6_MEFM, TR6_0 + USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET, TR6_CG, TR6_MEFM, TR6_0 USE SPARSE_MATRICES, ONLY : SYM_KGG, I_KGG, J_KGG, KGG USE OUTPUT4_MATRICES, ONLY : NUM_OU4_REQUESTS, OU4_FILE_UNITS - + USE LINK0_USE_IFs USE LINK_MESSAGE_Interface - + IMPLICIT NONE LOGICAL :: FILE_OPND ! = .TRUE. if a file is opened @@ -98,7 +98,7 @@ SUBROUTINE LINK0 CHARACTER( 1*BYTE) :: RBG_GSET_ALLOCATED! 'Y' or 'N' depending on whether array RBGLOBAL has been allocated CHARACTER(132*BYTE) :: TDOF_MSG ! Message to be printed out regarding at what point in the run the TDOF,I ! tables are printed out - + INTEGER(LONG) :: BANDIT_BW ! Matrix bandwidth returned from subr BANDIT ! Array used to tell subr ELDT_PROC_FOR_RESTART which ELDT to calc @@ -107,7 +107,7 @@ SUBROUTINE LINK0 INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: I1,I2 ! Intermediate integer variable INTEGER(LONG) :: JERROR = 0 ! Local error count - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: PRINTIT = 0 ! 'Y'/'N' depending on whether to tell subr GET_MATRIX_DIAG_STATS to ! print output INTEGER(LONG) :: R_SET_COL ! Col number in TDOF where the R-set exists @@ -123,7 +123,7 @@ SUBROUTINE LINK0 !LOGICAL :: WRITE_OP2 ! flag INTRINSIC :: IAND - + ! ********************************************************************************************************************************** LINKNO = 0 POST = -1 @@ -158,7 +158,7 @@ SUBROUTINE LINK0 ! Read input data to count sizes of arrays (no. GRID's, elems, etc.) CALL LINK_MESSAGE('DETERMINE ARRAY SIZES - CASE CONTROL ') CALL LOADC0 - + ! Initial pass on Bulk Data when this is not a restart res11:IF (RESTART == 'N') THEN @@ -167,9 +167,9 @@ SUBROUTINE LINK0 ENDIF res11 ! Start back at beginnng of input file to read - ! Exec, Case Control and Bulk Data decks + ! Exec, Case Control and Bulk Data decks REWIND (IN1) - + ! Processes the EXEC CONTROL DECK CALL LINK_MESSAGE('READ EXEC CONTROL DECK ') WRITE(F06,*) @@ -267,22 +267,22 @@ SUBROUTINE LINK0 ENDIF ENDIF res12 - + res13:IF (RESTART == 'N') THEN ! Open files needed for writing Bulk Data in LOADB. ! L1F: Rigid element data -! L1I: FORCE, MOMENT for loads requested in Case Control +! L1I: FORCE, MOMENT for loads requested in Case Control ! L1K: Temperature data for temp loads requested in Case Control ! L1M: Eigen extraction data for METHOD requested in Case Control ! L1N: ASET, OMIT data ! L1O: SPC data for SPC's requested in Case Control ! L1P: GRAV data for loads requested in Case Control ! L1Q: Element pressure load data for loads requested in Case Control -! L1S: Data from B.D. MPC cards -! L1T: +! L1S: Data from B.D. MPC cards +! L1T: ! L1U: Data from B.D. RFORCE cards -! L1W: Data from B.D. SLOAD cards +! L1W: Data from B.D. SLOAD cards CALL FILE_OPEN ( L1F, LINK1F, OUNT, 'REPLACE', L1F_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) CALL FILE_OPEN ( L1I, LINK1I, OUNT, 'REPLACE', L1I_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) @@ -300,7 +300,7 @@ SUBROUTINE LINK0 !xx IF ((SOL_NAME(1:5) == 'MODES') .OR. (SOL_NAME(1:12) == 'GEN CB MODEL')) THEN !xx CALL FILE_OPEN ( L1M, LINK1M, OUNT, 'REPLACE', L1M_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) !xx ENDIF - + ! Get machine parameters and set EPSIL(1). ! This may change later if user inputs a value on a PARAM EPSIL entry. CALL GET_MACHINE_PARAMS @@ -407,7 +407,7 @@ SUBROUTINE LINK0 ENDIF ! Close files opened for writing Bulk data info to - IF (NRIGEL > 0) THEN + IF (NRIGEL > 0) THEN CALL FILE_CLOSE ( L1F, LINK1F, 'KEEP' ) ELSE CALL FILE_CLOSE ( L1F, LINK1F, 'DELETE' ) @@ -436,19 +436,19 @@ SUBROUTINE LINK0 ELSE CALL FILE_CLOSE ( L1O, LINK1O, 'DELETE' ) ENDIF - + IF (NGRAV > 0) THEN CALL FILE_CLOSE ( L1P, LINK1P, 'KEEP' ) ELSE CALL FILE_CLOSE ( L1P, LINK1P, 'DELETE' ) ENDIF - + IF (NPCARD > 0) THEN CALL FILE_CLOSE ( L1Q, LINK1O, 'KEEP' ) ELSE CALL FILE_CLOSE ( L1Q, LINK1O, 'DELETE' ) ENDIF - + IF (NMPC > 0) THEN CALL FILE_CLOSE ( L1S, LINK1S, 'KEEP' ) ELSE @@ -466,13 +466,13 @@ SUBROUTINE LINK0 ELSE CALL FILE_CLOSE ( L1U, LINK1U, 'DELETE' ) ENDIF - + IF (NSLOAD > 0) THEN CALL FILE_CLOSE ( L1W, LINK1W, 'KEEP' ) ELSE CALL FILE_CLOSE ( L1W, LINK1W, 'DELETE' ) ENDIF - + IF (NUM_PARTVEC_RECORDS > 0) THEN CALL FILE_CLOSE ( L1V, LINK1V, 'KEEP' ) ELSE @@ -484,19 +484,19 @@ SUBROUTINE LINK0 ELSE CALL FILE_CLOSE ( L1X, LINK1X, 'DELETE' ) ENDIF - + CALL SET_SPARSE_MAT_SYM ! Set sparse matrix sym ENDIF res13 ! Check error flag; if > 0 quit. - + IF (FATAL_ERR > 0) THEN WRITE(ERR,9998) FATAL_ERR WRITE(F06,9998) FATAL_ERR CALL OUTA_HERE ( 'Y' ) ! Finished processing data deck and there are input errors ENDIF - + res14:IF (RESTART == 'N') THEN ! CALL LINK_MESSAGE('ALLOCATE MEMORY FOR SOME MODEL DATA ARRAYS ') @@ -507,19 +507,19 @@ SUBROUTINE LINK0 CALL LINK_MESSAGE('SORT AND CHECK ELEMENTS ') CALL ELESORT CALL DEALLOCATE_MODEL_STUF ( 'RIGID_ELEM_IDS' ) - + ! Open L1B, OP2 for writing grid and coord data to. CALL FILE_OPEN ( L1B, LINK1B, OUNT, 'REPLACE', L1B_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) CALL FILE_OPEN ( OP2, OP2FIL, OUNT, 'REPLACE', OP2_MSG, 'NEITHER', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) OP2STAT = 'KEEP ' CALL WRITE_OP2_HEADER(POST) - + ! Element processing to convert external PID's to internal. CALL LINK_MESSAGE('ELEM PROCESSOR ') CALL ELEM_PROP_MATL_IIDS - + ! Grid and coordinate system processing ! CALL LINK_MESSAGE('ALLOCATE MEMORY FOR SOME MODEL DATA ARRAYS ') CALL ALLOCATE_MODEL_STUF ( 'SINGLE ELEMENT ARRAYS', SUBR_NAME ) @@ -537,7 +537,7 @@ SUBROUTINE LINK0 IF (CHKGRDS == 'Y') THEN CALL LINK_MESSAGE('CHECK THAT ALL GRIDS FOR ELEMS EXIST ') - + CALL COUNTER_INIT(' Process element', NELE) DO I=1,NELE CALL GET_ELEM_AGRID_BGRID ( I, 'Y' ) @@ -606,7 +606,7 @@ SUBROUTINE LINK0 GRID_SNORM(BGRID,:) = RSNORM(I,:) / DSQRT(DOT_PRODUCT(RSNORM(I,:), RSNORM(I,:))) ENDDO CALL DEALLOCATE_MODEL_STUF ( 'SNORM, RSNORM' ) - + ENDIF res14 @@ -629,7 +629,7 @@ SUBROUTINE LINK0 IF ( IAND(OELDT,IBIT(ELDT_F22_ME_BIT) ) > 0) THEN CALL FILE_OPEN ( F22, F22FIL, OUNT, 'REPLACE', F22_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) ENDIF - + IF ( IAND(OELDT,IBIT(ELDT_F23_KE_BIT) ) > 0) THEN CALL FILE_OPEN ( F23, F23FIL, OUNT, 'REPLACE', F23_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) ENDIF @@ -762,11 +762,11 @@ SUBROUTINE LINK0 ! Open L1N for reading ASET, ASET1, OMIT, OMIT1 data if NAOCARD > 0 ! Open L1C for writing DOF tables to ! Open L1H for writing enforced displ SPC's. Keep L1H for later processing in YS_ARRAY if SOL = STATICS - + IF (NRIGEL > 0) THEN CALL FILE_OPEN ( L1F, LINK1F, OUNT, 'OLD', L1F_MSG, 'READ_STIME', 'UNFORMATTED', 'READ', 'REWIND', 'Y', 'N' ) ENDIF - + IF (NMPC > 0) THEN CALL FILE_OPEN ( L1S, LINK1S, OUNT, 'OLD', L1S_MSG, 'READ_STIME', 'UNFORMATTED', 'READ', 'REWIND', 'Y', 'N' ) ENDIF @@ -786,7 +786,7 @@ SUBROUTINE LINK0 CALL FILE_OPEN ( L1C, LINK1C, OUNT, 'REPLACE', L1C_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) CALL FILE_OPEN ( L1H, LINK1H, OUNT, 'REPLACE', L1H_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) - + ! CALL LINK_MESSAGE('ALLOCATE MEMORY FOR SOME MODEL DATA ARRAYS ') CALL ALLOCATE_DOF_TABLES ( 'TSET', SUBR_NAME ) CALL ALLOCATE_DOF_TABLES ( 'TDOF', SUBR_NAME ) @@ -834,7 +834,7 @@ SUBROUTINE LINK0 CALL LINK_MESSAGE('CONM2 PROCESSOR #1 ') CALL CONM2_PROC_1 CALL FILE_CLOSE ( L1Y, LINK1Y, L1YSTAT ) - + ! Grid point weight generator (model weight, c.g., etc.) CALL LINK_MESSAGE('ALLOCATE MEMORY FOR RBGLOBAL ARRAY ') CALL ALLOCATE_RBGLOBAL ( 'G ', SUBR_NAME ) @@ -908,7 +908,7 @@ SUBROUTINE LINK0 ! CONM2 processing to get CONM2 data in global coords at the grid CALL LINK_MESSAGE('CONM2 PROCESSOR #2 ') CALL CONM2_PROC_2 - + ! Temperature data processing IF ((SOL_NAME(1:7) == 'STATICS') .OR. (SOL_NAME(1:8) == 'NLSTATIC') .OR. & ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 1))) THEN @@ -933,7 +933,7 @@ SUBROUTINE LINK0 CALL DEALLOCATE_MODEL_STUF ( 'ETEMP' ) CALL DEALLOCATE_MODEL_STUF ( 'CGTEMP' ) CALL DEALLOCATE_MODEL_STUF ( 'CETEMP' ) - + ! Element pressure data processing. ! Open L1Q which contains element pressure Bulk Data IF ((SOL_NAME(1:7) == 'STATICS') .OR. (SOL_NAME(1:8) == 'NLSTATIC') .OR. & @@ -943,17 +943,17 @@ SUBROUTINE LINK0 CALL ALLOCATE_MODEL_STUF ( 'PLOAD4_3D_DATA', SUBR_NAME ) IF (NPCARD > 0) THEN - + CALL FILE_OPEN ( L1Q, LINK1Q, OUNT, 'OLD', L1Q_MSG, 'READ_STIME', 'UNFORMATTED', 'READ', 'REWIND', 'Y', 'N' ) - + CALL LINK_MESSAGE('ELEMENT PRESSURE DATA PROCESSOR ') CALL PRESSURE_DATA_PROC - + CALL FILE_CLOSE ( L1Q, LINK1Q, 'KEEP' ) ENDIF ENDIF CALL DEALLOCATE_MODEL_STUF ( 'PRESS_SIDS' ) - + ! Generate TR6_CG rigid body displ matrix for the R-set if this run has R-set DOF's. TR6_CG not needed until LINK6 but, by calc'ing ! it here we can avoid keeping CORD, RCORD, GRID, RGRID arrays from having to be allocated until then @@ -1132,7 +1132,7 @@ SUBROUTINE LINK0 ' LONG INTEGER = ',I4,' BYTES',/ & ' SINGLE PREC REAL = ',I4,' BYTES',/ & ' DOUBLE PREC REAL = ',I4,' BYTES',/ & - ' QUAD PREC REAL = ',I4,' BYTES') + ' QUAD PREC REAL = ',I4,' BYTES') 144 FORMAT(' *INFORMATION: NUMBER OF GRID POINTS = ',I12) @@ -1175,9 +1175,9 @@ SUBROUTINE LINK0 12345 FORMAT(A, ', I = ', I8, ' of ', I8, A) ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE ELDT_PROC_FOR_RESTART ( CHK_ELDT_BIT ) @@ -1339,17 +1339,17 @@ SUBROUTINE WRITE_ELEM_SUMMARY IF (NCBAR > 0) THEN TOTAL = TOTAL + NCBAR - WRITE(F06,7777) 'BAR ', NCBAR + WRITE(F06,7777) 'BAR ', NCBAR ENDIF IF (NCBEAM > 0) THEN TOTAL = TOTAL + NCBEAM - WRITE(F06,7777) 'BEAM ', NCBEAM + WRITE(F06,7777) 'BEAM ', NCBEAM ENDIF IF (NCELAS1 > 0) THEN TOTAL = TOTAL + NCELAS1 - WRITE(F06,7777) 'CELAS1 ', NCELAS1 + WRITE(F06,7777) 'CELAS1 ', NCELAS1 ENDIF IF (NCELAS2 > 0) THEN @@ -1359,42 +1359,42 @@ SUBROUTINE WRITE_ELEM_SUMMARY IF (NCELAS3 > 0) THEN TOTAL = TOTAL + NCELAS3 - WRITE(F06,7777) 'CELAS3 ', NCELAS3 + WRITE(F06,7777) 'CELAS3 ', NCELAS3 ENDIF IF (NCELAS4 > 0) THEN TOTAL = TOTAL + NCELAS4 - WRITE(F06,7777) 'CELAS4 ', NCELAS4 + WRITE(F06,7777) 'CELAS4 ', NCELAS4 ENDIF IF (NCHEXA8 > 0) THEN TOTAL = TOTAL + NCHEXA8 - WRITE(F06,7777) 'HEXA8 ', NCHEXA8 + WRITE(F06,7777) 'HEXA8 ', NCHEXA8 ENDIF IF (NCHEXA20 > 0) THEN TOTAL = TOTAL + NCHEXA20 - WRITE(F06,7777) 'HEXA20 ', NCHEXA20 + WRITE(F06,7777) 'HEXA20 ', NCHEXA20 ENDIF IF (NCPENTA6 > 0) THEN TOTAL = TOTAL + NCPENTA6 - WRITE(F06,7777) 'PENTA6 ', NCPENTA6 + WRITE(F06,7777) 'PENTA6 ', NCPENTA6 ENDIF IF (NCPENTA15 > 0) THEN TOTAL = TOTAL + NCPENTA15 - WRITE(F06,7777) 'PENTA15', NCPENTA15 + WRITE(F06,7777) 'PENTA15', NCPENTA15 ENDIF IF (NCQUAD4 > 0) THEN TOTAL = TOTAL + NCQUAD4 - WRITE(F06,7777) 'QUAD4 ', NCQUAD4 + WRITE(F06,7777) 'QUAD4 ', NCQUAD4 ENDIF IF (NCQUAD4K > 0) THEN TOTAL = TOTAL + NCQUAD4K - WRITE(F06,7777) 'QUAD4K ', NCQUAD4K + WRITE(F06,7777) 'QUAD4K ', NCQUAD4K ENDIF IF (NCQUAD8 > 0) THEN @@ -1404,37 +1404,37 @@ SUBROUTINE WRITE_ELEM_SUMMARY IF (NCROD > 0) THEN TOTAL = TOTAL + NCROD - WRITE(F06,7777) 'ROD ', NCROD + WRITE(F06,7777) 'ROD ', NCROD ENDIF IF (NCTETRA4 > 0) THEN TOTAL = TOTAL + NCTETRA4 - WRITE(F06,7777) 'TETRA4 ', NCTETRA4 + WRITE(F06,7777) 'TETRA4 ', NCTETRA4 ENDIF IF (NCTETRA10 > 0) THEN TOTAL = TOTAL + NCTETRA10 - WRITE(F06,7777) 'TETRA10', NCTETRA10 + WRITE(F06,7777) 'TETRA10', NCTETRA10 ENDIF IF (NCTRIA3 > 0) THEN TOTAL = TOTAL + NCTRIA3 - WRITE(F06,7777) 'TRIA3 ', NCTRIA3 + WRITE(F06,7777) 'TRIA3 ', NCTRIA3 ENDIF IF (NCTRIA3K > 0) THEN TOTAL = TOTAL + NCTRIA3K - WRITE(F06,7777) 'TRIA3K ', NCTRIA3K + WRITE(F06,7777) 'TRIA3K ', NCTRIA3K ENDIF IF (NCUSER1 > 0) THEN TOTAL = TOTAL + NCUSER1 - WRITE(F06,7777) 'USER1 ', NCUSER1 + WRITE(F06,7777) 'USER1 ', NCUSER1 ENDIF IF (NCUSERIN > 0) THEN TOTAL = TOTAL + NCUSERIN - WRITE(F06,7777) 'USERIN ', NCUSERIN + WRITE(F06,7777) 'USERIN ', NCUSERIN ENDIF IF (TOTAL /= NELE) THEN diff --git a/Source/LK1/LINK1/LINK1.f90 b/Source/LK1/LINK1/LINK1.f90 index 8882d441..d6f4e6ad 100644 --- a/Source/LK1/LINK1/LINK1.f90 +++ b/Source/LK1/LINK1/LINK1.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE LINK1 - + ! LINK1 processes: ! - MPC's and rigid elements resulting in a sparse RMG array of constraint coefficients ! - applied forces (incl grid forces and moments, gravity, pressure, thermal, centrifugal, scalar). Result is a sparse load array ! - G-set mass, stiffness and load matrices. Results are sparse stiffness, mass and load arrays ! - process differential stiffness resulting in a sparse array of differential stiffness values - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06, F21, F22, F23, F24, L1C, L1F, L1I, L1G, L1J, L1P, L1S, L1U, L1W, SC1 - + USE IOUNT1, ONLY : F21FIL, F22FIL, F23FIL, F24FIL, LINK1C, LINK1F, LINK1I, LINK1G, LINK1J, LINK1P, LINK1S, & LINK1U, LINK1W @@ -56,10 +56,10 @@ SUBROUTINE LINK1 USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP USE MODEL_STUF, ONLY : OELDT USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE LINK1_USE_IFs USE LINK_MESSAGE_Interface - + IMPLICIT NONE LOGICAL :: LEXIST ! .TRUE. if a file exists @@ -69,18 +69,18 @@ SUBROUTINE LINK1 CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'LINK1' CHARACTER(10*BYTE) :: LTERM_NAME ! Name for an LTERM value CHARACTER( 1*BYTE) :: RESPONSE ! User response ('Y' or 'N') to a screen prompt - + INTEGER(LONG) :: BUCKLING_STEP ! If SOL is BUCKLING then this is step 1 or 2 in the process, otherwise 0 INTEGER(LONG) :: I1 ! Intermediate integer variable INTEGER(LONG) :: I2 ! Intermediate integer variable INTEGER(LONG) :: I3 ! Intermediate integer variable INTEGER(LONG) :: I4 ! Intermediate integer variable - INTEGER(LONG) :: LTERM ! Value for LTERM_KGGD or LTERM_KGG - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: LTERM ! Value for LTERM_KGGD or LTERM_KGG + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG), PARAMETER :: P_LINKNO = 0 ! Prior LINK no's that should have run before this LINK can execute INTRINSIC :: IAND - + ! ********************************************************************************************************************************** LINKNO = 1 @@ -100,12 +100,12 @@ SUBROUTINE LINK1 OUNT(2) = F06 ! Write info to text files - + WRITE(F06,150) LINKNO WRITE(ERR,150) LINKNO ! Read LINK1A file - + !xx CALL READ_L1A ( 'KEEP' ) CALL INIT_COUNTERS @@ -144,7 +144,7 @@ SUBROUTINE LINK1 CALL FILE_OPEN ( L1J, LINK1J, OUNT, 'REPLACE', L1J_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) - IF (NMPC > 0) THEN + IF (NMPC > 0) THEN CALL FILE_OPEN ( L1S, LINK1S, OUNT, 'OLD', L1S_MSG, 'READ_STIME', 'UNFORMATTED', 'READ', 'REWIND', 'Y', 'N' ) CALL LINK_MESSAGE('MPC PROCESSOR ') CALL MPC_PROC @@ -170,7 +170,7 @@ SUBROUTINE LINK1 ENDIF ! FORCE/MOMENT processing. Open L1I which contains FORCE/MOMENT Bulk Data. - + IF ((SOL_NAME(1:7) == 'STATICS') .OR. (SOL_NAME(1:8) == 'NLSTATIC') .OR. & ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 1))) THEN CALL LINK_MESSAGE('ALLOCATE MEMORY FOR SYS_LOAD ARRAY ') @@ -181,9 +181,9 @@ SUBROUTINE LINK1 CALL FILE_CLOSE ( L1I, LINK1I, L1ISTAT ) ENDIF ENDIF - + ! Element thermal and pressure load processing - + IF ((SOL_NAME(1:7) == 'STATICS') .OR. (SOL_NAME(1:8) == 'NLSTATIC') .OR. (SOL_NAME(1:8) == 'BUCKLING')) THEN !xx ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 1))) THEN CALL LINK_MESSAGE('ALLOCATE MEMORY FOR THERMAL LOAD ARRAYS ') @@ -214,10 +214,10 @@ SUBROUTINE LINK1 WRITE(SC1,'(A,I12)') 'New LTERM_MGGE will be = ',LTERM_MGGE ENDIF ENDIF - + CALL LINK_MESSAGE('ALLOCATE MEM FOR EMSKEY, EMSCOL, EMSPNT, EMS') CALL ALLOCATE_EMS_ARRAYS ( SUBR_NAME ) - + CALL LINK_MESSAGE('ELEMENT MASS MATRIX PROCESSOR ') CALL EMP INQUIRE ( FILE=F22FIL, EXIST=LEXIST, OPENED=LOPEN ) @@ -258,7 +258,7 @@ SUBROUTINE LINK1 ENDIF ! Gravity load processing. Open L1P which contains GRAV Bulk Data. - + IF ((SOL_NAME(1:7) == 'STATICS') .OR. (SOL_NAME(1:8) == 'NLSTATIC') .OR. & ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 1))) THEN IF (NGRAV > 0) THEN @@ -270,9 +270,9 @@ SUBROUTINE LINK1 CALL FILE_CLOSE ( L1P, LINK1P, L1PSTAT ) ENDIF ENDIF - + ! RFORCE load processing. Open L1U which contains RFORCE Bulk Data. - + IF ((SOL_NAME(1:7) == 'STATICS') .OR. (SOL_NAME(1:8) == 'NLSTATIC') .OR. & ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 1))) THEN IF (NRFORCE > 0) THEN @@ -287,7 +287,7 @@ SUBROUTINE LINK1 CALL DEALLOCATE_L1_MGG ( 'I2_MGG' ) ! SLOAD load processing. Open L1W which contains SLOAD Bulk Data. - + IF ((SOL_NAME(1:7) == 'STATICS') .OR. (SOL_NAME(1:8) == 'NLSTATIC') .OR. & ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 1))) THEN IF (NSLOAD > 0) THEN @@ -299,7 +299,7 @@ SUBROUTINE LINK1 CALL FILE_CLOSE ( L1W, LINK1W, L1WSTAT ) ENDIF ENDIF - + ! Deallocate CALL DEALLOCATE_MODEL_STUF ( 'LOAD_SIDS, LOAD_FACS' ) @@ -314,7 +314,7 @@ SUBROUTINE LINK1 ENDIF ! Estimate LTERM so arrays can be allocated for G-set stiffness matrix - + CALL ESP0 IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN CALL LINK_MESSAGE('CALCULATE ESTIMATE OF KGGD MATRIX SIZE ') @@ -325,7 +325,7 @@ SUBROUTINE LINK1 LTERM_NAME = 'LTERM_KGG' LTERM = LTERM_KGG ENDIF - + IF (ESP0_PAUSE == 'Y') THEN WRITE(SC1,'(A,A,A,I12)') ' From ESP0: ', LTERM_NAME,' = ',LTERM WRITE(SC1,'(A,A,A)') ' Do you want to change ',LTERM_NAME,' estimate? (Y/N)' @@ -342,7 +342,7 @@ SUBROUTINE LINK1 WRITE(SC1,'(A,A,A,I12)') 'New ', LTERM_NAME,' will be = ',LTERM ENDIF ENDIF - + if (setlktk /= 3) then ! Subr ESP0 estimated LTERM conservatively. Now allocate this amount CALL LINK_MESSAGE('ALLOCATE MEM FOR STFKEY, STFCOL, STFPNT, STF') CALL ALLOCATE_STF_ARRAYS ( 'STFKEY', SUBR_NAME ) @@ -351,9 +351,9 @@ SUBROUTINE LINK1 Write(err,*) '*ERROR : PROGRAMMING ERROR IN SUBR ',SUBR_NAME,' SETLKTK CANNOT = 3' Write(f06,*) '*ERROR : PROGRAMMING ERROR IN SUBR ',SUBR_NAME,' SETLKTK CANNOT = 3' endif - + ! Compute element stiffness and merge into system stiffness matrix. - + CALL LINK_MESSAGE('G-SET STIFFNESS MATRIX PROCESSOR ') CALL ESP @@ -424,16 +424,16 @@ SUBROUTINE LINK1 ENDIF CALL FILE_CLOSE ( L1G, LINK1G, 'KEEP' ) - + ENDIF ENDIF res19 - + ! Deallocate CALL DEALLOCATE_MODEL_STUF ( 'SINGLE ELEMENT ARRAYS' ) IF ((SOL_NAME(1:8) /= 'NLSTATIC') .AND. (SOL_NAME(1:8) /= 'DIFFEREN')) THEN - CALL DEALLOCATE_MODEL_STUF ( 'SUBLOD' ) + CALL DEALLOCATE_MODEL_STUF ( 'SUBLOD' ) ENDIF ! Check allocation status of allocatable arrays, if requested @@ -476,9 +476,9 @@ SUBROUTINE LINK1 9998 FORMAT(/,' PROCESSING TERMINATED DUE TO ',I8,' INPUT ERRORS. CHECK OUTPUT FILE FOR ERROR MESSAGES') ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE INIT_COUNTERS diff --git a/Source/LK1/LINK1/LINK1_RESTART_DATA.f90 b/Source/LK1/LINK1/LINK1_RESTART_DATA.f90 index e2a53ab4..da4b5d35 100644 --- a/Source/LK1/LINK1/LINK1_RESTART_DATA.f90 +++ b/Source/LK1/LINK1/LINK1_RESTART_DATA.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE LINK1_RESTART_DATA @@ -59,16 +59,16 @@ SUBROUTINE LINK1_RESTART_DATA IMPLICIT NONE - CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'LINK1_RESTART_DATA' + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'LINK1_RESTART_DATA' CHARACTER(FILE_NAM_MAXLEN*BYTE) :: FILNAM ! Name of a file that is to be opened for reading CHARACTER(132*BYTE) :: MESSAG ! Char message for file name CHARACTER(LEN=DATA_NAM_LEN) :: NAME_Is ! Name of data actually read from file CHARACTER(LEN=DATA_NAM_LEN) :: NAME_ShouldBe ! Name of data that should be read from file INTEGER(LONG) :: I,J ! DO loop indices - INTEGER(LONG) :: INT2 ! An integer value read from a file from a file + INTEGER(LONG) :: INT2 ! An integer value read from a file from a file INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening or reading a file - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: PCOMP_PLIES ! Number of plies in 1 PCOMP entry incl sym plies not explicitly defined INTEGER(LONG) :: REC_NO ! Record number of a record read from a file INTEGER(LONG) :: UNT ! Unit number of a file to be read @@ -107,12 +107,12 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MGRID READ(UNT,IOSTAT=IOCHK) GRID(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRGRID READ(UNT,IOSTAT=IOCHK) RGRID(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,NGRID GRID_ID(I) = GRID(I,1) ENDDO @@ -134,33 +134,33 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MCORD READ(UNT,IOSTAT=IOCHK) CORD(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRCORD READ(UNT,IOSTAT=IOCHK) RCORD(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO ! Read GRID_SEQ, INV_GRID_SEQ data - + NAME_ShouldBe = 'GRID_SEQ, INV_GRID_SEQ' REC_NO = 0 - + READ(UNT,IOSTAT=IOCHK) NAME_Is ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) IF (NAME_Is /= NAME_ShouldBe) CALL DATA_SET_NAME_ERROR ( NAME_ShouldBe, FILNAM, NAME_Is ) - + READ(UNT,IOSTAT=IOCHK) INT2 ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) IF (INT2 /= NGRID) CALL DATA_SET_SIZE_ERROR ( FILNAM, NAME_Is, 'NGRID', NGRID, INT2 ) - + DO I=1,NGRID READ(UNT,IOSTAT=IOCHK) GRID_SEQ(I), INV_GRID_SEQ(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - + ENDDO + CALL FILE_CLOSE ( L1B, LINK1B, L1BSTAT ) - + !----------------------------------------------------------------------------------------------------------------------------------- ! Open L1G @@ -216,10 +216,10 @@ SUBROUTINE LINK1_RESTART_DATA DO I = 1,NEDAT READ(UNT,IOSTAT=IOCHK) EDAT(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO ! Read element PARAMETERS - + NAME_ShouldBe = 'ELEM PARAMETERS' REC_NO = 0 @@ -227,25 +227,25 @@ SUBROUTINE LINK1_RESTART_DATA CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) IF (NAME_Is /= NAME_ShouldBe) CALL DATA_SET_NAME_ERROR ( NAME_ShouldBe, LINK1G, NAME_Is ) - READ(UNT,IOSTAT=IOCHK) IORQ1M ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) IORQ1M ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - READ(UNT,IOSTAT=IOCHK) IORQ1S ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) IORQ1S ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - READ(UNT,IOSTAT=IOCHK) IORQ1B ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) IORQ1B ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - READ(UNT,IOSTAT=IOCHK) IORQ2B ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) IORQ2B ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - READ(UNT,IOSTAT=IOCHK) IORQ2T ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) IORQ2T ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - READ(UNT,IOSTAT=IOCHK) CBMIN3 ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) CBMIN3 ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - READ(UNT,IOSTAT=IOCHK) CBMIN4 ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) CBMIN4 ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) ! Read BAR, BEAM v vectors @@ -263,10 +263,10 @@ SUBROUTINE LINK1_RESTART_DATA DO I=1,NVVEC READ(UNT,IOSTAT=IOCHK) (VVEC(I,J),J=1,3) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - + ENDDO + ! Read BAR, BEAM offsets - + NAME_ShouldBe = 'BAR, BEAM OFFSETS' REC_NO = 0 @@ -282,10 +282,10 @@ SUBROUTINE LINK1_RESTART_DATA READ(UNT,IOSTAT=IOCHK) BAROFF(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) ENDDO - ENDDO - + ENDDO + ! Read plate offsets - + NAME_ShouldBe = 'PLATE OFFSETS' REC_NO = 0 @@ -299,10 +299,10 @@ SUBROUTINE LINK1_RESTART_DATA DO I = 1,NPLATEOFF READ(UNT,IOSTAT=IOCHK) PLATEOFF(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - + ENDDO + ! Read plate thicknesses from connection entries - + NAME_ShouldBe = 'PLATE THICKNESSES FROM CONNECTION ENTRIES' REC_NO = 0 @@ -316,8 +316,8 @@ SUBROUTINE LINK1_RESTART_DATA DO I = 1,NPLATETHICK READ(UNT,IOSTAT=IOCHK) PLATETHICK(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - + ENDDO + ! Read PBAR, RPBAR NAME_ShouldBe = 'PBAR, RPBAR' @@ -343,13 +343,13 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MPBAR READ(UNT,IOSTAT=IOCHK) PBAR(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPBAR READ(UNT,IOSTAT=IOCHK) RPBAR(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PBEAM, RPBEAM NAME_ShouldBe = 'PBEAM, RPBEAM' @@ -375,13 +375,13 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MPBEAM READ(UNT,IOSTAT=IOCHK) PBEAM(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPBEAM READ(UNT,IOSTAT=IOCHK) RPBEAM(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PBUSH, RPBUSH NAME_ShouldBe = 'PBUSH, RPBUSH' @@ -407,13 +407,13 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MPBUSH READ(UNT,IOSTAT=IOCHK) PBUSH(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPBUSH READ(UNT,IOSTAT=IOCHK) RPBUSH(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PROD, RPROD NAME_ShouldBe = 'PROD, RPROD' @@ -439,13 +439,13 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MPROD READ(UNT,IOSTAT=IOCHK) PROD(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPROD READ(UNT,IOSTAT=IOCHK) RPROD(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PELAS, RPELAS NAME_ShouldBe = 'PELAS, RPELAS' @@ -471,13 +471,13 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MPELAS READ(UNT,IOSTAT=IOCHK) PELAS(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPELAS READ(UNT,IOSTAT=IOCHK) RPELAS(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PSHEAR, RPSHEAR NAME_ShouldBe = 'PSHEAR, RPSHEAR' @@ -503,13 +503,13 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MPSHEAR READ(UNT,IOSTAT=IOCHK) PSHEAR(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPSHEAR READ(UNT,IOSTAT=IOCHK) RPSHEAR(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PSHEL, RPSHEL NAME_ShouldBe = 'PSHEL, RPSHEL' @@ -535,13 +535,13 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MPSHEL READ(UNT,IOSTAT=IOCHK) PSHEL(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPSHEL READ(UNT,IOSTAT=IOCHK) RPSHEL(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PCOMP, RPCOMP NAME_ShouldBe = 'PCOMP, RPCOMP' @@ -580,15 +580,15 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MPCOMP0+MPCOMP_PLIES*PCOMP_PLIES READ(UNT,IOSTAT=IOCHK) PCOMP(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPCOMP0+MRPCOMP_PLIES*PCOMP_PLIES READ(UNT,IOSTAT=IOCHK) RPCOMP(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO + + ENDDO - ENDDO - ! Read PSOLID NAME_ShouldBe = 'PSOLID' @@ -610,9 +610,9 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MPSOLID READ(UNT,IOSTAT=IOCHK) PSOLID(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PUSER1, RPUSER1 NAME_ShouldBe = 'PUSER1, RPUSER1' @@ -638,13 +638,13 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MPUSER1 READ(UNT,IOSTAT=IOCHK) PUSER1(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPUSER1 READ(UNT,IOSTAT=IOCHK) RPUSER1(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PUSERIN NAME_ShouldBe = 'PUSERIN' @@ -666,9 +666,9 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MPUSERIN READ(UNT,IOSTAT=IOCHK) PUSERIN(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read USERIN_MAT_NAMES NAME_ShouldBe = 'USERIN_MAT_NAMES' @@ -690,11 +690,11 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MUSERIN_MAT_NAMES READ(UNT,IOSTAT=IOCHK) USERIN_MAT_NAMES(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read material data from L1G - + NAME_ShouldBe = 'MATL, RMATL' REC_NO = 0 @@ -722,11 +722,11 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MRMATLC READ(UNT,IOSTAT=IOCHK) RMATL(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO ! Read material property angles - + NAME_ShouldBe = 'MATERIAL PROPERTY ANGLES' REC_NO = 0 @@ -740,21 +740,21 @@ SUBROUTINE LINK1_RESTART_DATA DO I = 1,NMATANGLE READ(UNT,IOSTAT=IOCHK) MATANGLE(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - + ENDDO + CALL FILE_CLOSE ( L1G, LINK1G, L1GSTAT ) - + !----------------------------------------------------------------------------------------------------------------------------------- ! Open L1K and read data - + FILNAM = LINK1K UNT = L1K MESSAG = L1K_MSG IF (NTCARD > 0) THEN - + CALL FILE_OPEN ( UNT, FILNAM, OUNT, 'OLD', MESSAG, 'READ_STIME', 'UNFORMATTED', 'READ', 'REWIND', 'Y', 'N' ) - + ! Read TPNT NAME_ShouldBe = 'TPNT' @@ -776,8 +776,8 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,NTSUB READ(UNT,IOSTAT=IOCHK) TPNT(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO ! Read TDATA @@ -795,7 +795,7 @@ SUBROUTINE LINK1_RESTART_DATA DO I=1,NTDAT READ(UNT,IOSTAT=IOCHK) TDATA(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO ! Read GTEMP @@ -818,8 +818,8 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,NTSUB READ(UNT,IOSTAT=IOCHK) GTEMP(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO CALL FILE_CLOSE ( L1K, LINK1K, L1KSTAT ) @@ -827,15 +827,15 @@ SUBROUTINE LINK1_RESTART_DATA !----------------------------------------------------------------------------------------------------------------------------------- ! Open L1Q and read data - + FILNAM = LINK1Q UNT = L1Q MESSAG = L1Q_MSG IF (NTCARD > 0) THEN - + CALL FILE_OPEN ( UNT, FILNAM, OUNT, 'OLD', MESSAG, 'READ_STIME', 'UNFORMATTED', 'READ', 'REWIND', 'Y', 'N' ) - + ! Read PPNT NAME_ShouldBe = 'PPNT' @@ -857,8 +857,8 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,NSUB READ(UNT,IOSTAT=IOCHK) PPNT(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO ! Read PDATA @@ -876,7 +876,7 @@ SUBROUTINE LINK1_RESTART_DATA DO I=1,NPDAT READ(UNT,IOSTAT=IOCHK) PDATA(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO ! Read PTYPE @@ -894,7 +894,7 @@ SUBROUTINE LINK1_RESTART_DATA DO I=1,NELE READ(UNT,IOSTAT=IOCHK) PTYPE(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO ENDIF @@ -914,7 +914,7 @@ SUBROUTINE LINK1_RESTART_DATA DO I=1,NPLOAD4_3D READ(UNT,IOSTAT=IOCHK) (PLOAD4_3D_DATA(I,J),J=1,MPLOAD4_3D_DATA) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO !----------------------------------------------------------------------------------------------------------------------------------- ! Open L1Y and read data @@ -942,17 +942,17 @@ SUBROUTINE LINK1_RESTART_DATA DO J=1,MCONM2 READ(UNT,IOSTAT=IOCHK) CONM2(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRCONM2 READ(UNT,IOSTAT=IOCHK) RCONM2(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE LINK1_RESTART_DATA diff --git a/Source/LK1/LINK1/PRINT_CONSTANTS_1.f90 b/Source/LK1/LINK1/PRINT_CONSTANTS_1.f90 index e3247fe9..e6447428 100644 --- a/Source/LK1/LINK1/PRINT_CONSTANTS_1.f90 +++ b/Source/LK1/LINK1/PRINT_CONSTANTS_1.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE PRINT_CONSTANTS_1 @@ -36,10 +36,10 @@ SUBROUTINE PRINT_CONSTANTS_1 USE PRINT_CONSTANTS_1_USE_IFs IMPLICIT NONE - + !*********************************************************************************************************************************** ! Print real constants used in various subroutines - + WRITE(F06,1101) WRITE(F06,1102) WRITE(F06,*) diff --git a/Source/LK1/LINK1/PRINT_ORDER.f90 b/Source/LK1/LINK1/PRINT_ORDER.f90 index e79e0c2f..9a5f9534 100644 --- a/Source/LK1/LINK1/PRINT_ORDER.f90 +++ b/Source/LK1/LINK1/PRINT_ORDER.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE PRINT_ORDER @@ -47,7 +47,7 @@ SUBROUTINE PRINT_ORDER REAL(DOUBLE) :: SS_I(MAX_ORDER_TRIA) ! Tria X abscissa's REAL(DOUBLE) :: SS_J(MAX_ORDER_TRIA) ! Tria Y abscissa's REAL(DOUBLE) :: HHH(MAX_ORDER_GAUSS) ! Weights - + ! ********************************************************************************************************************************** ! Write header diff --git a/Source/LK1/LINK1/WRITE_ENF_TO_L1O.f90 b/Source/LK1/LINK1/WRITE_ENF_TO_L1O.f90 index d82d963e..c1525cf8 100644 --- a/Source/LK1/LINK1/WRITE_ENF_TO_L1O.f90 +++ b/Source/LK1/LINK1/WRITE_ENF_TO_L1O.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_ENF_TO_L1O - -! Reads enforced displacement data from text file ENFFIL and writes it to unformatted file LINK1O. + +! Reads enforced displacement data from text file ENFFIL and writes it to unformatted file LINK1O. ! Used when ENFORCED = filename in Case Control signifies that all DOF's will be in SE set and their values are in ENFFIL - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ENF, ENFFIL, ENFSTAT, ENF_MSG, ERR, F06, L1O, LINK1O, L1OSTAT, L1O_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, NDOFSG, NGRID, NSPC, NUM_SPC_RECORDS, NUM_SPC1_RECORDS, WARN_ERR @@ -37,18 +37,18 @@ SUBROUTINE WRITE_ENF_TO_L1O USE PARAMS, ONLY : SUPWARN USE DOF_TABLES, ONLY : TSET_CHR_LEN, TSET USE MODEL_STUF, ONLY : SPCSET - + USE WRITE_ENF_TO_L1O_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_ENF_TO_L1O' CHARACTER(LEN=LEN(TSET_CHR_LEN)):: DOFSET = 'SE' ! The name of a DOF set (e.g. 'SB', 'A ', etc) INTEGER(LONG) :: GRID_ID ! ID of grid for which the enforced data belongs INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening or reading a file INTEGER(LONG) :: J ! DO loop index - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr FILE_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr FILE_OPEN INTEGER(LONG) :: REC_NO ! Number of the record read from ENF file diff --git a/Source/LK2/ALLOCATE_L2_GMN_2.f90 b/Source/LK2/ALLOCATE_L2_GMN_2.f90 index 916ef72b..87c473e2 100644 --- a/Source/LK2/ALLOCATE_L2_GMN_2.f90 +++ b/Source/LK2/ALLOCATE_L2_GMN_2.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE ALLOCATE_L2_GMN_2 ( CALLING_SUBR ) - +! End MIT license text. + + SUBROUTINE ALLOCATE_L2_GMN_2 ( CALLING_SUBR ) + ! Allocate some arrays for use in LINK2 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -35,16 +35,16 @@ SUBROUTINE ALLOCATE_L2_GMN_2 ( CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE SPARSE_MATRICES, ONLY : I2_GMN - + USE ALLOCATE_L2_GMN_2_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_L2_GMN_2' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - - INTEGER(LONG) :: I ! DO loop index + + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator INTEGER(LONG) :: NROWS ! Number of rows in array @@ -65,7 +65,7 @@ SUBROUTINE ALLOCATE_L2_GMN_2 ( CALLING_SUBR ) ! Allocate array for I2_GMN ! NOTE: I2_GMN has row no's for ALL terms in GMN - not the sparse format that is compressed row storage. ! This is a temporary allocate for subr SOLVE_GMN - + MB_ALLOCATED = ZERO NROWS = NTERM_GMN JERR = 0 @@ -118,5 +118,5 @@ SUBROUTINE ALLOCATE_L2_GMN_2 ( CALLING_SUBR ) 1699 FORMAT(' THE SUBR IN WHICH THESE ERRORS WERE FOUND (',A,') WAS CALLED BY SUBR ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_L2_GMN_2 diff --git a/Source/LK2/ALLOCATE_L2_GOA_2.f90 b/Source/LK2/ALLOCATE_L2_GOA_2.f90 index 2ae8c292..6522645b 100644 --- a/Source/LK2/ALLOCATE_L2_GOA_2.f90 +++ b/Source/LK2/ALLOCATE_L2_GOA_2.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE ALLOCATE_L2_GOA_2 ( CALLING_SUBR ) - +! End MIT license text. + + SUBROUTINE ALLOCATE_L2_GOA_2 ( CALLING_SUBR ) + ! Allocate some arrays for use in LINK - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -35,22 +35,22 @@ SUBROUTINE ALLOCATE_L2_GOA_2 ( CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE SPARSE_MATRICES, ONLY : I2_GOA - + USE ALLOCATE_L2_GOA_2_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_L2_GOA_2' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - - INTEGER(LONG) :: I ! DO loop index + + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator INTEGER(LONG) :: NROWS ! Number of rows in array INTEGER(LONG), PARAMETER :: NCOLS = 1 ! Number of cols in array - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -65,7 +65,7 @@ SUBROUTINE ALLOCATE_L2_GOA_2 ( CALLING_SUBR ) ! Allocate array I2_GOA ! NOTE: I2_GOA has row no's for ALL terms in GOA - not the sparse format that is compressed row storage. ! This is a temporary allocate for subr SOLVE_GOA - + MB_ALLOCATED = ZERO NROWS = NTERM_GOA JERR = 0 @@ -117,5 +117,5 @@ SUBROUTINE ALLOCATE_L2_GOA_2 ( CALLING_SUBR ) 1699 FORMAT(' THE SUBR IN WHICH THESE ERRORS WERE FOUND (',A,') WAS CALLED BY SUBR ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_L2_GOA_2 diff --git a/Source/LK2/DEALLOCATE_L2_GMN_2.f90 b/Source/LK2/DEALLOCATE_L2_GMN_2.f90 index a3b85d34..d14797c7 100644 --- a/Source/LK2/DEALLOCATE_L2_GMN_2.f90 +++ b/Source/LK2/DEALLOCATE_L2_GMN_2.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE DEALLOCATE_L2_GMN_2 - +! End MIT license text. + + SUBROUTINE DEALLOCATE_L2_GMN_2 + ! Deallocate some arrays used in LINK - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC @@ -35,15 +35,15 @@ SUBROUTINE DEALLOCATE_L2_GMN_2 USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG USE SPARSE_MATRICES, ONLY : I2_GMN - + USE DEALLOCATE_L2_GMN_2_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_L2_GMN_2' CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) CHARACTER(14*BYTE) :: NAMEL ! First 14 bytes of NAMEO - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator @@ -68,7 +68,7 @@ SUBROUTINE DEALLOCATE_L2_GMN_2 JERR = JERR + 1 ELSE CALL ALLOCATED_MEMORY ( NAME, ZERO, 'DEALLOC', 'Y', CUR_MB_ALLOCATED, SUBR_NAME ) - ENDIF + ENDIF ENDIF ! Quit if there were errors @@ -86,5 +86,5 @@ SUBROUTINE DEALLOCATE_L2_GMN_2 992 FORMAT(' *ERROR 992: CANNOT DEALLOCATE MEMORY FROM ARRAY ',A,' IN SUBROUTINE ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_L2_GMN_2 diff --git a/Source/LK2/DEALLOCATE_L2_GOA_2.f90 b/Source/LK2/DEALLOCATE_L2_GOA_2.f90 index 978f5628..195aeb87 100644 --- a/Source/LK2/DEALLOCATE_L2_GOA_2.f90 +++ b/Source/LK2/DEALLOCATE_L2_GOA_2.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_L2_GOA_2 @@ -42,11 +42,11 @@ SUBROUTINE DEALLOCATE_L2_GOA_2 CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_L2_GOA_2' CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -66,7 +66,7 @@ SUBROUTINE DEALLOCATE_L2_GOA_2 WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ! Quit if there were errors diff --git a/Source/LK2/LINK2.f90 b/Source/LK2/LINK2.f90 index bb72460d..aa6a96ed 100644 --- a/Source/LK2/LINK2.f90 +++ b/Source/LK2/LINK2.f90 @@ -1,43 +1,43 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE LINK2 - + ! Reduces G-set matrices to L-set. Performs the following major functions: - + ! 1) Calls routines to reduce KGG, MGG, PG to N-set (needs to solve for GMN = RMM(-1)*RMN first) ! 2) Calls routines to reduce KNN, MNN, PN to F-set ! 3) Calls routines to reduce KFF, MFF, PF to A-set ! 4) Calls routines to reduce KAA, MAA, PA to L-set - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, ERR, F06, L1A, ERRSTAT, SC1 USE IOUNT1, ONLY : L2G, L2H , L2I , L2O , L2P , L2Q - USE IOUNT1, ONLY : LINK2G, LINK2H , LINK2I , LINK2O , LINK2P , LINK2Q + USE IOUNT1, ONLY : LINK2G, LINK2H , LINK2I , LINK2O , LINK2P , LINK2Q USE IOUNT1, ONLY : L2G_MSG, L2H_MSG, L2I_MSG, L2O_MSG, L2P_MSG, L2Q_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, COMM, FATAL_ERR, LINKNO, MBUG, & @@ -72,16 +72,16 @@ SUBROUTINE LINK2 IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'LINK2' - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not CHARACTER( 8*BYTE) :: CLOSE_STAT ! What to do with file when it is closed INTEGER(LONG) :: NROWS ! Value of DOF size to pass to subr WRITE_USERIN_BD_CARDS INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG), PARAMETER :: P_LINKNO = 1 ! Prior LINK no's that should have run before this LINK can execute - + REAL(DOUBLE) :: KGG_DIAG(NDOFG) ! Diagonal of KGG REAL(DOUBLE) :: KGG_MAX_DIAG ! Max diag term from KGG REAL(DOUBLE) :: KGGD_DIAG(NDOFG) ! Diagonal of KGGD @@ -107,12 +107,12 @@ SUBROUTINE LINK2 WRITE(SC1,152) LINKNO ! Write info to text files - + WRITE(F06,150) LINKNO WRITE(ERR,150) LINKNO ! Read LINK1A file - + CALL READ_L1A ( 'KEEP' ) ! Check COMM for successful completion of prior LINKs @@ -185,7 +185,7 @@ SUBROUTINE LINK2 WRITE(F06,2002) NDOFN ENDIF -! Reduce N-set to F and S-sets. +! Reduce N-set to F and S-sets. IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN NTERM_KFFD = 0 @@ -206,8 +206,8 @@ SUBROUTINE LINK2 WRITE(F06,2013) NDOFSA WRITE(F06,2004) NDOFF ENDIF - -! Reduce F-set to A and O-sets + +! Reduce F-set to A and O-sets IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN NTERM_KAAD = 0 @@ -234,21 +234,21 @@ SUBROUTINE LINK2 CALL LINK_MESSAGE('WRITE KAA STIFFNESS ARRAYS TO FILE') IF (NTERM_KAA > 0) THEN CALL WRITE_MATRIX_1 ( LINK2O, L2O, 'Y', 'KEEP', L2O_MSG, 'KAA', NTERM_KAA, NDOFA, I_KAA, J_KAA, KAA ) - ENDIF + ENDIF CALL LINK_MESSAGE('WRITE MAA MASS ARRAYS TO FILE') IF (NTERM_MAA > 0) THEN CALL WRITE_MATRIX_1 ( LINK2P, L2P, 'Y', 'KEEP', L2P_MSG, 'MAA', NTERM_MAA, NDOFA, I_MAA, J_MAA, MAA ) - ENDIF + ENDIF CALL LINK_MESSAGE('WRITE PA LOAD ARRAYS TO FILE') IF (NTERM_PA > 0) THEN - CALL WRITE_MATRIX_1 ( LINK2Q, L2Q, 'Y', 'KEEP', L2Q_MSG, 'PA' , NTERM_PA , NDOFA, I_PA , J_PA , PA ) - ENDIF + CALL WRITE_MATRIX_1 ( LINK2Q, L2Q, 'Y', 'KEEP', L2Q_MSG, 'PA' , NTERM_PA , NDOFA, I_PA , J_PA , PA ) + ENDIF ENDIF -! Reduce A-set to L and R-sets +! Reduce A-set to L and R-sets IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN NTERM_KLLD = 0 @@ -283,18 +283,18 @@ SUBROUTINE LINK2 IF (NTERM_KLL > 0) THEN CLOSE_IT = 'Y' CALL WRITE_MATRIX_1 ( LINK2G, L2G, CLOSE_IT, 'KEEP', L2G_MSG, 'KLL', NTERM_KLL, NDOFL, I_KLL, J_KLL, KLL ) - ENDIF + ENDIF IF (NTERM_MLL > 0) THEN CLOSE_IT = 'Y' CALL WRITE_MATRIX_1 ( LINK2I, L2I, CLOSE_IT, 'KEEP', L2I_MSG, 'MLL', NTERM_MLL, NDOFL, I_MLL, J_MLL, MLL ) - ENDIF + ENDIF IF (NTERM_PL > 0) THEN CLOSE_IT = 'Y' CLOSE_STAT = 'KEEP' - CALL WRITE_MATRIX_1 ( LINK2H, L2H, CLOSE_IT, 'KEEP', L2H_MSG, 'PL ', NTERM_PL , NDOFL, I_PL , J_PL , PL ) - ENDIF + CALL WRITE_MATRIX_1 ( LINK2H, L2H, CLOSE_IT, 'KEEP', L2H_MSG, 'PL ', NTERM_PL , NDOFL, I_PL , J_PL , PL ) + ENDIF WRITE(ERR,146) 'KLL STIFFNESS MATRIX IS ', NTERM_KLL WRITE(ERR,146) 'MLL MASS MATRIX IS ', NTERM_MLL @@ -312,7 +312,7 @@ SUBROUTINE LINK2 CALL OUTPUT4_PROC ( SUBR_NAME ) !xx WRITE(SC1, * ) ' DEALLOCATE SOME ARRAYS' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages !xx WRITE(SC1,12345,ADVANCE='NO') ' Deallocating KGG', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KGG' ) !xx WRITE(SC1,12345,ADVANCE='NO') ' Deallocating MGG', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'MGG' ) !xx WRITE(SC1,12345,ADVANCE='NO') ' Deallocating PG ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'PG' ) @@ -371,7 +371,7 @@ SUBROUTINE LINK2 ! Write data to L1A CALL WRITE_L1A ( 'KEEP', 'Y' ) - + ! Check allocation status of allocatable arrays, if requested IF (DEBUG(100) > 0) THEN @@ -387,14 +387,14 @@ SUBROUTINE LINK2 WRITE(F06,151) LINKNO ! Close files - + IF (( DEBUG(193) == 2) .OR. (DEBUG(193) == 999)) THEN CALL FILE_INQUIRE ( 'near end of LINK2' ) ENDIF ERRSTAT = 'KEEP' ! Write LINK2 end to screen - WRITE(SC1,153) LINKNO + WRITE(SC1,153) LINKNO ! ********************************************************************************************************************************** 146 FORMAT(' *INFORMATION: NUMBER OF NONZERO TERMS IN THE ',A,' = ',I12,/) @@ -433,9 +433,9 @@ SUBROUTINE LINK2 12345 FORMAT(A,10X,A) ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE DEALLOCATE_LINK2_ARRAYS ( WHICH ) diff --git a/Source/LK2/REDUCE_A_LR.f90 b/Source/LK2/REDUCE_A_LR.f90 index 2f283351..eb818573 100644 --- a/Source/LK2/REDUCE_A_LR.f90 +++ b/Source/LK2/REDUCE_A_LR.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_A_LR - + ! Call routines to reduce stiffness, mass, loads from A-set to L, R-sets - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, LINKNO, NDOFA, NDOFG, NDOFL, NDOFR, NSUB, SOL_NAME, & @@ -35,7 +35,7 @@ SUBROUTINE REDUCE_A_LR NTERM_KAAD, NTERM_KLLD, NTERM_KRLD, NTERM_KRRD, & NTERM_MAA , NTERM_MLL , NTERM_MRL , NTERM_MRR , & NTERM_PA , NTERM_PL , NTERM_PR - USE TIMDAT, ONLY : TSEC, YEAR, MONTH, DAY, HOUR, MINUTE, SEC, SFRAC, STIME + USE TIMDAT, ONLY : TSEC, YEAR, MONTH, DAY, HOUR, MINUTE, SEC, SFRAC, STIME USE CONSTANTS_1, ONLY : ONE USE DOF_TABLES, ONLY : TDOFI USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_ASET, RBGLOBAL_GSET, RBGLOBAL_LSET @@ -49,11 +49,11 @@ SUBROUTINE REDUCE_A_LR USE FULL_MATRICES, ONLY : KAA_FULL USE OUTPUT4_MATRICES, ONLY : ACT_OU4_MYSTRAN_NAMES, NUM_OU4_REQUESTS USE DEBUG_PARAMETERS - + USE REDUCE_A_LR_USE_IFs - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_A_LR' CHARACTER( 1*BYTE) :: DEALLOCATE_KAA = 'Y' ! Indicator of whether we need to keep KAA allocated for OU4 output @@ -65,15 +65,15 @@ SUBROUTINE REDUCE_A_LR CHARACTER( 1*BYTE) :: DEALLOCATE_MRL = 'Y' ! Indicator of whether we need to keep MRL allocated for OU4 output CHARACTER( 1*BYTE) :: DEALLOCATE_MRR = 'Y' ! Indicator of whether we need to keep MRR allocated for OU4 output CHARACTER( 1*BYTE) :: DEALLOCATE_PA = 'Y' ! Indicator of whether we need to keep PA allocated for OU4 output - CHARACTER(132*BYTE) :: MATRIX_NAME ! Name of matrix for printout + CHARACTER(132*BYTE) :: MATRIX_NAME ! Name of matrix for printout CHARACTER( 44*BYTE) :: MODNAM ! Name to write to screen to describe module being run - + INTEGER(LONG) :: DO_WHICH_CODE_FRAG ! 1 or 2 depending on which seg of code to run (depends on BUCKLING) INTEGER(LONG) :: L_SET_COL ! Col no. in array TDOFI where the F-set is (from subr TDOF_COL_NUM) INTEGER(LONG) :: L_SET_DOF ! F-set DOF number - INTEGER(LONG) :: I,J ! DO loop indices - INTEGER(LONG) :: PART_VEC_A_LR(NDOFA) ! Partitioning vector (N set into F and S sets) - INTEGER(LONG) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) + INTEGER(LONG) :: I,J ! DO loop indices + INTEGER(LONG) :: PART_VEC_A_LR(NDOFA) ! Partitioning vector (N set into F and S sets) + INTEGER(LONG) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) REAL(DOUBLE) :: KLL_DIAG(NDOFL) ! Diagonal terms from KLL @@ -170,7 +170,7 @@ SUBROUTINE REDUCE_A_LR ENDIF -! Reduce PA to PL. +! Reduce PA to PL. IF ((SOL_NAME(1:5) /= 'MODES') .AND. (SOL_NAME(1:12) /= 'GEN CB MODEL')) THEN @@ -237,7 +237,7 @@ SUBROUTINE REDUCE_A_LR MODNAM = ' DEALLOCATE A-SET ARRAYS' WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages IF (DEALLOCATE_KAA == 'Y') THEN WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KAA', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KAA' ) @@ -276,7 +276,7 @@ SUBROUTINE REDUCE_A_LR MODNAM = ' DEALLOCATE R-SET ARRAYS' WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages IF (DEALLOCATE_KRL == 'Y') THEN WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KRL', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KRL' ) @@ -431,7 +431,7 @@ SUBROUTINE REDUCE_A_LR MODNAM = ' DEALLOCATE A-SET ARRAYS' WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages IF (DEALLOCATE_KAAD == 'Y') THEN WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KAAD', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KAAD' ) @@ -460,7 +460,7 @@ SUBROUTINE REDUCE_A_LR MODNAM = ' DEALLOCATE R-SET ARRAYS' WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages IF (DEALLOCATE_KRLD == 'Y') THEN WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KRLD', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KRLD' ) @@ -494,4 +494,4 @@ SUBROUTINE REDUCE_A_LR ! ********************************************************************************************************************************** - END SUBROUTINE REDUCE_A_LR + END SUBROUTINE REDUCE_A_LR diff --git a/Source/LK2/REDUCE_F_AO.f90 b/Source/LK2/REDUCE_F_AO.f90 index 08bcf829..93aa5bfc 100644 --- a/Source/LK2/REDUCE_F_AO.f90 +++ b/Source/LK2/REDUCE_F_AO.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_F_AO - + ! Call routines to reduce stiffness, mass, loads from F-set to A, O-sets - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE CONSTANTS_1, ONLY : ZERO @@ -48,22 +48,22 @@ SUBROUTINE REDUCE_F_AO USE SPARSE_MATRICES, ONLY : SYM_KAA USE SCRATCH_MATRICES USE SuperLU_STUF, ONLY : SLU_FACTORS, SLU_INFO - + USE REDUCE_F_AO_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_F_AO' - CHARACTER(132*BYTE) :: MATRIX_NAME ! Name of matrix for printout + CHARACTER(132*BYTE) :: MATRIX_NAME ! Name of matrix for printout CHARACTER(44*BYTE) :: MODNAM ! Name to write to screen to describe module being run - + INTEGER(LONG) :: A_SET_COL ! Col no. in array TDOFI where the A-set is (from subr TDOF_COL_NUM) INTEGER(LONG) :: A_SET_DOF ! A-set DOF number INTEGER(LONG) :: DO_WHICH_CODE_FRAG ! 1 or 2 depending on which seg of code to run (depends on BUCKLING) INTEGER(LONG) :: I,J ! DO loop indices - INTEGER(LONG) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (G set into N and M sets) - INTEGER(LONG) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) + INTEGER(LONG) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (G set into N and M sets) + INTEGER(LONG) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) REAL(DOUBLE) :: DUM_COL(NDOFO) ! Temp variable used in SuperLU @@ -103,7 +103,7 @@ SUBROUTINE REDUCE_F_AO PART_VEC_SUB = 1 ENDDO - CALL OURTIM ! Reduce KFF to KAA + CALL OURTIM ! Reduce KFF to KAA IF (MATSPARS == 'Y') THEN MODNAM = 'REDUCE KFF TO KAA (SPARSE MATRIX ROUTINES)' ELSE @@ -113,7 +113,7 @@ SUBROUTINE REDUCE_F_AO CALL REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) - CALL OURTIM ! Reduce MFF to MAA + CALL OURTIM ! Reduce MFF to MAA IF (MATSPARS == 'Y') THEN MODNAM = 'REDUCE MFF TO MAA (SPARSE MATRIX ROUTINES)' ELSE @@ -126,7 +126,7 @@ SUBROUTINE REDUCE_F_AO IF ((SOL_NAME(1:5) /= 'MODES') .AND. (SOL_NAME(1:12) /= 'GEN CB MODEL')) THEN - IF (NTERM_PF > 0) THEN ! Reduce PF to PA + IF (NTERM_PF > 0) THEN ! Reduce PF to PA CALL OURTIM IF (MATSPARS == 'Y') THEN @@ -167,7 +167,7 @@ SUBROUTINE REDUCE_F_AO ENDIF ENDIF FreeS - + ELSE ! There is no O-set, so equate F, A sets CALL OURTIM @@ -230,7 +230,7 @@ SUBROUTINE REDUCE_F_AO MODNAM = 'DEALLOCATE F-SET ARRAYS' WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KFF ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KFF' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MFF ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'MFF' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PF ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'PF' ) @@ -240,7 +240,7 @@ SUBROUTINE REDUCE_F_AO MODNAM = 'DEALLOCATE GOA, ABAND ARRAYS' WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate GOA ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'GOA' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate ABAND', CR13 ; CALL DEALLOCATE_LAPACK_MAT ( 'ABAND' ) WRITE(SC1,*) CR13 @@ -271,7 +271,7 @@ SUBROUTINE REDUCE_F_AO MODNAM = 'DEALLOCATE O SET ARRAYS' WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KAO', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KAO' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KOO', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KOO' ) WRITE(SC1,*) CR13 @@ -368,7 +368,7 @@ SUBROUTINE REDUCE_F_AO PART_VEC_SUB = 1 ENDDO - CALL OURTIM ! Reduce KFF to KAA + CALL OURTIM ! Reduce KFF to KAA IF (MATSPARS == 'Y') THEN MODNAM = 'REDUCE KFFD TO KAAD (SPARSE MATRIX ROUTINES)' ELSE @@ -398,7 +398,7 @@ SUBROUTINE REDUCE_F_AO MODNAM = 'DEALLOCATE F-SET ARRAYS' WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KFFD ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KFFD' ) WRITE(SC1,*) CR13 @@ -406,7 +406,7 @@ SUBROUTINE REDUCE_F_AO MODNAM = 'DEALLOCATE GOA, ABAND ARRAYS' WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate GOA ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'GOA' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate ABAND', CR13 ; CALL DEALLOCATE_LAPACK_MAT ( 'ABAND' ) WRITE(SC1,*) CR13 @@ -437,7 +437,7 @@ SUBROUTINE REDUCE_F_AO MODNAM = 'DEALLOCATE O SET ARRAYS' WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KAOD', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KAOD' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KOOD', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KOOD' ) WRITE(SC1,*) CR13 diff --git a/Source/LK2/REDUCE_KAAD_TO_KLLD.f90 b/Source/LK2/REDUCE_KAAD_TO_KLLD.f90 index 9c89be86..93f13710 100644 --- a/Source/LK2/REDUCE_KAAD_TO_KLLD.f90 +++ b/Source/LK2/REDUCE_KAAD_TO_KLLD.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_KAAD_TO_KLLD ( PART_VEC_A_LR ) - + ! Call routines to reduce the KAAD differential stiffness matrix from the A-set to the L, R-sets - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L2K, L2L, LINK2K, LINK2L, L2K_MSG, L2L_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFA, NDOFL, NDOFR, NTERM_KAAD, NTERM_KLLD, NTERM_KRLD, & @@ -36,14 +36,14 @@ SUBROUTINE REDUCE_KAAD_TO_KLLD ( PART_VEC_A_LR ) USE SPARSE_MATRICES, ONLY : I_KAAD, J_KAAD, KAAD, I_KLLD, J_KLLD, KLLD, I_KRLD, J_KRLD, KRLD, I_KRRD, J_KRRD, KRRD, & SYM_KAAD, SYM_KLLD, SYM_KRLD, SYM_KRRD USE SCRATCH_MATRICES - + USE REDUCE_KAAD_TO_KLLD_USE_IFs IMPLICIT NONE CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_KAAD_TO_KLLD' - - INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) INTEGER(LONG) :: KLLD_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: KRLD_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: KRRD_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) @@ -59,11 +59,11 @@ SUBROUTINE REDUCE_KAAD_TO_KLLD ( PART_VEC_A_LR ) IF (NDOFL > 0) THEN CALL PARTITION_SS_NTERM ( 'KAAD', NTERM_KAAD, NDOFA, NDOFA, SYM_KAAD, I_KAAD, J_KAAD, PART_VEC_A_LR, PART_VEC_A_LR, & - NUM1, NUM1, KLLD_ROW_MAX_TERMS, 'KLLD', NTERM_KLLD, SYM_KLLD ) + NUM1, NUM1, KLLD_ROW_MAX_TERMS, 'KLLD', NTERM_KLLD, SYM_KLLD ) CALL ALLOCATE_SPARSE_MAT ( 'KLLD', NDOFL, NTERM_KLLD, SUBR_NAME ) - IF (NTERM_KLLD > 0) THEN + IF (NTERM_KLLD > 0) THEN CALL PARTITION_SS ( 'KAAD', NTERM_KAAD, NDOFA, NDOFA, SYM_KAAD, I_KAAD, J_KAAD, KAAD, PART_VEC_A_LR, PART_VEC_A_LR, & NUM1, NUM1, KLLD_ROW_MAX_TERMS, 'KLLD', NTERM_KLLD, NDOFL, SYM_KLLD, I_KLLD, J_KLLD, KLLD ) ENDIF @@ -75,7 +75,7 @@ SUBROUTINE REDUCE_KAAD_TO_KLLD ( PART_VEC_A_LR ) IF ((NDOFL > 0) .AND. (NDOFR > 0)) THEN CALL PARTITION_SS_NTERM ( 'KAAD', NTERM_KAAD, NDOFA, NDOFA, SYM_KAAD, I_KAAD, J_KAAD, PART_VEC_A_LR, PART_VEC_A_LR, & - NUM2, NUM1, KRLD_ROW_MAX_TERMS, 'KRLD', NTERM_KRLD, SYM_KRLD ) + NUM2, NUM1, KRLD_ROW_MAX_TERMS, 'KRLD', NTERM_KRLD, SYM_KRLD ) CALL ALLOCATE_SPARSE_MAT ( 'KRLD', NDOFR, NTERM_KRLD, SUBR_NAME ) @@ -91,7 +91,7 @@ SUBROUTINE REDUCE_KAAD_TO_KLLD ( PART_VEC_A_LR ) IF (NDOFR > 0) THEN CALL PARTITION_SS_NTERM ( 'KAAD', NTERM_KAAD, NDOFA, NDOFA, SYM_KAAD, I_KAAD, J_KAAD, PART_VEC_A_LR, PART_VEC_A_LR, & - NUM2, NUM2, KRRD_ROW_MAX_TERMS, 'KRRD', NTERM_KRRD, SYM_KRRD ) + NUM2, NUM2, KRRD_ROW_MAX_TERMS, 'KRRD', NTERM_KRRD, SYM_KRRD ) CALL ALLOCATE_SPARSE_MAT ( 'KRRD', NDOFR, NTERM_KRRD, SUBR_NAME ) diff --git a/Source/LK2/REDUCE_KAA_TO_KLL.f90 b/Source/LK2/REDUCE_KAA_TO_KLL.f90 index 57e4c64f..94b3a273 100644 --- a/Source/LK2/REDUCE_KAA_TO_KLL.f90 +++ b/Source/LK2/REDUCE_KAA_TO_KLL.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_KAA_TO_KLL ( PART_VEC_A_LR ) - + ! Call routines to reduce the KAA linear stiffness matrix from the A-set to the L, R-sets USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -36,14 +36,14 @@ SUBROUTINE REDUCE_KAA_TO_KLL ( PART_VEC_A_LR ) USE SPARSE_MATRICES, ONLY : I_KAA, J_KAA, KAA, I_KLL, J_KLL, KLL, I_KRL, J_KRL, KRL, I_KRR, J_KRR, KRR, & SYM_KAA, SYM_KLL, SYM_KRL, SYM_KRR USE SCRATCH_MATRICES - + USE REDUCE_KAA_TO_KLL_USE_IFs IMPLICIT NONE CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_KAA_TO_KLL' - - INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) INTEGER(LONG) :: KLL_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: KRL_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: KRR_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) @@ -59,11 +59,11 @@ SUBROUTINE REDUCE_KAA_TO_KLL ( PART_VEC_A_LR ) IF (NDOFL > 0) THEN CALL PARTITION_SS_NTERM ( 'KAA', NTERM_KAA, NDOFA, NDOFA, SYM_KAA, I_KAA, J_KAA, PART_VEC_A_LR, PART_VEC_A_LR, & - NUM1, NUM1, KLL_ROW_MAX_TERMS, 'KLL', NTERM_KLL, SYM_KLL ) + NUM1, NUM1, KLL_ROW_MAX_TERMS, 'KLL', NTERM_KLL, SYM_KLL ) CALL ALLOCATE_SPARSE_MAT ( 'KLL', NDOFL, NTERM_KLL, SUBR_NAME ) - IF (NTERM_KLL > 0) THEN + IF (NTERM_KLL > 0) THEN CALL PARTITION_SS ( 'KAA', NTERM_KAA, NDOFA, NDOFA, SYM_KAA, I_KAA, J_KAA, KAA, PART_VEC_A_LR, PART_VEC_A_LR, & NUM1, NUM1, KLL_ROW_MAX_TERMS, 'KLL', NTERM_KLL, NDOFL, SYM_KLL, I_KLL, J_KLL, KLL ) ENDIF @@ -75,7 +75,7 @@ SUBROUTINE REDUCE_KAA_TO_KLL ( PART_VEC_A_LR ) IF ((NDOFL > 0) .AND. (NDOFR > 0)) THEN CALL PARTITION_SS_NTERM ( 'KAA', NTERM_KAA, NDOFA, NDOFA, SYM_KAA, I_KAA, J_KAA, PART_VEC_A_LR, PART_VEC_A_LR, & - NUM2, NUM1, KRL_ROW_MAX_TERMS, 'KRL', NTERM_KRL, SYM_KRL ) + NUM2, NUM1, KRL_ROW_MAX_TERMS, 'KRL', NTERM_KRL, SYM_KRL ) CALL ALLOCATE_SPARSE_MAT ( 'KRL', NDOFR, NTERM_KRL, SUBR_NAME ) @@ -91,7 +91,7 @@ SUBROUTINE REDUCE_KAA_TO_KLL ( PART_VEC_A_LR ) IF (NDOFR > 0) THEN CALL PARTITION_SS_NTERM ( 'KAA', NTERM_KAA, NDOFA, NDOFA, SYM_KAA, I_KAA, J_KAA, PART_VEC_A_LR, PART_VEC_A_LR, & - NUM2, NUM2, KRR_ROW_MAX_TERMS, 'KRR', NTERM_KRR, SYM_KRR ) + NUM2, NUM2, KRR_ROW_MAX_TERMS, 'KRR', NTERM_KRR, SYM_KRR ) CALL ALLOCATE_SPARSE_MAT ( 'KRR', NDOFR, NTERM_KRR, SUBR_NAME ) diff --git a/Source/LK2/REDUCE_KFFD_TO_KAAD.f90 b/Source/LK2/REDUCE_KFFD_TO_KAAD.f90 index 6b304c7c..d23d5e72 100644 --- a/Source/LK2/REDUCE_KFFD_TO_KAAD.f90 +++ b/Source/LK2/REDUCE_KFFD_TO_KAAD.f90 @@ -1,46 +1,46 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_KFFD_TO_KAAD ( PART_VEC_F_AO ) - + ! Call routines to reduce the KFFD differential stiffness matrix from the F-set to the A, O-sets - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L2E, LINK2E, L2E_MSG, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FACTORED_MATRIX, FATAL_ERR, NDOFF, NDOFA, NDOFO, NTERM_KFFD, NTERM_KAAD, & NTERM_KAOD, NTERM_KOOD, NTERM_KOODs, NTERM_GOA USE PARAMS, ONLY : EPSIL, KOORAT, SPARSTOR, RCONDK USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE SPARSE_MATRICES, ONLY : I_KFFD, J_KFFD, KFFD, I_KAAD, J_KAAD, KAAD, I_KAOD, J_KAOD, KAOD, I_GOA, J_GOA, GOA, & I_KOOD, I2_KOOD, J_KOOD, KOOD, I_KOODs, I2_KOODs, J_KOODs, KOODs - + USE SPARSE_MATRICES, ONLY : SYM_GOA, SYM_KFFD, SYM_KAAD, SYM_KAOD, SYM_KOOD USE SCRATCH_MATRICES - + USE REDUCE_KFFD_TO_KAAD_USE_IFs IMPLICIT NONE @@ -49,16 +49,16 @@ SUBROUTINE REDUCE_KFFD_TO_KAAD ( PART_VEC_F_AO ) CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_KFFD_TO_KAAD' CHARACTER( 1*BYTE) :: SYM_CRS2 ! Storage format for matrix CRS2 (either 'Y' for sym storage or ! 'N' for nonsymmetric storage) - - INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) INTEGER(LONG) :: AROW_MAX_TERMS ! Output from MATMULT_SFS_NTERM and input to MATMULT_SFS INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: KAAD_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: KAOD_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: KOOD_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) - INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 - INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 + INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 + INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices @@ -73,11 +73,11 @@ SUBROUTINE REDUCE_KFFD_TO_KAAD ( PART_VEC_F_AO ) IF (NDOFA > 0) THEN CALL PARTITION_SS_NTERM ( 'KFFD', NTERM_KFFD, NDOFF, NDOFF, SYM_KFFD, I_KFFD, J_KFFD, PART_VEC_F_AO, PART_VEC_F_AO, & - NUM1, NUM1, KAAD_ROW_MAX_TERMS, 'KAAD', NTERM_KAAD, SYM_KAAD ) + NUM1, NUM1, KAAD_ROW_MAX_TERMS, 'KAAD', NTERM_KAAD, SYM_KAAD ) CALL ALLOCATE_SPARSE_MAT ( 'KAAD', NDOFA, NTERM_KAAD, SUBR_NAME ) - IF (NTERM_KAAD > 0) THEN + IF (NTERM_KAAD > 0) THEN CALL PARTITION_SS ( 'KFFD', NTERM_KFFD, NDOFF, NDOFF, SYM_KFFD, I_KFFD, J_KFFD, KFFD, PART_VEC_F_AO, PART_VEC_F_AO, & NUM1, NUM1, KAAD_ROW_MAX_TERMS, 'KAAD', NTERM_KAAD, NDOFA, SYM_KAAD, I_KAAD, J_KAAD, KAAD ) ENDIF @@ -89,7 +89,7 @@ SUBROUTINE REDUCE_KFFD_TO_KAAD ( PART_VEC_F_AO ) IF ((NDOFA > 0) .AND. (NDOFO > 0)) THEN CALL PARTITION_SS_NTERM ( 'KFFD', NTERM_KFFD, NDOFF, NDOFF, SYM_KFFD, I_KFFD, J_KFFD, PART_VEC_F_AO, PART_VEC_F_AO, & - NUM1, NUM2, KAOD_ROW_MAX_TERMS, 'KAOD', NTERM_KAOD, SYM_KAOD ) + NUM1, NUM2, KAOD_ROW_MAX_TERMS, 'KAOD', NTERM_KAOD, SYM_KAOD ) CALL ALLOCATE_SPARSE_MAT ( 'KAOD', NDOFA, NTERM_KAOD, SUBR_NAME ) @@ -105,7 +105,7 @@ SUBROUTINE REDUCE_KFFD_TO_KAAD ( PART_VEC_F_AO ) IF (NDOFO > 0) THEN CALL PARTITION_SS_NTERM ( 'KFFD', NTERM_KFFD, NDOFF, NDOFF, SYM_KFFD, I_KFFD, J_KFFD, PART_VEC_F_AO, PART_VEC_F_AO, & - NUM2, NUM2, KOOD_ROW_MAX_TERMS, 'KOOD', NTERM_KOOD, SYM_KOOD ) + NUM2, NUM2, KOOD_ROW_MAX_TERMS, 'KOOD', NTERM_KOOD, SYM_KOOD ) CALL ALLOCATE_SPARSE_MAT ( 'KOOD', NDOFO, NTERM_KOOD, SUBR_NAME ) @@ -141,7 +141,7 @@ SUBROUTINE REDUCE_KFFD_TO_KAAD ( PART_VEC_F_AO ) CALL DEALLOCATE_SCR_MAT ( 'CCS1' ) ! CRS1 = KAOD*GOA has all nonzero terms in it. - IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS1 as sym in CRS2 + IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS1 as sym in CRS2 CALL SPARSE_CRS_TERM_COUNT ( NDOFA, NTERM_CRS1, 'CRS1 = KAOD*GOA all nonzeros', I_CRS1, J_CRS1, NTERM_CRS2 ) CALL ALLOCATE_SCR_CRS_MAT ( 'CRS2', NDOFA, NTERM_CRS2, SUBR_NAME ) @@ -184,10 +184,10 @@ SUBROUTINE REDUCE_KFFD_TO_KAAD ( PART_VEC_F_AO ) NTERM_KAAD = NTERM_CRS1 ! Reallocate KAAD to be size of CRS1 WRITE(SC1, * ) ' Reallocate KAAD' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KAAD', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'KAAD' ) - WRITE(SC1,12345,ADVANCE='NO') ' Allocate KAAD', CR13 + WRITE(SC1,12345,ADVANCE='NO') ' Allocate KAAD', CR13 CALL ALLOCATE_SPARSE_MAT ( 'KAAD', NDOFA, NTERM_KAAD, SUBR_NAME ) ! Set KAAD = CRS1 DO I=1,NDOFA+1 @@ -196,7 +196,7 @@ SUBROUTINE REDUCE_KFFD_TO_KAAD ( PART_VEC_F_AO ) DO J=1,NTERM_KAAD J_KAAD(J) = J_CRS1(J) KAAD(J) = CRS1(J) - ENDDO + ENDDO CALL DEALLOCATE_SCR_MAT ( 'CRS1' ) ! Deallocate CRS1 diff --git a/Source/LK2/REDUCE_KFF_TO_KAA.f90 b/Source/LK2/REDUCE_KFF_TO_KAA.f90 index 2ab83494..4d3ff089 100644 --- a/Source/LK2/REDUCE_KFF_TO_KAA.f90 +++ b/Source/LK2/REDUCE_KFF_TO_KAA.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) - + ! Call routines to reduce the KFF linear stiffness matrix from the F-set to the A, O-sets - + ! NOTE: This subr has code for sparse matrices as well as full matrices, (i.e. Bulk Data PARAM MATSPARS = 'Y' for sparse and 'N' ! for full). The code for full matrices was put in originally in order that the sparse code could be thoroughly checked. That task ! is complete and the remaining full matrix code has not been maintained since around 2005. In addition, new capability added to @@ -39,28 +39,28 @@ SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) NTERM_KAA, NTERM_KAO, NTERM_KOO, NTERM_GOA USE PARAMS, ONLY : KOORAT, MATSPARS, SOLLIB, SPARSTOR, SPARSE_FLAVOR, RCONDK USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE FULL_MATRICES, ONLY : KAA_FULL, KAO_FULL, GOA_FULL, DUM1, DUM2 USE SPARSE_MATRICES, ONLY : I_KFF, J_KFF, KFF, I_KAA, J_KAA, KAA, I_KAO, J_KAO, KAO, I_GOA, J_GOA, GOA, & I_KOO, J_KOO, KOO - + USE SPARSE_MATRICES, ONLY : SYM_GOA, SYM_KFF, SYM_KAA, SYM_KAO, SYM_KOO USE SCRATCH_MATRICES - + USE REDUCE_KFF_TO_KAA_USE_IFs IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_KFF_TO_KAA' - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not CHARACTER( 8*BYTE) :: CLOSE_STAT ! Char constant for the CLOSE status of a file - CHARACTER( 1*BYTE) :: EQUED ! 'Y' if the stiff matrix was equilibrated in subr EQUILIBRATE + CHARACTER( 1*BYTE) :: EQUED ! 'Y' if the stiff matrix was equilibrated in subr EQUILIBRATE CHARACTER( 1*BYTE) :: EQUIL_KOO ! 'Y'/'N' for whether to equilibrate KOO in subr SYM_MAT_DECOMP_LAPACK CHARACTER( 1*BYTE) :: SYM_CRS2 ! Storage format for matrix CRS2 (either 'Y' for sym storage or ! 'N' for nonsymmetric storage) - - INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) INTEGER(LONG) :: AROW_MAX_TERMS ! Output from MATMULT_SFS_NTERM and input to MATMULT_SFS INTEGER(LONG) :: DEB_PRT(2) ! Debug numbers to say whether to write ABAND and/or its decomp @@ -72,8 +72,8 @@ SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) INTEGER(LONG) :: KAA_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: KAO_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: KOO_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) - INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 - INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 + INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 + INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices @@ -87,7 +87,7 @@ SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) REAL(DOUBLE) :: RCOND ! Recrip of cond no. of the KLL. Det in subr COND_NUM REAL(DOUBLE) :: SMALL ! A number used in filtering out small numbers from a full matrix - + INTRINSIC :: DABS @@ -102,11 +102,11 @@ SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) IF (NDOFA > 0) THEN CALL PARTITION_SS_NTERM ( 'KFF', NTERM_KFF, NDOFF, NDOFF, SYM_KFF, I_KFF, J_KFF, PART_VEC_F_AO, PART_VEC_F_AO, & - NUM1, NUM1, KAA_ROW_MAX_TERMS, 'KAA', NTERM_KAA, SYM_KAA ) + NUM1, NUM1, KAA_ROW_MAX_TERMS, 'KAA', NTERM_KAA, SYM_KAA ) CALL ALLOCATE_SPARSE_MAT ( 'KAA', NDOFA, NTERM_KAA, SUBR_NAME ) - IF (NTERM_KAA > 0) THEN + IF (NTERM_KAA > 0) THEN CALL PARTITION_SS ( 'KFF', NTERM_KFF, NDOFF, NDOFF, SYM_KFF, I_KFF, J_KFF, KFF, PART_VEC_F_AO, PART_VEC_F_AO, & NUM1, NUM1, KAA_ROW_MAX_TERMS, 'KAA', NTERM_KAA, NDOFA, SYM_KAA, I_KAA, J_KAA, KAA ) ENDIF @@ -118,7 +118,7 @@ SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) IF ((NDOFA > 0) .AND. (NDOFO > 0)) THEN CALL PARTITION_SS_NTERM ( 'KFF', NTERM_KFF, NDOFF, NDOFF, SYM_KFF, I_KFF, J_KFF, PART_VEC_F_AO, PART_VEC_F_AO, & - NUM1, NUM2, KAO_ROW_MAX_TERMS, 'KAO', NTERM_KAO, SYM_KAO ) + NUM1, NUM2, KAO_ROW_MAX_TERMS, 'KAO', NTERM_KAO, SYM_KAO ) CALL ALLOCATE_SPARSE_MAT ( 'KAO', NDOFA, NTERM_KAO, SUBR_NAME ) @@ -134,7 +134,7 @@ SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) IF (NDOFO > 0) THEN CALL PARTITION_SS_NTERM ( 'KFF', NTERM_KFF, NDOFF, NDOFF, SYM_KFF, I_KFF, J_KFF, PART_VEC_F_AO, PART_VEC_F_AO, & - NUM2, NUM2, KOO_ROW_MAX_TERMS, 'KOO', NTERM_KOO, SYM_KOO ) + NUM2, NUM2, KOO_ROW_MAX_TERMS, 'KOO', NTERM_KOO, SYM_KOO ) CALL ALLOCATE_SPARSE_MAT ( 'KOO', NDOFO, NTERM_KOO, SUBR_NAME ) @@ -160,7 +160,7 @@ SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) CALL SYM_MAT_DECOMP_LAPACK ( SUBR_NAME, 'KOO', 'O ', NDOFO, NTERM_KOO, I_KOO, J_KOO, KOO, 'Y', KOORAT, EQUIL_KOO, & RCONDK, DEB_PRT, EQUED, KOO_SDIA, K_INORM, RCOND, KOO_SCALE_FACS, INFO ) ELSE IF (SOLLIB == 'SPARSE ') THEN - + IF (SPARSE_FLAVOR(1:7) == 'SUPERLU') THEN INFO = 0 @@ -230,7 +230,7 @@ SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) CALL DEALLOCATE_SCR_MAT ( 'CCS1' ) ! CRS1 = KAO*GOA has all nonzero terms in it. - IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS1 as sym in CRS2 + IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS1 as sym in CRS2 CALL SPARSE_CRS_TERM_COUNT ( NDOFA, NTERM_CRS1, 'CRS1 = KAO*GOA all nonzeros', I_CRS1, J_CRS1, NTERM_CRS2 ) CALL ALLOCATE_SCR_CRS_MAT ( 'CRS2', NDOFA, NTERM_CRS2, SUBR_NAME ) @@ -272,10 +272,10 @@ SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) NTERM_KAA = NTERM_CRS1 ! Reallocate KAA to be size of CRS1 WRITE(SC1, * ) ' Reallocate KAA' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages - WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KAA', CR13 + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KAA', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'KAA' ) - WRITE(SC1,12345,ADVANCE='NO') ' Allocate KAA', CR13 + WRITE(SC1,12345,ADVANCE='NO') ' Allocate KAA', CR13 CALL ALLOCATE_SPARSE_MAT ( 'KAA', NDOFA, NTERM_KAA, SUBR_NAME ) ! Set KAA = CRS1 DO I=1,NDOFA+1 @@ -284,7 +284,7 @@ SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) DO J=1,NTERM_KAA J_KAA(J) = J_CRS1(J) KAA(J) = CRS1(J) - ENDDO + ENDDO CALL DEALLOCATE_SCR_MAT ( 'CRS1' ) ! Deallocate CRS1 @@ -329,10 +329,10 @@ SUBROUTINE REDUCE_KFF_TO_KAA ( PART_VEC_F_AO ) CALL CNT_NONZ_IN_FULL_MAT ( 'KAA_FULL ', KAA_FULL, NDOFA, NDOFA, SYM_KAA, NTERM_KAA, SMALL ) WRITE(SC1, * ) ' Reallocate KAA' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KAA', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'KAA' ) - WRITE(SC1,12345,ADVANCE='NO') ' Allocate KAA', CR13 + WRITE(SC1,12345,ADVANCE='NO') ' Allocate KAA', CR13 CALL ALLOCATE_SPARSE_MAT ( 'KAA', NDOFA, NTERM_KAA, SUBR_NAME ) IF (NTERM_KAA > 0) THEN ! Create new sparse arrays from KAA_FULL diff --git a/Source/LK2/REDUCE_KGG_TO_KNN.f90 b/Source/LK2/REDUCE_KGG_TO_KNN.f90 index 880ef7dc..b02dbc05 100644 --- a/Source/LK2/REDUCE_KGG_TO_KNN.f90 +++ b/Source/LK2/REDUCE_KGG_TO_KNN.f90 @@ -1,46 +1,46 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) - + ! Call routines to reduce the KGG linear stiffness matrix from the G-set to the N, M-sets. See Appendix B to the MYSTRAN User's ! Reference Manual for the derivation of the reduction equations. - + ! NOTE: This subr has code for sparse matrices as well as full matrices, (i.e. Bulk Data PARAM MATSPARS = 'Y' for sparse and 'N' ! for full). The code for full matrices was put in originally in order that the sparse code could be thoroughly checked. That task ! is complete and the remaining full matrix code has not been maintained since around 2005. In addition, new capability added to ! MYSTRAN since that approx time does not have full matrix code. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L2J, LINK2J, L2J_MSG, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, NDOFN, NDOFM, NTERM_HMN, NTERM_KGG, NTERM_KNN, & NTERM_KNM, NTERM_KMM, NTERM_GMN USE PARAMS, ONLY : EPSIL, MATSPARS, SPARSTOR USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE SPARSE_MATRICES, ONLY : I_HMN, J_HMN, HMN, I_KGG, J_KGG, KGG, I_KNN, J_KNN, KNN, I_KNM, J_KNM, KNM, & I_KMM, J_KMM, KMM,I_KMN, J_KMN, KMN, I_GMN, J_GMN, GMN, I_GMNt, J_GMNt, GMNt USE SPARSE_MATRICES, ONLY : SYM_GMN, SYM_HMN, SYM_KGG, SYM_KNN, SYM_KNM, SYM_KMM, SYM_KMN @@ -57,8 +57,8 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) ! 'N' for nonsymmetric storage) CHARACTER( 1*BYTE) :: SYM_CRS3 ! Storage format for matrix CRS3 (either 'Y' for sym storage or ! 'N' for nonsymmetric storage) - - INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) INTEGER(LONG) :: AROW_MAX_TERMS ! Output from MATMULT_SFS_NTERM and input to MATMULT_SFS INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: ITRNSPB ! Transpose indicator for matrix multiply routine @@ -66,10 +66,10 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) INTEGER(LONG) :: KNM_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) !xx INTEGER(LONG) :: KMN_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: KMM_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) - INTEGER(LONG) :: NTERM_CCS1 ! Number of terms in matrix CCS1 - INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 - INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 - INTEGER(LONG) :: NTERM_CRS3 ! Number of terms in matrix CRS3 + INTEGER(LONG) :: NTERM_CCS1 ! Number of terms in matrix CCS1 + INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 + INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 + INTEGER(LONG) :: NTERM_CRS3 ! Number of terms in matrix CRS3 INTEGER(LONG) :: NTERM_KMN ! Number of nonzeros in sparse matrix KMN (should = NTERM_KNM) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices @@ -78,7 +78,7 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) REAL(DOUBLE) :: ALPHA = ONE ! Scalar multiplier for matrix REAL(DOUBLE) :: BETA = ONE ! Scalar multiplier for matrix REAL(DOUBLE) :: SMALL ! A number used in filtering out small numbers from a full matrix - + INTRINSIC :: DABS @@ -89,11 +89,11 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) IF (NDOFN > 0) THEN CALL PARTITION_SS_NTERM ( 'KGG', NTERM_KGG, NDOFG, NDOFG, SYM_KGG, I_KGG, J_KGG, PART_VEC_G_NM, PART_VEC_G_NM, & - NUM1, NUM1, KNN_ROW_MAX_TERMS, 'KNN', NTERM_KNN, SYM_KNN ) + NUM1, NUM1, KNN_ROW_MAX_TERMS, 'KNN', NTERM_KNN, SYM_KNN ) CALL ALLOCATE_SPARSE_MAT ( 'KNN', NDOFN, NTERM_KNN, SUBR_NAME ) - IF (NTERM_KNN > 0) THEN + IF (NTERM_KNN > 0) THEN CALL PARTITION_SS ( 'KGG', NTERM_KGG, NDOFG, NDOFG, SYM_KGG, I_KGG, J_KGG, KGG, PART_VEC_G_NM, PART_VEC_G_NM, & NUM1, NUM1, KNN_ROW_MAX_TERMS, 'KNN', NTERM_KNN, NDOFN, SYM_KNN, I_KNN, J_KNN, KNN ) ENDIF @@ -105,7 +105,7 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) IF ((NDOFN > 0) .AND. (NDOFM > 0)) THEN CALL PARTITION_SS_NTERM ( 'KGG', NTERM_KGG, NDOFG, NDOFG, SYM_KGG, I_KGG, J_KGG, PART_VEC_G_NM, PART_VEC_G_NM, & - NUM1, NUM2, KNM_ROW_MAX_TERMS, 'KNM', NTERM_KNM, SYM_KNM ) + NUM1, NUM2, KNM_ROW_MAX_TERMS, 'KNM', NTERM_KNM, SYM_KNM ) CALL ALLOCATE_SPARSE_MAT ( 'KNM', NDOFN, NTERM_KNM, SUBR_NAME ) @@ -121,7 +121,7 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) IF ((NDOFN > 0) .AND. (NDOFM > 0)) THEN !xx CALL PARTITION_SS_NTERM ( 'KGG', NTERM_KGG, NDOFG, NDOFG, SYM_KGG, I_KGG, J_KGG, PART_VEC_G_NM, PART_VEC_G_NM, & -!xx NUM2, NUM1, KMN_ROW_MAX_TERMS, 'KMN', NTERM_KMN, SYM_KMN ) +!xx NUM2, NUM1, KMN_ROW_MAX_TERMS, 'KMN', NTERM_KMN, SYM_KMN ) !xx IF (NTERM_KMN /= NTERM_KNM) THEN !xx FATAL_ERR = FATAL_ERR + 1 !xx WRITE(ERR,936) SUBR_NAME, NTERM_KMN, NTERM_KNM @@ -151,7 +151,7 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) IF (NDOFM > 0) THEN CALL PARTITION_SS_NTERM ( 'KGG', NTERM_KGG, NDOFG, NDOFG, SYM_KGG, I_KGG, J_KGG, PART_VEC_G_NM, PART_VEC_G_NM, & - NUM2, NUM2, KMM_ROW_MAX_TERMS, 'KMM', NTERM_KMM, SYM_KMM ) + NUM2, NUM2, KMM_ROW_MAX_TERMS, 'KMM', NTERM_KMM, SYM_KMM ) CALL ALLOCATE_SPARSE_MAT ( 'KMM', NDOFM, NTERM_KMM, SUBR_NAME ) @@ -202,7 +202,7 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) CALL DEALLOCATE_SCR_MAT ( 'CRS2' ) ! I-6, deallocate CRS2 which was (KNM*GMN)t ! I-7, CRS3 = (KNM*GMN) + (KNM*GMN)t has all nonzero terms in it. - IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS3 as sym in CRS1 + IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS3 as sym in CRS1 CALL SPARSE_CRS_TERM_COUNT ( NDOFN, NTERM_CRS3, '(KNM*GMN) + (KNM*GMN)t', I_CRS3, J_CRS3, NTERM_CRS1 ) CALL ALLOCATE_SCR_CRS_MAT ( 'CRS1', NDOFN, NTERM_CRS1, SUBR_NAME ) @@ -240,11 +240,11 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) CALL ALLOCATE_SCR_CRS_MAT ( 'CRS3', NDOFN, NTERM_CRS3, SUBR_NAME ) CALL MATADD_SSS ( NDOFN, 'KNN-bar', NTERM_KNN, I_KNN, J_KNN, KNN, ONE, 'KNM*GMN + (KNM*GMN)t', NTERM_CRS1, & I_CRS1, J_CRS1, CRS1, ONE, 'CRS1', NTERM_CRS3, I_CRS3, J_CRS3, CRS3 ) - CALL DEALLOCATE_SCR_MAT ( 'CRS1' ) ! I-10, deallocate CRS1 = KNM*GMN + (KNM*GMN)t + CALL DEALLOCATE_SCR_MAT ( 'CRS1' ) ! I-10, deallocate CRS1 = KNM*GMN + (KNM*GMN)t NTERM_KNN = NTERM_CRS3 ! I-11, reallocate KNN to be size of CRS3 WRITE(SC1, * ) ' Reallocate KNN' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KNN', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'KNN' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate KNN', CR13 @@ -256,7 +256,7 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) DO J=1,NTERM_KNN J_KNN(J) = J_CRS3(J) KNN(J) = CRS3(J) - ENDDO + ENDDO CALL DEALLOCATE_SCR_MAT ( 'CRS3' ) ! I-13, deallocate CRS3 ! At this point, CRS1, CRS2, CRS3 are deallocated, CCS1 is being used @@ -313,7 +313,7 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) CALL DEALLOCATE_SCR_MAT ( 'CCS1' ) ! II-6, deallocate CCS1 ! II-7, CRS1 = GMNt*KMM*GMN has all nonzero terms in it. - IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS1 as sym in CRS3 + IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS1 as sym in CRS3 CALL SPARSE_CRS_TERM_COUNT ( NDOFN, NTERM_CRS1, 'GMNt*KMM*GMN all nonzeros', I_CRS1, J_CRS1, NTERM_CRS3 ) CALL ALLOCATE_SCR_CRS_MAT ( 'CRS3', NDOFN, NTERM_CRS3, SUBR_NAME ) @@ -354,7 +354,7 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) NTERM_KNN = NTERM_CRS2 ! II-11, reallocate KNN to be size of CRS2 WRITE(SC1, * ) ' Reallocate KNN' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KNN', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'KNN' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate KNN', CR13 @@ -396,7 +396,7 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) ENDIF WRITE(SC1, * ) ' DEALLOCATE SOME ARRAYS' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate GMNt', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'GMNt' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate HMN ', CR13 @@ -411,7 +411,7 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) IF (NTERM_KNN > 0) THEN ! Put KNN-bar into KNN_FULL CALL SPARSE_CRS_TO_FULL ( 'KNN', NTERM_KNN, NDOFN, NDOFN, SYM_KNN, I_KNN, J_KNN, KNN, KNN_FULL ) ENDIF - + IF (NTERM_KNM > 0) THEN ! Part 1: calc KNM*GMN and add it & it's transpose to KNN_FULL CALL ALLOCATE_FULL_MAT ( 'KNM_FULL', NDOFN, NDOFM, SUBR_NAME ) @@ -476,7 +476,7 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) CALL CNT_NONZ_IN_FULL_MAT ( 'KNN_FULL ', KNN_FULL, NDOFN, NDOFN, SYM_KNN, NTERM_KNN, SMALL ) WRITE(SC1, * ) ' Reallocate KNN' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KNN', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'KNN' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate KNN', CR13 @@ -513,5 +513,5 @@ SUBROUTINE REDUCE_KGG_TO_KNN ( PART_VEC_G_NM ) 12345 FORMAT(A,10X,A) ! ********************************************************************************************************************************** - + END SUBROUTINE REDUCE_KGG_TO_KNN diff --git a/Source/LK2/REDUCE_KNND_TO_KFFD.f90 b/Source/LK2/REDUCE_KNND_TO_KFFD.f90 index bc04eb1b..b0ad7e79 100644 --- a/Source/LK2/REDUCE_KNND_TO_KFFD.f90 +++ b/Source/LK2/REDUCE_KNND_TO_KFFD.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_KNND_TO_KFFD ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PART_VEC_S ) - + ! Call routines to reduce the KNND differential stiffness matrix from the N-set to the F, S-sets - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L2B, LINK2B, L2B_MSG USE SCONTR, ONLY : FATAL_ERR, NDOFN, NDOFF, NDOFS, NDOFSE, NTERM_KNND, NTERM_KFFD, NTERM_KFSD, NTERM_KSSD, & @@ -37,19 +37,19 @@ SUBROUTINE REDUCE_KNND_TO_KFFD ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PAR I_KSFD, J_KSFD, KSFD, I_KSSD, J_KSSD, KSSD, I_KSSDe, J_KSSDe, KSSDe USE SPARSE_MATRICES, ONLY : SYM_KNND, SYM_KFFD, SYM_KFSD, SYM_KFSDe, SYM_KSSD, SYM_KSSD, SYM_KSSDe USE SCRATCH_MATRICES - + USE REDUCE_KNND_TO_KFFD_USE_IFs IMPLICIT NONE CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_KNND_TO_KFFD' - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close file or not + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close file or not CHARACTER( 8*BYTE) :: CLOSE_STAT ! Char constant for the CLOSE status of a file - - INTEGER(LONG), INTENT(IN) :: PART_VEC_F(NDOFF) ! Partitioning vector (1's for all of F set) - INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_S(NDOFS) ! Partitioning vector (1's for all of S set) - INTEGER(LONG), INTENT(IN) :: PART_VEC_S_SzSe(NDOFS) ! Partitioning vector (S set into SZ and SE sets) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_F(NDOFF) ! Partitioning vector (1's for all of F set) + INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_S(NDOFS) ! Partitioning vector (1's for all of S set) + INTEGER(LONG), INTENT(IN) :: PART_VEC_S_SzSe(NDOFS) ! Partitioning vector (S set into SZ and SE sets) INTEGER(LONG) :: KFFD_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: KFSD_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) !xx INTEGER(LONG) :: KSFD_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) @@ -72,11 +72,11 @@ SUBROUTINE REDUCE_KNND_TO_KFFD ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PAR IF (NDOFF > 0) THEN CALL PARTITION_SS_NTERM ( 'KNND', NTERM_KNND, NDOFN, NDOFN, SYM_KNND, I_KNND, J_KNND, PART_VEC_N_FS, PART_VEC_N_FS, & - NUM1, NUM1, KFFD_ROW_MAX_TERMS, 'KFFD', NTERM_KFFD, SYM_KFFD ) + NUM1, NUM1, KFFD_ROW_MAX_TERMS, 'KFFD', NTERM_KFFD, SYM_KFFD ) CALL ALLOCATE_SPARSE_MAT ( 'KFFD', NDOFF, NTERM_KFFD, SUBR_NAME ) - IF (NTERM_KFFD > 0) THEN + IF (NTERM_KFFD > 0) THEN CALL PARTITION_SS ( 'KNND', NTERM_KNND, NDOFN, NDOFN, SYM_KNND, I_KNND, J_KNND, KNND, PART_VEC_N_FS, PART_VEC_N_FS, & NUM1, NUM1, KFFD_ROW_MAX_TERMS, 'KFFD', NTERM_KFFD, NDOFF, SYM_KFFD, I_KFFD, J_KFFD, KFFD ) ENDIF @@ -88,7 +88,7 @@ SUBROUTINE REDUCE_KNND_TO_KFFD ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PAR IF ((NDOFF > 0) .AND. (NDOFS > 0)) THEN CALL PARTITION_SS_NTERM ( 'KNND', NTERM_KNND, NDOFN, NDOFN, SYM_KNND, I_KNND, J_KNND, PART_VEC_N_FS, PART_VEC_N_FS, & - NUM1, NUM2, KFSD_ROW_MAX_TERMS, 'KFSD', NTERM_KFSD, SYM_KFSD ) + NUM1, NUM2, KFSD_ROW_MAX_TERMS, 'KFSD', NTERM_KFSD, SYM_KFSD ) CALL ALLOCATE_SPARSE_MAT ( 'KFSD', NDOFF, NTERM_KFSD, SUBR_NAME ) @@ -99,7 +99,7 @@ SUBROUTINE REDUCE_KNND_TO_KFFD ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PAR IF (NDOFSE > 0) THEN CALL PARTITION_SS_NTERM ( 'KFSD', NTERM_KFSD, NDOFF, NDOFS, SYM_KFSD, I_KFSD, J_KFSD, PART_VEC_F, PART_VEC_S_SzSe & - ,NUM1, NUM2, KFSDe_ROW_MAX_TERMS, 'KFSDe', NTERM_KFSDe, SYM_KFSDe ) + ,NUM1, NUM2, KFSDe_ROW_MAX_TERMS, 'KFSDe', NTERM_KFSDe, SYM_KFSDe ) CALL ALLOCATE_SPARSE_MAT ( 'KFSDe', NDOFF, NTERM_KFSDe, SUBR_NAME ) @@ -119,7 +119,7 @@ SUBROUTINE REDUCE_KNND_TO_KFFD ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PAR IF ((NDOFF > 0) .AND. (NDOFS > 0)) THEN !xx CALL PARTITION_SS_NTERM ( 'KNND', NTERM_KNND, NDOFN, NDOFN, SYM_KNND, I_KNND, J_KNND, PART_VEC_N_FS, PART_VEC_N_FS, & -!xx NUM2, NUM1, KSFD_ROW_MAX_TERMS, 'KSFD', NTERM_KSFD, SYM_KFSD ) +!xx NUM2, NUM1, KSFD_ROW_MAX_TERMS, 'KSFD', NTERM_KSFD, SYM_KFSD ) !xx IF (NTERM_KSFD /= NTERM_KFSD) THEN !xx FATAL_ERR = FATAL_ERR + 1 @@ -159,19 +159,19 @@ SUBROUTINE REDUCE_KNND_TO_KFFD ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PAR IF (NDOFS > 0) THEN CALL PARTITION_SS_NTERM ( 'KNND', NTERM_KNND, NDOFN, NDOFN, SYM_KNND, I_KNND, J_KNND, PART_VEC_N_FS, PART_VEC_N_FS, & - NUM2, NUM2, KSSD_ROW_MAX_TERMS, 'KSSD', NTERM_KSSD, SYM_KSSD ) + NUM2, NUM2, KSSD_ROW_MAX_TERMS, 'KSSD', NTERM_KSSD, SYM_KSSD ) CALL ALLOCATE_SPARSE_MAT ( 'KSSD', NDOFS, NTERM_KSSD, SUBR_NAME ) IF (NTERM_KSSD > 0) THEN - + CALL PARTITION_SS ( 'KNND', NTERM_KNND, NDOFN, NDOFN, SYM_KNND, I_KNND, J_KNND, KNND, PART_VEC_N_FS, PART_VEC_N_FS, & NUM2, NUM2, KSSD_ROW_MAX_TERMS, 'KSSD', NTERM_KSSD, NDOFS, SYM_KSSD, I_KSSD, J_KSSD, KSSD ) IF (NDOFSE > 0) THEN CALL PARTITION_SS_NTERM ( 'KSSD', NTERM_KSSD, NDOFS, NDOFS, SYM_KSSD, I_KSSD, J_KSSD, PART_VEC_S, PART_VEC_S_SzSe & - ,NUM1, NUM2, KSSDe_ROW_MAX_TERMS, 'KSSDe', NTERM_KSSDe, SYM_KSSDe ) + ,NUM1, NUM2, KSSDe_ROW_MAX_TERMS, 'KSSDe', NTERM_KSSDe, SYM_KSSDe ) CALL ALLOCATE_SPARSE_MAT ( 'KSSDe', NDOFS, NTERM_KSSDe, SUBR_NAME ) diff --git a/Source/LK2/REDUCE_KNN_TO_KFF.f90 b/Source/LK2/REDUCE_KNN_TO_KFF.f90 index cb23fd72..135c88cc 100644 --- a/Source/LK2/REDUCE_KNN_TO_KFF.f90 +++ b/Source/LK2/REDUCE_KNN_TO_KFF.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_KNN_TO_KFF ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PART_VEC_S ) - + ! Call routines to reduce the KNN linear stiffness matrix from the N-set to the F, S-sets. See Appendix B to the MYSTRAN User's ! Reference Manual for the derivation of the reduction equations. @@ -38,20 +38,20 @@ SUBROUTINE REDUCE_KNN_TO_KFF ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PART_ I_KSF, J_KSF, KSF, I_KSS, J_KSS, KSS, I_KSSe, J_KSSe, KSSe USE SPARSE_MATRICES, ONLY : SYM_KNN, SYM_KFF, SYM_KFS, SYM_KFSe, SYM_KSS, SYM_KSS, SYM_KSSe USE SCRATCH_MATRICES - + USE REDUCE_KNN_TO_KFF_USE_IFs IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_KNN_TO_KFF' - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close file or not + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close file or not CHARACTER( 8*BYTE) :: CLOSE_STAT ! Char constant for the CLOSE status of a file - - INTEGER(LONG), INTENT(IN) :: PART_VEC_F(NDOFF) ! Partitioning vector (1's for all of F set) - INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_S(NDOFS) ! Partitioning vector (1's for all of S set) - INTEGER(LONG), INTENT(IN) :: PART_VEC_S_SzSe(NDOFS) ! Partitioning vector (S set into SZ and SE sets) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_F(NDOFF) ! Partitioning vector (1's for all of F set) + INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_S(NDOFS) ! Partitioning vector (1's for all of S set) + INTEGER(LONG), INTENT(IN) :: PART_VEC_S_SzSe(NDOFS) ! Partitioning vector (S set into SZ and SE sets) INTEGER(LONG) :: KFF_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: KFS_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: KSF_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) @@ -74,11 +74,11 @@ SUBROUTINE REDUCE_KNN_TO_KFF ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PART_ IF (NDOFF > 0) THEN CALL PARTITION_SS_NTERM ( 'KNN', NTERM_KNN, NDOFN, NDOFN, SYM_KNN, I_KNN, J_KNN, PART_VEC_N_FS, PART_VEC_N_FS, & - NUM1, NUM1, KFF_ROW_MAX_TERMS, 'KFF', NTERM_KFF, SYM_KFF ) - + NUM1, NUM1, KFF_ROW_MAX_TERMS, 'KFF', NTERM_KFF, SYM_KFF ) + CALL ALLOCATE_SPARSE_MAT ( 'KFF', NDOFF, NTERM_KFF, SUBR_NAME ) - IF (NTERM_KFF > 0) THEN + IF (NTERM_KFF > 0) THEN CALL PARTITION_SS ( 'KNN', NTERM_KNN, NDOFN, NDOFN, SYM_KNN, I_KNN, J_KNN, KNN, PART_VEC_N_FS, PART_VEC_N_FS, & NUM1, NUM1, KFF_ROW_MAX_TERMS, 'KFF', NTERM_KFF, NDOFF, SYM_KFF, I_KFF, J_KFF, KFF ) ENDIF @@ -90,7 +90,7 @@ SUBROUTINE REDUCE_KNN_TO_KFF ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PART_ IF ((NDOFF > 0) .AND. (NDOFS > 0)) THEN CALL PARTITION_SS_NTERM ( 'KNN', NTERM_KNN, NDOFN, NDOFN, SYM_KNN, I_KNN, J_KNN, PART_VEC_N_FS, PART_VEC_N_FS, & - NUM1, NUM2, KFS_ROW_MAX_TERMS, 'KFS', NTERM_KFS, SYM_KFS ) + NUM1, NUM2, KFS_ROW_MAX_TERMS, 'KFS', NTERM_KFS, SYM_KFS ) CALL ALLOCATE_SPARSE_MAT ( 'KFS', NDOFF, NTERM_KFS, SUBR_NAME ) IF (NTERM_KFS > 0) THEN @@ -100,7 +100,7 @@ SUBROUTINE REDUCE_KNN_TO_KFF ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PART_ IF (NDOFSE > 0) THEN CALL PARTITION_SS_NTERM ( 'KFS', NTERM_KFS, NDOFF, NDOFS, SYM_KFS, I_KFS, J_KFS, PART_VEC_F, PART_VEC_S_SzSe& - ,NUM1, NUM2, KFSe_ROW_MAX_TERMS, 'KFSe', NTERM_KFSe, SYM_KFSe ) + ,NUM1, NUM2, KFSe_ROW_MAX_TERMS, 'KFSe', NTERM_KFSe, SYM_KFSe ) CALL ALLOCATE_SPARSE_MAT ( 'KFSe', NDOFF, NTERM_KFSe, SUBR_NAME ) @@ -120,7 +120,7 @@ SUBROUTINE REDUCE_KNN_TO_KFF ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PART_ IF ((NDOFF > 0) .AND. (NDOFS > 0)) THEN !xx CALL PARTITION_SS_NTERM ( 'KNN', NTERM_KNN, NDOFN, NDOFN, SYM_KNN, I_KNN, J_KNN, PART_VEC_N_FS, PART_VEC_N_FS, & -!xx NUM2, NUM1, KSF_ROW_MAX_TERMS, 'KSF', NTERM_KSF, SYM_KFS ) +!xx NUM2, NUM1, KSF_ROW_MAX_TERMS, 'KSF', NTERM_KSF, SYM_KFS ) !xx IF (NTERM_KSF /= NTERM_KFS) THEN !xx FATAL_ERR = FATAL_ERR + 1 @@ -160,19 +160,19 @@ SUBROUTINE REDUCE_KNN_TO_KFF ( PART_VEC_N_FS, PART_VEC_S_SzSe, PART_VEC_F, PART_ IF (NDOFS > 0) THEN CALL PARTITION_SS_NTERM ( 'KNN', NTERM_KNN, NDOFN, NDOFN, SYM_KNN, I_KNN, J_KNN, PART_VEC_N_FS, PART_VEC_N_FS, & - NUM2, NUM2, KSS_ROW_MAX_TERMS, 'KSS', NTERM_KSS, SYM_KSS ) + NUM2, NUM2, KSS_ROW_MAX_TERMS, 'KSS', NTERM_KSS, SYM_KSS ) CALL ALLOCATE_SPARSE_MAT ( 'KSS', NDOFS, NTERM_KSS, SUBR_NAME ) IF (NTERM_KSS > 0) THEN - + CALL PARTITION_SS ( 'KNN', NTERM_KNN, NDOFN, NDOFN, SYM_KNN, I_KNN, J_KNN, KNN, PART_VEC_N_FS, PART_VEC_N_FS, & NUM2, NUM2, KSS_ROW_MAX_TERMS, 'KSS', NTERM_KSS, NDOFS, SYM_KSS, I_KSS, J_KSS, KSS ) IF (NDOFSE > 0) THEN CALL PARTITION_SS_NTERM ( 'KSS', NTERM_KSS, NDOFS, NDOFS, SYM_KSS, I_KSS, J_KSS, PART_VEC_S, PART_VEC_S_SzSe& - ,NUM1, NUM2, KSSe_ROW_MAX_TERMS, 'KSSe', NTERM_KSSe, SYM_KSSe ) + ,NUM1, NUM2, KSSe_ROW_MAX_TERMS, 'KSSe', NTERM_KSSe, SYM_KSSe ) CALL ALLOCATE_SPARSE_MAT ( 'KSSe', NDOFS, NTERM_KSSe, SUBR_NAME ) diff --git a/Source/LK2/REDUCE_MAA_TO_MLL.f90 b/Source/LK2/REDUCE_MAA_TO_MLL.f90 index 9973418f..36b65520 100644 --- a/Source/LK2/REDUCE_MAA_TO_MLL.f90 +++ b/Source/LK2/REDUCE_MAA_TO_MLL.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_MAA_TO_MLL ( PART_VEC_A_LR ) - + ! Call routines to reduce the MAA mass matrix from the A-set to the L, R-sets. See Appendix B to the MYSTRAN User's Reference Manual ! Reference Manual for the derivation of the reduction equations. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L2M, L2N, LINK2M, LINK2N, L2M_MSG, L2N_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFA, NDOFL, NDOFR, NTERM_MAA, NTERM_MLL, NTERM_MRL, NTERM_MRR, & @@ -44,8 +44,8 @@ SUBROUTINE REDUCE_MAA_TO_MLL ( PART_VEC_A_LR ) IMPLICIT NONE CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_MAA_TO_MLL' - - INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) INTEGER(LONG) :: MLL_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: MRL_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: MRR_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) @@ -61,11 +61,11 @@ SUBROUTINE REDUCE_MAA_TO_MLL ( PART_VEC_A_LR ) IF (NDOFL > 0) THEN CALL PARTITION_SS_NTERM ( 'MAA', NTERM_MAA, NDOFA, NDOFA, SYM_MAA, I_MAA, J_MAA, PART_VEC_A_LR, PART_VEC_A_LR, & - NUM1, NUM1, MLL_ROW_MAX_TERMS, 'MLL', NTERM_MLL, SYM_MLL ) + NUM1, NUM1, MLL_ROW_MAX_TERMS, 'MLL', NTERM_MLL, SYM_MLL ) CALL ALLOCATE_SPARSE_MAT ( 'MLL', NDOFL, NTERM_MLL, SUBR_NAME ) - IF (NTERM_MLL > 0) THEN + IF (NTERM_MLL > 0) THEN CALL PARTITION_SS ( 'MAA', NTERM_MAA, NDOFA, NDOFA, SYM_MAA, I_MAA, J_MAA, MAA, PART_VEC_A_LR, PART_VEC_A_LR, & NUM1, NUM1, MLL_ROW_MAX_TERMS, 'MLL', NTERM_MLL, NDOFL, SYM_MLL, I_MLL, J_MLL, MLL ) ENDIF @@ -77,7 +77,7 @@ SUBROUTINE REDUCE_MAA_TO_MLL ( PART_VEC_A_LR ) IF ((NDOFL > 0) .AND. (NDOFR > 0)) THEN CALL PARTITION_SS_NTERM ( 'MAA', NTERM_MAA, NDOFA, NDOFA, SYM_MAA, I_MAA, J_MAA, PART_VEC_A_LR, PART_VEC_A_LR, & - NUM2, NUM1, MRL_ROW_MAX_TERMS, 'MRL', NTERM_MRL, SYM_MRL ) + NUM2, NUM1, MRL_ROW_MAX_TERMS, 'MRL', NTERM_MRL, SYM_MRL ) CALL ALLOCATE_SPARSE_MAT ( 'MRL', NDOFR, NTERM_MRL, SUBR_NAME ) @@ -93,7 +93,7 @@ SUBROUTINE REDUCE_MAA_TO_MLL ( PART_VEC_A_LR ) IF (NDOFR > 0) THEN CALL PARTITION_SS_NTERM ( 'MAA', NTERM_MAA, NDOFA, NDOFA, SYM_MAA, I_MAA, J_MAA, PART_VEC_A_LR, PART_VEC_A_LR, & - NUM2, NUM2, MRR_ROW_MAX_TERMS, 'MRR', NTERM_MRR, SYM_MRR ) + NUM2, NUM2, MRR_ROW_MAX_TERMS, 'MRR', NTERM_MRR, SYM_MRR ) CALL ALLOCATE_SPARSE_MAT ( 'MRR', NDOFR, NTERM_MRR, SUBR_NAME ) @@ -118,5 +118,5 @@ SUBROUTINE REDUCE_MAA_TO_MLL ( PART_VEC_A_LR ) ! ********************************************************************************************************************************** ! ********************************************************************************************************************************** - + END SUBROUTINE REDUCE_MAA_TO_MLL diff --git a/Source/LK2/REDUCE_MFF_TO_MAA.f90 b/Source/LK2/REDUCE_MFF_TO_MAA.f90 index c8eba434..b6d502cd 100644 --- a/Source/LK2/REDUCE_MFF_TO_MAA.f90 +++ b/Source/LK2/REDUCE_MFF_TO_MAA.f90 @@ -1,46 +1,46 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) - + ! Call routines to reduce the MFF mass matrix from the F-set to the A, O-sets. See Appendix B to the MYSTRAN User's Reference Manual ! for the derivation of the reduction equations. - + ! NOTE: This subr has code for sparse matrices as well as full matrices, (i.e. Bulk Data PARAM MATSPARS = 'Y' for sparse and 'N' ! for full). The code for full matrices was put in originally in order that the sparse code could be thoroughly checked. That task ! is complete and the remaining full matrix code has not been maintained since around 2005. In addition, new capability added to ! MYSTRAN since that approx time does not have full matrix code. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFF, NDOFA, NDOFO, NTERM_MFF, NTERM_MAA, NTERM_MAO, NTERM_MOO, & NTERM_GOA USE PARAMS, ONLY : EPSIL, MATSPARS, SPARSTOR USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE SPARSE_MATRICES, ONLY : I_MFF, J_MFF, MFF, I_MAA, J_MAA, MAA, I_MAO, J_MAO, MAO, I_MOO, J_MOO, MOO, & I_GOA, J_GOA, GOA, I_GOAt, J_GOAt, GOAt USE SPARSE_MATRICES, ONLY : SYM_GOA, SYM_MFF, SYM_MAA, SYM_MAO, SYM_MOO @@ -57,8 +57,8 @@ SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) ! 'N' for nonsymmetric storage) CHARACTER( 1*BYTE) :: SYM_CRS3 ! Storage format for matrix CRS3 (either 'Y' for sym storage or ! 'N' for nonsymmetric storage) - - INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) INTEGER(LONG) :: AROW_MAX_TERMS ! Output from MATMULT_SFS_NTERM and input to MATMULT_SFS INTEGER(LONG) :: I,J ! DO loop indices ! the ones on and above the diagonal (controlled by param SPARSTOR) @@ -66,10 +66,10 @@ SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) INTEGER(LONG) :: MAA_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: MAO_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: MOO_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) - INTEGER(LONG) :: NTERM_CCS1 ! Number of terms in matrix CCS1 - INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 - INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 - INTEGER(LONG) :: NTERM_CRS3 ! Number of terms in matrix CRS3 + INTEGER(LONG) :: NTERM_CCS1 ! Number of terms in matrix CCS1 + INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 + INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 + INTEGER(LONG) :: NTERM_CRS3 ! Number of terms in matrix CRS3 INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices @@ -77,7 +77,7 @@ SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) REAL(DOUBLE) :: ALPHA = ONE ! Scalar multiplier for matrix REAL(DOUBLE) :: BETA = ONE ! Scalar multiplier for matrix REAL(DOUBLE) :: SMALL ! A number used in filtering out small numbers from a full matrix - + INTRINSIC :: DABS @@ -88,11 +88,11 @@ SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) IF (NDOFA > 0) THEN CALL PARTITION_SS_NTERM ( 'MFF', NTERM_MFF, NDOFF, NDOFF, SYM_MFF, I_MFF, J_MFF, PART_VEC_F_AO, PART_VEC_F_AO, & - NUM1, NUM1, MAA_ROW_MAX_TERMS, 'MAA', NTERM_MAA, SYM_MAA ) + NUM1, NUM1, MAA_ROW_MAX_TERMS, 'MAA', NTERM_MAA, SYM_MAA ) CALL ALLOCATE_SPARSE_MAT ( 'MAA', NDOFA, NTERM_MAA, SUBR_NAME ) - IF (NTERM_MAA > 0) THEN + IF (NTERM_MAA > 0) THEN CALL PARTITION_SS ( 'MFF', NTERM_MFF, NDOFF, NDOFF, SYM_MFF, I_MFF, J_MFF, MFF, PART_VEC_F_AO, PART_VEC_F_AO, & NUM1, NUM1, MAA_ROW_MAX_TERMS, 'MAA', NTERM_MAA, NDOFA, SYM_MAA, I_MAA, J_MAA, MAA ) ENDIF @@ -104,7 +104,7 @@ SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) IF ((NDOFA > 0) .AND. (NDOFO > 0)) THEN CALL PARTITION_SS_NTERM ( 'MFF', NTERM_MFF, NDOFF, NDOFF, SYM_MFF, I_MFF, J_MFF, PART_VEC_F_AO, PART_VEC_F_AO, & - NUM1, NUM2, MAO_ROW_MAX_TERMS, 'MAO', NTERM_MAO, SYM_MAO ) + NUM1, NUM2, MAO_ROW_MAX_TERMS, 'MAO', NTERM_MAO, SYM_MAO ) CALL ALLOCATE_SPARSE_MAT ( 'MAO', NDOFA, NTERM_MAO, SUBR_NAME ) @@ -120,7 +120,7 @@ SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) IF (NDOFO > 0) THEN CALL PARTITION_SS_NTERM ( 'MFF', NTERM_MFF, NDOFF, NDOFF, SYM_MFF, I_MFF, J_MFF, PART_VEC_F_AO, PART_VEC_F_AO, & - NUM2, NUM2, MOO_ROW_MAX_TERMS, 'MOO', NTERM_MOO, SYM_MOO ) + NUM2, NUM2, MOO_ROW_MAX_TERMS, 'MOO', NTERM_MOO, SYM_MOO ) CALL ALLOCATE_SPARSE_MAT ( 'MOO', NDOFO, NTERM_MOO, SUBR_NAME ) @@ -174,7 +174,7 @@ SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) CALL DEALLOCATE_SCR_MAT ( 'CRS2' ) ! I-6 , CRS3 = (MAO*GOA) + (MAO*GOA)t has all nonzero terms in it. - IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS3 as sym in CRS1 + IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS3 as sym in CRS1 CALL SPARSE_CRS_TERM_COUNT ( NDOFA, NTERM_CRS3, '(MAO*GOA) + (MAO*GOA)t all nonzeros', I_CRS3, J_CRS3, NTERM_CRS1 ) CALL ALLOCATE_SCR_CRS_MAT ( 'CRS1', NDOFA, NTERM_CRS1, SUBR_NAME ) @@ -217,7 +217,7 @@ SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) NTERM_MAA = NTERM_CRS3 ! I-10, reallocate MAA to be size of CRS1 WRITE(SC1, * ) ' Reallocate MAA' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MAA', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'MAA' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate MAA', CR13 @@ -229,7 +229,7 @@ SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) DO J=1,NTERM_MAA J_MAA(J) = J_CRS3(J) MAA(J) = CRS3(J) - ENDDO + ENDDO CALL DEALLOCATE_SCR_MAT ( 'CRS3' ) ! I-12, deallocate CRS3 @@ -270,7 +270,7 @@ SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) CALL DEALLOCATE_SCR_MAT ( 'CCS1' ) ! II-6 , deallocate CCS1 ! II-7 , CRS1 = GOAt*MOO*GOA has all nonzero terms in it. - IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS1 as sym in CRS3 + IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS1 as sym in CRS3 CALL SPARSE_CRS_TERM_COUNT ( NDOFA, NTERM_CRS1, 'GOAt*MOO*GOA all nonzeros', I_CRS1, J_CRS1, NTERM_CRS3 ) CALL ALLOCATE_SCR_CRS_MAT ( 'CRS3', NDOFA, NTERM_CRS3, SUBR_NAME ) @@ -313,7 +313,7 @@ SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) NTERM_MAA = NTERM_CRS2 ! II-11, reallocate MAA to be size of CRS2 WRITE(SC1, * ) ' Reallocate MAA' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MAA', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'MAA' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate MAA', CR13 @@ -443,5 +443,5 @@ SUBROUTINE REDUCE_MFF_TO_MAA ( PART_VEC_F_AO ) 12345 FORMAT(A,10X,A) ! ********************************************************************************************************************************** - + END SUBROUTINE REDUCE_MFF_TO_MAA diff --git a/Source/LK2/REDUCE_MGG_TO_MNN.f90 b/Source/LK2/REDUCE_MGG_TO_MNN.f90 index eba4b7fd..5766b5d2 100644 --- a/Source/LK2/REDUCE_MGG_TO_MNN.f90 +++ b/Source/LK2/REDUCE_MGG_TO_MNN.f90 @@ -1,46 +1,46 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) - + ! Call routines to reduce the MGG mass matrix from the G-set to the N, M-sets. See Appendix B to the MYSTRAN User's Reference Manual ! for the derivation of the reduction equations. - + ! NOTE: This subr has code for sparse matrices as well as full matrices, (i.e. Bulk Data PARAM MATSPARS = 'Y' for sparse and 'N' ! for full). The code for full matrices was put in originally in order that the sparse code could be thoroughly checked. That task ! is complete and the remaining full matrix code has not been maintained since around 2005. In addition, new capability added to ! MYSTRAN since that approx time does not have full matrix code. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L2R, LINK2R, L2R_MSG, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, NDOFN, NDOFM, NTERM_MGG, NTERM_MNN, NTERM_MNM, NTERM_MMM, & NTERM_GMN, NTERM_LMN USE PARAMS, ONLY : EPSIL, MATSPARS, SPARSTOR USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE SPARSE_MATRICES, ONLY : I_LMN, J_LMN, LMN, I_MGG, J_MGG, MGG, I_MNN, J_MNN, MNN, I_MNM , J_MNM , MNM , & I_MMN, J_MMN, MMN, I_MMM, J_MMM, MMM, I_GMN, J_GMN, GMN, I_GMNt, J_GMNt, GMNt USE SPARSE_MATRICES, ONLY : SYM_GMN, SYM_LMN, SYM_MGG, SYM_MNN, SYM_MNM, SYM_MMN, SYM_MMM @@ -57,8 +57,8 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) ! 'N' for nonsymmetric storage) CHARACTER( 1*BYTE) :: SYM_CRS3 ! Storage format for matrix CRS3 (either 'Y' for sym storage or ! 'N' for nonsymmetric storage) - - INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) INTEGER(LONG) :: AROW_MAX_TERMS ! Output from MATMULT_SFS_NTERM and input to MATMULT_SFS INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: ITRNSPB ! Transpose indicator for matrix multiply routine @@ -66,10 +66,10 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) INTEGER(LONG) :: MNM_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) !xx INTEGER(LONG) :: MMN_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: MMM_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) - INTEGER(LONG) :: NTERM_CCS1 ! Number of terms in matrix CCS1 - INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 - INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 - INTEGER(LONG) :: NTERM_CRS3 ! Number of terms in matrix CRS3 + INTEGER(LONG) :: NTERM_CCS1 ! Number of terms in matrix CCS1 + INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 + INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 + INTEGER(LONG) :: NTERM_CRS3 ! Number of terms in matrix CRS3 INTEGER(LONG) :: NTERM_MMN ! Number of nonzeros in sparse matrix MMN (should = NTERM_MNM) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices @@ -78,7 +78,7 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) REAL(DOUBLE) :: ALPHA = ONE ! Scalar multiplier for matrix REAL(DOUBLE) :: BETA = ONE ! Scalar multiplier for matrix REAL(DOUBLE) :: SMALL ! A number used in filtering out small numbers from a full matrix - + INTRINSIC :: DABS @@ -89,11 +89,11 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) IF (NDOFN > 0) THEN CALL PARTITION_SS_NTERM ( 'MGG', NTERM_MGG, NDOFG, NDOFG, SYM_MGG, I_MGG, J_MGG, PART_VEC_G_NM, PART_VEC_G_NM, & - NUM1, NUM1, MNN_ROW_MAX_TERMS, 'MNN', NTERM_MNN, SYM_MNN ) + NUM1, NUM1, MNN_ROW_MAX_TERMS, 'MNN', NTERM_MNN, SYM_MNN ) CALL ALLOCATE_SPARSE_MAT ( 'MNN', NDOFN, NTERM_MNN, SUBR_NAME ) - IF (NTERM_MNN > 0) THEN + IF (NTERM_MNN > 0) THEN CALL PARTITION_SS ( 'MGG', NTERM_MGG, NDOFG, NDOFG, SYM_MGG, I_MGG, J_MGG, MGG, PART_VEC_G_NM, PART_VEC_G_NM, & NUM1, NUM1, MNN_ROW_MAX_TERMS, 'MNN', NTERM_MNN, NDOFN, SYM_MNN, I_MNN, J_MNN, MNN ) ENDIF @@ -105,7 +105,7 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) IF ((NDOFN > 0) .AND. (NDOFM > 0)) THEN CALL PARTITION_SS_NTERM ( 'MGG', NTERM_MGG, NDOFG, NDOFG, SYM_MGG, I_MGG, J_MGG, PART_VEC_G_NM, PART_VEC_G_NM, & - NUM1, NUM2, MNM_ROW_MAX_TERMS, 'MNM', NTERM_MNM, SYM_MNM ) + NUM1, NUM2, MNM_ROW_MAX_TERMS, 'MNM', NTERM_MNM, SYM_MNM ) CALL ALLOCATE_SPARSE_MAT ( 'MNM', NDOFN, NTERM_MNM, SUBR_NAME ) @@ -121,7 +121,7 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) IF ((NDOFN > 0) .AND. (NDOFM > 0)) THEN !xx CALL PARTITION_SS_NTERM ( 'MGG', NTERM_MGG, NDOFG, NDOFG, SYM_MGG, I_MGG, J_MGG, PART_VEC_G_NM, PART_VEC_G_NM, & -!xx NUM2, NUM1, MMN_ROW_MAX_TERMS, 'MMN', NTERM_MMN, SYM_MMN ) +!xx NUM2, NUM1, MMN_ROW_MAX_TERMS, 'MMN', NTERM_MMN, SYM_MMN ) !xx IF (NTERM_MMN /= NTERM_MNM) THEN !xx FATAL_ERR = FATAL_ERR + 1 @@ -152,7 +152,7 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) IF (NDOFM > 0) THEN CALL PARTITION_SS_NTERM ( 'MGG', NTERM_MGG, NDOFG, NDOFG, SYM_MGG, I_MGG, J_MGG, PART_VEC_G_NM, PART_VEC_G_NM, & - NUM2, NUM2, MMM_ROW_MAX_TERMS, 'MMM', NTERM_MMM, SYM_MMM ) + NUM2, NUM2, MMM_ROW_MAX_TERMS, 'MMM', NTERM_MMM, SYM_MMM ) CALL ALLOCATE_SPARSE_MAT ( 'MMM', NDOFM, NTERM_MMM, SUBR_NAME ) @@ -206,7 +206,7 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) CALL DEALLOCATE_SCR_MAT ( 'CRS2' ) ! I-6, deallocate CRS2 which was (MNM*GMN)t ! I-7, CRS3 = (MNM*GMN) + (MNM*GMN)t has all nonzero terms in it. - IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS3 as sym in CRS1 + IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS3 as sym in CRS1 CALL SPARSE_CRS_TERM_COUNT ( NDOFN, NTERM_CRS3, '(MNM*GMN) + (MNM*GMN)t', I_CRS3, J_CRS3, NTERM_CRS1 ) CALL ALLOCATE_SCR_CRS_MAT ( 'CRS1', NDOFN, NTERM_CRS1, SUBR_NAME ) @@ -249,7 +249,7 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) NTERM_MNN = NTERM_CRS3 ! I-11, reallocate MNN to be size of CRS1 WRITE(SC1, * ) ' Reallocate MNN' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MNN', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'MNN' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate MNN', CR13 @@ -261,7 +261,7 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) DO J=1,NTERM_MNN J_MNN(J) = J_CRS3(J) MNN(J) = CRS3(J) - ENDDO + ENDDO CALL DEALLOCATE_SCR_MAT ( 'CRS3' ) ! I-13, deallocate CRS3 ! At this point, CRS1, CRS2, CRS3 are deallocated, CCS1 is being used @@ -322,7 +322,7 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) CALL DEALLOCATE_SCR_MAT ( 'CCS1' ) ! II-6 , deallocate CCS1 ! II-7 , CRS1 = GMNt*MMM*GMN has all nonzero terms in it. - IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS1 as sym in CRS3 + IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS1 as sym in CRS3 CALL SPARSE_CRS_TERM_COUNT ( NDOFN, NTERM_CRS1, 'GMNt*MMM*GMN all nonzeros', I_CRS1, J_CRS1, NTERM_CRS3 ) CALL ALLOCATE_SCR_CRS_MAT ( 'CRS3', NDOFN, NTERM_CRS3, SUBR_NAME ) @@ -363,7 +363,7 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) NTERM_MNN = NTERM_CRS2 ! II-11, reallocate MNN to be size of CRS2 WRITE(SC1, * ) ' Reallocate MNN' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MNN', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'MNN' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate MNN', CR13 @@ -404,7 +404,7 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) ENDIF WRITE(SC1, * ) ' DEALLOCATE SOME ARRAYS' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate GMNt', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'GMNt' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate LMN ', CR13 @@ -418,7 +418,7 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) IF (NTERM_MNN > 0) THEN CALL SPARSE_CRS_TO_FULL ( 'MNN', NTERM_MNN, NDOFN, NDOFN, SYM_MNN, I_MNN, J_MNN,MNN, MNN_FULL ) ENDIF - + IF (NTERM_MNM > 0) THEN ! Part 1: calc MNM*GMN and add it & it's transpose to MNN_FULL CALL ALLOCATE_FULL_MAT ( 'MNM_FULL', NDOFN, NDOFM, SUBR_NAME ) @@ -486,7 +486,7 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) CALL CNT_NONZ_IN_FULL_MAT ( 'MNN_FULL ', MNN_FULL, NDOFN, NDOFN, SYM_MNN, NTERM_MNN, SMALL ) WRITE(SC1, * ) ' Reallocate MNN' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MNN', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'MNN' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate MNN', CR13 @@ -524,5 +524,5 @@ SUBROUTINE REDUCE_MGG_TO_MNN ( PART_VEC_G_NM ) 12345 FORMAT(A,10X,A) ! ********************************************************************************************************************************** - + END SUBROUTINE REDUCE_MGG_TO_MNN diff --git a/Source/LK2/REDUCE_MNN_TO_MFF.f90 b/Source/LK2/REDUCE_MNN_TO_MFF.f90 index d34e141e..735d9b60 100644 --- a/Source/LK2/REDUCE_MNN_TO_MFF.f90 +++ b/Source/LK2/REDUCE_MNN_TO_MFF.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_MNN_TO_MFF ( PART_VEC_N_FS ) - + ! Call routines to reduce the MNN mass matrix from the N-set to the F, S-sets. See Appendix B to the MYSTRAN User's Reference Manual ! for the derivation of the reduction equations. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, L2S, LINK2S, L2S_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFN, NDOFF, NDOFS, NTERM_MNN, NTERM_MFF, NTERM_MFS, NTERM_MSS @@ -37,16 +37,16 @@ SUBROUTINE REDUCE_MNN_TO_MFF ( PART_VEC_N_FS ) I_MSS, J_MSS, MSS USE SPARSE_MATRICES, ONLY : SYM_MNN, SYM_MFF, SYM_MFS, SYM_MSS USE SCRATCH_MATRICES - + USE REDUCE_MNN_TO_MFF_USE_IFs IMPLICIT NONE CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_MNN_TO_MFF' - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_1. 'Y'/'N' whether to close a file + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_1. 'Y'/'N' whether to close a file CHARACTER( 8*BYTE) :: CLOSE_STAT ! Char constant for the CLOSE status of a file - - INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) INTEGER(LONG) :: MFF_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) INTEGER(LONG) :: MFS_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) !xx INTEGER(LONG) :: MSF_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) @@ -66,11 +66,11 @@ SUBROUTINE REDUCE_MNN_TO_MFF ( PART_VEC_N_FS ) IF (NDOFF > 0) THEN CALL PARTITION_SS_NTERM ( 'MNN', NTERM_MNN, NDOFN, NDOFN, SYM_MNN, I_MNN, J_MNN, PART_VEC_N_FS, PART_VEC_N_FS, & - NUM1, NUM1, MFF_ROW_MAX_TERMS, 'MFF', NTERM_MFF, SYM_MFF ) + NUM1, NUM1, MFF_ROW_MAX_TERMS, 'MFF', NTERM_MFF, SYM_MFF ) CALL ALLOCATE_SPARSE_MAT ( 'MFF', NDOFF, NTERM_MFF, SUBR_NAME ) - IF (NTERM_MFF > 0) THEN + IF (NTERM_MFF > 0) THEN CALL PARTITION_SS ( 'MNN', NTERM_MNN, NDOFN, NDOFN, SYM_MNN, I_MNN, J_MNN, MNN, PART_VEC_N_FS, PART_VEC_N_FS, & NUM1, NUM1, MFF_ROW_MAX_TERMS, 'MFF', NTERM_MFF, NDOFF, SYM_MFF, I_MFF, J_MFF, MFF ) ENDIF @@ -82,7 +82,7 @@ SUBROUTINE REDUCE_MNN_TO_MFF ( PART_VEC_N_FS ) IF ((NDOFF > 0) .AND. (NDOFS > 0)) THEN CALL PARTITION_SS_NTERM ( 'MNN', NTERM_MNN, NDOFN, NDOFN, SYM_MNN, I_MNN, J_MNN, PART_VEC_N_FS, PART_VEC_N_FS, & - NUM1, NUM2, MFS_ROW_MAX_TERMS, 'MFS', NTERM_MFS, SYM_MFS ) + NUM1, NUM2, MFS_ROW_MAX_TERMS, 'MFS', NTERM_MFS, SYM_MFS ) CALL ALLOCATE_SPARSE_MAT ( 'MFS', NDOFF, NTERM_MFS, SUBR_NAME ) @@ -98,11 +98,11 @@ SUBROUTINE REDUCE_MNN_TO_MFF ( PART_VEC_N_FS ) IF (NDOFS > 0) THEN CALL PARTITION_SS_NTERM ( 'MNN', NTERM_MNN, NDOFN, NDOFN, SYM_MNN, I_MNN, J_MNN, PART_VEC_N_FS, PART_VEC_N_FS, & - NUM2, NUM2, MSS_ROW_MAX_TERMS, 'MSS', NTERM_MSS, SYM_MSS ) + NUM2, NUM2, MSS_ROW_MAX_TERMS, 'MSS', NTERM_MSS, SYM_MSS ) CALL ALLOCATE_SPARSE_MAT ( 'MSS', NDOFS, NTERM_MSS, SUBR_NAME ) - IF (NTERM_MFF > 0) THEN + IF (NTERM_MFF > 0) THEN CALL PARTITION_SS ( 'MNN', NTERM_MNN, NDOFN, NDOFN, SYM_MNN, I_MNN, J_MNN, MNN, PART_VEC_N_FS, PART_VEC_N_FS, & NUM2, NUM2, MSS_ROW_MAX_TERMS, 'MSS', NTERM_MSS, NDOFS, SYM_MSS, I_MSS, J_MSS, MSS ) ENDIF @@ -114,7 +114,7 @@ SUBROUTINE REDUCE_MNN_TO_MFF ( PART_VEC_N_FS ) IF ((NDOFF > 0) .AND. (NDOFS > 0)) THEN !xx CALL PARTITION_SS_NTERM ( 'MNN', NTERM_MNN, NDOFN, NDOFN, SYM_MNN, I_MNN, J_MNN, PART_VEC_N_FS, PART_VEC_N_FS, & -!xx NUM2, NUM1, MSF_ROW_MAX_TERMS, 'MSF', NTERM_MSF, SYM_MFS ) +!xx NUM2, NUM1, MSF_ROW_MAX_TERMS, 'MSF', NTERM_MSF, SYM_MFS ) !xx IF (NTERM_MSF /= NTERM_MFS) THEN !xx FATAL_ERR = FATAL_ERR + 1 diff --git a/Source/LK2/REDUCE_N_FS.f90 b/Source/LK2/REDUCE_N_FS.f90 index f4aba485..d5fe9fa9 100644 --- a/Source/LK2/REDUCE_N_FS.f90 +++ b/Source/LK2/REDUCE_N_FS.f90 @@ -1,41 +1,41 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_N_FS - + ! Call routines to reduce stiffness, mass, loads from N-set to F, S-sets - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L1H, LINK1H, L1H_MSG, L2C, LINK2C, L2C_MSG, SC1, WRT_ERR USE SCONTR, ONLY : LINKNO , NDOFF, NDOFG, NDOFN, NDOFS, NDOFSE, NSUB, & NTERM_KNN , NTERM_KFF , NTERM_KFS , NTERM_KSS , NTERM_KSSe , & NTERM_KNND, NTERM_KFFD, NTERM_KFSD, NTERM_KSSD, NTERM_KSSDe, & NTERM_QSYS, NTERM_PN , NTERM_PF , NTERM_PS , NTERM_MNN , & - NTERM_MFF , NTERM_MFS , NTERM_MSS , SOL_NAME, BLNK_SUB_NAM - USE TIMDAT, ONLY : TSEC, YEAR, MONTH, DAY, HOUR, MINUTE, SEC, SFRAC, STIME + NTERM_MFF , NTERM_MFS , NTERM_MSS , SOL_NAME, BLNK_SUB_NAM + USE TIMDAT, ONLY : TSEC, YEAR, MONTH, DAY, HOUR, MINUTE, SEC, SFRAC, STIME USE CONSTANTS_1, ONLY : ONE USE DOF_TABLES, ONLY : TDOFI USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET, RBGLOBAL_NSET, RBGLOBAL_FSET @@ -54,33 +54,33 @@ SUBROUTINE REDUCE_N_FS USE COL_VECS, ONLY : YSe USE DEBUG_PARAMETERS, ONLY : DEBUG USE SCRATCH_MATRICES - + USE REDUCE_N_FS_USE_IFs - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_N_FS' ! If 'Y' then matrix is stored as all nonzeros on & above diag. - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close file or not + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close file or not CHARACTER( 8*BYTE) :: CLOSE_STAT ! Char constant for the CLOSE status of a file CHARACTER( 44*BYTE) :: MODNAM ! Name to write to screen to describe module being run CHARACTER(132*BYTE) :: MATRIX_NAME ! Name of matrix for printout - + INTEGER(LONG) :: AROW_MAX_TERMS ! Output from MATMULT_SFS_NTERM and input to MATMULT_SFS INTEGER(LONG) :: DO_WHICH_CODE_FRAG ! 1 or 2 depending on which seg of code to run (depends on BUCKLING) INTEGER(LONG) :: F_SET_COL ! Col no. in array TDOFI where the F-set is (from subr TDOF_COL_NUM) INTEGER(LONG) :: F_SET_DOF ! F-set DOF number INTEGER(LONG) :: IERROR ! Error count INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening/reading a file - INTEGER(LONG) :: I,J ! DO loop indices - INTEGER(LONG) , PARAMETER :: NUM_YS_COLS = 1 ! Variable for number of cols in array YSe - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN - INTEGER(LONG) :: PART_VEC_F(NDOFF) ! Partitioning vector (1's for all of F set) - INTEGER(LONG) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) - INTEGER(LONG) :: PART_VEC_S(NDOFS) ! Partitioning vector (1's for all of S set) - INTEGER(LONG) :: PART_VEC_S_SzSe(NDOFS)! Partitioning vector (S set into SZ and SE sets) - INTEGER(LONG) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) + INTEGER(LONG) :: I,J ! DO loop indices + INTEGER(LONG) , PARAMETER :: NUM_YS_COLS = 1 ! Variable for number of cols in array YSe + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: PART_VEC_F(NDOFF) ! Partitioning vector (1's for all of F set) + INTEGER(LONG) :: PART_VEC_N_FS(NDOFN) ! Partitioning vector (N set into F and S sets) + INTEGER(LONG) :: PART_VEC_S(NDOFS) ! Partitioning vector (1's for all of S set) + INTEGER(LONG) :: PART_VEC_S_SzSe(NDOFS)! Partitioning vector (S set into SZ and SE sets) + INTEGER(LONG) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) INTEGER(LONG) :: REC_NO ! Record number when reading a file @@ -104,7 +104,7 @@ SUBROUTINE REDUCE_N_FS DO I=1,NDOFF PART_VEC_F(I) = 1 ENDDO - + DO I=1,NDOFS PART_VEC_S(I) = 1 ENDDO @@ -134,7 +134,7 @@ SUBROUTINE REDUCE_N_FS WRITE(F06,9995) LINKNO,IERROR CALL OUTA_HERE ( 'Y' ) ! Quit due to read errors in YSe array file ENDIF - + CALL FILE_CLOSE ( L1H, LINK1H, 'KEEP' ) IF (DEBUG(26) == 1) THEN @@ -199,7 +199,7 @@ SUBROUTINE REDUCE_N_FS ENDIF -! Reduce PN to PF. +! Reduce PN to PF. IF ((SOL_NAME(1:5) /= 'MODES') .AND. (SOL_NAME(1:12) /= 'GEN CB MODEL')) THEN @@ -279,21 +279,21 @@ SUBROUTINE REDUCE_N_FS MODNAM = ' DEALLOCATE SOME ARRAYS' WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KNN', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KNN' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MNN', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'MNN' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PN ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'PN' ) WRITE(SC1,*) CR13 ! Calc QSYS = KSSe*YSe and write to L2C for constraint force recovery in LINK9. - + IF (NTERM_KSSe > 0) THEN ! Calc QSYS = KSSe * YSe CALL MATMULT_SFS_NTERM ( 'KSSe', NDOFS, NTERM_KSSe, SYM_KSSe, I_KSSe, J_KSSe & ,'YSe', NDOFSE, NUM_YS_COLS, YSe, AROW_MAX_TERMS, 'QSYS', NTERM_QSYS ) CALL ALLOCATE_SPARSE_MAT ( 'QSYS', NDOFS, NTERM_QSYS, SUBR_NAME ) - + IF ((DEBUG(24) == 2) .OR.(DEBUG(24) == 3)) THEN MATRIX_NAME = 'STIFFNESS PARTITION KSSe (columns of KSS for enforced displs)' CALL WRITE_SPARSE_CRS ( MATRIX_NAME, 'S ', 'SE', NTERM_KSSe, NDOFS, I_KSSe, J_KSSe, KSSe ) @@ -303,7 +303,7 @@ SUBROUTINE REDUCE_N_FS CALL MATMULT_SFS ( 'KSSe', NDOFS, NTERM_KSSe, SYM_KSSe, I_KSSe, J_KSSe, KSSe & ,'YSe', NDOFSE, NUM_YS_COLS, YSe, AROW_MAX_TERMS, 'QSYS', ONE, NTERM_QSYS, I_QSYS, J_QSYS, QSYS) - + CLOSE_IT = 'Y' CLOSE_STAT = 'KEEP' CALL WRITE_MATRIX_1 ( LINK2C, L2C, CLOSE_IT, CLOSE_STAT, L2C_MSG, 'QSYS', NTERM_QSYS, NDOFS, I_QSYS, J_QSYS, QSYS) @@ -323,7 +323,7 @@ SUBROUTINE REDUCE_N_FS MODNAM = ' DEALLOCATE SOME ARRAYS' WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KSSe', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KSSe' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate QSYS', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'QSYS' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate YSe ', CR13 ; CALL DEALLOCATE_COL_VEC ( 'YSe' ) @@ -350,7 +350,7 @@ SUBROUTINE REDUCE_N_FS ENDIF WRITE(SC1, * ) ' DEALLOCATE SOME ARRAYS' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KFS', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KFS' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KSF', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KSF' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KSS', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KSS' ) @@ -384,7 +384,7 @@ SUBROUTINE REDUCE_N_FS ENDIF WRITE(SC1, * ) ' DEALLOCATE SOME ARRAYS' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MFS', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'MFS' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MSF', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'MSF' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MSS', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'MSS' ) @@ -487,7 +487,7 @@ SUBROUTINE REDUCE_N_FS MODNAM = ' DEALLOCATE SOME ARRAYS' WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KNND', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KNND' ) WRITE(SC1,*) CR13 @@ -512,7 +512,7 @@ SUBROUTINE REDUCE_N_FS ENDIF WRITE(SC1, * ) ' DEALLOCATE SOME ARRAYS' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate YSe ', CR13 ; CALL DEALLOCATE_COL_VEC ( 'YSe' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KFSD', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KFSD' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KSFD', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KSFD' ) @@ -534,4 +534,4 @@ SUBROUTINE REDUCE_N_FS ! ********************************************************************************************************************************** - END SUBROUTINE REDUCE_N_FS + END SUBROUTINE REDUCE_N_FS diff --git a/Source/LK2/REDUCE_PA_TO_PL.f90 b/Source/LK2/REDUCE_PA_TO_PL.f90 index 0481a14f..f0c54ca5 100644 --- a/Source/LK2/REDUCE_PA_TO_PL.f90 +++ b/Source/LK2/REDUCE_PA_TO_PL.f90 @@ -1,50 +1,50 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_PA_TO_PL ( PART_VEC_A_LR, PART_VEC_SUB ) - + ! Call routines to reduce the PA grid point load matrix from the A-set to the L, R-sets. See Appendix B to the MYSTRAN User's ! Reference Manual for the derivation of the reduction equations. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFA, NDOFL, NDOFR, NSUB, NTERM_GOA, NTERM_PA, NTERM_PL, NTERM_PR USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE - USE SPARSE_MATRICES, ONLY : I_PA, J_PA, PA, I_PL, J_PL, PL, I_PR, J_PR, PR, I_GOA, J_GOA, GOA, I_GOAt, J_GOAt, GOAt + USE CONSTANTS_1, ONLY : ONE + USE SPARSE_MATRICES, ONLY : I_PA, J_PA, PA, I_PL, J_PL, PL, I_PR, J_PR, PR, I_GOA, J_GOA, GOA, I_GOAt, J_GOAt, GOAt USE SPARSE_MATRICES, ONLY : SYM_PA, SYM_PL, SYM_PR - + USE REDUCE_PA_TO_PL_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)) :: SUBR_NAME = 'REDUCE_PA_TO_PL' - - INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (F set into A and O sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices INTEGER(LONG) :: PL_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) @@ -59,7 +59,7 @@ SUBROUTINE REDUCE_PA_TO_PL ( PART_VEC_A_LR, PART_VEC_SUB ) IF (NDOFL > 0) THEN CALL PARTITION_SS_NTERM ( 'PA' , NTERM_PA , NDOFA, NSUB , SYM_PA , I_PA , J_PA , PART_VEC_A_LR, PART_VEC_SUB, & - NUM1, NUM1, PL_ROW_MAX_TERMS, 'PL', NTERM_PL, SYM_PL ) + NUM1, NUM1, PL_ROW_MAX_TERMS, 'PL', NTERM_PL, SYM_PL ) CALL ALLOCATE_SPARSE_MAT ( 'PL', NDOFL, NTERM_PL, SUBR_NAME ) @@ -67,7 +67,7 @@ SUBROUTINE REDUCE_PA_TO_PL ( PART_VEC_A_LR, PART_VEC_SUB ) CALL PARTITION_SS ( 'PA' , NTERM_PA , NDOFA, NSUB , SYM_PA , I_PA , J_PA , PA , PART_VEC_A_LR, PART_VEC_SUB, & NUM1, NUM1, PL_ROW_MAX_TERMS, 'PL', NTERM_PL , NDOFL, SYM_PL, I_PL , J_PL , PL ) ENDIF - + ENDIF ! Partition PR from PA @@ -75,7 +75,7 @@ SUBROUTINE REDUCE_PA_TO_PL ( PART_VEC_A_LR, PART_VEC_SUB ) IF (NDOFR > 0) THEN CALL PARTITION_SS_NTERM ( 'PA' , NTERM_PA , NDOFA, NSUB , SYM_PA , I_PA , J_PA , PART_VEC_A_LR, PART_VEC_SUB, & - NUM2, NUM1, PR_ROW_MAX_TERMS, 'PR', NTERM_PR, SYM_PR ) + NUM2, NUM1, PR_ROW_MAX_TERMS, 'PR', NTERM_PR, SYM_PR ) CALL ALLOCATE_SPARSE_MAT ( 'PR', NDOFR, NTERM_PR, SUBR_NAME ) @@ -91,6 +91,6 @@ SUBROUTINE REDUCE_PA_TO_PL ( PART_VEC_A_LR, PART_VEC_SUB ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE REDUCE_PA_TO_PL diff --git a/Source/LK2/REDUCE_PF_TO_PA.f90 b/Source/LK2/REDUCE_PF_TO_PA.f90 index 779c0a3c..e23eefbe 100644 --- a/Source/LK2/REDUCE_PF_TO_PA.f90 +++ b/Source/LK2/REDUCE_PF_TO_PA.f90 @@ -1,65 +1,65 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_PF_TO_PA ( PART_VEC_F_AO, PART_VEC_SUB ) - + ! Call routines to reduce the PF grid point load matrix from the F-set to the A, O-sets. See Appendix B to the MYSTRAN User's ! Reference Manual for the derivation of the reduction equations. - + ! NOTE: This subr has code for sparse matrices as well as full matrices, (i.e. Bulk Data PARAM MATSPARS = 'Y' for sparse and 'N' ! for full). The code for full matrices was put in originally in order that the sparse code could be thoroughly checked. That task ! is complete and the remaining full matrix code has not been maintained since around 2005. In addition, new capability added to ! MYSTRAN since that approx time does not have full matrix code. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, KOO_SDIA, NDOFF, NDOFA, NDOFO, NSUB, NTERM_GOA, NTERM_PF, & NTERM_PA, NTERM_PO USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE PARAMS, ONLY : EPSIL, MATSPARS - USE SPARSE_MATRICES, ONLY : I_PF, J_PF, PF, I_PA, J_PA, PA, I_PO, J_PO, PO, I_GOA, J_GOA, GOA, I_GOAt, J_GOAt, GOAt + USE SPARSE_MATRICES, ONLY : I_PF, J_PF, PF, I_PA, J_PA, PA, I_PO, J_PO, PO, I_GOA, J_GOA, GOA, I_GOAt, J_GOAt, GOAt USE SPARSE_MATRICES, ONLY : SYM_GOA, SYM_PF, SYM_PA, SYM_PO USE FULL_MATRICES, ONLY : PA_FULL, PO_FULL, GOA_FULL, DUM1, DUM2 USE SCRATCH_MATRICES - + USE REDUCE_PF_TO_PA_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_PF_TO_PA' - - INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_F_AO(NDOFF)! Partitioning vector (F set into A and O sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) INTEGER(LONG) :: AROW_MAX_TERMS ! Output from MATMULT_SFS_NTERM and input to MATMULT_SFS INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG), PARAMETER :: ITRNSPB = 0 ! Transpose indicator for matrix multiply routine - INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 - INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 + INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 + INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices INTEGER(LONG) :: PA_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) @@ -81,7 +81,7 @@ SUBROUTINE REDUCE_PF_TO_PA ( PART_VEC_F_AO, PART_VEC_SUB ) IF (NDOFA > 0) THEN CALL PARTITION_SS_NTERM ( 'PF' , NTERM_PF , NDOFF, NSUB , SYM_PF , I_PF , J_PF , PART_VEC_F_AO, PART_VEC_SUB, & - NUM1, NUM1, PA_ROW_MAX_TERMS, 'PA', NTERM_PA, SYM_PA ) + NUM1, NUM1, PA_ROW_MAX_TERMS, 'PA', NTERM_PA, SYM_PA ) CALL ALLOCATE_SPARSE_MAT ( 'PA', NDOFA, NTERM_PA, SUBR_NAME ) @@ -89,7 +89,7 @@ SUBROUTINE REDUCE_PF_TO_PA ( PART_VEC_F_AO, PART_VEC_SUB ) CALL PARTITION_SS ( 'PF' , NTERM_PF , NDOFF, NSUB , SYM_PF , I_PF , J_PF , PF , PART_VEC_F_AO, PART_VEC_SUB, & NUM1, NUM1, PA_ROW_MAX_TERMS, 'PA', NTERM_PA , NDOFA, SYM_PA, I_PA , J_PA , PA ) ENDIF - + ENDIF ! Partition PO from PF @@ -97,7 +97,7 @@ SUBROUTINE REDUCE_PF_TO_PA ( PART_VEC_F_AO, PART_VEC_SUB ) IF (NDOFO > 0) THEN CALL PARTITION_SS_NTERM ( 'PF' , NTERM_PF , NDOFF, NSUB , SYM_PF , I_PF , J_PF , PART_VEC_F_AO, PART_VEC_SUB, & - NUM2, NUM1, PO_ROW_MAX_TERMS, 'PO', NTERM_PO, SYM_PO ) + NUM2, NUM1, PO_ROW_MAX_TERMS, 'PO', NTERM_PO, SYM_PO ) CALL ALLOCATE_SPARSE_MAT ( 'PO', NDOFO, NTERM_PO, SUBR_NAME ) @@ -156,10 +156,10 @@ SUBROUTINE REDUCE_PF_TO_PA ( PART_VEC_F_AO, PART_VEC_SUB ) NTERM_PA = NTERM_CRS2 ! Reallocate KAA to be size of CRS2 WRITE(SC1, * ) ' Reallocate PA ' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages - WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PA ', CR13 + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PA ', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'PA' ) - WRITE(SC1,12345,ADVANCE='NO') ' Allocate PA ', CR13 + WRITE(SC1,12345,ADVANCE='NO') ' Allocate PA ', CR13 CALL ALLOCATE_SPARSE_MAT ( 'PA', NDOFA, NTERM_PA, SUBR_NAME ) ! Set KAA = CRS1 DO I=1,NDOFA+1 @@ -168,10 +168,10 @@ SUBROUTINE REDUCE_PF_TO_PA ( PART_VEC_F_AO, PART_VEC_SUB ) DO J=1,NTERM_PA J_PA(J) = J_CRS2(J) PA(J) = CRS2(J) - ENDDO + ENDDO WRITE(SC1, * ) ' DEALLOCATE SOME ARRAYS' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate GOAt', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'GOAt' ) CALL DEALLOCATE_SCR_MAT ( 'CRS2' ) ! Deallocate CRS2 and GOAt @@ -186,8 +186,8 @@ SUBROUTINE REDUCE_PF_TO_PA ( PART_VEC_F_AO, PART_VEC_SUB ) CALL SPARSE_CRS_TO_FULL ( 'PA', NTERM_PA, NDOFA, NSUB, SYM_PA, I_PA, J_PA, PA, PA_FULL ) ENDIF - IF (NTERM_PO > 0) THEN ! Calc GOA(t)*PO and add to partitioned PA to get reduced PA - + IF (NTERM_PO > 0) THEN ! Calc GOA(t)*PO and add to partitioned PA to get reduced PA + CALL ALLOCATE_FULL_MAT ( 'PO_FULL', NDOFO, NSUB, SUBR_NAME ) CALL SPARSE_CRS_TO_FULL ( 'PO', NTERM_PO, NDOFO, NSUB, SYM_PO, I_PO, J_PO, PO, PO_FULL ) @@ -213,18 +213,18 @@ SUBROUTINE REDUCE_PF_TO_PA ( PART_VEC_F_AO, PART_VEC_SUB ) CALL DEALLOCATE_FULL_MAT ( 'DUM1' ) CALL DEALLOCATE_FULL_MAT ( 'DUM2' ) - ENDIF + ENDIF CALL CNT_NONZ_IN_FULL_MAT ( 'PA_FULL ', PA_FULL, NDOFA, NSUB, SYM_PA, NTERM_PA, SMALL ) WRITE(SC1, * ) ' Reallocate PA ' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PA ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'PA' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate PA ', CR13 ; CALL ALLOCATE_SPARSE_MAT ('PA', NDOFA, NTERM_PA, SUBR_NAME) IF (NTERM_PA > 0) THEN ! Create new sparse arrays from PA_FULL !xx CALL FULL_TO_SPARSE_CRS ( 'PA_FULL ', NDOFA, NSUB , PA_FULL, NTERM_PA, SYM_PA, I_PA, J_PA, PA ) - CALL DEALLOCATE_FULL_MAT ( 'PA_FULL' ) + CALL DEALLOCATE_FULL_MAT ( 'PA_FULL' ) ENDIF ELSE @@ -236,12 +236,12 @@ SUBROUTINE REDUCE_PF_TO_PA ( PART_VEC_F_AO, PART_VEC_SUB ) ENDIF -! If there are applied loads on the O-set, solve for UO0 = KOO(-1) x PO which is part of the final solution for UO +! If there are applied loads on the O-set, solve for UO0 = KOO(-1) x PO which is part of the final solution for UO IF (NTERM_PO > 0) THEN CALL SOLVE_UO0 - ENDIF - + ENDIF + RETURN @@ -254,6 +254,6 @@ SUBROUTINE REDUCE_PF_TO_PA ( PART_VEC_F_AO, PART_VEC_SUB ) 12345 FORMAT(A,10X,A) ! ********************************************************************************************************************************** - + END SUBROUTINE REDUCE_PF_TO_PA diff --git a/Source/LK2/REDUCE_PG_TO_PN.f90 b/Source/LK2/REDUCE_PG_TO_PN.f90 index 70571a23..45c25020 100644 --- a/Source/LK2/REDUCE_PG_TO_PN.f90 +++ b/Source/LK2/REDUCE_PG_TO_PN.f90 @@ -1,64 +1,64 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_PG_TO_PN ( PART_VEC_G_NM, PART_VEC_SUB ) - + ! Call routines to reduce the PG grid point load matrix from the G-set to the N, M-sets. See Appendix B to the MYSTRAN User's ! Reference Manual for the derivation of the reduction equations. - + ! NOTE: This subr has code for sparse matrices as well as full matrices, (i.e. Bulk Data PARAM MATSPARS = 'Y' for sparse and 'N' ! for full). The code for full matrices was put in originally in order that the sparse code could be thoroughly checked. That task ! is complete and the remaining full matrix code has not been maintained since around 2005. In addition, new capability added to ! MYSTRAN since that approx time does not have full matrix code. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, NDOFN, NDOFM, NSUB, NTERM_GMN, NTERM_PG, NTERM_PN, NTERM_PM USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE PARAMS, ONLY : EPSIL, MATSPARS - USE SPARSE_MATRICES, ONLY : I_PG, J_PG, PG, I_PN, J_PN, PN, I_PM, J_PM, PM, I_GMN, J_GMN, GMN, I_GMNt, J_GMNt, GMNt + USE SPARSE_MATRICES, ONLY : I_PG, J_PG, PG, I_PN, J_PN, PN, I_PM, J_PM, PM, I_GMN, J_GMN, GMN, I_GMNt, J_GMNt, GMNt USE SPARSE_MATRICES, ONLY : SYM_GMN, SYM_PG, SYM_PN, SYM_PM USE FULL_MATRICES, ONLY : PN_FULL, PM_FULL, GMN_FULL, DUM1, DUM2 USE SCRATCH_MATRICES - + USE REDUCE_PG_TO_PN_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_PG_TO_PN' - - INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) INTEGER(LONG) :: AROW_MAX_TERMS ! Output from MATMULT_SFS_NTERM and input to MATMULT_SFS INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG), PARAMETER :: ITRNSPB = 0 ! Transpose indicator for matrix multiply routine - INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 - INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 + INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 + INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices INTEGER(LONG) :: PN_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) @@ -68,7 +68,7 @@ SUBROUTINE REDUCE_PG_TO_PN ( PART_VEC_G_NM, PART_VEC_SUB ) REAL(DOUBLE) :: ALPHA = ONE ! Scalar multiplier for matrix REAL(DOUBLE) :: BETA = ONE ! Scalar multiplier for matrix REAL(DOUBLE) :: SMALL ! A number used in filtering out small numbers from a full matrix - + INTRINSIC :: DABS @@ -80,7 +80,7 @@ SUBROUTINE REDUCE_PG_TO_PN ( PART_VEC_G_NM, PART_VEC_SUB ) IF (NDOFN > 0) THEN CALL PARTITION_SS_NTERM ( 'PG' , NTERM_PG , NDOFG, NSUB , SYM_PG , I_PG , J_PG , PART_VEC_G_NM, PART_VEC_SUB, & - NUM1, NUM1, PN_ROW_MAX_TERMS, 'PN', NTERM_PN, SYM_PN ) + NUM1, NUM1, PN_ROW_MAX_TERMS, 'PN', NTERM_PN, SYM_PN ) CALL ALLOCATE_SPARSE_MAT ( 'PN', NDOFN, NTERM_PN, SUBR_NAME ) @@ -97,7 +97,7 @@ SUBROUTINE REDUCE_PG_TO_PN ( PART_VEC_G_NM, PART_VEC_SUB ) IF (NDOFM > 0) THEN CALL PARTITION_SS_NTERM ( 'PG' , NTERM_PG , NDOFG, NSUB , SYM_PG , I_PG , J_PG , PART_VEC_G_NM, PART_VEC_SUB, & - NUM2, NUM1, PM_ROW_MAX_TERMS, 'PM', NTERM_PM, SYM_PM ) + NUM2, NUM1, PM_ROW_MAX_TERMS, 'PM', NTERM_PM, SYM_PM ) CALL ALLOCATE_SPARSE_MAT ( 'PM', NDOFM, NTERM_PM, SUBR_NAME ) @@ -159,7 +159,7 @@ SUBROUTINE REDUCE_PG_TO_PN ( PART_VEC_G_NM, PART_VEC_SUB ) NTERM_PN = NTERM_CRS2 ! Reallocate KAA to be size of CRS2 WRITE(SC1, * ) ' Reallocate PN ' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PN ', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'PN' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate PN ', CR13 @@ -171,11 +171,11 @@ SUBROUTINE REDUCE_PG_TO_PN ( PART_VEC_G_NM, PART_VEC_SUB ) DO J=1,NTERM_PN J_PN(J) = J_CRS2(J) PN(J) = CRS2(J) - ENDDO + ENDDO CALL DEALLOCATE_SCR_MAT ( 'CRS2' ) ! Deallocate CRS2 and GMNt WRITE(SC1, * ) ' DEALLOCATE SOME ARRAYS' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate GMNt', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'GMNt' ) @@ -189,8 +189,8 @@ SUBROUTINE REDUCE_PG_TO_PN ( PART_VEC_G_NM, PART_VEC_SUB ) CALL SPARSE_CRS_TO_FULL ( 'PN', NTERM_PN, NDOFN, NSUB, SYM_PN, I_PN, J_PN, PN, PN_FULL ) ENDIF - IF (NTERM_PM > 0) THEN ! Calc GMN(t)*PM and add to partitioned PN to get reduced PN - + IF (NTERM_PM > 0) THEN ! Calc GMN(t)*PM and add to partitioned PN to get reduced PN + CALL ALLOCATE_FULL_MAT ( 'PM_FULL', NDOFM, NSUB, SUBR_NAME ) CALL SPARSE_CRS_TO_FULL ( 'PM', NTERM_PM, NDOFM, NSUB, SYM_PM, I_PM, J_PM, PM, PM_FULL ) @@ -216,13 +216,13 @@ SUBROUTINE REDUCE_PG_TO_PN ( PART_VEC_G_NM, PART_VEC_SUB ) CALL DEALLOCATE_FULL_MAT ( 'DUM1' ) CALL DEALLOCATE_FULL_MAT ( 'DUM2' ) - ENDIF + ENDIF CALL CNT_NONZ_IN_FULL_MAT ( 'PN_FULL ', PN_FULL, NDOFN, NSUB, SYM_PN, NTERM_PN, SMALL ) WRITE(SC1, * ) ' Reallocate PN' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PN', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'PN' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate PN', CR13 @@ -230,7 +230,7 @@ SUBROUTINE REDUCE_PG_TO_PN ( PART_VEC_G_NM, PART_VEC_SUB ) IF (NTERM_PN > 0) THEN ! Create new sparse arrays from PN_FULL !xx CALL FULL_TO_SPARSE_CRS ( 'PN_FULL ', NDOFN, NSUB , PN_FULL, NTERM_PN, SYM_PN, I_PN, J_PN, PN ) - CALL DEALLOCATE_FULL_MAT ( 'PN_FULL' ) + CALL DEALLOCATE_FULL_MAT ( 'PN_FULL' ) ENDIF ELSE @@ -254,6 +254,6 @@ SUBROUTINE REDUCE_PG_TO_PN ( PART_VEC_G_NM, PART_VEC_SUB ) 12345 FORMAT(A,10X,A) ! ********************************************************************************************************************************** - + END SUBROUTINE REDUCE_PG_TO_PN diff --git a/Source/LK2/REDUCE_PN_TO_PF.f90 b/Source/LK2/REDUCE_PN_TO_PF.f90 index 7f28e715..4c00412a 100644 --- a/Source/LK2/REDUCE_PN_TO_PF.f90 +++ b/Source/LK2/REDUCE_PN_TO_PF.f90 @@ -1,69 +1,69 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) - + ! Call routines to reduce the PN grid point load matrix from the N-set to the F, S-sets. See Appendix B to the MYSTRAN User's ! Reference Manual for the derivation of the reduction equations. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L2D, LINK2D, L2D_MSG, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFN, NDOFF, NDOFS, NDOFSE, NSUB, NTERM_KFSe, NTERM_PN, & NTERM_PF, NTERM_PFYS, NTERM_PS USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC - USE CONSTANTS_1, ONLY : ONE + USE CONSTANTS_1, ONLY : ONE USE PARAMS, ONLY : MATSPARS USE SPARSE_MATRICES, ONLY : I_KFSe, J_KFSe, KFSe, I_PN, J_PN, PN, I_PF, J_PF, PF, I_PS, J_PS, PS, I_PF_TMP, J_PF_TMP, & PF_TMP, I_PFYS, J_PFYS, PFYS, I_PFYS1, J_PFYS1, PFYS1, I_QSYS, J_QSYS, QSYS USE SPARSE_MATRICES, ONLY : SYM_KFSe, SYM_PN, SYM_PF, SYM_PFYS, SYM_PF_TMP, SYM_PS - USE COL_VECS, ONLY : YSe + USE COL_VECS, ONLY : YSe USE FULL_MATRICES, ONLY : KFSe_FULL, PF_FULL, PFYS_FULL, DUM1 USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE SCRATCH_MATRICES - + USE REDUCE_PN_TO_PF_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'REDUCE_PN_TO_PF' - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not CHARACTER( 8*BYTE) :: CLOSE_STAT ! Char constant for the CLOSE status of a file - CHARACTER(132*BYTE) :: MATRIX_NAME ! Name of matrix for printout - - INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN)! Partitioning vector (F set into A and O sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) + CHARACTER(132*BYTE) :: MATRIX_NAME ! Name of matrix for printout + + INTEGER(LONG), INTENT(IN) :: PART_VEC_N_FS(NDOFN)! Partitioning vector (F set into A and O sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_SUB(NSUB) ! Partitioning vector (1's for all subcases) INTEGER(LONG) :: AROW_MAX_TERMS ! Output from MATMULT_SFS_NTERM and input to MATMULT_SFS INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG), PARAMETER :: ITRNSPB = 0 ! Transpose indicator for matrix multiply routine INTEGER(LONG) :: K ! Counter or DO loop index INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices - INTEGER(LONG), PARAMETER :: NUM_YS_COLS = 1 ! Variable for number of cols in array YSe + INTEGER(LONG), PARAMETER :: NUM_YS_COLS = 1 ! Variable for number of cols in array YSe INTEGER(LONG) :: NTERM_PF_TMP = 0 ! No. of terms in matrix PF_TMP INTEGER(LONG) :: NTERM_PFYS1 = 0 ! No. of terms in matrix PFYS1 INTEGER(LONG) :: PF_ROW_MAX_TERMS ! Output from subr PARTITION_SIZE (max terms in any row of matrix) @@ -83,7 +83,7 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) IF (NDOFF > 0) THEN CALL PARTITION_SS_NTERM ( 'PN' , NTERM_PN , NDOFN, NSUB , SYM_PN , I_PN , J_PN , PART_VEC_N_FS, PART_VEC_SUB, & - NUM1, NUM1, PF_ROW_MAX_TERMS, 'PF', NTERM_PF, SYM_PF ) + NUM1, NUM1, PF_ROW_MAX_TERMS, 'PF', NTERM_PF, SYM_PF ) CALL ALLOCATE_SPARSE_MAT ( 'PF', NDOFF, NTERM_PF, SUBR_NAME ) @@ -93,13 +93,13 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) ENDIF ENDIF - + ! Partition PS from PN IF (NDOFS > 0) THEN CALL PARTITION_SS_NTERM ( 'PN' , NTERM_PN , NDOFN, NSUB , SYM_PN , I_PN , J_PN , PART_VEC_N_FS, PART_VEC_SUB, & - NUM2, NUM1, PS_ROW_MAX_TERMS, 'PS', NTERM_PS, SYM_PS ) + NUM2, NUM1, PS_ROW_MAX_TERMS, 'PS', NTERM_PS, SYM_PS ) CALL ALLOCATE_SPARSE_MAT ( 'PS', NDOFS, NTERM_PS, SUBR_NAME ) @@ -112,7 +112,7 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) ! Deallocate PN -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PN ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'PN' ) ! Reduce PN to PF = PF(bar) - PFYS where PF(bar) was original F-set partition from PN. If there are no enforced displs then @@ -124,7 +124,7 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) ! (3) Calc reduced PF from PF(bar) and PFYS. This step is done 1 of 2 ways: ! (a) If there are applied loads on the F-set DOF's (i.e. if NTERM_PF > 0), then we calc PF = PF(bar) - PFYS ! (b) If there are no applied loads on the F-set DOF's (i.e. if NTERM_PF = 0), then we calc PF = -PFYS - + ! If PARAM MATSPARS = 'Y', then we use sparse matrix operations (multiply/add/transpose). If not, use full matrix operations IF (MATSPARS == 'Y') THEN @@ -133,7 +133,7 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) ! Step (1), calc PFYS1 = KFSe * YSe CALL MATMULT_SFS_NTERM ( 'KFSe', NDOFF, NTERM_KFSe, SYM_KFSe, I_KFSe, J_KFSe & ,'YSe', NDOFSE, NUM_YS_COLS, YSe, AROW_MAX_TERMS, 'PFYS1', NTERM_PFYS1 ) - + CALL ALLOCATE_SPARSE_MAT ( 'PFYS1', NDOFF, NTERM_PFYS1, SUBR_NAME ) CALL MATMULT_SFS ( 'KFSe', NDOFF, NTERM_KFSe, SYM_KFSe, I_KFSe, J_KFSe, KFSe & @@ -155,10 +155,10 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) K = K + 1 J_PFYS(K) = J_PFYS1(I) + (J-1) PFYS(K) = PFYS1(I) - ENDDO + ENDDO ENDDO - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PFYS1', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'PFYS1' ) @@ -172,7 +172,7 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) DO I=1,NDOFF+1 ! PF_TMP = PF(bar) so we can use MATADD to get PF = PF_TMP - PFYS I_PF_TMP(I) = I_PF(I) - ENDDO + ENDDO NTERM_PF_TMP = NTERM_PF DO K=1,NTERM_PF_TMP J_PF_TMP(K) = J_PF(K) @@ -181,9 +181,9 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) ! Recalc NTERM_PF for new PF = PF_TMP + PFYS CALL MATADD_SSS_NTERM ( NDOFF, 'PF-bar', NTERM_PF_TMP, I_PF_TMP, J_PF_TMP, SYM_PF_TMP, & 'KFse*YSe', NTERM_PFYS , I_PFYS , J_PFYS , SYM_PFYS , 'PFYS', NTERM_PF ) - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1, * ) ' Reallocate PF ' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PF ', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'PF' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate PF ', CR13 @@ -191,9 +191,9 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) CALL MATADD_SSS ( NDOFF, 'PF-bar', NTERM_PF_TMP, I_PF_TMP, J_PF_TMP, PF_TMP, ALPHA, & 'KFse*YSe' , NTERM_PFYS , I_PFYS , J_PFYS , PFYS , BETA ,'PF', NTERM_PF, I_PF, J_PF, PF) - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PF_TMP', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'PF_TMP' ) - + ENDIF ELSE ! Step (3b), NTERM_PF = 0 so reduced PF = PF(bar) @@ -202,7 +202,7 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) NTERM_PF = NTERM_PFYS*NSUB WRITE(SC1, * ) ' Reallocate PF ' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PF ', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'PF' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate PF ', CR13 @@ -217,7 +217,7 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) K = K + 1 J_PF(K) = J_PFYS(I) PF(K) = -PFYS(I) - ENDDO + ENDDO ENDDO @@ -233,10 +233,10 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) ENDIF - ENDIF + ENDIF WRITE(SC1, * ) ' DEALLOCATE SOME ARRAYS' - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PFYS', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'PFYS' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KFSe', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KFSe' ) @@ -256,8 +256,8 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) DO I=1,NDOFSE DO J=1,NSUB DUM1(I,J) = YSe(I) - ENDDO - ENDDO + ENDDO + ENDDO CALL ALLOCATE_FULL_MAT ( 'KFSe_FULL', NDOFF, NDOFSE, SUBR_NAME ) CALL ALLOCATE_FULL_MAT ( 'PFYS_FULL', NDOFF, NSUB, SUBR_NAME ) CALL MATMULT_FFF (KFSe_FULL, DUM1, NDOFF, NDOFSE, NSUB, PFYS_FULL ) @@ -272,15 +272,15 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) DO I=1,NDOFF DO J=1,NSUB DUM1(I,J) = PF_FULL(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ALPHA = ONE BETA = -ONE CALL MATADD_FFF ( DUM1, PFYS_FULL, NDOFF, NSUB, ALPHA, BETA, ITRNSPB, PF_FULL) CALL DEALLOCATE_FULL_MAT ( 'DUM1' ) - + ENDIF ELSE ! Step (3b), NTERM_PF = 0 so reduced PF = PF(bar) @@ -290,12 +290,12 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) DO I=1,NDOFF DO J=1,NSUB PF_FULL(I,J) = -PFYS_FULL(I,J) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF - ENDIF + ENDIF CALL DEALLOCATE_FULL_MAT ( 'PFYS_FULL' ) CALL DEALLOCATE_FULL_MAT ( 'KFSe_FULL' ) @@ -304,7 +304,7 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) IF (NTERM_PF > 0) THEN ! Create new sparse arrays from PF_FULL !xx CALL FULL_TO_SPARSE_CRS ( 'PF_FULL ', NDOFF, NSUB , PF_FULL, NTERM_PF, SYM_PF, I_PF, J_PF, PF ) - CALL DEALLOCATE_FULL_MAT ( 'PF_FULL' ) + CALL DEALLOCATE_FULL_MAT ( 'PF_FULL' ) ENDIF ELSE @@ -317,7 +317,7 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) ENDIF ! Write PS to L2D for constraint force recovery in LINK9. - + IF (NTERM_PS > 0) THEN CLOSE_IT = 'Y' CLOSE_STAT = 'KEEP' @@ -336,6 +336,6 @@ SUBROUTINE REDUCE_PN_TO_PF ( PART_VEC_N_FS, PART_VEC_SUB ) 12345 FORMAT(A,10X,A) ! ********************************************************************************************************************************** - + END SUBROUTINE REDUCE_PN_TO_PF diff --git a/Source/LK2/SOLVE_GMN.f90 b/Source/LK2/SOLVE_GMN.f90 index 8a7ee6e1..89bcf182 100644 --- a/Source/LK2/SOLVE_GMN.f90 +++ b/Source/LK2/SOLVE_GMN.f90 @@ -1,58 +1,58 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE SOLVE_GMN ( PART_VEC_G_NM, PART_VEC_M ) - + ! Solves the sustem of equations: RMM*GMN = -RMN for matrix GMN which is used in the reduction of the G set stiffness, mass and ! load matrices from the G-set to the N, M_sets. If RMM is diagonal, a simple algorithm is used. If it is not, routines ! are called to do the decomp of RMM and the forward-backward substitution (FBS) to obtain GMN - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SCR, L2A, LINK2A, L2A_MSG, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, NDOFM, NTERM_RMG, NTERM_RMN, NTERM_RMM, NTERM_GMN USE PARAMS, ONLY : EPSIL, PRTRMG, PRTGMN, SOLLIB, SPARSE_FLAVOR, SUPINFO USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ONE - USE SPARSE_MATRICES, ONLY : I_RMG, J_RMG, RMG, I_RMN, J_RMN, RMN, I_RMM, J_RMM, RMM, I_GMN, J_GMN, GMN + USE SPARSE_MATRICES, ONLY : I_RMG, J_RMG, RMG, I_RMN, J_RMN, RMN, I_RMM, J_RMM, RMM, I_GMN, J_GMN, GMN USE SPARSE_MATRICES, ONLY : SYM_RMG, SYM_RMN, SYM_RMM USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE SOLVE_GMN_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SOLVE_GMN' - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not CHARACTER( 8*BYTE) :: CLOSE_STAT ! Char constant for the CLOSE status of a file CHARACTER( 1*BYTE) :: RMM_DIAG ! 'Y' if matrix RMM is diagonal. CHARACTER( 1*BYTE) :: RMM_IDENTITY ! 'Y' if matrix RMM is an identity matrix. - - INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) - INTEGER(LONG), INTENT(IN) :: PART_VEC_M(NDOFM) ! Partitioning vector (1's for all M set DOF's) + + INTEGER(LONG), INTENT(IN) :: PART_VEC_G_NM(NDOFG)! Partitioning vector (G set into N and M sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_M(NDOFM) ! Partitioning vector (1's for all M set DOF's) INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG), PARAMETER :: NUM1 = 1 ! Used in subr's that partition matrices INTEGER(LONG), PARAMETER :: NUM2 = 2 ! Used in subr's that partition matrices @@ -62,7 +62,7 @@ SUBROUTINE SOLVE_GMN ( PART_VEC_G_NM, PART_VEC_M ) REAL(DOUBLE) :: EPS1 ! A small number to compare real zero - + INTRINSIC :: DABS @@ -86,7 +86,7 @@ SUBROUTINE SOLVE_GMN ( PART_VEC_G_NM, PART_VEC_M ) IF (NTERM_RMN > 0) THEN CALL ALLOCATE_SPARSE_MAT ( 'RMN', NDOFM, NTERM_RMN, SUBR_NAME ) CALL PARTITION_SS ( 'RMG', NTERM_RMG, NDOFM, NDOFG, SYM_RMG, I_RMG, J_RMG, RMG, PART_VEC_M, PART_VEC_G_NM, & - NUM1, NUM1, RMN_ROW_MAX_TERMS, 'RMN', NTERM_RMN, NDOFM, SYM_RMN, I_RMN, J_RMN, RMN ) + NUM1, NUM1, RMN_ROW_MAX_TERMS, 'RMN', NTERM_RMN, NDOFM, SYM_RMN, I_RMN, J_RMN, RMN ) ELSE WRITE(ERR,2201) NTERM_RMN WRITE(F06,2201) NTERM_RMN @@ -97,14 +97,14 @@ SUBROUTINE SOLVE_GMN ( PART_VEC_G_NM, PART_VEC_M ) ! Partition RMM from RMG. If no terms in RMM, write error and quit CALL PARTITION_SS_NTERM ( 'RMG', NTERM_RMG, NDOFM, NDOFG, SYM_RMG, I_RMG, J_RMG , PART_VEC_M, PART_VEC_G_NM, & - NUM1, NUM2, RMM_ROW_MAX_TERMS, 'RMM', NTERM_RMM, SYM_RMM ) + NUM1, NUM2, RMM_ROW_MAX_TERMS, 'RMM', NTERM_RMM, SYM_RMM ) IF (NTERM_RMM > 0) THEN CALL ALLOCATE_SPARSE_MAT ( 'RMM', NDOFM, NTERM_RMM, SUBR_NAME ) CALL PARTITION_SS ( 'RMG', NTERM_RMG, NDOFM, NDOFG, SYM_RMG, I_RMG, J_RMG, RMG, PART_VEC_M, PART_VEC_G_NM, & NUM1, NUM2, RMM_ROW_MAX_TERMS, 'RMM', NTERM_RMM, NDOFM, SYM_RMM, I_RMM, J_RMM, RMM ) ELSE - WRITE(ERR,2202) SUBR_NAME,NTERM_RMM + WRITE(ERR,2202) SUBR_NAME,NTERM_RMM WRITE(F06,2202) SUBR_NAME,NTERM_RMM FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) @@ -126,21 +126,21 @@ SUBROUTINE SOLVE_GMN ( PART_VEC_G_NM, PART_VEC_M ) RMM_DIAG = 'Y' ! Find out if RMM is a diagonal or identity matrix RMM_IDENTITY = 'Y' IF (NTERM_RMM == NDOFM) THEN ! There are as many terms in RMM as rows so maybe diag or identity - DO I=1,NDOFM + DO I=1,NDOFM IF (J_RMM(I) /= I) THEN ! The i-th term in RMM is not a diagonal term RMM_DIAG = 'N' RMM_IDENTITY = 'N' EXIT ENDIF - ENDDO + ENDDO IF (RMM_DIAG == 'Y') THEN ! If RMM is diagonal, check for 1.0 on diagonal (identity matrix) DO I=1,NDOFM IF (DABS(RMM(I) - ONE) > EPS1) THEN RMM_IDENTITY = 'N' ENDIF - ENDDO + ENDDO ENDIF - ELSE ! RMM is not identity or diagonal + ELSE ! RMM is not identity or diagonal RMM_DIAG = 'N' RMM_IDENTITY = 'N' ENDIF @@ -148,9 +148,9 @@ SUBROUTINE SOLVE_GMN ( PART_VEC_G_NM, PART_VEC_M ) IF ((RMM_DIAG == 'Y') .AND. (DEBUG(20) /= 1)) THEN ! We can do simple inverse of diagonal matrix RMM - WRITE(ERR,2293) + WRITE(ERR,2293) IF (SUPINFO == 'N') THEN - WRITE(F06,2293) + WRITE(F06,2293) ENDIF NTERM_GMN = NTERM_RMN @@ -159,7 +159,7 @@ SUBROUTINE SOLVE_GMN ( PART_VEC_G_NM, PART_VEC_M ) DO I=1,NDOFM+1 I_GMN(I) = I_RMN(I) - ENDDO + ENDDO K = 0 DO I=1,NDOFM RMN_ROW_I_NTERMS = I_RMN(I+1) - I_RMN(I) @@ -169,7 +169,7 @@ SUBROUTINE SOLVE_GMN ( PART_VEC_G_NM, PART_VEC_M ) IF (RMM_IDENTITY == 'Y') THEN GMN(K) = -RMN(K) ELSE - IF (DABS(RMM(I)) > EPS1) THEN + IF (DABS(RMM(I)) > EPS1) THEN J_GMN(K) = J_RMN(K) GMN(K) = -RMN(K)/RMM(I) ELSE @@ -179,7 +179,7 @@ SUBROUTINE SOLVE_GMN ( PART_VEC_G_NM, PART_VEC_M ) CALL OUTA_HERE ( 'Y' ) ENDIF ENDIF - ENDDO + ENDDO ENDDO ELSE ! Either RMM is not diagonal or DEBUG(20) =1 so we will do full sol'n @@ -189,7 +189,7 @@ SUBROUTINE SOLVE_GMN ( PART_VEC_G_NM, PART_VEC_M ) IF (SUPINFO == 'N') THEN WRITE(F06,2294) ENDIF - ENDIF + ENDIF CALL SOLVE_GMN_SOLVER ENDIF @@ -222,7 +222,7 @@ SUBROUTINE SOLVE_GMN ( PART_VEC_G_NM, PART_VEC_M ) ! Deallocate partitions of RMG: RMN, RMM. Keep GMN, it is needed in the reduction of KGG, MGG and PG WRITE(SC1, * ) ' DEALLOCATE SOME ARRAYS' -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate RMN', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'RMN' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate RMM', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'RMM' ) @@ -257,15 +257,15 @@ SUBROUTINE SOLVE_GMN ( PART_VEC_G_NM, PART_VEC_M ) 12345 FORMAT(A,10X) ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## - + SUBROUTINE SOLVE_GMN_SOLVER -! Solves RMM x GMN = -RMN for matrix GMN using unsymmetric decomp from LAPACK - +! Solves RMM x GMN = -RMN for matrix GMN using unsymmetric decomp from LAPACK + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONE USE IOUNT1, ONLY : FILE_NAM_MAXLEN, WRT_ERR, ERR, F06 @@ -277,25 +277,25 @@ SUBROUTINE SOLVE_GMN_SOLVER USE FULL_MATRICES, ONLY : RMM_FULL USE LAPACK_LIN_EQN_DGE USE SuperLU_STUF, ONLY : SLU_FACTORS, SLU_INFO - + ! Interface module not needed for subr's DGETRF and DGETRS. These are "CONTAIN'ed" in module LAPACK_LIN_EQN_DPB, which ! is "USE'd" above IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SOLVE_GMN_SOLVER' CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: CALLED_SUBR = ' ' ! Name of a called subr (for output error purposes) - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not CHARACTER( 8*BYTE) :: CLOSE_STAT ! What to do with file when it is closed - CHARACTER(24*BYTE) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN + CHARACTER(24*BYTE) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN CHARACTER(44*BYTE) :: MODNAM ! Name to write to screen to describe module being run CHARACTER(24*BYTE) :: MODNAM1 ! Name to write to screen to describe module being run - CHARACTER( 1*BYTE) :: READ_NTERM ! 'Y' or 'N' Input to subr READ_MATRIX_1 - CHARACTER( 1*BYTE) :: NULL_COL ! 'Y' if a col of RMN is null - CHARACTER( 1*BYTE) :: OPND ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not + CHARACTER( 1*BYTE) :: READ_NTERM ! 'Y' or 'N' Input to subr READ_MATRIX_1 + CHARACTER( 1*BYTE) :: NULL_COL ! 'Y' if a col of RMN is null + CHARACTER( 1*BYTE) :: OPND ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not CHARACTER(FILE_NAM_MAXLEN*BYTE) :: SCRFIL ! File name - CHARACTER( 1*BYTE) :: TRANS ! 'Y' if - + CHARACTER( 1*BYTE) :: TRANS ! 'Y' if + INTEGER(LONG) :: COMPV ! Component number (1-6) of a grid DOF INTEGER(LONG) :: GRIDV ! Grid number INTEGER(LONG) :: I,J,K ! DO loop indices or counters @@ -303,7 +303,7 @@ SUBROUTINE SOLVE_GMN_SOLVER INTEGER(LONG) :: IPIV(NDOFM) ! Pivot indices from factorization of RMM INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening a file INTEGER(LONG) :: NRHS ! No. of RHS's in solving (RMM)*(GMN) = -RMN - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN REAL(DOUBLE) :: BETA ! Multiple for rhs for use in subr FBS @@ -320,12 +320,12 @@ SUBROUTINE SOLVE_GMN_SOLVER EPS1 = EPSIL(1) ! Make units for writing errors the error file and output file - + OUNT(1) = ERR OUNT(2) = F06 - + IF (SOLLIB == 'BANDED ') THEN - ! Create full matrix RMM_FULL from sparse RMM + ! Create full matrix RMM_FULL from sparse RMM CALL ALLOCATE_FULL_MAT ( 'RMM_FULL', NDOFM, NDOFM, SUBR_NAME ) CALL SPARSE_CRS_TO_FULL ( 'RMM ', NTERM_RMM, NDOFM, NDOFM, SYM_RMM, I_RMM, J_RMM, RMM, RMM_FULL ) @@ -336,7 +336,7 @@ SUBROUTINE SOLVE_GMN_SOLVER WRITE(SC1,2092) MODNAM,HOUR,MINUTE,SEC,SFRAC CALL DGETRF (NDOFM, NDOFM, RMM_FULL, NDOFM, IPIV, INFO ) - CALLED_SUBR = 'DGETRF' + CALLED_SUBR = 'DGETRF' IF (INFO < 0) THEN ! LAPACK subr XERBLA should have reported error on an illegal argument ! in a called LAPACK subr, so we should not have gotten here WRITE(ERR,993) SUBR_NAME, CALLED_SUBR @@ -401,9 +401,9 @@ SUBROUTINE SOLVE_GMN_SOLVER CALL OUTA_HERE ( 'Y' ) ! Can't open scratch file, so quit ENDIF REWIND (SCR(1)) - + ! Loop on columns of RMN - + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages NTERM_GMN = 0 @@ -412,7 +412,7 @@ SUBROUTINE SOLVE_GMN_SOLVER !CALL OURTIM !MODNAM1 = ' Solve for GMN col ' - + ! Set RMN_COL to the negative of i-th col of array RMN. First, initialize RMN_COL to zero @@ -422,13 +422,13 @@ SUBROUTINE SOLVE_GMN_SOLVER DO I=1,NDOFM RMN_COL(I) = ZERO gmn_col(i) = zero - ENDDO - + ENDDO + BETA = -ONE CALL GET_SPARSE_CRS_COL ( 'RMN ',J, NTERM_RMN, NDOFM, NDOFN, I_RMN, J_RMN, RMN, BETA, RMN_COL, NULL_COL ) ! Calculate GMN_COL via forward/backward substitution. Remember that rhs is -RMN. - + IF (NULL_COL == 'N') THEN ! DGETRS will solve for GMN_COL & load it into GMN array IF (SOLLIB == 'BANDED ') THEN @@ -436,7 +436,7 @@ SUBROUTINE SOLVE_GMN_SOLVER NRHS = 1 CALL DGETRS ( TRANS, NDOFM, NRHS ,RMM_FULL, NDOFM, IPIV, RMN_COL, NDOFM, INFO ) - CALLED_SUBR = 'DGETRS' + CALLED_SUBR = 'DGETRS' IF (INFO < 0) THEN ! LAPACK subr XERBLA should have reported error on an illegal argument ! in calling a LAPACK subr, so we should not have gotten here WRITE(ERR,993) SUBR_NAME, CALLED_SUBR @@ -508,7 +508,7 @@ SUBROUTINE SOLVE_GMN_SOLVER ENDIF ENDIF FreeS - + ! The GMN data in SCRATCH-991 is written 1 col at a time. We need it to be written for 1 row at a time with rows in numerical order CALL ALLOCATE_L2_GMN_2 ( SUBR_NAME ) @@ -532,7 +532,7 @@ SUBROUTINE SOLVE_GMN_SOLVER CALL DEALLOCATE_L2_GMN_2 WRITE(SC1, * ) ' Reallocate GMN' -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate GMN', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'GMN' ) WRITE(SC1,12345,ADVANCE='NO') ' Allocate GMN', CR13 ; CALL ALLOCATE_SPARSE_MAT ('GMN', NDOFM, NTERM_GMN, SUBR_NAME) @@ -544,7 +544,7 @@ SUBROUTINE SOLVE_GMN_SOLVER CLOSE_STAT = 'DELETE ' CALL READ_MATRIX_1 ( SCRFIL, SCR(1), OPND, CLOSE_IT, CLOSE_STAT, MESSAG, 'GMN', NTERM_GMN, READ_NTERM, NDOFM, & I_GMN, J_GMN, GMN) - + CALL FILE_CLOSE ( SCR(1), SCRFIL, 'DELETE' ) @@ -575,7 +575,7 @@ SUBROUTINE SOLVE_GMN_SOLVER ,/,15X,A,' (OR A SUBR CALLED BY IT) AND THEN ABORTED') ! ********************************************************************************************************************************** - - END SUBROUTINE SOLVE_GMN_SOLVER - + + END SUBROUTINE SOLVE_GMN_SOLVER + END SUBROUTINE SOLVE_GMN diff --git a/Source/LK2/SOLVE_GOA.f90 b/Source/LK2/SOLVE_GOA.f90 index 13441ff4..aac1665d 100644 --- a/Source/LK2/SOLVE_GOA.f90 +++ b/Source/LK2/SOLVE_GOA.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - +! End MIT license text. + + SUBROUTINE SOLVE_GOA ! Solves the sustem of equations: KOO*GOA = -KAO' for matrix GOA which is used in the reduction of the F set stiffness, mass and ! load matrices from the F-set to the A, O_sets - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : FILE_NAM_MAXLEN, ERR, F06, SCR USE SCONTR, ONLY : BLNK_SUB_NAM, FACTORED_MATRIX, FATAL_ERR, KOO_SDIA, NDOFA, NDOFO, NTERM_GOA, NTERM_KOO, & @@ -50,19 +50,19 @@ SUBROUTINE SOLVE_GOA CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SOLVE_GOA' - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not CHARACTER( 8*BYTE) :: CLOSE_STAT ! What to do with file when it is closed - CHARACTER( 24*BYTE) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN + CHARACTER( 24*BYTE) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN CHARACTER( 22*BYTE) :: MODNAM1 ! Name to write to screen to describe module being run - CHARACTER( 1*BYTE) :: READ_NTERM ! 'Y' or 'N' Input to subr READ_MATRIX_1 - CHARACTER( 1*BYTE) :: NULL_COL ! 'Y' if a col of KAO(transpose) is null - CHARACTER( 1*BYTE) :: OPND ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not + CHARACTER( 1*BYTE) :: READ_NTERM ! 'Y' or 'N' Input to subr READ_MATRIX_1 + CHARACTER( 1*BYTE) :: NULL_COL ! 'Y' if a col of KAO(transpose) is null + CHARACTER( 1*BYTE) :: OPND ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not CHARACTER(FILE_NAM_MAXLEN*BYTE) :: SCRFIL ! File name - + INTEGER(LONG) :: I,J,K ! DO loop indices or counters INTEGER(LONG) :: INFO ! Info on success of factorization or solve INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening a file - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN REAL(DOUBLE) :: EPS1 ! A small number to compare real zero @@ -70,17 +70,17 @@ SUBROUTINE SOLVE_GOA REAL(DOUBLE) :: INOUT_COL(NDOFO) ! A column of KAO' REAL(DOUBLE) :: KOO_SCALE_FACS(NDOFO) ! KOO scale facs. KOO will not be equilibrated so these are set to 1.0 - + INTRINSIC :: DABS ! ********************************************************************************************************************************** ! Make units for writing errors the screen and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! Make sure that ABAND (KOO triangular factor) was successfully generated when SYM_MAT_DECOMP_LAPACK was run. IF (SOLLIB == 'BANDED ') THEN @@ -110,9 +110,9 @@ SUBROUTINE SOLVE_GOA CALL FILE_CLOSE ( SCR(1), SCRFIL, 'DELETE' ) CALL OUTA_HERE ( 'Y' ) ! Can't open scratch file, so quit ENDIF - + ! Loop on columns of KAO(transpose) - + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages NTERM_GOA = 0 @@ -121,7 +121,7 @@ SUBROUTINE SOLVE_GOA DO I=1,NDOFO INOUT_COL(I) = ZERO ! Initialize INOUT_COL since GET_SPARSE_CRS_COL won't KOO_SCALE_FACS(I) = ONE ! Initialize these - ENDDO + ENDDO NULL_COL = 'Y' CALL GET_SPARSE_CRS_ROW ( 'KAO',J, NTERM_KAO, NDOFA, NDOFO, I_KAO, J_KAO, KAO, -ONE, INOUT_COL, NULL_COL ) @@ -136,7 +136,7 @@ SUBROUTINE SOLVE_GOA CALL FBS_LAPACK ( 'N', NDOFO, KOO_SDIA, KOO_SCALE_FACS, INOUT_COL ) ELSE IF (SOLLIB == 'SPARSE ') THEN - + IF (SPARSE_FLAVOR(1:7) == 'SUPERLU') THEN INFO = 0 @@ -169,16 +169,16 @@ SUBROUTINE SOLVE_GOA NTERM_GOA = NTERM_GOA + 1 WRITE(SCR(1)) I,J,GOA_COL(I) ENDIF - ENDDO + ENDDO ELSE DO I=1,NDOFO GOA_COL(I) = ZERO - ENDDO + ENDDO ENDIF - + ENDDO ! The GOA data in SCRATCH-991 is written one col at a time. We need it to be written for one row at a time with all @@ -198,12 +198,12 @@ SUBROUTINE SOLVE_GOA WRITE(SCR(1)) NTERM_GOA DO K=1,NTERM_GOA WRITE(SCR(1)) I2_GOA(K),J_GOA(K),GOA(K) - ENDDO + ENDDO ! Reallocate memory to GOA based on the NTERM_GOA counted above and read values from scratch file into GOA arrays WRITE(SC1, * ) ' Reallocate GOA' -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate GOA' , CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'GOA' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate L2_GOA_2', CR13 ; CALL DEALLOCATE_L2_GOA_2 WRITE(SC1,12345,ADVANCE='NO') ' Allocate GOA' , CR13 @@ -244,8 +244,8 @@ SUBROUTINE SOLVE_GOA 12345 FORMAT(A,10X,A) -22345 FORMAT(3X,A,I8,' of ',I8,A) +22345 FORMAT(3X,A,I8,' of ',I8,A) ! ********************************************************************************************************************************** - - END SUBROUTINE SOLVE_GOA + + END SUBROUTINE SOLVE_GOA diff --git a/Source/LK2/SOLVE_UO0.f90 b/Source/LK2/SOLVE_UO0.f90 index f12eaf10..2165bba2 100644 --- a/Source/LK2/SOLVE_UO0.f90 +++ b/Source/LK2/SOLVE_UO0.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SOLVE_UO0 -! Solves KOO*UO0 = PO for matrix UO0 - +! Solves KOO*UO0 = PO for matrix UO0 + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L2F, LINK2F, L2F_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, FACTORED_MATRIX, FATAL_ERR, KOO_SDIA, NDOFO, NSUB, NTERM_KOO, NTERM_PO @@ -37,21 +37,21 @@ SUBROUTINE SOLVE_UO0 USE SPARSE_MATRICES, ONLY : I_PO, J_PO, PO, I_KOO, J_KOO, KOO USE COL_VECS, ONLY : UO0_COL USE LAPACK_LIN_EQN_DPB - + ! Interface module not needed for subr DPBTRS. This is "CONTAIN'ed" in module LAPACK_LIN_EQN_DPB, which is "USE'd" above USE SOLVE_UO0_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SOLVE_UO0' - CHARACTER( 1*BYTE) :: NULL_COL ! 'Y' if a col of KAO(transpose) is null + CHARACTER( 1*BYTE) :: NULL_COL ! 'Y' if a col of KAO(transpose) is null CHARACTER(22*BYTE) :: MODNAM1 ! Name to write to screen to describe module being run - + INTEGER(LONG) :: I,J ! DO loop indices or counters INTEGER(LONG) :: INFO ! Info on success of SuperLU solve - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN REAL(DOUBLE) :: NULL_SCALE_FACS(NDOFO) @@ -62,10 +62,10 @@ SUBROUTINE SOLVE_UO0 ! ********************************************************************************************************************************** ! Make units for writing errors the screen and output file - + OUNT(1) = ERR OUNT(2) = F06 - + ! For SOLLIB = BANDED, Subr REDUCE_KFF_TO_KAA should have done the decomp of KOO, so here we run FBS over the columns of PO to get ! UO0. First make sure that ABAND (KOO triangular factor) was successfully generated when SOLVE_GOA was run. @@ -84,7 +84,7 @@ SUBROUTINE SOLVE_UO0 ! ********************************************************************************************************************************** ! Solve for UO0 by looping on columns of PO ("loads") to get columns of UO0 ("displs") - + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages CALL ALLOCATE_COL_VEC ( 'UO0_COL', NDOFO, SUBR_NAME ) @@ -93,7 +93,7 @@ SUBROUTINE SOLVE_UO0 DO I=1,NDOFO INOUT_COL(I) = ZERO ! Initialize INOUT_COL since GET_SPARSE_CRS_COL won't NULL_SCALE_FACS(I) = ZERO ! Initialize these (not used here snce KOO not equilibrated - ENDDO + ENDDO NULL_COL = 'Y' CALL GET_SPARSE_CRS_COL ( 'PO',J, NTERM_PO, NDOFO, NSUB, I_PO, J_PO, PO, ONE, INOUT_COL, NULL_COL ) @@ -141,7 +141,7 @@ SUBROUTINE SOLVE_UO0 DO I=1,NDOFO UO0_COL(I) = ZERO - ENDDO + ENDDO ENDIF @@ -149,7 +149,7 @@ SUBROUTINE SOLVE_UO0 DO I=1,NDOFO WRITE(L2F) UO0_COL(I) - ENDDO + ENDDO IF (PRTUO0 > 0) THEN WRITE(F06,201) J @@ -157,7 +157,7 @@ SUBROUTINE SOLVE_UO0 ENDIF ENDDO - + WRITE(SC1,*) CR13 CALL DEALLOCATE_COL_VEC ( 'UO0_COL' ) @@ -181,5 +181,5 @@ SUBROUTINE SOLVE_UO0 12345 FORMAT(3X,A,I8,' of ',I8,A) ! ********************************************************************************************************************************** - - END SUBROUTINE SOLVE_UO0 + + END SUBROUTINE SOLVE_UO0 diff --git a/Source/LK2/STIFF_MAT_EQUIL_CHK.f90 b/Source/LK2/STIFF_MAT_EQUIL_CHK.f90 index bab61975..a58f812d 100644 --- a/Source/LK2/STIFF_MAT_EQUIL_CHK.f90 +++ b/Source/LK2/STIFF_MAT_EQUIL_CHK.f90 @@ -1,30 +1,30 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE STIFF_MAT_EQUIL_CHK ( OUTPUT, X_SET, SYM_KIN, NROWS, NTERM_KIN, I_KIN, J_KIN, KIN, KIN_DIAG, KIN_MAX_DIAG, RBMAT ) +! End MIT license text. + + SUBROUTINE STIFF_MAT_EQUIL_CHK ( OUTPUT, X_SET, SYM_KIN, NROWS, NTERM_KIN, I_KIN, J_KIN, KIN, KIN_DIAG, KIN_MAX_DIAG, RBMAT ) ! Performs a stiffness matrix equilibrium check on input matrix KIN by calculating KIN*RBMAT = PRB where RBMAT is a rigid body ! displacement matrix (NROWS x 6). Each column of RBMAT represents a rigid body displacement for one of the 6 components of motion: @@ -59,8 +59,8 @@ SUBROUTINE STIFF_MAT_EQUIL_CHK ( OUTPUT, X_SET, SYM_KIN, NROWS, NTERM_KIN, I_KIN INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in KIN INTEGER(LONG), INTENT(IN) :: NTERM_KIN ! Number of nonzero terms in KIN - INTEGER(LONG), INTENT(IN) :: I_KIN(NROWS+1) ! Row start indices for KIN - INTEGER(LONG), INTENT(IN) :: J_KIN(NTERM_KIN) ! Col numbers of terms in KIN + INTEGER(LONG), INTENT(IN) :: I_KIN(NROWS+1) ! Row start indices for KIN + INTEGER(LONG), INTENT(IN) :: J_KIN(NTERM_KIN) ! Col numbers of terms in KIN INTEGER(LONG), INTENT(IN) :: OUTPUT ! =1, output PRB, =2 output RB_STRN_ENRGY, =3 output both INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: KIN_SDIA ! No. of superdiags in KIN upper triangle @@ -153,19 +153,19 @@ SUBROUTINE STIFF_MAT_EQUIL_CHK ( OUTPUT, X_SET, SYM_KIN, NROWS, NTERM_KIN, I_KIN ! Calculate grid forces due to rigid body motion IF (OUTPUT > 0) THEN - + IF (DEBUG(21) == 0) THEN ! Use MATMULT_SFF to mult KIN*RBMAT CALL MATMULT_SFF ( MAT_NAME, NROWS, NROWS, NTERM_KIN, SYM_KIN, I_KIN, J_KIN, KIN, 'RBMAT', NROWS, 6, RBMAT, 'Y', 'PRB',& ONE, PRB ) - + ELSE ! Use DSBMV to mult KIN*RBMAT - + WRITE(SC1,2191) MAT_NAME CALL BANDSIZ ( NROWS, NTERM_KIN, I_KIN, J_KIN, KIN_SDIA ) - + WRITE(SC1,2192) MAT_NAME CALL ALLOCATE_LAPACK_MAT ( 'ABAND', KIN_SDIA+1, NROWS, SUBR_NAME ) - + WRITE(SC1,2193) MAT_NAME CALL BANDGEN_LAPACK_DPB ( MAT_NAME, NROWS, KIN_SDIA, NTERM_KIN, I_KIN, J_KIN, KIN, ABAND, SUBR_NAME ) @@ -186,7 +186,7 @@ SUBROUTINE STIFF_MAT_EQUIL_CHK ( OUTPUT, X_SET, SYM_KIN, NROWS, NTERM_KIN, I_KIN ENDDO CALL DEALLOCATE_LAPACK_MAT ( 'ABAND' ) - + ENDIF CALL TDOF_COL_NUM ( 'SA', SA_SET_COL ) @@ -205,13 +205,13 @@ SUBROUTINE STIFF_MAT_EQUIL_CHK ( OUTPUT, X_SET, SYM_KIN, NROWS, NTERM_KIN, I_KIN ENDDO ENDIF ENDIF - + ! Write grid forces if requested IF ((OUTPUT == 1) .OR. (OUTPUT == 3)) THEN CALL WRITE_RB_MATS ( 'FORCE' ) ENDIF - + ! Output strain energy if requested IF ((OUTPUT == 2) .OR. (OUTPUT == 3)) THEN @@ -269,7 +269,7 @@ SUBROUTINE STIFF_MAT_EQUIL_CHK ( OUTPUT, X_SET, SYM_KIN, NROWS, NTERM_KIN, I_KIN 2107 FORMAT(33X,' STRAIN ENERGY DUE TO RBGLOGAL ',A,'-SET RIGID BODY DISPLACEMENTS',/, & 42X,'(max absolute value = ',1ES9.2,' at row',I2,', col',I2,')' & ,/,26X,'T1 T2 T3 R1 R2 R3',/) - + 2108 FORMAT(15X,A,1X,6(1ES15.6)) 2191 FORMAT(8X,'CALCULATE BANDWIDTH OF ',A,' MATRIX') @@ -281,9 +281,9 @@ SUBROUTINE STIFF_MAT_EQUIL_CHK ( OUTPUT, X_SET, SYM_KIN, NROWS, NTERM_KIN, I_KIN 2194 FORMAT(8X,'CALC FORCES DUE TO R.B. DISPLS FOR EACH OF THE 6 COLS OF RBGLOBAL') ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE WRITE_RB_MATS ( WHAT ) @@ -317,7 +317,7 @@ SUBROUTINE WRITE_RB_MATS ( WHAT ) CALL TDOF_COL_NUM ( X_SET, X_SET_COL ) IF (WHAT == 'DISPL') THEN - + IF (EQCHK_REF_GRID == 0) THEN WRITE(F06,2901) X_SET ELSE @@ -340,9 +340,9 @@ SUBROUTINE WRITE_RB_MATS ( WHAT ) ENDDO WRITE(F06,*) WRITE(F06,*) - + ELSE IF (WHAT == 'FORCE') THEN - + IF (EQCHK_NORM == 'N') THEN WRITE(F06,2911) X_SET, MAT_NAME, X_SET ELSE @@ -397,7 +397,7 @@ SUBROUTINE WRITE_RB_MATS ( WHAT ) ENDDO WRITE(F06,2905) WRITE(F06,2906) (MAX_AFORCE(J),J=1,6) - + IF (EQCHK_NORM == 'Y') THEN WRITE(F06,2907) KIN_MAX_DIAG ENDIF @@ -422,9 +422,9 @@ SUBROUTINE WRITE_RB_MATS ( WHAT ) ,/,26X,'T1 T2 T3 R1 R2 R3') 2903 FORMAT(1X,2I8,A1,6(1ES15.6)) - + 2904 FORMAT(1X,2I8,1X,6(1ES15.6)) - + 2905 FORMAT(20X,'------------- ------------- ------------- ------------- ------------- -------------') 2906 FORMAT(7X,'ABS MAX',4X,6(1ES15.6),/) diff --git a/Source/LK3/EPSCALC.f90 b/Source/LK3/EPSCALC.f90 index a37cd3c7..c0b4f5cc 100644 --- a/Source/LK3/EPSCALC.f90 +++ b/Source/LK3/EPSCALC.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE EPSCALC ( ISUB ) @@ -52,8 +52,8 @@ SUBROUTINE EPSCALC ( ISUB ) INTEGER(LONG), INTENT(IN) :: ISUB ! Internal subcase no. (1 to NSUB) - REAL(DOUBLE) , PARAMETER :: ALPHA = ONE ! Scalar multiplier for KLL in calc'ing residual vector, RES - REAL(DOUBLE) , PARAMETER :: BETA = -ONE ! Scalar multiplier for PL in calc'ing residual vector, RES + REAL(DOUBLE) , PARAMETER :: ALPHA = ONE ! Scalar multiplier for KLL in calc'ing residual vector, RES + REAL(DOUBLE) , PARAMETER :: BETA = -ONE ! Scalar multiplier for PL in calc'ing residual vector, RES REAL(DOUBLE) :: DEN ! Denominator in EPSILON calculation REAL(DOUBLE) :: EPSILON ! The indicator of numerical accuracy of the displ soln, UL REAL(DOUBLE) :: KU(NDOFL) ! Result of multiplying KLL and UL_COL @@ -103,4 +103,4 @@ SUBROUTINE EPSCALC ( ISUB ) ! ********************************************************************************************************************************** - END SUBROUTINE EPSCALC \ No newline at end of file + END SUBROUTINE EPSCALC diff --git a/Source/LK3/LINK3.f90 b/Source/LK3/LINK3.f90 index 7a3ba8e1..85904386 100644 --- a/Source/LK3/LINK3.f90 +++ b/Source/LK3/LINK3.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE LINK3 - + ! LINK 3 solves the equation KLL*UL = PL where KLL, UL, PL are the L-set stiffness matrix, displs and loads. It solves the equation ! using one of three methods. For each method the solution is obtained in a 2 step process: (1) the KLL matrix is decomposed into ! triangular factors and (2) UL is solved for by forward-backward substitution (FBS). The 3 methods are: ! a) The LAPACK freeware code. This code requires KLL to be in banded (NOT sparse) form. LAPACH has the advantage that -! MYSTRAN contains the LAPACK source code so debugging is easy. Its disadvantage is that banded matrices require much more +! MYSTRAN contains the LAPACK source code so debugging is easy. Its disadvantage is that banded matrices require much more ! memory than sparse storage for large stiffness matrices. USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -55,23 +55,23 @@ SUBROUTINE LINK3 ! USE LINK3_USE_IFs USE LINK_MESSAGE_Interface - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'LINK3' CHARACTER( 2*BYTE) :: L_SET = 'L ' ! L-set designator - CHARACTER( 1*BYTE) :: EQUED ! 'Y' if the stiff matrix was equilibrated in subr EQUILIBRATE - CHARACTER( 1*BYTE) :: NULL_COL ! 'Y' if a col of KAO(transpose) is null - + CHARACTER( 1*BYTE) :: EQUED ! 'Y' if the stiff matrix was equilibrated in subr EQUILIBRATE + CHARACTER( 1*BYTE) :: NULL_COL ! 'Y' if a col of KAO(transpose) is null + INTEGER(LONG) :: DEB_PRT(2) ! Debug numbers to say whether to write ABAND and/or its decomp to output ! file in called subr SYM_MAT_DECOMP_LAPACK (ABAND = band form of KLL) INTEGER(LONG) :: IER_DECOMP ! Overall error indicator - INTEGER(LONG) :: ISUB ! DO loop index for subcases + INTEGER(LONG) :: ISUB ! DO loop index for subcases INTEGER(LONG) :: INFO = 0 ! Info output from some routine that has been called - INTEGER(LONG) :: I,J ! DO loop indices - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: I,J ! DO loop indices + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG), PARAMETER :: P_LINKNO = 2 ! Prior LINK no's that should have run before this LINK can execute REAL(DOUBLE) :: BETA ! Multiple for rhs for use in subr FBS @@ -86,10 +86,10 @@ SUBROUTINE LINK3 REAL(DOUBLE) :: OMEGAI ! RES_INORM/DEN (similar to EPSILON) REAL(DOUBLE) :: OMEGAI0 ! Upper bound on OMEGAI. OMEGAI0 = 10*NDOFL*MACH_EPS REAL(DOUBLE) :: PL_INORM ! Inf norm of load vector - REAL(DOUBLE) :: RES_INORM ! Inf norm of residual vector R = K*UL - PL + REAL(DOUBLE) :: RES_INORM ! Inf norm of residual vector R = K*UL - PL REAL(DOUBLE) :: RCOND ! Recrip of cond no. of the KLL. Det in subr COND_NUM REAL(DOUBLE) :: UL_INORM ! Inf norm of displacement vector - + INTRINSIC :: DABS !*********************************************************************************************************************************** @@ -124,12 +124,12 @@ SUBROUTINE LINK3 OUNT(2) = F06 ! Write info to text files - + WRITE(F06,150) LINKNO WRITE(ERR,150) LINKNO ! Read LINK1A file - + CALL READ_L1A ( 'KEEP' ) ! Check COMM for successful completion of prior LINKs @@ -160,7 +160,7 @@ SUBROUTINE LINK3 DUM_COL(J) = ZERO ! (only because it appears in the calling list) ENDDO - IF ((RESTART == 'Y') .AND. (RELINK3 == 'Y')) THEN + IF ((RESTART == 'Y') .AND. (RELINK3 == 'Y')) THEN sol_do: DO WRITE(SC1,*) ' Input the value of SOLLIB (8 characters) to use in this restart:' READ (*,*) SOLLIB @@ -213,9 +213,9 @@ SUBROUTINE LINK3 CALL ALLOCATE_LAPACK_MAT ( 'RES', NDOFL, 1, SUBR_NAME ) ! Open file for writing displs to. - + CALL FILE_OPEN ( L3A, LINK3A, OUNT, 'REPLACE', L3A_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) - + ! Loop on subcases WRITE(F06,*) @@ -236,13 +236,13 @@ SUBROUTINE LINK3 DO J=1,NDOFL DUM_COL(J) = PL_COL(J) ENDDO - + IF (DEBUG(32) == 1) THEN ! DEBUG output of load vector for this subcase, if requested WRITE(F06,3020) ISUB CALL WRITE_VECTOR ( ' L-SET LOADS ',' LOAD', NDOFL, PL_COL ) WRITE(F06,*) ENDIF - + ! Call FBS to solve for displacements for this subcase CALL LINK_MESSAGE_I('FBS - SOLVE FOR RHS ANSWERS FOR "', ISUB) !xx WRITE(SC1, * ) ! Advance 1 line for screen messages @@ -285,19 +285,19 @@ SUBROUTINE LINK3 CALL WRITE_VECTOR ( ' A-SET DISPL ','DISPL', NDOFL, UL_COL ) WRITE(F06,*) ENDIF - + IF (EPSERR == 'Y') THEN ! Calculate residual vector, R. Use RES to calculate EPSILON CALL LINK_MESSAGE_I('CALC EPSILON ERROR ESTIMATE "', ISUB) CALL EPSCALC ( ISUB ) ENDIF ! Calculate the LAPACK error bounds - IF ((RCONDK == 'Y') .AND. (SOLLIB == 'BANDED')) THEN + IF ((RCONDK == 'Y') .AND. (SOLLIB == 'BANDED')) THEN IF (DABS(RCOND) > MACH_SFMIN) THEN CALL LINK_MESSAGE_I('CALC LAPACK ERROR ESTIMATE "', ISUB) CALL VECINORM ( UL_COL, NDOFL, UL_INORM ) CALL VECINORM ( PL_COL, NDOFL, PL_INORM ) CALL VECINORM ( RES , NDOFL, RES_INORM ) - DEN = K_INORM*UL_INORM + PL_INORM + DEN = K_INORM*UL_INORM + PL_INORM IF (DABS(DEN) > EPS1) THEN OMEGAI = (RES_INORM)/(DEN) OMEGAI0 = TEN*NDOFL*MACH_EPS @@ -309,9 +309,9 @@ SUBROUTINE LINK3 ELSE WARN_ERR = WARN_ERR + 1 WRITE(ERR,3025) ISUB, RCOND, MACH_SFMIN - IF (SUPWARN == 'N') THEN + IF (SUPWARN == 'N') THEN WRITE(F06,3025) ISUB, RCOND, MACH_SFMIN - ENDIF + ENDIF ENDIF ENDIF @@ -344,11 +344,11 @@ SUBROUTINE LINK3 ENDIF ENDIF FreeS - + ! Dellocate arrays CALL LINK_MESSAGE('DEALLOCATE ARRAYS') -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages IF (SOL_NAME(1:8) == 'BUCKLING') THEN CONTINUE @@ -368,13 +368,13 @@ SUBROUTINE LINK3 CALL FILE_CLOSE ( L3A, LINK3A, 'KEEP' ) ! Process is now complete so set COMM(LINKNO) - + COMM(LINKNO) = 'C' ! Write data to L1A CALL WRITE_L1A ( 'KEEP', 'Y' ) - + ! Check allocation status of allocatable arrays, if requested IF (DEBUG(100) > 0) THEN @@ -390,7 +390,7 @@ SUBROUTINE LINK3 WRITE(F06,151) LINKNO ! Close files - + IF (( DEBUG(193) == 3) .OR. (DEBUG(193) == 999)) THEN CALL FILE_INQUIRE ( 'near end of LINK3' ) ENDIF diff --git a/Source/LK3/VECINORM.f90 b/Source/LK3/VECINORM.f90 index 098c4048..17e060f0 100644 --- a/Source/LK3/VECINORM.f90 +++ b/Source/LK3/VECINORM.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE VECINORM ( X, N, X_INORM ) @@ -45,7 +45,7 @@ SUBROUTINE VECINORM ( X, N, X_INORM ) INTEGER(LONG) :: I ! DO loop index - REAL(DOUBLE), INTENT(IN) :: X(N) ! The input vector for which the infinity norm is calc'd + REAL(DOUBLE), INTENT(IN) :: X(N) ! The input vector for which the infinity norm is calc'd REAL(DOUBLE), INTENT(OUT) :: X_INORM ! The calc'd infinity norm of X INTRINSIC :: DABS @@ -60,7 +60,7 @@ SUBROUTINE VECINORM ( X, N, X_INORM ) IF (DABS(X(I)) > X_INORM) THEN X_INORM = DABS(X(I)) ENDIF - ENDDO + ENDDO @@ -68,4 +68,4 @@ SUBROUTINE VECINORM ( X, N, X_INORM ) ! ********************************************************************************************************************************** - END SUBROUTINE VECINORM \ No newline at end of file + END SUBROUTINE VECINORM diff --git a/Source/LK4/CALC_GEN_MASS.f90 b/Source/LK4/CALC_GEN_MASS.f90 index 99c4e774..b02d099d 100644 --- a/Source/LK4/CALC_GEN_MASS.f90 +++ b/Source/LK4/CALC_GEN_MASS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE CALC_GEN_MASS diff --git a/Source/LK4/EIG_GIV_MGIV.f90 b/Source/LK4/EIG_GIV_MGIV.f90 index 4a437a08..28508def 100644 --- a/Source/LK4/EIG_GIV_MGIV.f90 +++ b/Source/LK4/EIG_GIV_MGIV.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE EIG_GIV_MGIV - + ! Solves for eigenvalues and eigenvectors when method is GIV (Givens) or MGIV (modified Givens) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, KLL_SDIA, KLLD_SDIA, MLL_SDIA, NDOFL, NTERM_KLL, NTERM_KLLD, & @@ -41,12 +41,12 @@ SUBROUTINE EIG_GIV_MGIV USE SPARSE_MATRICES, ONLY : I_KLL, J_KLL, KLL, I_KLLD, J_KLLD, KLLD, I_MLL, J_MLL, MLL USE DEBUG_PARAMETERS, ONLY : DEBUG USE LAPACK_GIV_MGIV_EIG - + USE EIG_GIV_MGIV_USE_IFs USE LINK_MESSAGE_Interface - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'EIG_GIV_MGIV' CHARACTER( 1*BYTE) :: JOBZ ! 'V' or 'N' input to subr DSBGVX ( if 'V', calc vecs, 'N' do not). @@ -104,10 +104,10 @@ SUBROUTINE EIG_GIV_MGIV ! ********************************************************************************************************************************** EPS1 = EPSIL(1) -! Determine bandwidth of stiffness and mass matrices so BANDGEN can put them in LAPACK band form +! Determine bandwidth of stiffness and mass matrices so BANDGEN can put them in LAPACK band form CALL LINK_MESSAGE('CALCULATE BANDWIDTH OF KLL MATRIX') - CALL BANDSIZ ( NDOFL, NTERM_KLL, I_KLL, J_KLL, KLL_SDIA ) + CALL BANDSIZ ( NDOFL, NTERM_KLL, I_KLL, J_KLL, KLL_SDIA ) WRITE(ERR,4904) KLL_SDIA IF (SUPINFO == 'N') THEN WRITE(F06,4904) KLL_SDIA @@ -115,14 +115,14 @@ SUBROUTINE EIG_GIV_MGIV IF (SOL_NAME(1:8) == 'BUCKLING') THEN CALL LINK_MESSAGE('CALCULATE BANDWIDTH OF KLLD MATRIX') - CALL BANDSIZ ( NDOFL, NTERM_KLLD, I_KLLD, J_KLLD, KLLD_SDIA ) + CALL BANDSIZ ( NDOFL, NTERM_KLLD, I_KLLD, J_KLLD, KLLD_SDIA ) WRITE(ERR,4905) 'KLLD', KLLD_SDIA IF (SUPINFO == 'N') THEN WRITE(F06,4905) 'KLLD', KLLD_SDIA ENDIF ELSE CALL LINK_MESSAGE('CALCULATE BANDWIDTH OF MLL MATRIX') - CALL BANDSIZ ( NDOFL, NTERM_MLL, I_MLL, J_MLL, MLL_SDIA ) + CALL BANDSIZ ( NDOFL, NTERM_MLL, I_MLL, J_MLL, MLL_SDIA ) WRITE(ERR,4905) 'MLL', MLL_SDIA IF (SUPINFO == 'N') THEN WRITE(F06,4905) 'MLL', MLL_SDIA @@ -220,7 +220,7 @@ SUBROUTINE EIG_GIV_MGIV IF ((SOL_NAME(1:12) /= 'GEN CB MODEL' ) .AND. (SOL_NAME(1:8) /= 'BUCKLING')) THEN CALL LINK_MESSAGE('DEALLOCATE SPARSE KLL ARRAYS') - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KLL', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'KLL' ) ENDIF @@ -313,14 +313,14 @@ SUBROUTINE EIG_GIV_MGIV IF ( I_KLLD(I) == I_KLLD(I-1) ) THEN KLLD_NULL_ROWS = KLLD_NULL_ROWS + 1 ENDIF - ENDDO + ENDDO ELSE MLL_NULL_ROWS = 0 DO I=2,NDOFL+1 IF ( I_MLL(I) == I_MLL(I-1) ) THEN MLL_NULL_ROWS = MLL_NULL_ROWS + 1 ENDIF - ENDDO + ENDDO ENDIF CALL LINK_MESSAGE('SOLVE FOR EIGENVALUES/VECTORS - MGIV METHOD') @@ -377,7 +377,7 @@ SUBROUTINE EIG_GIV_MGIV ELSE ! INFO > NDOFL indicates lead minor of MLL (or KLLD) or KLL not pos def - NAME2 = 'No name' + NAME2 = 'No name' IF (EIG_METH(1:3) == 'GIV' ) THEN IF (SOL_NAME(1:8) == 'BUCKLING') THEN NAME2 = 'KLLD' @@ -441,5 +441,5 @@ SUBROUTINE EIG_GIV_MGIV 12345 FORMAT(A,10X,A) ! ********************************************************************************************************************************** - + END SUBROUTINE EIG_GIV_MGIV diff --git a/Source/LK4/EIG_INV_PWR.f90 b/Source/LK4/EIG_INV_PWR.f90 index 249e30d5..dc074a78 100644 --- a/Source/LK4/EIG_INV_PWR.f90 +++ b/Source/LK4/EIG_INV_PWR.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE EIG_INV_PWR - + ! Solves for eigenvalues and eigenvectors when method is INV. Code is only valid for the 1st eigenval/vec. Inverse Power is an ! iterative method - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, KMSM_SDIA, LINKNO, NDOFL, NTERM_KLL, NTERM_KLLD, NTERM_KMSM, & @@ -39,26 +39,26 @@ SUBROUTINE EIG_INV_PWR USE EIGEN_MATRICES_1, ONLY : EIGEN_VAL, EIGEN_VEC, MODE_NUM USE MODEL_STUF, ONLY : EIG_N2, EIG_SIGMA USE SPARSE_MATRICES, ONLY : I_KLL, J_KLL, KLL, I_KLLD, J_KLLD, KLLD, I_MLL, J_MLL, MLL, & - I_KMSM, I2_KMSM, J_KMSM, KMSM, I_KMSMs, I2_KMSMs, J_KMSMs, KMSMs + I_KMSM, I2_KMSM, J_KMSM, KMSM, I_KMSMs, I2_KMSMs, J_KMSMs, KMSMs USE SPARSE_MATRICES, ONLY : SYM_KLL, SYM_KLLD, SYM_MLL USE LAPACK_LIN_EQN_DPB USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE EIG_INV_PWR_USE_IFs USE LINK_MESSAGE_Interface - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'EIG_INV_PWR' - CHARACTER( 1*BYTE) :: EQUED ! 'Y' if KLL stiff matrix was equilibrated in subr EQUILIBRATE + CHARACTER( 1*BYTE) :: EQUED ! 'Y' if KLL stiff matrix was equilibrated in subr EQUILIBRATE INTEGER(LONG) :: DEB_PRT(2) ! Debug numbers to say whether to write ABAND and/or its decomp to output ! file in called subr SYM_MAT_DECOMP_LAPACK (ABAND = band form of KLL) INTEGER(LONG) :: I ! DO loop index - INTEGER(LONG) :: INFO = 0 ! - INTEGER(LONG) :: ITER_NUM ! Number of iterations in converging on eigenvalue + INTEGER(LONG) :: INFO = 0 ! + INTEGER(LONG) :: ITER_NUM ! Number of iterations in converging on eigenvalue @@ -156,7 +156,7 @@ SUBROUTINE EIG_INV_PWR ENDIF IF (EQUED == 'Y') THEN ! If EQUED == 'Y' then error. We don't want KMSM equilibrated from the - WRITE(ERR,4001) SUBR_NAME, EQUED ! call (above) to SYM_MAT_DECOMP_LAPACK + WRITE(ERR,4001) SUBR_NAME, EQUED ! call (above) to SYM_MAT_DECOMP_LAPACK WRITE(F06,4001) SUBR_NAME, EQUED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) @@ -245,7 +245,7 @@ SUBROUTINE EIG_INV_PWR IF (DABS(MAX_VALUE) > EPSIL(1)) THEN ! If max value in eigenvector > 0 then get next eigenvalue approx -!zz EIGEN_VAL_APPROX(ITER_NUM) = ONE/MAX_VALUE ! 11/25/11: WRONG !! +!zz EIGEN_VAL_APPROX(ITER_NUM) = ONE/MAX_VALUE ! 11/25/11: WRONG !! ! If MVEC had its max numerical value repeated with a different sign, ! the algorithm could converge to the negative of the actual eigenvalue. ! This algorithm is valid only for positive eigens, so use ABS(MAX_VALUE) @@ -321,7 +321,7 @@ SUBROUTINE EIG_INV_PWR MODE_NUM(I) = I ENDDO -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,32345,ADVANCE='NO') ' Deallocate KMSM' CALL DEALLOCATE_SPARSE_MAT ( 'KMSM' ) @@ -329,7 +329,7 @@ SUBROUTINE EIG_INV_PWR IF ((SOL_NAME(1:12) /= 'GEN CB MODEL' ) .AND. (SOL_NAME(1:8) /= 'BUCKLING')) THEN CALL LINK_MESSAGE('DEALLOCATE SPARSE KLL ARRAYS') - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,32345,ADVANCE='NO') ' Deallocate KLL', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'KLL' ) ENDIF @@ -362,7 +362,7 @@ SUBROUTINE EIG_INV_PWR 4902 FORMAT(43X,'Results of Inverse Power iteration on eigenvalue 1',//,42X,'Iter No. Approx Eigenvalue ', & '% Change from last',//,52X,1ES23.14) - + 4903 FORMAT(45X,I4,3X,1ES23.14,8X,1ES9.2) 4904 FORMAT(45X,I4,3X,1ES23.14) @@ -377,9 +377,9 @@ SUBROUTINE EIG_INV_PWR 32345 FORMAT(A,10X) ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE WRITE_ITER_RESULTS @@ -398,7 +398,7 @@ SUBROUTINE WRITE_ITER_RESULTS ! ********************************************************************************************************************************** 4912 FORMAT(39X,'Results of Inverse Power iteration on eigenvalue 1',//,52X,'Iter No. Approx Eigenvalue',//,62X,1ES15.6) - + 4913 FORMAT(55X,I4,3X,1ES15.6) ! ********************************************************************************************************************************** diff --git a/Source/LK4/EIG_LANCZOS_ARPACK.f90 b/Source/LK4/EIG_LANCZOS_ARPACK.f90 index 7f635685..166cc68f 100644 --- a/Source/LK4/EIG_LANCZOS_ARPACK.f90 +++ b/Source/LK4/EIG_LANCZOS_ARPACK.f90 @@ -50,7 +50,7 @@ SUBROUTINE EIG_LANCZOS_ARPACK USE EIG_LANCZOS_ARPACK_USE_IFs USE LINK_MESSAGE_Interface - + IMPLICIT NONE LOGICAL :: RVEC ! = .TRUE. or .FALSE. Specifies whether eigenvectors are to be calculated diff --git a/Source/LK4/EIG_LANCZOS_ARPACK_ADAPTIVE.f90 b/Source/LK4/EIG_LANCZOS_ARPACK_ADAPTIVE.f90 index aeeffd98..4395a90d 100644 --- a/Source/LK4/EIG_LANCZOS_ARPACK_ADAPTIVE.f90 +++ b/Source/LK4/EIG_LANCZOS_ARPACK_ADAPTIVE.f90 @@ -63,7 +63,7 @@ SUBROUTINE EIG_LANCZOS_ARPACK_ADAPTIVE USE DSBAND_PREFAC_Interface USE SYM_MAT_DECOMP_SUPRLU_Interface USE LINK_MESSAGE_Interface - + IMPLICIT NONE LOGICAL :: RVEC ! Specifies whether eigenvectors are to be calculated diff --git a/Source/LK4/EIG_SUMMARY.f90 b/Source/LK4/EIG_SUMMARY.f90 index 634455cd..e7e0462c 100644 --- a/Source/LK4/EIG_SUMMARY.f90 +++ b/Source/LK4/EIG_SUMMARY.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE EIG_SUMMARY - + ! Prints eigenvalue analysis summary table - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, NDOFL, NUM_EIGENS, NVEC, NUM_KLLD_DIAG_ZEROS, NUM_MLL_DIAG_ZEROS, SOL_NAME, & @@ -39,27 +39,27 @@ SUBROUTINE EIG_SUMMARY USE EIGEN_MATRICES_1, ONLY : GEN_MASS, MODE_NUM, EIGEN_VAL USE MODEL_STUF, ONLY : EIG_COMP, EIG_CRIT, EIG_GRID, EIG_LAP_MAT_TYPE, EIG_METH, EIG_MODE, EIG_N2, EIG_NORM, & EIG_SIGMA, MAXMIJ, MIJ_COL, MIJ_ROW, NUM_FAIL_CRIT - + USE EIG_SUMMARY_USE_IFs IMPLICIT NONE - + LOGICAL :: FILE_OPND ! .TRUE. if a file is opened CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'EIG_SUMMARY' CHARACTER( 1*BYTE) :: ASTERISK = '*' ! Used for denoting negative eigenvalues - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: NUM_FINITE_EIGENS ! Number of eigenvalues that are finite (excluding zero mass modes) INTEGER(LONG) :: MAX_LANCZOS_EIGENS! Max number of eigenvalues that can be found by Lanczos method INTEGER(LONG) :: NUM_NEG_EIGENS ! Number of eigenvalues that are negative - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + - REAL(DOUBLE) :: CYCLES1 ! Circular frequency of a mode REAL(DOUBLE) :: GEN_STIFF1 ! Generalized stiffness for a mode REAL(DOUBLE) :: RADS1 ! Radian frequency of a mode - + ! ********************************************************************************************************************************** @@ -120,7 +120,7 @@ SUBROUTINE EIG_SUMMARY WRITE(F06,92010) ENDIF - + IF (SOL_NAME(1:8) == 'BUCKLING') THEN WRITE(F06,94101) WRITE(F06,94102) @@ -148,7 +148,7 @@ SUBROUTINE EIG_SUMMARY WRITE(F06,95402) MODE_NUM(I),I,EIGEN_VAL(I), RADS1,CYCLES1,GEN_MASS(I),GEN_STIFF1 ENDIF ENDIF - ENDDO + ENDDO IF (SOL_NAME(1:8) == 'BUCKLING') THEN NUM_FINITE_EIGENS = NDOFL - NUM_KLLD_DIAG_ZEROS @@ -264,7 +264,7 @@ SUBROUTINE EIG_SUMMARY 98006 FORMAT(' *WARNING : THE BULK DATA EIGR/EIGRL ENTRY ASKED FOR MODES UP TO NUMBER',I8,'. HOWEVER, THIS MODEL HAS ONLY',I8 & ,/,14X,' FINITE EIGENVALUES DUE TO THE FACT THAT THE L-SET MASS MATRIX HAS',I8,' ZERO MASS DEGREES OF FREEDOM.'& ,/,14x,' (USE OF BULK DATA PARAM ART_MASS WITH SMALL VALUE MAY HELP TO AVOID EIGENVALUES THAT ARE', & - ' THEORETICALLY INFINITE)') + ' THEORETICALLY INFINITE)') 98007 FORMAT(' *WARNING : THE USE OF BULK DATA PARAM ART_MASS MAY HAVE MASKED SOME OTHERWISE INFINITE EIGENVALUES. IF A SMALL', & ' VALUE FOR' & @@ -272,7 +272,7 @@ SUBROUTINE EIG_SUMMARY ' IF A LARGE VALUE FOR' & ,/,14X,' ART_MASS WAS USED THEN ALL EIGENVALUES MAY BE SUSPECT. THIS RUN USED THE FOLLOWING ART_MASS VALUES:',/& ,/,14X,' Artificial mass for translational G-set DOFs = ',1ES14.6 & - ,/,14X,' Artificial mass for rotational G-set DOFs = ',1ES14.6) + ,/,14X,' Artificial mass for rotational G-set DOFs = ',1ES14.6) 98008 FORMAT(' *WARNING : LANCZOS ONLY FOUND',I8,' EIGENVALUES DUE TO:' & ,/,14X,' (1) IT CAN NEVER FIND ALL',I8,' FINITE EIGENVALUES (IT IS ONLY POSSIBLE TO FIND 1 LESS THAN ALL)' & @@ -288,5 +288,5 @@ SUBROUTINE EIG_SUMMARY ,' A-SET)') ! ********************************************************************************************************************************** - + END SUBROUTINE EIG_SUMMARY diff --git a/Source/LK4/INVERT_EIGENS.f90 b/Source/LK4/INVERT_EIGENS.f90 index 3b3cb020..ca06e985 100644 --- a/Source/LK4/INVERT_EIGENS.f90 +++ b/Source/LK4/INVERT_EIGENS.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE INVERT_EIGENS ( MLAM, N, W, Z, EIG_NUM ) - + ! For MGIV and LANCZOS eigenvalue methods, inverts and reorders eigenvalues/vectors since those algorithms are set up to solve for ! 1/eigenvalue - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, NVEC @@ -37,11 +37,11 @@ SUBROUTINE INVERT_EIGENS ( MLAM, N, W, Z, EIG_NUM ) USE MACHINE_PARAMS, ONLY : MACH_SFMIN, MACH_LARGE_NUM USE MODEL_STUF, ONLY : EIG_SIGMA USE LAPACK_BLAS_AUX - + USE INVERT_EIGENS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'INVERT_EIGENS' INTEGER(LONG), INTENT(IN) :: MLAM ! Number of eigenvalues. @@ -84,7 +84,7 @@ SUBROUTINE INVERT_EIGENS ( MLAM, N, W, Z, EIG_NUM ) EIG_NUM(PM) = M1 ENDIF PM = PM-1 - QM = QM+1 + QM = QM+1 ENDDO IF (NVEC > 0) THEN @@ -103,7 +103,7 @@ SUBROUTINE INVERT_EIGENS ( MLAM, N, W, Z, EIG_NUM ) ENDDO ENDIF PM = PM-1 - QM = QM+1 + QM = QM+1 ENDDO ENDIF @@ -112,6 +112,6 @@ SUBROUTINE INVERT_EIGENS ( MLAM, N, W, Z, EIG_NUM ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE INVERT_EIGENS diff --git a/Source/LK4/LINK4.f90 b/Source/LK4/LINK4.f90 index 6df73eaf..f9565406 100644 --- a/Source/LK4/LINK4.f90 +++ b/Source/LK4/LINK4.f90 @@ -74,7 +74,7 @@ SUBROUTINE LINK4 USE LINK4_USE_IFs USE LINK_MESSAGE_Interface - + IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT diff --git a/Source/LK4/RENORM_ON_MASS.f90 b/Source/LK4/RENORM_ON_MASS.f90 index 37b63225..657515f4 100644 --- a/Source/LK4/RENORM_ON_MASS.f90 +++ b/Source/LK4/RENORM_ON_MASS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE RENORM_ON_MASS ( NVC, EPS1 ) - -! Renormalizes eigenvectors to unit generalized mass - + +! Renormalizes eigenvectors to unit generalized mass + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : NDOFL, BLNK_SUB_NAM, WARN_ERR @@ -37,22 +37,22 @@ SUBROUTINE RENORM_ON_MASS ( NVC, EPS1 ) USE EIGEN_MATRICES_1 , ONLY : GEN_MASS, EIGEN_VEC USE MODEL_STUF, ONLY : EIG_NORM, MAXMIJ, MIJ_COL, MIJ_ROW USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE RENORM_ON_MASS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'RENORM_ON_MASS' - + INTEGER(LONG), INTENT(IN) :: NVC ! Number of eigenvectors to be renormalized. INTEGER(LONG) :: I,J ! DO loop index - + REAL(DOUBLE) , INTENT(IN) :: EPS1 ! Small number to compare variables against zero REAL(DOUBLE) :: DEN ! Normalizing factor in gen mass matrix normalization INTRINSIC DSQRT,DABS - + ! ********************************************************************************************************************************** @@ -86,8 +86,8 @@ SUBROUTINE RENORM_ON_MASS ( NVC, EPS1 ) DO I=1,NDOFL EIGEN_VEC(I,J) = EIGEN_VEC(I,J)/DEN ENDDO - GEN_MASS(J) = ONE ! Now reset generalized masses to unity - ENDDO + GEN_MASS(J) = ONE ! Now reset generalized masses to unity + ENDDO diff --git a/Source/LK5/BUILD_A_LR.f90 b/Source/LK5/BUILD_A_LR.f90 index acb254c6..3ede7b3a 100644 --- a/Source/LK5/BUILD_A_LR.f90 +++ b/Source/LK5/BUILD_A_LR.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BUILD_A_LR ( COL_NUM ) - + ! For one subcase: ! 1) Merge UL and UR to get UA where UL was read into subr LINK5 @@ -37,13 +37,13 @@ SUBROUTINE BUILD_A_LR ( COL_NUM ) USE CONSTANTS_1, ONLY : ZERO, ONE USE PARAMS, ONLY : PRTDISP USE COL_VECS, ONLY : UL_COL, UA_COL, UR_COL - + USE BUILD_A_LR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BUILD_A_LR' - + INTEGER(LONG), INTENT(IN) :: COL_NUM INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: A_SET_COL ! Col no. in TDOF for A displ set definition @@ -57,7 +57,7 @@ SUBROUTINE BUILD_A_LR ( COL_NUM ) ! Get column numbers for various DOF sets IF (NDOFR > 0) THEN - ! Merge UL and UR to get UA + ! Merge UL and UR to get UA CALL TDOF_COL_NUM('A ', A_SET_COL) CALL TDOF_COL_NUM('L ', L_SET_COL) CALL TDOF_COL_NUM('R ', R_SET_COL) @@ -77,7 +77,7 @@ SUBROUTINE BUILD_A_LR ( COL_NUM ) DO I=1,NDOFA UA_COL(I) = UL_COL(I) ENDDO - + ENDIF ! Print out displ matrices if PRTDISP says to @@ -99,5 +99,5 @@ SUBROUTINE BUILD_A_LR ( COL_NUM ) RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BUILD_A_LR diff --git a/Source/LK5/BUILD_F_AO.f90 b/Source/LK5/BUILD_F_AO.f90 index 9e1f811b..395db21b 100644 --- a/Source/LK5/BUILD_F_AO.f90 +++ b/Source/LK5/BUILD_F_AO.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BUILD_F_AO - + ! For one subcase: - + ! 1) Calcs UO displacements: UO = GOA*UA + UO0 where: - + ! UA = from calculation in subr BUILD_A_LR ! UO0 = KOO(-1)*PO from LINK2 @@ -43,20 +43,20 @@ SUBROUTINE BUILD_F_AO USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP USE SPARSE_MATRICES, ONLY : I_GOA, J_GOA, GOA, SYM_GOA USE COL_VECS, ONLY : UA_COL, UF_COL, UO_COL, UO0_COL - + USE BUILD_F_AO_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BUILD_F_AO' - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: F_SET_COL ! Col no. in TDOF for F displ set definition INTEGER(LONG) :: A_SET_COL ! Col no. in TDOF for A displ set definition INTEGER(LONG) :: O_SET_COL ! Col no. in TDOF for O displ set definition INTEGER(LONG), PARAMETER :: NUMCOLS = 1 ! Variable for number of cols of an array - + ! ********************************************************************************************************************************** @@ -67,7 +67,7 @@ SUBROUTINE BUILD_F_AO CALL MATMULT_SFF ( 'GOA', NDOFO, NDOFA, NTERM_GOA, SYM_GOA, I_GOA, J_GOA, GOA, 'UA', NDOFA, NUMCOLS, UA_COL, 'Y', & 'UO', ONE, UO_COL ) -! Add UO0 (= KOO(-1) x PO) to get final UO but only if statics solution +! Add UO0 (= KOO(-1) x PO) to get final UO but only if statics solution IF ((SOL_NAME(1:7) == 'STATICS') .OR. (SOL_NAME(1:8) == 'NLSTATIC') .OR. & ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 1))) THEN @@ -88,7 +88,7 @@ SUBROUTINE BUILD_F_AO DO I=1,NDOFF UF_COL(I) = UA_COL(I) - ENDDO + ENDDO ENDIF @@ -111,5 +111,5 @@ SUBROUTINE BUILD_F_AO RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BUILD_F_AO diff --git a/Source/LK5/BUILD_G_NM.f90 b/Source/LK5/BUILD_G_NM.f90 index 8cedf64c..346ccf29 100644 --- a/Source/LK5/BUILD_G_NM.f90 +++ b/Source/LK5/BUILD_G_NM.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BUILD_G_NM - + ! For one subcase: - + ! 1) Calcs UM displacements: UM = GMN*UN where: - + ! UN = Displs calc'd in subr BUILD_N_FS - + ! 2) Merge UM and UN to get UG USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -41,21 +41,21 @@ SUBROUTINE BUILD_G_NM USE CONSTANTS_1, ONLY : ONE USE PARAMS, ONLY : PRTDISP USE SPARSE_MATRICES, ONLY : I_GMN, J_GMN, GMN, SYM_GMN - USE COL_VECS, ONLY : UG_COL, UM_COL, UN_COL - + USE COL_VECS, ONLY : UG_COL, UM_COL, UN_COL + USE BUILD_G_NM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BUILD_G_NM' - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: G_SET_COL ! Col no. in TDOF for G displ set definition INTEGER(LONG) :: N_SET_COL ! Col no. in TDOF for N displ set definition INTEGER(LONG) :: M_SET_COL ! Col no. in TDOF for M displ set definition INTEGER(LONG), PARAMETER :: NUMCOLS = 1 ! Variable for number of cols of an array - + ! ********************************************************************************************************************************** @@ -77,7 +77,7 @@ SUBROUTINE BUILD_G_NM DO I=1,NDOFG UG_COL(I) = UN_COL(I) - ENDDO + ENDDO ENDIF @@ -107,5 +107,5 @@ SUBROUTINE BUILD_G_NM RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BUILD_G_NM diff --git a/Source/LK5/BUILD_N_FS.f90 b/Source/LK5/BUILD_N_FS.f90 index 95a14313..1b6c4c46 100644 --- a/Source/LK5/BUILD_N_FS.f90 +++ b/Source/LK5/BUILD_N_FS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BUILD_N_FS - + ! For one subcase: - + ! 1) Merge UF and US to get UN where UF is calc'd in subr BUILD_F_AO USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -37,13 +37,13 @@ SUBROUTINE BUILD_N_FS USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : PRTDISP USE COL_VECS, ONLY : UF_COL, UN_COL, US_COL, YSe - + USE BUILD_N_FS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BUILD_N_FS' - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: N_SET_COL ! Col no. in TDOF for N displ set definition INTEGER(LONG) :: F_SET_COL ! Col no. in TDOF for F displ set definition @@ -52,8 +52,8 @@ SUBROUTINE BUILD_N_FS INTEGER(LONG) :: SE_SET_COL ! Col no. in TDOF for SE displ set definition - REAL(DOUBLE) :: USZ_COL(NDOFSZ) ! Array of zero displs for the SZ set - + REAL(DOUBLE) :: USZ_COL(NDOFSZ) ! Array of zero displs for the SZ set + ! ********************************************************************************************************************************** @@ -78,10 +78,10 @@ SUBROUTINE BUILD_N_FS ELSE DO I=1,NDOFS US_COL(I) = ZERO - ENDDO + ENDDO ENDIF -! Merge UF and US to get UN +! Merge UF and US to get UN CALL MERGE_COL_VECS ( F_SET_COL, NDOFF, UF_COL, S_SET_COL, NDOFS, US_COL, N_SET_COL, NDOFN, UN_COL ) @@ -89,7 +89,7 @@ SUBROUTINE BUILD_N_FS DO I=1,NDOFN UN_COL(I) = UF_COL(I) ENDDO - + ENDIF @@ -112,5 +112,5 @@ SUBROUTINE BUILD_N_FS RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE BUILD_N_FS diff --git a/Source/LK5/EXPAND_PHIXA_TO_PHIXG.f90 b/Source/LK5/EXPAND_PHIXA_TO_PHIXG.f90 index 8d0a356f..1aa29535 100644 --- a/Source/LK5/EXPAND_PHIXA_TO_PHIXG.f90 +++ b/Source/LK5/EXPAND_PHIXA_TO_PHIXG.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE EXPAND_PHIXA_TO_PHIXG @@ -38,7 +38,7 @@ SUBROUTINE EXPAND_PHIXA_TO_PHIXG USE COL_VECS, ONLY : UA_COL, UG_COL USE PARAMS, ONLY : EPSIL, TINY USE DEBUG_PARAMETERS, ONLY : DEBUG - USE SPARSE_MATRICES, ONLY : I_PHIXA, J_PHIXA, PHIXA, I_PHIXG, J_PHIXG, PHIXG + USE SPARSE_MATRICES, ONLY : I_PHIXA, J_PHIXA, PHIXA, I_PHIXG, J_PHIXG, PHIXG USE EXPAND_PHIXA_TO_PHIXG_USE_IFs USE LINK_MESSAGE_Interface @@ -72,7 +72,7 @@ SUBROUTINE EXPAND_PHIXA_TO_PHIXG CALL BUILD_F_AO CALL DEALLOCATE_COL_VEC ( 'UA_COL' ) CALL DEALLOCATE_COL_VEC ( 'UO_COL' ) - ! Build N-set from F and S-set + ! Build N-set from F and S-set CALL ALLOCATE_COL_VEC ( 'UN_COL', NDOFN, SUBR_NAME) CALL ALLOCATE_COL_VEC ( 'US_COL', NDOFS, SUBR_NAME ) CALL LINK_MESSAGE_I('BUILD UN DISPLS FROM UF, US: "',J) @@ -120,13 +120,13 @@ SUBROUTINE EXPAND_PHIXA_TO_PHIXG 102 FORMAT(' *INFORMATION: TERMS WHOSE ABS VALUE ARE < PARAM TINY =',1ES10.3,' ARE NOT INCLUDED IN MATRIX ',A,' IN SUBR ',A & ,/,14X,' AS THIS FULL MATRIX IS BEING CONVERTED TO A SPARSE MATRIX') -99885 FORMAT(82X,'MATRIX PHIXG',/,82X,'------------') +99885 FORMAT(82X,'MATRIX PHIXG',/,82X,'------------') -99886 FORMAT(5X,32676(I14)) +99886 FORMAT(5X,32676(I14)) -99887 FORMAT(I8,'-',I1,32767(1ES14.6)) +99887 FORMAT(I8,'-',I1,32767(1ES14.6)) -99888 FORMAT(8X,'-',I1,32767(1ES14.6)) +99888 FORMAT(8X,'-',I1,32767(1ES14.6)) ! ********************************************************************************************************************************** diff --git a/Source/LK5/LINK5.f90 b/Source/LK5/LINK5.f90 index e38300cd..5579f8da 100644 --- a/Source/LK5/LINK5.f90 +++ b/Source/LK5/LINK5.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE LINK5 - + ! LINK5 takes the L-set displacements solved for in LINK3 (statics) or LINK4 (eigenvalues) and builds it back up to the G-set. ! See Appendix B to the MYSTRAN User's Reference Guide for an explanation of how this is done. ! In addition, for Craig-Bampton model generation (SOL = GEN CB MODEL or 31), array PHIXA is expanded to G-set size - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR, ERR, F06, L1H, L2A, L2E, L2F, L3A, L5A, L5B, SC1 USE IOUNT1, ONLY : LINK1H, LINK2A, LINK2E, LINK2F, LINK3A, LINK5A, LINK5B @@ -47,31 +47,31 @@ SUBROUTINE LINK5 USE SPARSE_MATRICES, ONLY : I_GMN, J_GMN, GMN, I_GOA, J_GOA, GOA USE OUTPUT4_MATRICES, ONLY : NUM_OU4_REQUESTS USE MISC_MATRICES, ONLY : UG_T123_MAT - USE COL_VECS, ONLY : UG_COL, YSe, UO0_COL, UL_COL + USE COL_VECS, ONLY : UG_COL, YSe, UO0_COL, UL_COL USE DEBUG_PARAMETERS, ONLY : DEBUG USE DOF_TABLES, ONLY : TDOF, TDOFI USE MODEL_STUF, ONLY : GRID, GRID_ID, INV_GRID_SEQ, EIG_COMP, EIG_GRID, EIG_NORM, MAXMIJ, MIJ_COL, MIJ_ROW USE LINK5_USE_IFs USE LINK_MESSAGE_Interface - + IMPLICIT NONE - + LOGICAL :: VEC_SIGN_CHG(NDOFL) ! Indicators of whether user wants to change sign of an eigenvector CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'LINK5' - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not CHARACTER( 8*BYTE) :: CLOSE_STAT ! What to do with file when it is closed CHARACTER( 1*BYTE) :: DO_IT ! If 'Y' execute some code CHARACTER( 1*BYTE) :: MIJ_COL_FOUND='N' ! 'Y' if MIJ_ROW is processed as a solution vector in this LINK CHARACTER( 1*BYTE) :: MIJ_ROW_FOUND='N' ! 'Y' if MIJ_ROW is processed as a solution vector in this LINK - CHARACTER( 1*BYTE) :: READ_NTERM ! 'Y' or 'N' Input to subr READ_MATRIX_1 - CHARACTER( 1*BYTE) :: OPND ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not + CHARACTER( 1*BYTE) :: READ_NTERM ! 'Y' or 'N' Input to subr READ_MATRIX_1 + CHARACTER( 1*BYTE) :: OPND ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not CHARACTER( 1*BYTE) :: READ_UO0 ! If 'Y' then read UO0 data from file L2F - + INTEGER(LONG) :: COL_NUM ! Arg passed to subr BUILD_A_LR - INTEGER(LONG) :: EIG_NORM_GSET_DOF ! A-set DOF no. for EIG_GRID/EIG_COMP + INTEGER(LONG) :: EIG_NORM_GSET_DOF ! A-set DOF no. for EIG_GRID/EIG_COMP INTEGER(LONG) :: EIGNORM2_ERR ! Error indicator for reading param EIGNORM2 data INTEGER(LONG) :: G_SET_COL ! Col number in TDOF, TDOFI where G-set DOF's exist INTEGER(LONG) :: I,J,K,L ! DO loop indices @@ -80,7 +80,7 @@ SUBROUTINE LINK5 INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening/reading a file INTEGER(LONG) :: NUM_COMPS ! 6 if GRID_NUM is an physical grid, 1 if an SPOINT INTEGER(LONG) :: NUM_SOLNS = 0 ! No. of solutions to process (e.g. NSUB for STATICS) - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: P_LINKNO ! Prior LINK no's that should have run before this LINK can execute INTEGER(LONG) :: REC_NO ! Record number when reading a file @@ -118,12 +118,12 @@ SUBROUTINE LINK5 OUNT(2) = F06 ! Write info to text files - + WRITE(F06,150) LINKNO WRITE(ERR,150) LINKNO ! Read LINK1A file - + CALL READ_L1A ( 'KEEP' ) ! Check COMM for successful completion of prior LINKs @@ -207,7 +207,7 @@ SUBROUTINE LINK5 CALL ALLOCATE_SPARSE_MAT ( 'GMN', NDOFM, NTERM_GMN, SUBR_NAME ) CALL ALLOCATE_SPARSE_MAT ( 'GOA', NDOFO, NTERM_GOA, SUBR_NAME ) CALL ALLOCATE_COL_VEC ( 'YSe' , NDOFS, SUBR_NAME ) - + ! Read GMN matrix if there are MPC's IF (NTERM_GMN > 0) THEN @@ -218,7 +218,7 @@ SUBROUTINE LINK5 CLOSE_IT = 'Y' CALL READ_MATRIX_1 ( LINK2A, L2A, OPND, CLOSE_IT, 'KEEP', L2A_MSG, 'GMN', NTERM_GMN, READ_NTERM, NDOFM & , I_GMN, J_GMN, GMN ) - ENDIF + ENDIF ! Read GOA matrix if there are omitted DOFs @@ -283,9 +283,9 @@ SUBROUTINE LINK5 IF (DO_IT == 'Y') THEN IERROR = 0 - CALL ALLOCATE_EIGEN1_MAT ( 'MODE_NUM' , NUM_EIGENS, 1, SUBR_NAME ) -!xx CALL ALLOCATE_EIGEN1_MAT ( 'EIGEN_VAL', NUM_EIGENS, 1, SUBR_NAME ) - CALL ALLOCATE_EIGEN1_MAT ( 'GEN_MASS' , NUM_EIGENS, 1, SUBR_NAME ) + CALL ALLOCATE_EIGEN1_MAT ( 'MODE_NUM' , NUM_EIGENS, 1, SUBR_NAME ) +!xx CALL ALLOCATE_EIGEN1_MAT ( 'EIGEN_VAL', NUM_EIGENS, 1, SUBR_NAME ) + CALL ALLOCATE_EIGEN1_MAT ( 'GEN_MASS' , NUM_EIGENS, 1, SUBR_NAME ) CALL READ_L1M ( IERROR ) IF (IERROR /= 0) THEN @@ -303,10 +303,10 @@ SUBROUTINE LINK5 ENDIF ! Open file for writing displs to. - + CALL FILE_CLOSE ( L5A, LINK5A, 'KEEP' ) CALL FILE_OPEN ( L5A, LINK5A, OUNT, 'REPLACE', L5A_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) - + ! Open file that has UO0 IF (NTERM_PO > 0) THEN @@ -354,8 +354,8 @@ SUBROUTINE LINK5 IF (DO_IT == 'Y') THEN EIG_NORM_GSET_DOF = 0 IGRID = 0 - IF (EIG_NORM == 'POINT ') THEN ! User requested to renormalize eigenvectors on POINT - + IF (EIG_NORM == 'POINT ') THEN ! User requested to renormalize eigenvectors on POINT + CALL TDOF_COL_NUM ( 'G ', G_SET_COL ) i_do: DO I=1,NDOFG IF (TDOF(I,1) == EIG_GRID) THEN @@ -363,7 +363,7 @@ SUBROUTINE LINK5 EIG_NORM_GSET_DOF = TDOF(I,G_SET_COL) + EIG_COMP - 1 EXIT i_do ENDIF - ENDDO i_do + ENDDO i_do IF (IGRID > 0) THEN WRITE(ERR,5102) EIG_GRID, EIG_COMP @@ -388,13 +388,13 @@ SUBROUTINE LINK5 ELSE ! No renorm needed here (was done in LINK4 if not POINT or MASS) - WRITE(ERR,5104) + WRITE(ERR,5104) IF (SUPINFO == 'N') THEN - WRITE(F06,5104) + WRITE(F06,5104) ENDIF - + ENDIF - + ENDIF IF ((EIGNORM2 == 'Y') .AND. (NVEC > 0)) THEN @@ -413,7 +413,7 @@ SUBROUTINE LINK5 CALL ALLOCATE_COL_VEC ('UL_COL', NDOFL, SUBR_NAME)! Allocate array UL_COL - ! Read UL displs for the current subcase/vector from LINK3A + ! Read UL displs for the current subcase/vector from LINK3A IF ((SOL_NAME(1: 7) == 'STATICS') .OR. (SOL_NAME(1:8) == 'NLSTATIC')) THEN CALL LINK_MESSAGE_I('READ L-SET DISPLACEMENTS Subcase', J) ELSE IF (SOL_NAME(1: 5) == 'MODES') THEN @@ -465,9 +465,9 @@ SUBROUTINE LINK5 CALL LINK_MESSAGE_I('BUILD UF DISPLS FROM UA, UO: "', J) IF (READ_UO0 == 'Y') THEN IF (NDOFO > 0) THEN - IF (NTERM_PO > 0) THEN + IF (NTERM_PO > 0) THEN CALL LINK_MESSAGE_I(' READ UO0 DISPLS, "', J) - + IERROR = 0 DO I=1,NDOFO READ(L2F,IOSTAT=IOCHK) UO0_COL(I) @@ -485,7 +485,7 @@ SUBROUTINE LINK5 ELSE DO I=1,NDOFO UO0_COL(I) = ZERO - ENDDO + ENDDO ENDIF ENDIF ENDIF @@ -582,10 +582,10 @@ SUBROUTINE LINK5 IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN ! Open file for writing cols of PHIXG CALL FILE_OPEN ( L5B, LINK5B, OUNT, 'REPLACE', L5B_MSG, 'WRITE_STIME', 'UNFORMATTED', 'WRITE', 'REWIND', 'Y', 'N' ) - + CALL DEALLOCATE_COL_VEC ( 'UG_COL' ) CALL EXPAND_PHIXA_TO_PHIXG ! Expand PHIXA to PHIXG and write cols to file L5B - !xx WRITE(SC1, * ) ! Advance 1 line for screen messages + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate PHIXA', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'PHIXA' ) ENDIF @@ -672,22 +672,22 @@ SUBROUTINE LINK5 ! Deallocate arrays (except EIGEN_VAL, may be needed later) !xx WRITE(SC1, * ) ' DEALLOCATE SOME ARRAYS' -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages WRITE(SC1,12345,ADVANCE='NO') ' Deallocate GMN ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'GMN' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate GOA ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'GOA' ) - WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MODE_NUM ', CR13 ; CALL DEALLOCATE_EIGEN1_MAT ( 'MODE_NUM' ) -!xx WRITE(SC1,12345,ADVANCE='NO') ' Deallocate EIGEN_VAL', CR13 ; CALL DEALLOCATE_EIGEN1_MAT ( 'EIGEN_VAL' ) + WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MODE_NUM ', CR13 ; CALL DEALLOCATE_EIGEN1_MAT ( 'MODE_NUM' ) +!xx WRITE(SC1,12345,ADVANCE='NO') ' Deallocate EIGEN_VAL', CR13 ; CALL DEALLOCATE_EIGEN1_MAT ( 'EIGEN_VAL' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate GEN_MASS ', CR13 ; CALL DEALLOCATE_EIGEN1_MAT ( 'GEN_MASS' ) CALL DEALLOCATE_COL_VEC ( 'YSe' ) - CALL DEALLOCATE_EIGEN1_MAT ( 'EIGEN_VEC' ) - + CALL DEALLOCATE_EIGEN1_MAT ( 'EIGEN_VEC' ) + ! Process is now complete so set COMM(LINKNO) - + COMM(LINKNO) = 'C' ! Write data to L1A CALL WRITE_L1A ( 'KEEP', 'Y' ) - + ! Check allocation status of allocatable arrays, if requested IF (DEBUG(100) > 0) THEN @@ -703,7 +703,7 @@ SUBROUTINE LINK5 WRITE(F06,151) LINKNO ! Close files - + IF (( DEBUG(193) == 5) .OR. (DEBUG(193) == 999)) THEN CALL FILE_INQUIRE ( 'near end of LINK5' ) ENDIF @@ -758,20 +758,20 @@ SUBROUTINE LINK5 98004 FORMAT(1X,2I8,5(1ES20.6)) -99885 FORMAT(82X,'MATRIX PHIZG',/,82X,'------------') +99885 FORMAT(82X,'MATRIX PHIZG',/,82X,'------------') -99886 FORMAT(5X,32676(I14)) +99886 FORMAT(5X,32676(I14)) -99887 FORMAT(I8,'-',I1,32767(1ES14.6)) +99887 FORMAT(I8,'-',I1,32767(1ES14.6)) -99888 FORMAT(8X,'-',I1,32767(1ES14.6)) +99888 FORMAT(8X,'-',I1,32767(1ES14.6)) 12345 FORMAT(A,10X,A) ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE READ_EIGNORM2 @@ -782,7 +782,7 @@ SUBROUTINE READ_EIGNORM2 IMPLICIT NONE - LOGICAL :: FILE_EXIST + LOGICAL :: FILE_EXIST CHARACTER(JCARD_LEN*BYTE) :: DATA_FIELD CHARACTER(80*BYTE) :: TITLE ! First record in EINFIL diff --git a/Source/LK5/RENORM.f90 b/Source/LK5/RENORM.f90 index c277e81d..a776590b 100644 --- a/Source/LK5/RENORM.f90 +++ b/Source/LK5/RENORM.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE RENORM ( VEC_NUM, NORM_GRD, NORM_COMP, NORM, NORM_GSET_DOF, GEN_MASS1, PHI_SCALE_FAC ) - + ! Renormalizes eigenves based on NORM = POINT or MAX if requested on Bulk Data entry EIGR or EIGRL - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, NDOFG, NDOFG, NGRID, WARN_ERR @@ -35,31 +35,31 @@ SUBROUTINE RENORM ( VEC_NUM, NORM_GRD, NORM_COMP, NORM, NORM_GSET_DOF, GEN_MASS1 USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE USE COL_VECS, ONLY : UG_COL - + USE RENORM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'RENORM' CHARACTER( 8*BYTE), INTENT(IN) :: NORM ! Eigenvector renormalization methof from EIGR card (e.g. 'MAX ') - + INTEGER(LONG), INTENT(IN) :: NORM_COMP ! Comp. (1-6) for renormalizing eigenvectors (from EIGR card) INTEGER(LONG), INTENT(IN) :: NORM_GRD ! Grid Point for renormalizing eigenvectors (from EIGR card) - INTEGER(LONG), INTENT(IN) :: NORM_GSET_DOF ! G-set DOF no. for NORM_GRD/NORM_COMP + INTEGER(LONG), INTENT(IN) :: NORM_GSET_DOF ! G-set DOF no. for NORM_GRD/NORM_COMP INTEGER(LONG), INTENT(IN) :: VEC_NUM ! Number used to control an output message (only want this information ! message written if tyhis is the first call to this subr). INTEGER(LONG) :: I ! DO loop index - + REAL(DOUBLE) , INTENT(INOUT) :: GEN_MASS1 ! Generalized mass for 1 eigenvector REAL(DOUBLE) , INTENT(OUT) :: PHI_SCALE_FAC ! Scale factor for the eigenvector to renormalize it REAL(DOUBLE) :: DPHI_MAX ! Absolute value of PHI_MAX REAL(DOUBLE) :: EPS1 ! Small number to compare variables against zero REAL(DOUBLE) :: PHI_MAX ! Largest DZIJ for all DOF'si for one eigenvector REAL(DOUBLE) :: PHI_POINT ! Variable used when normalizing gen. mass and eigenvectors - + INTRINSIC DSQRT,DABS - + ! ********************************************************************************************************************************** @@ -71,8 +71,8 @@ SUBROUTINE RENORM ( VEC_NUM, NORM_GRD, NORM_COMP, NORM, NORM_GSET_DOF, GEN_MASS1 EPS1 = EPSIL(1) - IF (NORM == 'POINT ') THEN ! Renormalize eigenvector on POINT - + IF (NORM == 'POINT ') THEN ! Renormalize eigenvector on POINT + IF (NORM_GSET_DOF > 0) THEN ! If not, msg was written in LINK5 for no renorm, so return PHI_POINT = UG_COL(NORM_GSET_DOF) @@ -80,7 +80,7 @@ SUBROUTINE RENORM ( VEC_NUM, NORM_GRD, NORM_COMP, NORM, NORM_GSET_DOF, GEN_MASS1 DO I=1,NDOFG UG_COL(I) = UG_COL(I)/PHI_POINT ENDDO - PHI_SCALE_FAC = PHI_POINT + PHI_SCALE_FAC = PHI_POINT GEN_MASS1 = GEN_MASS1/(PHI_SCALE_FAC * PHI_SCALE_FAC) ELSE PHI_SCALE_FAC = ONE @@ -107,12 +107,12 @@ SUBROUTINE RENORM ( VEC_NUM, NORM_GRD, NORM_COMP, NORM, NORM_GSET_DOF, GEN_MASS1 DPHI_MAX = DABS(PHI_MAX) ENDIF ENDDO - + IF (DPHI_MAX > EPS1) THEN ! Renormalize the eigenvector if PHI_MAX is not 0 DO I=1,NDOFG UG_COL(I) = UG_COL(I)/PHI_MAX - ENDDO - PHI_SCALE_FAC = PHI_MAX + ENDDO + PHI_SCALE_FAC = PHI_MAX GEN_MASS1 = GEN_MASS1/(PHI_SCALE_FAC * PHI_SCALE_FAC) ELSE PHI_SCALE_FAC = ONE @@ -122,9 +122,9 @@ SUBROUTINE RENORM ( VEC_NUM, NORM_GRD, NORM_COMP, NORM, NORM_GSET_DOF, GEN_MASS1 WRITE(F06,4114) VEC_NUM ENDIF ENDIF - + ENDIF - + RETURN @@ -135,5 +135,5 @@ SUBROUTINE RENORM ( VEC_NUM, NORM_GRD, NORM_COMP, NORM, NORM_GSET_DOF, GEN_MASS1 4114 FORMAT(' *WARNING : EIGENVECTOR ',I8,' MAX VALUE IS ZERO. THIS VECTOR CANNOT BE RENORMALIZED') ! ********************************************************************************************************************************** - + END SUBROUTINE RENORM diff --git a/Source/LK6/ALLOCATE_L6_2.f90 b/Source/LK6/ALLOCATE_L6_2.f90 index 4844dd54..bda29b62 100644 --- a/Source/LK6/ALLOCATE_L6_2.f90 +++ b/Source/LK6/ALLOCATE_L6_2.f90 @@ -1,56 +1,56 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE ALLOCATE_L6_2 ( NAME, CALLING_SUBR ) - +! End MIT license text. + + SUBROUTINE ALLOCATE_L6_2 ( NAME, CALLING_SUBR ) + ! Allocate some arrays for use in LINK6 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NTERM_DLR, NTERM_PHIZL1, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG - USE SPARSE_MATRICES, ONLY : I2_DLR, I2_DLRt, I2_PHIZL1, I2_PHIZL1t - + USE SPARSE_MATRICES, ONLY : I2_DLR, I2_DLRt, I2_PHIZL1, I2_PHIZL1t + USE ALLOCATE_L6_2_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_L6_2' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - - INTEGER(LONG) :: I ! DO loop index + + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator INTEGER(LONG) :: NROWS ! Number of rows in array INTEGER(LONG), PARAMETER :: NCOLS = 1 ! Number of cols in array - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -86,7 +86,7 @@ SUBROUTINE ALLOCATE_L6_2 ( NAME, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'DLRt') THEN ! Allocate array I2_DLRt + ELSE IF (NAME == 'DLRt') THEN ! Allocate array I2_DLRt NROWS = NTERM_DLR IF (ALLOCATED(I2_DLRt )) THEN WRITE(ERR,990) SUBR_NAME, NAME @@ -96,7 +96,7 @@ SUBROUTINE ALLOCATE_L6_2 ( NAME, CALLING_SUBR ) ELSE ALLOCATE (I2_DLRt(NTERM_DLR),STAT=IERR) ! Number of terms in DLRt is same as in DLR IF (IERR == 0) THEN - DO I=1,NTERM_DLR + DO I=1,NTERM_DLR I2_DLRt(I) = 0 ENDDO ELSE @@ -107,7 +107,7 @@ SUBROUTINE ALLOCATE_L6_2 ( NAME, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'PHIZL1') THEN ! Allocate array I2_PHIZL1 + ELSE IF (NAME == 'PHIZL1') THEN ! Allocate array I2_PHIZL1 NROWS = NTERM_PHIZL1 IF (ALLOCATED(I2_PHIZL1 )) THEN WRITE(ERR,990) SUBR_NAME, NAME @@ -117,7 +117,7 @@ SUBROUTINE ALLOCATE_L6_2 ( NAME, CALLING_SUBR ) ELSE ALLOCATE (I2_PHIZL1(NTERM_PHIZL1),STAT=IERR) IF (IERR == 0) THEN - DO I=1,NTERM_PHIZL1 + DO I=1,NTERM_PHIZL1 I2_PHIZL1(I) = 0 ENDDO ELSE @@ -128,7 +128,7 @@ SUBROUTINE ALLOCATE_L6_2 ( NAME, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'PHIZL1t') THEN ! Allocate array I2_PHIZL1t + ELSE IF (NAME == 'PHIZL1t') THEN ! Allocate array I2_PHIZL1t NROWS = NTERM_PHIZL1 IF (ALLOCATED(I2_PHIZL1t )) THEN WRITE(ERR,990) SUBR_NAME, NAME @@ -138,7 +138,7 @@ SUBROUTINE ALLOCATE_L6_2 ( NAME, CALLING_SUBR ) ELSE ALLOCATE (I2_PHIZL1t(NTERM_PHIZL1),STAT=IERR) ! Number of terms in PHIZL1t is same as in PHIZL1 IF (IERR == 0) THEN - DO I=1,NTERM_PHIZL1 + DO I=1,NTERM_PHIZL1 I2_PHIZL1t(I) = 0 ENDDO ELSE @@ -151,7 +151,7 @@ SUBROUTINE ALLOCATE_L6_2 ( NAME, CALLING_SUBR ) ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 @@ -187,5 +187,5 @@ SUBROUTINE ALLOCATE_L6_2 ( NAME, CALLING_SUBR ) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_L6_2 diff --git a/Source/LK6/CALC_CB_MEFM_MPF.f90 b/Source/LK6/CALC_CB_MEFM_MPF.f90 index d709a2ec..8785866e 100644 --- a/Source/LK6/CALC_CB_MEFM_MPF.f90 +++ b/Source/LK6/CALC_CB_MEFM_MPF.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE CALC_CB_MEFM_MPF - + ! Calculates the modal participation factors and modal mass via the technique described in my document MPF.doc: ! MPF = EIGEN_VEC'(MLL*DLR + MRL)/GEN_MASS @@ -34,7 +34,7 @@ SUBROUTINE CALC_CB_MEFM_MPF ! In this subr the transpose of MPF (MPFt) is first calculated which is then transposed to get MPF, where MPFt is ! MPFt = (MLL*DLR + MRL)'*EIGEN_VEC//GEN_MASS - + ! For a description of Craig-Bamptom analyses, see Appendix D to the MYSTRAN User's Referance Manual @@ -53,7 +53,7 @@ SUBROUTINE CALC_CB_MEFM_MPF USE CALC_CB_MEFM_MPF_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CALC_CB_MEFM_MPF' ! 'N' for nonsymmetric storage) @@ -122,7 +122,7 @@ SUBROUTINE CALC_CB_MEFM_MPF ENDDO - + RETURN ! ********************************************************************************************************************************** @@ -131,5 +131,5 @@ SUBROUTINE CALC_CB_MEFM_MPF 97865 format(32767(1es14.6)) ! ********************************************************************************************************************************** - + END SUBROUTINE CALC_CB_MEFM_MPF diff --git a/Source/LK6/CALC_KRRcb.f90 b/Source/LK6/CALC_KRRcb.f90 index ab7b81dc..c5dc4df3 100644 --- a/Source/LK6/CALC_KRRcb.f90 +++ b/Source/LK6/CALC_KRRcb.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE CALC_KRRcb - + ! Calculates the R-set row and col matrix KRRcb in the CB transformation matrix: ! KRRcb = KRR + KRL*DLR - + ! For a description of Craig-Bamptom analyses, see Appendix D to the MYSTRAN User's Referance Manual @@ -50,9 +50,9 @@ SUBROUTINE CALC_KRRcb USE CALC_KRRcb_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CALC_KRRcb' - CHARACTER( 1*BYTE) :: EQUED ! 'Y' if KRRcb stiff matrix was equilibrated in subr EQUILIBRATE + CHARACTER( 1*BYTE) :: EQUED ! 'Y' if KRRcb stiff matrix was equilibrated in subr EQUILIBRATE CHARACTER( 1*BYTE) :: SYM_CRS3 ! Storage format for matrix CRS3 (either 'Y' for sym storage or ! 'N' for nonsymmetric storage) @@ -62,7 +62,7 @@ SUBROUTINE CALC_KRRcb INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: INFO = -1 ! Input value for subr SYM_MAT_DECOMP_LAPACK (don't quit on sing KRRCB) - INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 + INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 INTEGER(LONG) :: NTERM_CRS3 ! Number of terms in matrix CRS3 @@ -147,13 +147,13 @@ SUBROUTINE CALC_KRRcb DO J=1,NTERM_KRRcb J_KRRcb(J) = J_KRR(J) KRRcb(J) = KRR(J) - ENDDO + ENDDO ENDIF ! If DEBUG(104) > 0, check if KRRcb is singular. It should be singular regardless of the number of boundary DOF's. -! (KRR is singular if NDOFR = 6 and is a determinant set of supports. KRRcb should be singular always) -! (CODE ONLY IMPLEMENTED FOR SOLLIB == 'BANDED ') +! (KRR is singular if NDOFR = 6 and is a determinant set of supports. KRRcb should be singular always) +! (CODE ONLY IMPLEMENTED FOR SOLLIB == 'BANDED ') IF (DEBUG(104) > 0) THEN @@ -197,5 +197,5 @@ SUBROUTINE CALC_KRRcb ' USER SHOULD CHECK MODEL TO MAKE SURE IT IS NOT RESTRAINED FROM RIGID BODY MOTION') ! ********************************************************************************************************************************** - - END SUBROUTINE CALC_KRRcb \ No newline at end of file + + END SUBROUTINE CALC_KRRcb diff --git a/Source/LK6/CALC_MRN.f90 b/Source/LK6/CALC_MRN.f90 index 601460ed..f14aeda1 100644 --- a/Source/LK6/CALC_MRN.f90 +++ b/Source/LK6/CALC_MRN.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE CALC_MRN - +! End MIT license text. + + SUBROUTINE CALC_MRN + ! Calculates the R-set row by NVEC (number of eigenvectors) col matrix MRN in the CB transformation matrix: ! MRN = (MRL + DLR'*MLL)*EIGEN_VEC ....... (NOTE: EIGEN_VEC is L-set rows by N=NVEC cols) - + ! For a description of Craig-Bamptom analyses, see Appendix D to the MYSTRAN User's Referance Manual @@ -43,25 +43,25 @@ SUBROUTINE CALC_MRN USE DEBUG_PARAMETERS, ONLY : DEBUG USE PARAMS, ONLY : SPARSTOR USE EIGEN_MATRICES_1, ONLY : EIGEN_VEC - USE SPARSE_MATRICES , ONLY : SYM_DLR, SYM_MLL, SYM_MLLn, SYM_MRL, SYM_MRL, SYM_MRN + USE SPARSE_MATRICES , ONLY : SYM_DLR, SYM_MLL, SYM_MLLn, SYM_MRL, SYM_MRL, SYM_MRN USE SPARSE_MATRICES , ONLY : I_MLL , J_MLL , MLL , I_MLLn, J_MLLn, MLLn, I_MRL , J_MRL , MRL , & I_DLR , J_DLR , DLR , I_DLRt, J_DLRt, DLRt, I_MRN, J_MRN, MRN, & - I_MPF0, J_MPF0, MPF0 - + I_MPF0, J_MPF0, MPF0 + USE SCRATCH_MATRICES, ONLY : I_CCS1, J_CCS1, CCS1, I_CRS1, J_CRS1, CRS1, I_CRS2, J_CRS2, CRS2, I_CRS3, J_CRS3, CRS3 USE CALC_MRN_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CALC_MRN ' INTEGER(LONG) :: AROW_MAX_TERMS ! Output from MATMULT_SFS_NTERM and input to MATMULT_SFS INTEGER(LONG) :: I,J ! DO loop indices - INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 - INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 - INTEGER(LONG) :: NTERM_CRS3 ! Number of terms in matrix CRS3 + INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 + INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 + INTEGER(LONG) :: NTERM_CRS3 ! Number of terms in matrix CRS3 @@ -73,7 +73,7 @@ SUBROUTINE CALC_MRN CALL ALLOCATE_SPARSE_MAT ( 'MRN', NDOFR, NTERM_MRN, SUBR_NAME ) IF (NTERM_MLL > 0) THEN ! Part I of MRRcb: calc DLR'*MLL - + IF (SPARSTOR == 'SYM ') THEN ! I-a: Convert MLL to nonsym MLLn, if required. Need for MATMULT_SSS CALL SPARSE_MAT_DIAG_ZEROS ( 'MLL', NDOFL, NTERM_MLL, I_MLL, J_MLL, NUM_MLL_DIAG_ZEROS ) @@ -121,7 +121,7 @@ SUBROUTINE CALC_MRN ENDIF - IF (DEBUG(103) > 0) THEN ! Algorithm for calculating MPF's will not use MRL (or MLR) + IF (DEBUG(103) > 0) THEN ! Algorithm for calculating MPF's will not use MRL (or MLR) NTERM_CRS2 = NTERM_CRS1 ! Store CRS1 = DLRt*MLL in CRS2 for use below in calculating MPF0 CALL ALLOCATE_SCR_CRS_MAT ( 'CRS2', NDOFR, NTERM_CRS2, SUBR_NAME ) @@ -129,7 +129,7 @@ SUBROUTINE CALC_MRN DO I=1,NDOFR+1 I_CRS2 (I) = I_CRS1(I) ENDDO - DO J=1,NTERM_CRS2 + DO J=1,NTERM_CRS2 J_CRS2 (J) = J_CRS1(J) CRS2 (J) = CRS1(J) ENDDO @@ -179,7 +179,7 @@ SUBROUTINE CALC_MRN CALL MATMULT_SFS ('MRL + DLRt*MLL', NDOFR, NTERM_CRS1, 'N', I_CRS1, J_CRS1, CRS1, 'EIGEN_VEC', NDOFL, NVEC, EIGEN_VEC, & AROW_MAX_TERMS, 'MRN', ONE, NTERM_MRN, I_MRN, J_MRN, MRN ) NTERM_MPF0 = NTERM_MRN - + IF (DEBUG(103) == 0) THEN ! Include MRL (or MLR) in MPF (modal participation factor) calculation NTERM_MPF0 = NTERM_MRN ! MPF0 = MRN = (MRL + DLR'*MLL)*EIGEN_VEC @@ -220,7 +220,7 @@ SUBROUTINE CALC_MRN - + RETURN ! ********************************************************************************************************************************** @@ -232,5 +232,5 @@ SUBROUTINE CALC_MRN 97532 format(' I, I_CCS1(I), CCS1(I) = ', 2i8,1es14.6) ! ********************************************************************************************************************************** - - END SUBROUTINE CALC_MRN \ No newline at end of file + + END SUBROUTINE CALC_MRN diff --git a/Source/LK6/CALC_MRRcb.f90 b/Source/LK6/CALC_MRRcb.f90 index c70aca5c..2c871474 100644 --- a/Source/LK6/CALC_MRRcb.f90 +++ b/Source/LK6/CALC_MRRcb.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE CALC_MRRcb - + ! Calculates the R-set row and col matrix MRRcb in the CB transformation matrix: ! MRRcb = MRR + MRL*DLR + (MRL*DLR)' + DLR'*MLL*DLR - + ! For a description of Craig-Bamptom analyses, see Appendix D to the MYSTRAN User's Referance Manual @@ -53,7 +53,7 @@ SUBROUTINE CALC_MRRcb USE CALC_MRRcb_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CALC_MRRcb' CHARACTER( 1*BYTE) :: SYM_CRS1 ! Storage format for matrix CRS1 (either 'Y' for sym storage or ! 'N' for nonsymmetric storage) @@ -62,10 +62,10 @@ SUBROUTINE CALC_MRRcb INTEGER(LONG) :: AROW_MAX_TERMS ! Output from MATMULT_SFS_NTERM and input to MATMULT_SFS INTEGER(LONG) :: I,J ! DO loop indices - INTEGER(LONG) :: NTERM_CCS1 ! Number of terms in matrix CCS1 - INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 - INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 - INTEGER(LONG) :: NTERM_CRS3 ! Number of terms in matrix CRS3 + INTEGER(LONG) :: NTERM_CCS1 ! Number of terms in matrix CCS1 + INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 + INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 + INTEGER(LONG) :: NTERM_CRS3 ! Number of terms in matrix CRS3 INTEGER(LONG) :: NUM_MRRcb_DIAG_0 ! Number of zero diagonal terms in MRRcb @@ -87,7 +87,7 @@ SUBROUTINE CALC_MRRcb DO J=1,NTERM_MRRcb J_MRRcb(J) = J_MRR(J) MRRcb(J) = MRR(J) - ENDDO + ENDDO ! CCS1 will be sparse CCS format version of sparse CRS matrix DLR CALL ALLOCATE_SCR_CCS_MAT ( 'CCS1', NDOFR, NTERM_DLR, SUBR_NAME ) CALL SPARSE_CRS_SPARSE_CCS ( NDOFL, NDOFR, NTERM_DLR, 'DLR', I_DLR, J_DLR, DLR, 'CCS1', J_CCS1, I_CCS1, CCS1, 'Y' ) @@ -121,7 +121,7 @@ SUBROUTINE CALC_MRRcb CALL DEALLOCATE_SCR_MAT ( 'CRS2' ) ! I-6 , CRS3 = (MRL*DLR) + (MRL*DLR)t has all nonzero terms in it. - IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS3 as sym in CRS1 + IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS3 as sym in CRS1 CALL SPARSE_CRS_TERM_COUNT ( NDOFR, NTERM_CRS3, '(MRL*DLR) + (MRL*DLR)t', I_CRS3, J_CRS3, NTERM_CRS1 ) CALL ALLOCATE_SCR_CRS_MAT ( 'CRS1', NDOFR, NTERM_CRS1, SUBR_NAME ) @@ -150,7 +150,7 @@ SUBROUTINE CALC_MRRcb CALL OUTA_HERE ( 'Y' ) ENDIF - + CALL DEALLOCATE_SCR_MAT ( 'CRS3' ) ! 1-7 , Now CRS1 = (MRL*DLR) + (MRL*DLR)t so deallocate CRS3 ! I-8 , sparse add: CRS3 = MRR + CRS1 = MRR + (MRL*DLR) + (MRL*DLR)t CALL MATADD_SSS_NTERM ( NDOFR, 'MRR', NTERM_MRR, I_MRR, J_MRR, SYM_MRR, 'MRL*DLR + (MRL*DLR)t', NTERM_CRS1, & @@ -163,16 +163,16 @@ SUBROUTINE CALC_MRRcb NTERM_MRRcb = NTERM_CRS3 ! I-10, allocate MRRcb to be size of CRS1 - CALL DEALLOCATE_SPARSE_MAT ( 'MRRcb' ) ! Reset MRRcb to CRS3 = + CALL DEALLOCATE_SPARSE_MAT ( 'MRRcb' ) ! Reset MRRcb to CRS3 = CALL ALLOCATE_SPARSE_MAT ( 'MRRcb', NDOFR, NTERM_MRRcb, SUBR_NAME ) ! I-11, set MRRcb = CRS3 = MRR + (MRL*DLR) + (MRL*DLR)t - DO I=1,NDOFR+1 + DO I=1,NDOFR+1 I_MRRcb(I) = I_CRS3(I) ENDDO DO J=1,NTERM_MRRcb J_MRRcb(J) = J_CRS3(J) MRRcb(J) = CRS3(J) - ENDDO + ENDDO CALL DEALLOCATE_SCR_MAT ( 'CRS3' ) ! I-12, deallocate CRS3 @@ -214,7 +214,7 @@ SUBROUTINE CALC_MRRcb CALL DEALLOCATE_SCR_MAT ( 'CCS1' ) ! II-6 , deallocate CCS1 ! II-7 , CRS1 = DLRt*MLL*DLR has all nonzero terms in it. - IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS1 as sym in CRS3 + IF (SPARSTOR == 'SYM ') THEN ! If SPARSTOR == 'SYM ', rewrite CRS1 as sym in CRS3 CALL SPARSE_CRS_TERM_COUNT ( NDOFR, NTERM_CRS1, 'DLRt*MLL*DLR all nonzeros', I_CRS1, J_CRS1, NTERM_CRS3 ) CALL ALLOCATE_SCR_CRS_MAT ( 'CRS3', NDOFR, NTERM_CRS3, SUBR_NAME ) @@ -317,5 +317,5 @@ SUBROUTINE CALC_MRRcb ,/,14X,' PARAMETER SPARSTOR MUST BE EITHER "SYM" OR "NONSYM" BUT VALUE IS ',A) ! ********************************************************************************************************************************** - - END SUBROUTINE CALC_MRRcb \ No newline at end of file + + END SUBROUTINE CALC_MRRcb diff --git a/Source/LK6/CALC_PHIZL.f90 b/Source/LK6/CALC_PHIZL.f90 index f04f94c3..37613856 100644 --- a/Source/LK6/CALC_PHIZL.f90 +++ b/Source/LK6/CALC_PHIZL.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE CALC_PHIZL - + ! Merges matrices to get L-set displ transfer matrix: ! PHIZL = [ PHIZL1 | PHIZL2 | DLR ] @@ -36,7 +36,7 @@ SUBROUTINE CALC_PHIZL ! For a description of Craig-Bamptom analyses, see Appendix D to the MYSTRAN User's Referance Manual - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFL, NDOFR, & @@ -46,26 +46,26 @@ SUBROUTINE CALC_PHIZL USE PARAMS, ONLY : PRTPHIZL, SPARSTOR USE TIMDAT, ONLY : TSEC USE EIGEN_MATRICES_1, ONLY : EIGEN_VEC, EIGEN_VAL - USE SPARSE_MATRICES, ONLY : SYM_MLL, SYM_MLR, SYM_MRL, SYM_KLL, SYM_DLR, SYM_PHIZL , SYM_PHIZL1 , SYM_PHIZL2 + USE SPARSE_MATRICES, ONLY : SYM_MLL, SYM_MLR, SYM_MRL, SYM_KLL, SYM_DLR, SYM_PHIZL , SYM_PHIZL1 , SYM_PHIZL2 USE SPARSE_MATRICES, ONLY : I_MLL , J_MLL , MLL , I_MLR , J_MLR , MLR , I_MRL , J_MRL , MRL, & I_KLL , J_KLL , KLL , I_DLR , J_DLR , DLR , & I_PHIZL , J_PHIZL , PHIZL , I_PHIZL1, J_PHIZL1, PHIZL1, I_PHIZL2, J_PHIZL2, PHIZL2 - USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1, I_CRS2, J_CRS2, CRS2, I_CRS3, J_CRS3, CRS3, I_CCS1, J_CCS1, CCS1 + USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1, I_CRS2, J_CRS2, CRS2, I_CRS3, J_CRS3, CRS3, I_CCS1, J_CCS1, CCS1 USE CALC_PHIZL_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CALC_PHIZL' INTEGER(LONG) :: AROW_MAX_TERMS ! Output from MATMULT_SFS_NTERM and input to MATMULT_SFS INTEGER(LONG) :: I,J ! DO loop indices - INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 - INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 - INTEGER(LONG) :: NTERM_CRS3 ! Number of terms in matrix CRS3 + INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in matrix CRS1 + INTEGER(LONG) :: NTERM_CRS2 ! Number of terms in matrix CRS2 + INTEGER(LONG) :: NTERM_CRS3 ! Number of terms in matrix CRS3 REAL(DOUBLE) :: DUM1(NDOFL,NVEC) ! Intermediate matrix @@ -104,7 +104,7 @@ SUBROUTINE CALC_PHIZL CALL DEALLOCATE_SCR_MAT ( 'CCS1' ) - IF (NTERM_MLR > 0) THEN ! Sparse add to get CRS3 = MLR + MLL*DLR = MLR + CRS1 + IF (NTERM_MLR > 0) THEN ! Sparse add to get CRS3 = MLR + MLL*DLR = MLR + CRS1 CALL MATADD_SSS_NTERM ( NDOFL, 'MLR', NTERM_MLR, I_MLR, J_MLR, SYM_MLR, 'MLL*DLR', NTERM_CRS1, I_CRS1, J_CRS1, 'N', & 'CRS3', NTERM_CRS3 ) @@ -152,7 +152,7 @@ SUBROUTINE CALC_PHIZL ! Now solve for PHIZL1 - IF (NTERM_CRS3 > 0) THEN ! CRS3 = MLR + MLL*DLR > 0 so solve KLL*PHIZL1 = CRS3 for PHIZL1 + IF (NTERM_CRS3 > 0) THEN ! CRS3 = MLR + MLL*DLR > 0 so solve KLL*PHIZL1 = CRS3 for PHIZL1 CALL SOLVE_PHIZL1 ( NTERM_CRS3 ) ELSE NTERM_PHIZL1 = 0 @@ -178,7 +178,7 @@ SUBROUTINE CALC_PHIZL ! Part 3: Merge PHIZL1 and PHIZL2 into CRS2 ! ------------------------------------- - NTERM_CRS2 = NTERM_PHIZL1 + NTERM_PHIZL2 + NTERM_CRS2 = NTERM_PHIZL1 + NTERM_PHIZL2 CALL ALLOCATE_SCR_CRS_MAT ( 'CRS2', NDOFL, NTERM_CRS2, SUBR_NAME ) @@ -186,7 +186,7 @@ SUBROUTINE CALC_PHIZL 'PHIZL2', NTERM_PHIZL2, I_PHIZL2, J_PHIZL2, PHIZL2, SYM_PHIZL2, NDOFL, & 'CRS2', I_CRS2, J_CRS2, CRS2, 'N' ) -! Part 4: Merge CRS2 (= PHIZL1, PHIZL2) with DLR to get final PHIZL +! Part 4: Merge CRS2 (= PHIZL1, PHIZL2) with DLR to get final PHIZL ! ------------------------------------------------------------ NTERM_PHIZL = NTERM_CRS2 + NTERM_DLR @@ -203,13 +203,13 @@ SUBROUTINE CALC_PHIZL CALL WRITE_SPARSE_CRS ( 'PHIZL',' ',' ', NTERM_PHIZL, NDOFL, I_PHIZL, J_PHIZL, PHIZL ) ENDIF -! Part 5: Deallocate PHIZL1 and PHIZL2 +! Part 5: Deallocate PHIZL1 and PHIZL2 CALL DEALLOCATE_SPARSE_MAT ( 'PHIZL1' ) CALL DEALLOCATE_SPARSE_MAT ( 'PHIZL2' ) - + RETURN ! ********************************************************************************************************************************** @@ -219,4 +219,4 @@ SUBROUTINE CALC_PHIZL ! ********************************************************************************************************************************** - END SUBROUTINE CALC_PHIZL \ No newline at end of file + END SUBROUTINE CALC_PHIZL diff --git a/Source/LK6/DEALLOCATE_L6_2.f90 b/Source/LK6/DEALLOCATE_L6_2.f90 index 0f01a671..3b7e275d 100644 --- a/Source/LK6/DEALLOCATE_L6_2.f90 +++ b/Source/LK6/DEALLOCATE_L6_2.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_L6_2 ( NAME ) @@ -34,7 +34,7 @@ SUBROUTINE DEALLOCATE_L6_2 ( NAME ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO - USE SPARSE_MATRICES, ONLY : I2_DLR, I2_DLRt, I2_PHIZL1, I2_PHIZL1t + USE SPARSE_MATRICES, ONLY : I2_DLR, I2_DLRt, I2_PHIZL1, I2_PHIZL1t USE DEALLOCATE_L6_2_USE_IFs @@ -42,11 +42,11 @@ SUBROUTINE DEALLOCATE_L6_2 ( NAME ) CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_L6_2' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -65,50 +65,50 @@ SUBROUTINE DEALLOCATE_L6_2 ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'DLRt') THEN - IF (ALLOCATED(I2_DLRt)) THEN ! Deallocate array I2_DLRt + IF (ALLOCATED(I2_DLRt)) THEN ! Deallocate array I2_DLRt DEALLOCATE (I2_DLRt,STAT=IERR) IF (IERR /= 0) THEN WRITE(ERR,992) NAME,SUBR_NAME WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'PHIZL1') THEN - IF (ALLOCATED(I2_PHIZL1)) THEN ! Deallocate array I2_PHIZL1 + IF (ALLOCATED(I2_PHIZL1)) THEN ! Deallocate array I2_PHIZL1 DEALLOCATE (I2_PHIZL1,STAT=IERR) IF (IERR /= 0) THEN WRITE(ERR,992) NAME,SUBR_NAME WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'PHIZL1t') THEN - IF (ALLOCATED(I2_PHIZL1t)) THEN ! Deallocate array I2_PHIZL1t + IF (ALLOCATED(I2_PHIZL1t)) THEN ! Deallocate array I2_PHIZL1t DEALLOCATE (I2_PHIZL1t,STAT=IERR) IF (IERR /= 0) THEN WRITE(ERR,992) NAME,SUBR_NAME WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN diff --git a/Source/LK6/INTERFACE_FORCE_LTM.f90 b/Source/LK6/INTERFACE_FORCE_LTM.f90 index a804a246..9c78cb8d 100644 --- a/Source/LK6/INTERFACE_FORCE_LTM.f90 +++ b/Source/LK6/INTERFACE_FORCE_LTM.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE INTERFACE_FORCE_LTM - + ! Merges matrices to get the interface force Loads Transformation Matrix (LTM): ! IF_LTM = | MRRcb MRN KRRcb | ! For a description of Craig-Bamptom analyses, see Appendix D to the MYSTRAN User's Referance Manual - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFR, NTERM_KRRcb, NTERM_KRRcbn, NTERM_MRRcbn, NTERM_MRN , & @@ -40,11 +40,11 @@ SUBROUTINE INTERFACE_FORCE_LTM USE PARAMS, ONLY : PRTIFLTM, SPARSTOR USE TIMDAT, ONLY : TSEC - USE SPARSE_MATRICES, ONLY : SYM_KRRcb, SYM_KRRcbn, SYM_MRN , SYM_MRRcbn, SYM_IF_LTM + USE SPARSE_MATRICES, ONLY : SYM_KRRcb, SYM_KRRcbn, SYM_MRN , SYM_MRRcbn, SYM_IF_LTM USE SPARSE_MATRICES, ONLY : I_MRRcbn , J_MRRcbn , MRRcbn , I_MRN , J_MRN , MRN , & I_KRRcb , J_KRRcb , KRRcb , I_KRRcbn , J_KRRcbn , KRRcbn , & - I_IF_LTM , J_IF_LTM , IF_LTM + I_IF_LTM , J_IF_LTM , IF_LTM USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1 @@ -52,7 +52,7 @@ SUBROUTINE INTERFACE_FORCE_LTM USE INTERFACE_FORCE_LTM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'INTERFACE_FORCE_LTM' INTEGER(LONG) :: I,J ! DO loop indices @@ -96,9 +96,9 @@ SUBROUTINE INTERFACE_FORCE_LTM ENDIF -! Allocate enough memory for merge of cols of MRRcbn with MRN +! Allocate enough memory for merge of cols of MRRcbn with MRN - NTERM_CRS1 = NTERM_MRRcbn+NTERM_MRN + NTERM_CRS1 = NTERM_MRRcbn+NTERM_MRN CALL ALLOCATE_SCR_CRS_MAT ( 'CRS1', NDOFR, NTERM_CRS1, SUBR_NAME ) ! Merge MRRcbn and MRN (both in nonsym format) into nonsym format temporary scratch matrix CRS1. @@ -107,14 +107,14 @@ SUBROUTINE INTERFACE_FORCE_LTM 'MRN ' , NTERM_MRN , I_MRN , J_MRN , MRN , SYM_MRN , NDOFR, & 'MRRcbn merged with MRN ', I_CRS1 , J_CRS1 , CRS1 , 'N' ) -! Merge CRS1 with KRRcb to get IF_LTM +! Merge CRS1 with KRRcb to get IF_LTM NCOL_CRS1 = NDOFR + NVEC NTERM_IF_LTM = NTERM_CRS1 + NTERM_KRRcbn CALL ALLOCATE_SPARSE_MAT ( 'IF_LTM ', NDOFR, NTERM_IF_LTM , SUBR_NAME ) CALL MERGE_MAT_COLS_SSS ( 'CRS1' , NTERM_CRS1 , I_CRS1 , J_CRS1 , CRS1 , 'N' , NCOL_CRS1, & 'KRRcbn' , NTERM_KRRcbn , I_KRRcbn , J_KRRcbn , KRRcbn , SYM_KRRcbn , NDOFR, & - 'IF_LTM', I_IF_LTM , J_IF_LTM , IF_LTM , SYM_IF_LTM ) + 'IF_LTM', I_IF_LTM , J_IF_LTM , IF_LTM , SYM_IF_LTM ) CALL DEALLOCATE_SCR_MAT ( 'CRS1' ) CALL DEALLOCATE_SPARSE_MAT ( 'KRRcbn' ) @@ -124,7 +124,7 @@ SUBROUTINE INTERFACE_FORCE_LTM - + RETURN ! ********************************************************************************************************************************** @@ -135,4 +135,4 @@ SUBROUTINE INTERFACE_FORCE_LTM ! ********************************************************************************************************************************** - END SUBROUTINE INTERFACE_FORCE_LTM \ No newline at end of file + END SUBROUTINE INTERFACE_FORCE_LTM diff --git a/Source/LK6/LINK6.f90 b/Source/LK6/LINK6.f90 index e15a5521..4b0ab43b 100644 --- a/Source/LK6/LINK6.f90 +++ b/Source/LK6/LINK6.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE LINK6 - + ! LINK6 generates Craig-Bampton model matrices and outputs those matrices to unformatted files as requested in Executive Control ! via OUTPUT4 entries. @@ -44,7 +44,7 @@ SUBROUTINE LINK6 USE SCONTR, ONLY : NTERM_CG_LTM, NTERM_DLR , NTERM_PHIZL , NTERM_IF_LTM, & NTERM_IRR , NTERM_KLL , NTERM_KRL , NTERM_KRR , NTERM_KRRcb , & NTERM_KXX , NTERM_MLL , NTERM_MRL , NTERM_MRN , NTERM_MRR , NTERM_MRRcb , & - NTERM_MXX , NTERM_PHIXA + NTERM_MXX , NTERM_PHIXA USE CONSTANTS_1, ONLY : ONE USE DEBUG_PARAMETERS, ONLY : DEBUG @@ -63,25 +63,25 @@ SUBROUTINE LINK6 USE LINK6_USE_IFs ! Added 2019/07/14 USE LINK_MESSAGE_Interface - + IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'LINK6' - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not - CHARACTER( 1*BYTE) :: READ_NTERM ! 'Y' or 'N' Input to subr READ_MATRIX_1 + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not + CHARACTER( 1*BYTE) :: READ_NTERM ! 'Y' or 'N' Input to subr READ_MATRIX_1 CHARACTER( 1*BYTE) :: NULL_COL ! = 'Y' if col returned from subr GET_SPARSE_CRS_COL is null - CHARACTER( 1*BYTE) :: OPND ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not + CHARACTER( 1*BYTE) :: OPND ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERROR = 0 ! Error count when reading records from a file. INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening/reading a file INTEGER(LONG) :: NUM_SOLNS ! No. of solutions to process (e.g. NSUB for STATICS) INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN. - INTEGER(LONG) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (N set into F and S sets) + INTEGER(LONG) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (N set into F and S sets) INTEGER(LONG), PARAMETER :: P_LINKNO = 4 ! Prior LINK no's that should have run before this LINK can execute INTEGER(LONG) :: REC_NO ! Record number when reading a file. - + REAL(DOUBLE) :: PHIZL_COL(NDOFL) ! Full column from sparse PHIZL matrix ! ********************************************************************************************************************************** @@ -114,12 +114,12 @@ SUBROUTINE LINK6 OUNT(2) = F06 ! Write info to text files - + WRITE(F06,150) LINKNO WRITE(ERR,150) LINKNO ! Read LINK1A file - + CALL READ_L1A ( 'KEEP' ) ! Set NUM_CB_DOFS (since it was initialized as 0 in SCONTR and hasn't been calc'd yet, must do this AFTER we call READ_L1A) @@ -137,9 +137,9 @@ SUBROUTINE LINK6 ! Read eigenvalues. EIGEN_VAL was not deallocated in LINK4 (see LINK4 comment 01/11/19) so we do not allocate it here anymore -!xx CALL ALLOCATE_EIGEN1_MAT ( 'EIGEN_VAL', NUM_EIGENS, 1, SUBR_NAME ) - CALL ALLOCATE_EIGEN1_MAT ( 'MODE_NUM' , NUM_EIGENS, 1, SUBR_NAME ) - CALL ALLOCATE_EIGEN1_MAT ( 'GEN_MASS' , NUM_EIGENS, 1, SUBR_NAME ) +!xx CALL ALLOCATE_EIGEN1_MAT ( 'EIGEN_VAL', NUM_EIGENS, 1, SUBR_NAME ) + CALL ALLOCATE_EIGEN1_MAT ( 'MODE_NUM' , NUM_EIGENS, 1, SUBR_NAME ) + CALL ALLOCATE_EIGEN1_MAT ( 'GEN_MASS' , NUM_EIGENS, 1, SUBR_NAME ) CALL READ_L1M ( IERROR ) !!Read KLL stiffness matrix @@ -239,12 +239,12 @@ SUBROUTINE LINK6 IERROR = IERROR + 1 ENDIF ENDDO - ENDDO - CALL FILE_CLOSE ( L3A, LINK3A, 'KEEP' ) + ENDDO + CALL FILE_CLOSE ( L3A, LINK3A, 'KEEP' ) IF (IERROR > 0) THEN CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF ! Solve for DLR @@ -296,7 +296,7 @@ SUBROUTINE LINK6 CALL CALC_KRRcb CALL LINK_MESSAGE('MERGE MATRICES INTO KXX ') - CALL MERGE_KXX + CALL MERGE_KXX ! Calc MXX, the CB mass matrix (with DOF's: R-set displs and modal DOF's) @@ -304,14 +304,14 @@ SUBROUTINE LINK6 CALL CALC_MRRcb CALL LINK_MESSAGE('CALC MRN ') - CALL CALC_MRN + CALL CALC_MRN !xx WRITE(SC1, * ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate DLRt ', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'DLRt' ) CALL LINK_MESSAGE('MERGE MATRICES INTO MXX ') - CALL MERGE_MXX + CALL MERGE_MXX ! Calculate LTM for interface forces @@ -343,7 +343,7 @@ SUBROUTINE LINK6 WRITE(L3A) PHIZL_COL(J) ENDDO ENDDO - CALL FILE_CLOSE ( L3A, LINK3A, 'KEEP' ) + CALL FILE_CLOSE ( L3A, LINK3A, 'KEEP' ) ! Calc modal participation factors and modal mass @@ -389,8 +389,8 @@ SUBROUTINE LINK6 WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KLLs ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KLLs' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KRL ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KRL' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KRR ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KRR' ) - WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KRRcb ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KRRcb' ) - WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KXX ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KXX' ) + WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KRRcb ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KRRcb' ) + WRITE(SC1,12345,ADVANCE='NO') ' Deallocate KXX ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'KXX' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate LTM ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'LTM' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MLL ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'MLL' ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MRL ', CR13 ; CALL DEALLOCATE_SPARSE_MAT ( 'MRL' ) @@ -459,5 +459,5 @@ SUBROUTINE LINK6 99887 format(32767(1es14.6)) ! ################################################################################################################################## - - END SUBROUTINE LINK6 \ No newline at end of file + + END SUBROUTINE LINK6 diff --git a/Source/LK6/MERGE_KXX.f90 b/Source/LK6/MERGE_KXX.f90 index bf7c89a9..9bac89b1 100644 --- a/Source/LK6/MERGE_KXX.f90 +++ b/Source/LK6/MERGE_KXX.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE MERGE_KXX - +! End MIT license text. + + SUBROUTINE MERGE_KXX + ! Merges matrices to get CB stifness matrix: ! | KRRcb 0 | KRRcb = KRR + KLR'*DLR @@ -33,7 +33,7 @@ SUBROUTINE MERGE_KXX ! | 0 Kee | Kee = gen stiffnesses for the eigenvecs of the L-set = EIGEN_VAL(i)*GEN_MASS(i) ! (this is a diagonal matrix) - + ! For a description of Craig-Bamptom analyses, see Appendix D to the MYSTRAN User's Referance Manual @@ -43,12 +43,12 @@ SUBROUTINE MERGE_KXX USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : PRTKXX USE EIGEN_MATRICES_1, ONLY : GEN_MASS, EIGEN_VAL - USE SPARSE_MATRICES , ONLY : I_KRRcb, J_KRRcb, KRRcb, I_KXX , J_KXX , KXX + USE SPARSE_MATRICES , ONLY : I_KRRcb, J_KRRcb, KRRcb, I_KXX , J_KXX , KXX USE MERGE_KXX_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MERGE_KXX ' INTEGER(LONG) :: I,J ! DO loop indices @@ -72,7 +72,7 @@ SUBROUTINE MERGE_KXX KXX (J) = KRRcb(J) ENDDO K = 0 - DO J=NTERM_KRRcb+1,NTERM_KXX + DO J=NTERM_KRRcb+1,NTERM_KXX K = K + 1 J_KXX (J) = NDOFR + K KXX (J) = EIGEN_VAL(K)*GEN_MASS(K) @@ -84,7 +84,7 @@ SUBROUTINE MERGE_KXX ENDIF - + RETURN ! ********************************************************************************************************************************** @@ -92,4 +92,4 @@ SUBROUTINE MERGE_KXX ! ********************************************************************************************************************************** - END SUBROUTINE MERGE_KXX \ No newline at end of file + END SUBROUTINE MERGE_KXX diff --git a/Source/LK6/MERGE_LTM.f90 b/Source/LK6/MERGE_LTM.f90 index a6ca259d..444a7669 100644 --- a/Source/LK6/MERGE_LTM.f90 +++ b/Source/LK6/MERGE_LTM.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE MERGE_LTM - +! End MIT license text. + + SUBROUTINE MERGE_LTM + ! Merges CG_LTM and IF_LTM into LTM matrix: ! | CG_LTM | 6 x NUM_CB_DOFS 1st 6 rows of LTM ! LTM = | | ! | IF_LTM | NDOFR x NUM_CB_DOFS last NDOFR rows of LTM - + ! For a description of Craig-Bamptom analyses, see Appendix D to the MYSTRAN User's Referance Manual @@ -45,11 +45,11 @@ SUBROUTINE MERGE_LTM USE MERGE_LTM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MERGE_LTM ' INTEGER(LONG) :: I ! DO loop index - INTEGER(LONG) :: LTM_MERGE_VEC(6+NDOFR) + INTEGER(LONG) :: LTM_MERGE_VEC(6+NDOFR) @@ -72,9 +72,9 @@ SUBROUTINE MERGE_LTM 'IF_LTM', NDOFR, NTERM_IF_LTM, I_IF_LTM, J_IF_LTM, IF_LTM, 2, LTM_MERGE_VEC, & 'LTM' , I_LTM , J_LTM , LTM ) - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE MERGE_LTM diff --git a/Source/LK6/MERGE_MXX.f90 b/Source/LK6/MERGE_MXX.f90 index 5a5d97df..821e36ab 100644 --- a/Source/LK6/MERGE_MXX.f90 +++ b/Source/LK6/MERGE_MXX.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE MERGE_MXX - +! End MIT license text. + + SUBROUTINE MERGE_MXX + ! Merges matrices to get CB stifness matrix: ! | MRRcb MRN | MRRcb = MRR + MRL*DLR + (MRL*DLR)' + DLR'*MLL*DLR ! MXX = | | MRN = (MRL + DLR'*MLL)*EIGEN_VEC ! | sym Mee | Mee = generalized MASSES for the eigenvectors of the L-set - + ! For a description of Craig-Bamptom analyses, see Appendix D to the MYSTRAN User's Referance Manual @@ -50,23 +50,23 @@ SUBROUTINE MERGE_MXX USE MERGE_MXX_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MERGE_MXX ' INTEGER(LONG) :: I,J ! DO loop indices - INTEGER(LONG) :: I_GEN_MASS2(NVEC+1)! - INTEGER(LONG) :: I_MNR(NVEC+1) ! + INTEGER(LONG) :: I_GEN_MASS2(NVEC+1)! + INTEGER(LONG) :: I_MNR(NVEC+1) ! INTEGER(LONG) :: I_MXXa(NDOFR+1) ! Upper NDOFR rows of MXX INTEGER(LONG) :: I_MXXb(NVEC+1) ! Lower NVEC rows of MXX - INTEGER(LONG) :: J_GEN_MASS2(NVEC) ! + INTEGER(LONG) :: J_GEN_MASS2(NVEC) ! INTEGER(LONG) :: J_MNR(NTERM_MRN) ! INTEGER(LONG) :: J_MXXa(NTERM_MRRcbn+NTERM_MRN) INTEGER(LONG) :: J_MXXb(NTERM_MRN+NVEC) !xx INTEGER(LONG) :: K1,K2 ! Counters - INTEGER(LONG) :: MXXn_MERGE_VEC(NDOFR+NVEC) - INTEGER(LONG) :: NTERM_MNR ! - INTEGER(LONG) :: NTERM_MXXa ! - INTEGER(LONG) :: NTERM_MXXb ! + INTEGER(LONG) :: MXXn_MERGE_VEC(NDOFR+NVEC) + INTEGER(LONG) :: NTERM_MNR ! + INTEGER(LONG) :: NTERM_MXXa ! + INTEGER(LONG) :: NTERM_MXXb ! !xx INTEGER(LONG) :: NUM_MNR_IN_ROW_I ! Number of terms in row i of MNR @@ -78,9 +78,9 @@ SUBROUTINE MERGE_MXX ! ********************************************************************************************************************************** - NTERM_MNR = NTERM_MRN + NTERM_MNR = NTERM_MRN NTERM_MXXa = NTERM_MRRcbn + NTERM_MRN - NTERM_MXXb = NTERM_MNR + NVEC + NTERM_MXXb = NTERM_MNR + NVEC ! NTERM_MRRcbn was set in subr CALC_MRRcb @@ -172,7 +172,7 @@ SUBROUTINE MERGE_MXX 'MXXb', NVEC , NTERM_MXXb, I_MXXb, J_MXXb, MXXb, 2, MXXn_MERGE_VEC, & 'MXXn' , I_MXXn, J_MXXn, MXXn ) -! Convert MXXn to symmetric format MXX +! Convert MXXn to symmetric format MXX IF (SPARSTOR == 'SYM ') THEN @@ -188,7 +188,7 @@ SUBROUTINE MERGE_MXX DO I=1,NDOFR+NVEC+1 I_MXX(I) = I_MXXn(I) ENDDO - DO J=1,NTERM_MXX + DO J=1,NTERM_MXX J_MXX(J) = J_MXXn(J) MXX(J) = MXXn(J) ENDDO @@ -202,7 +202,7 @@ SUBROUTINE MERGE_MXX ENDIF - + RETURN ! ********************************************************************************************************************************** @@ -210,5 +210,5 @@ SUBROUTINE MERGE_MXX ,/,14X,' PARAMETER SPARSTOR MUST BE EITHER "SYM" OR "NONSYM" BUT VALUE IS ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE MERGE_MXX diff --git a/Source/LK6/MERGE_PHIXA.f90 b/Source/LK6/MERGE_PHIXA.f90 index 2a6075a3..9228789a 100644 --- a/Source/LK6/MERGE_PHIXA.f90 +++ b/Source/LK6/MERGE_PHIXA.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MERGE_PHIXA ( PART_VEC_A_LR ) - + ! Merges matrices to get CB matrix PHIXA: ! |IRR 0RN | IRR = R-set identity matrix, 0RN = RxN null matrix (N = num modes) @@ -43,14 +43,14 @@ SUBROUTINE MERGE_PHIXA ( PART_VEC_A_LR ) USE CONSTANTS_1, ONLY : ZERO USE EIGEN_MATRICES_1, ONLY : EIGEN_VEC USE SPARSE_MATRICES, ONLY : I_DLR , J_DLR , DLR , I_IRR , J_IRR , IRR , I_PHIXA, J_PHIXA, PHIXA - + USE MERGE_PHIXA_USE_IFs ! Added 2019/07/14 IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MERGE_PHIXA' - INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (N set into F and S sets) + INTEGER(LONG), INTENT(IN) :: PART_VEC_A_LR(NDOFA)! Partitioning vector (N set into F and S sets) INTEGER(LONG) :: I,J ! DO loop indices or counters INTEGER(LONG) :: KTERM_IRR ! Count of number terms in arrays J_IRR and A INTEGER(LONG) :: KTERM_DLR ! Count of number terms in arrays J_DLR and B @@ -63,7 +63,7 @@ SUBROUTINE MERGE_PHIXA ( PART_VEC_A_LR ) INTEGER(LONG) :: ROW_NUM_EV ! Row number in matrix EIGEN_VEC (L-set eigenvectors) INTEGER(LONG) :: ROW_NUM_IRR ! Row number in matrix IRR (R-set identity matrix) - + ! ********************************************************************************************************************************** @@ -113,7 +113,7 @@ SUBROUTINE MERGE_PHIXA ( PART_VEC_A_LR ) ENDDO - + RETURN ! ********************************************************************************************************************************** diff --git a/Source/LK6/NET_CG_LOADS_LTM.f90 b/Source/LK6/NET_CG_LOADS_LTM.f90 index 35fdb637..62c5d740 100644 --- a/Source/LK6/NET_CG_LOADS_LTM.f90 +++ b/Source/LK6/NET_CG_LOADS_LTM.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE NET_CG_LOADS_LTM - + ! Merges matrices to get the net CG Loads Transformation Matrix (LTM): ! CG_LTM = MCG(-1)*TR6_CG'*| MRRcb MRN 0RR | 6x(2R+N) ! For a description of Craig-Bamptom analyses, see Appendix D to the MYSTRAN User's Referance Manual - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFR, NTERM_MRRcbn, NTERM_MRN, NTERM_CG_LTM, NUM_CB_DOFS @@ -42,9 +42,9 @@ SUBROUTINE NET_CG_LOADS_LTM USE RIGID_BODY_DISP_MATS, ONLY : TR6_CG, TR6_0 USE MODEL_STUF, ONLY : MCG USE OUTPUT4_MATRICES, ONLY : RBM0 - USE SPARSE_MATRICES, ONLY : SYM_MRN , SYM_MRRcbn, SYM_CG_LTM + USE SPARSE_MATRICES, ONLY : SYM_MRN , SYM_MRRcbn, SYM_CG_LTM USE SPARSE_MATRICES, ONLY : I_MRRcbn , J_MRRcbn , MRRcbn , I_MRN , J_MRN , MRN , & - I_CG_LTM , J_CG_LTM , CG_LTM + I_CG_LTM , J_CG_LTM , CG_LTM USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1, I_CRS2, J_CRS2, CRS2, I_CCS1, J_CCS1, CCS1 @@ -52,7 +52,7 @@ SUBROUTINE NET_CG_LOADS_LTM USE NET_CG_LOADS_LTM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'NET_CG_LOADS_LTM' INTEGER(LONG) :: AROW_MAX_TERMS ! Max number of terms in any row of matrix A sent to subr MATMULT_SSS @@ -64,7 +64,7 @@ SUBROUTINE NET_CG_LOADS_LTM REAL(DOUBLE) :: DUM1(NDOFR,6) ! MRRcbn*TR6_CG - REAL(DOUBLE) :: DUM2(6,NDOFR) ! + REAL(DOUBLE) :: DUM2(6,NDOFR) ! REAL(DOUBLE) :: WCG(6,6) ! MCG/WTMASS REAL(DOUBLE) :: WBASIC(6,6) ! RBM0/WTMASS REAL(DOUBLE) :: MCGI(6,6) ! MCG inverse @@ -142,7 +142,7 @@ SUBROUTINE NET_CG_LOADS_LTM ! Calc DUM2 = MCG(-1)*TR6_CG'. First, transpose TR6_CG to TR6_CGt. Then rewrite DUM2 as a sparse matrix CRS1 so we can use ! MATMULT_SSS to multiply it times the sparse matrix CRS2 below (to get final CG loads LTM) ! If user wants cg LTM calculated such that translational terms are in G's, scale the upper 3 rows of the LTM (but do it on DUM2 -! since it is easier here) +! since it is easier here) DO I=1,6 DO J=1,NDOFR @@ -167,7 +167,7 @@ SUBROUTINE NET_CG_LOADS_LTM ! Merge MRRcbn and MRN (both in nonsym format) into nonsym format temporary scratch matrix CRS2. ! First allocate enough memory for merge of cols of MRRcbn with MRN . - NTERM_CRS2 = NTERM_MRRcbn + NTERM_MRN + NTERM_CRS2 = NTERM_MRRcbn + NTERM_MRN CALL ALLOCATE_SCR_CRS_MAT ( 'CRS2', NDOFR, NTERM_CRS2, SUBR_NAME ) CALL MERGE_MAT_COLS_SSS ( 'MRRcbn', NTERM_MRRcbn, I_MRRcbn, J_MRRcbn, MRRcbn, SYM_MRRcbn, NDOFR, & 'MRN ' , NTERM_MRN , I_MRN , J_MRN , MRN , SYM_MRN , NDOFR, & @@ -198,7 +198,7 @@ SUBROUTINE NET_CG_LOADS_LTM ENDIF - + RETURN ! ********************************************************************************************************************************** @@ -217,4 +217,4 @@ SUBROUTINE NET_CG_LOADS_LTM ! ********************************************************************************************************************************** - END SUBROUTINE NET_CG_LOADS_LTM \ No newline at end of file + END SUBROUTINE NET_CG_LOADS_LTM diff --git a/Source/LK6/SOLVE_DLR.f90 b/Source/LK6/SOLVE_DLR.f90 index 54d9c989..d4945828 100644 --- a/Source/LK6/SOLVE_DLR.f90 +++ b/Source/LK6/SOLVE_DLR.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SOLVE_DLR ! Solves KLL*DLR = -KLR for matrix DLR. However, we will use rows of KRL instead of cols of KLR in the solution. - + ! For a description of Craig-Bamptom analyses, see Appendix D to the MYSTRAN User's Referance Manual @@ -39,8 +39,8 @@ SUBROUTINE SOLVE_DLR USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC USE CONSTANTS_1, ONLY : ZERO, ONE USE SPARSE_MATRICES, ONLY : I2_DLR, I_DLR, J_DLR, DLR, I_DLRt, I2_DLRt, J_DLRt, DLRt, I_KRL, J_KRL, KRL, & - I_KLL, I2_KLL, J_KLL, KLL - + I_KLL, I2_KLL, J_KLL, KLL + USE LAPACK_LIN_EQN_DPB USE SOLVE_DLR_USE_IFs @@ -49,22 +49,22 @@ SUBROUTINE SOLVE_DLR CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SOLVE_DLR' - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not CHARACTER( 8*BYTE) :: CLOSE_STAT ! What to do with file when it is closed - CHARACTER( 1*BYTE) :: EQUED ! 'Y' if KLL stiff matrix was equilibrated in subr EQUILIBRATE - CHARACTER( 24*BYTE) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN + CHARACTER( 1*BYTE) :: EQUED ! 'Y' if KLL stiff matrix was equilibrated in subr EQUILIBRATE + CHARACTER( 24*BYTE) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN CHARACTER( 22*BYTE) :: MODNAM1 ! Name to write to screen to describe module being run - CHARACTER( 1*BYTE) :: READ_NTERM ! 'Y' or 'N' Input to subr READ_MATRIX_1 - CHARACTER( 1*BYTE) :: NULL_COL ! 'Y' if a col of KLR(transpose) is null - CHARACTER( 1*BYTE) :: OPND ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not + CHARACTER( 1*BYTE) :: READ_NTERM ! 'Y' or 'N' Input to subr READ_MATRIX_1 + CHARACTER( 1*BYTE) :: NULL_COL ! 'Y' if a col of KLR(transpose) is null + CHARACTER( 1*BYTE) :: OPND ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not CHARACTER(FILE_NAM_MAXLEN*BYTE) :: SCRFIL ! File name - + INTEGER(LONG) :: DEB_PRT(2) ! Debug numbers to say whether to write ABAND and/or its decomp to output ! file in called subr SYM_MAT_DECOMP_LAPACK INTEGER(LONG) :: I,J ! DO loop indices or counters INTEGER(LONG) :: INFO = 0 ! Info on success of factorization or solve INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening a file - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN REAL(DOUBLE) :: EPS1 ! A small number to compare real zero @@ -76,7 +76,7 @@ SUBROUTINE SOLVE_DLR REAL(DOUBLE) :: INOUT_COL(NDOFL) ! Temp variable for subr FBS REAL(DOUBLE) :: K_INORM ! Inf norm of KLL matrix (det in subr COND_NUM) REAL(DOUBLE) :: RCOND ! Recrip of cond no. of the KLL. Det in subr COND_NUM - + INTRINSIC :: DABS @@ -126,7 +126,7 @@ SUBROUTINE SOLVE_DLR CALL OUTA_HERE ( 'Y' ) ENDIF - + DO I=1,NDOFL ! Make sure that scale factors are one. We don't want any equil scaling EQUIL_SCALE_FACS(I) = ONE ! of KLL in this subr. FBS below has EQUIL_SCALE_FACS as an input but ENDDO ! they shouldn't be used as EQUED = 'N' is also input there (1st arg) @@ -149,9 +149,9 @@ SUBROUTINE SOLVE_DLR CALL FILE_CLOSE ( SCR(1), SCRFIL, 'DELETE' ) CALL OUTA_HERE ( 'Y' ) ! Can't open scratch file, so quit ENDIF - + ! Loop on columns of KLR using rows of KRL - + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages NTERM_DLR = 0 @@ -165,7 +165,7 @@ SUBROUTINE SOLVE_DLR DO I=1,NDOFL INOUT_COL(I) = ZERO DLR_COL(I) = ZERO - ENDDO + ENDDO CALL GET_SPARSE_CRS_ROW ( 'KRL', J, NTERM_KRL, NDOFR, NDOFL, I_KRL, J_KRL, KRL, -ONE, INOUT_COL, NULL_COL ) ! Calculate DLR_COL via forward/backward substitution. @@ -210,11 +210,11 @@ SUBROUTINE SOLVE_DLR NTERM_DLR = NTERM_DLR + 1 WRITE(SCR(1)) I, J, DLR_COL(I) ENDIF - ENDDO + ENDDO ENDIF CALL COUNTER_PROGRESS(J) ENDDO - + ! The DLR data in SCRATCH-991 is written one col at a time for DLR. Therefore it is rows of DLRt REWIND (SCR(1)) @@ -265,7 +265,7 @@ SUBROUTINE SOLVE_DLR 9991 FORMAT(' *ERROR 9991: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,A, ' = ',A,' NOT PROGRAMMED ',A) -12345 FORMAT(3X,A,I8,' of ',I8,A) +12345 FORMAT(3X,A,I8,' of ',I8,A) @@ -273,5 +273,5 @@ SUBROUTINE SOLVE_DLR ! ********************************************************************************************************************************** - - END SUBROUTINE SOLVE_DLR + + END SUBROUTINE SOLVE_DLR diff --git a/Source/LK6/SOLVE_PHIZL1.f90 b/Source/LK6/SOLVE_PHIZL1.f90 index 90dcc17f..a11f4a83 100644 --- a/Source/LK6/SOLVE_PHIZL1.f90 +++ b/Source/LK6/SOLVE_PHIZL1.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SOLVE_PHIZL1 ( NTERM_CRS3 ) ! Solves KLL*PHIZL1 = CRS3 for PHIZL1 where CRS3 = (MLR + MLL*DLR). - + ! For a description of Craig-Bamptom analyses, see Appendix D to the MYSTRAN User's Referance Manual @@ -50,24 +50,24 @@ SUBROUTINE SOLVE_PHIZL1 ( NTERM_CRS3 ) CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SOLVE_PHIZL1 ' - CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not + CHARACTER( 1*BYTE) :: CLOSE_IT ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not CHARACTER( 8*BYTE) :: CLOSE_STAT ! What to do with file when it is closed - CHARACTER( 1*BYTE) :: EQUED ! 'Y' if KLL stiff matrix was equilibrated in subr EQUILIBRATE - CHARACTER( 24*BYTE) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN + CHARACTER( 1*BYTE) :: EQUED ! 'Y' if KLL stiff matrix was equilibrated in subr EQUILIBRATE + CHARACTER( 24*BYTE) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN CHARACTER( 24*BYTE) :: MODNAM1 ! Name to write to screen to describe module being run - CHARACTER( 1*BYTE) :: READ_NTERM ! 'Y' or 'N' Input to subr READ_MATRIX_1 - CHARACTER( 1*BYTE) :: NULL_COL ! 'Y' if a col of CRS3 is null - CHARACTER( 1*BYTE) :: OPND ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not + CHARACTER( 1*BYTE) :: READ_NTERM ! 'Y' or 'N' Input to subr READ_MATRIX_1 + CHARACTER( 1*BYTE) :: NULL_COL ! 'Y' if a col of CRS3 is null + CHARACTER( 1*BYTE) :: OPND ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not CHARACTER(FILE_NAM_MAXLEN*BYTE) :: SCRFIL ! File name - - INTEGER(LONG), INTENT(IN) :: NTERM_CRS3 ! Number of terms in matrix CRS3 + + INTEGER(LONG), INTENT(IN) :: NTERM_CRS3 ! Number of terms in matrix CRS3 INTEGER(LONG) :: DEB_PRT(2) ! Debug numbers to say whether to write ABAND and/or its decomp to output ! file in called subr SYM_MAT_DECOMP_LAPACK (ABAND = band form of KOO) INTEGER(LONG) :: I,J ! DO loop indices or counters INTEGER(LONG) :: INFO = 0 ! Input value for subr SYM_MAT_DECOMP_LAPACK (quit on sing KRRCB) INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening a file - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN REAL(DOUBLE) :: EPS1 ! A small number to compare real zero @@ -79,7 +79,7 @@ SUBROUTINE SOLVE_PHIZL1 ( NTERM_CRS3 ) REAL(DOUBLE) :: K_INORM ! Inf norm of KLL matrix (det in subr COND_NUM) REAL(DOUBLE) :: PHIZL1_COL(NDOFL) ! A column of PHIZL1 solved for herein REAL(DOUBLE) :: RCOND ! Recrip of cond no. of the KLL. Det in subr COND_NUM - + INTRINSIC :: DABS @@ -87,7 +87,7 @@ SUBROUTINE SOLVE_PHIZL1 ( NTERM_CRS3 ) ! ********************************************************************************************************************************** EPS1 = EPSIL(1) -! Solve for PHIZL1 +! Solve for PHIZL1 ! Open a scratch file that will be used to write PHIZL1 nonzero terms to as we solve for columns of PHIZL1 . After all col's ! of PHIZL1 have been solved for, and we have a count on NTERM_PHIZL1 , we will allocate memory to the PHIZL1 arrays and read @@ -104,9 +104,9 @@ SUBROUTINE SOLVE_PHIZL1 ( NTERM_CRS3 ) CALL FILE_CLOSE ( SCR(1), SCRFIL, 'DELETE' ) CALL OUTA_HERE ( 'Y' ) ! Can't open scratch file, so quit ENDIF - + ! Loop on columns of CRS3 - + !xx WRITE(SC1, * ) ! Advance 1 line for screen messages NTERM_PHIZL1 = 0 @@ -120,7 +120,7 @@ SUBROUTINE SOLVE_PHIZL1 ( NTERM_CRS3 ) DO I=1,NDOFL INOUT_COL(I) = ZERO PHIZL1_COL(I) = ZERO - ENDDO + ENDDO CALL GET_SPARSE_CRS_COL ( 'MLR + MLL*DLR', J, NTERM_CRS3, NDOFL, NDOFR, I_CRS3, J_CRS3, CRS3, -ONE, INOUT_COL, NULL_COL ) ! Calculate PHIZL1_COL via forward/backward substitution. @@ -164,11 +164,11 @@ SUBROUTINE SOLVE_PHIZL1 ( NTERM_CRS3 ) NTERM_PHIZL1 = NTERM_PHIZL1 + 1 WRITE(SCR(1)) I, J, PHIZL1_COL(I) ENDIF - ENDDO + ENDDO ENDIF CALL COUNTER_PROGRESS(J) ENDDO - + call deallocate_sparse_mat ( 'KLLs' ) ! The PHIZL1 data in SCRATCH-991 is written one col at a time for PHIZL1. Therefore it is rows of PHIZL1t @@ -213,7 +213,7 @@ SUBROUTINE SOLVE_PHIZL1 ( NTERM_CRS3 ) 9991 FORMAT(' *ERROR 9991: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,A, ' = ',A,' NOT PROGRAMMED ',A) -12345 FORMAT(3X,A,I8,' of ',I8,A) +12345 FORMAT(3X,A,I8,' of ',I8,A) @@ -223,5 +223,5 @@ SUBROUTINE SOLVE_PHIZL1 ( NTERM_CRS3 ) ! ********************************************************************************************************************************** - - END SUBROUTINE SOLVE_PHIZL1 + + END SUBROUTINE SOLVE_PHIZL1 diff --git a/Source/LK9/L91/BAR_MARGIN.f90 b/Source/LK9/L91/BAR_MARGIN.f90 index d7149098..d1c47401 100644 --- a/Source/LK9/L91/BAR_MARGIN.f90 +++ b/Source/LK9/L91/BAR_MARGIN.f90 @@ -1,53 +1,53 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BAR_MARGIN ( ICOL, S1, S2, S3, S4, S5, MS1, MS2, MS3, MSP1, MSP2, MSP3 ) - + ! Calculates margins of safety for BAR element - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, ONEPM6, ONEPM15, ONEPP10 - USE PARAMS, ONLY : EPSIL + USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : ULT_STRE USE BAR_MARGIN_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BAR_MARGIN' CHARACTER(LEN=*), INTENT(OUT) :: MSP1 ! If '1', print margins in F06 file. If '0', do not print. CHARACTER(LEN=*), INTENT(OUT) :: MSP2 ! If '1', print margins in F06 file. If '0', do not print. CHARACTER(LEN=*), INTENT(OUT) :: MSP3 ! If '1', print margins in F06 file. If '0', do not print. - + INTEGER(LONG), INTENT(IN) :: ICOL ! Column no. from ULT_STRE to get max allow. stresses - + REAL(DOUBLE), INTENT(OUT) :: MS1 ! Calculated margin of safety REAL(DOUBLE), INTENT(OUT) :: MS2 ! Calculated margin of safety REAL(DOUBLE), INTENT(OUT) :: MS3 ! Calculated margin of safety @@ -67,12 +67,12 @@ SUBROUTINE BAR_MARGIN ( ICOL, S1, S2, S3, S4, S5, MS1, MS2, MS3, MSP1, MSP2, MSP REAL(DOUBLE) :: S3M ! DABS(S3) REAL(DOUBLE) :: S4M ! DABS(S4) REAL(DOUBLE) :: S5M ! DABS(S5) - REAL(DOUBLE) :: SCP !-DABS(SC) + REAL(DOUBLE) :: SCP !-DABS(SC) REAL(DOUBLE) :: ST,SC,SS ! Material allowables in tension, compr., shear REAL(DOUBLE) :: STM,SCM,SSM ! DABS(ST), etc - + INTRINSIC :: DABS, DMIN1 - + ! ********************************************************************************************************************************** @@ -159,7 +159,7 @@ SUBROUTINE BAR_MARGIN ( ICOL, S1, S2, S3, S4, S5, MS1, MS2, MS3, MSP1, MSP2, MSP MSP1 = '0' ENDIF ENDIF - + IF (STM < EPS5) THEN MSP1 = '0' ENDIF diff --git a/Source/LK9/L91/GET_MAX_MIN_ABS_STR.f90 b/Source/LK9/L91/GET_MAX_MIN_ABS_STR.f90 index 08013705..b619cc16 100644 --- a/Source/LK9/L91/GET_MAX_MIN_ABS_STR.f90 +++ b/Source/LK9/L91/GET_MAX_MIN_ABS_STR.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE GET_MAX_MIN_ABS_STR ( NUM_ROWS, NUM_COLS, SECOND_LINE, MAX_ANS, MIN_ANS, ABS_ANS ) @@ -32,7 +32,7 @@ SUBROUTINE GET_MAX_MIN_ABS_STR ( NUM_ROWS, NUM_COLS, SECOND_LINE, MAX_ANS, MIN_A USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM USE LINK9_STUFF, ONLY : OGEL USE GET_MAX_MIN_ABS_STR_USE_IFs ! Added 2019/07/14 @@ -58,9 +58,9 @@ SUBROUTINE GET_MAX_MIN_ABS_STR ( NUM_ROWS, NUM_COLS, SECOND_LINE, MAX_ANS, MIN_A ! ********************************************************************************************************************************** DO J=1,NUM_COLS ABS_ANS(J) = ZERO - MAX_ANS(J) = -MACH_LARGE_NUM + MAX_ANS(J) = -MACH_LARGE_NUM MIN_ANS(J) = ZERO - ENDDO + ENDDO K = 0 ! Get max stresses or strains DO I=1,NUM_ROWS diff --git a/Source/LK9/L91/PRINCIPAL_2D.f90 b/Source/LK9/L91/PRINCIPAL_2D.f90 index 7c9f8f06..29d33b6b 100644 --- a/Source/LK9/L91/PRINCIPAL_2D.f90 +++ b/Source/LK9/L91/PRINCIPAL_2D.f90 @@ -1,47 +1,47 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE PRINCIPAL_2D ( SX, SY, SXY, ANGLE, SMAJOR, SMINOR, SXYMAX, MEAN, VONMISES ) - -! Calculates principal stresses or strains for 2-D shell elems: -! (a) If SX, SY, SXY inputs are stress then outputs are stress. -! (b) If SX, SY, SXY inputs are strain then outputs are strain - +! Calculates principal stresses or strains for 2-D shell elems: + +! (a) If SX, SY, SXY inputs are stress then outputs are stress. +! (b) If SX, SY, SXY inputs are strain then outputs are strain + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ZERO, QUARTER, HALF, TWO, ONEPM6, CONV_RAD_DEG - + USE CONSTANTS_1, ONLY : ZERO, QUARTER, HALF, TWO, ONEPM6, CONV_RAD_DEG + USE PRINCIPAL_2D_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'PRINCIPAL_2D' @@ -58,9 +58,9 @@ SUBROUTINE PRINCIPAL_2D ( SX, SY, SXY, ANGLE, SMAJOR, SMINOR, SXYMAX, MEAN, VONM REAL(DOUBLE) :: DENR ! Denominator in arctan calculation of ANGLE REAL(DOUBLE) :: SAVG ! Average of SX and SY REAL(DOUBLE) :: NUMR ! Numerator in arctan calculation of ANGLE - + INTRINSIC :: DATAN2, DSQRT - + ! ********************************************************************************************************************************** @@ -74,18 +74,18 @@ SUBROUTINE PRINCIPAL_2D ( SX, SY, SXY, ANGLE, SMAJOR, SMINOR, SXYMAX, MEAN, VONM DENR = SX - SY NUMR = TWO*SXY - + ! Calculate angle for principal axes. - + ANGLE = (HALF*DATAN2(NUMR,DENR))*CONV_RAD_DEG - + ! Calculate the principal stresses and max shear - + SXYMAX = DSQRT(QUARTER*DENR*DENR + SXY*SXY) SAVG = HALF*(SX + SY) SMAJOR = SAVG + SXYMAX SMINOR = SAVG - SXYMAX - + ! Calculate mean andvon Mises stress for 2D stress state MEAN = HALF*(SMAJOR + SMINOR) @@ -96,5 +96,5 @@ SUBROUTINE PRINCIPAL_2D ( SX, SY, SXY, ANGLE, SMAJOR, SMINOR, SXYMAX, MEAN, VONM RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE PRINCIPAL_2D diff --git a/Source/LK9/L91/PRINCIPAL_3D.f90 b/Source/LK9/L91/PRINCIPAL_3D.f90 index 60c36e1a..c4736d67 100644 --- a/Source/LK9/L91/PRINCIPAL_3D.f90 +++ b/Source/LK9/L91/PRINCIPAL_3D.f90 @@ -1,47 +1,47 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE PRINCIPAL_3D ( STR, PRINCIPAL_STR, MEAN, VONMISES, SIG_OCT, TAU_OCT ) - + ! Calculates principal stresses or stains in solid elems: -! (a) If STR input vector is stress then outputs are stress. -! (b) If STR input vector is strain then outputs are strain - +! (a) If STR input vector is stress then outputs are stress. +! (b) If STR input vector is strain then outputs are strain + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, HALF, TWO, THREE USE PARAMS, ONLY : SUPWARN - + USE PRINCIPAL_3D_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'PRINCIPAL_3D' INTEGER(LONG) :: I,J = 0 ! DO loop indices @@ -55,15 +55,15 @@ SUBROUTINE PRINCIPAL_3D ( STR, PRINCIPAL_STR, MEAN, VONMISES, SIG_OCT, TAU_OCT ) REAL(DOUBLE), INTENT(OUT) :: TAU_OCT ! Octrahedral shear stress or strain REAL(DOUBLE), INTENT(OUT) :: VONMISES ! Octahedral stress or strain REAL(DOUBLE) :: SIG1,SIG2,SIG3 ! Principal stresses or strains -!xx REAL(DOUBLE) :: I1,I2,I3 ! Invariants of Cauchy stress or strain tensor +!xx REAL(DOUBLE) :: I1,I2,I3 ! Invariants of Cauchy stress or strain tensor REAL(DOUBLE) :: Q(3,3) ! Output from subr ROOTS_3D, called herein (transform to princ dir's) REAL(DOUBLE) :: STR_TENSOR(3,3) ! Principal stresses or strains in a 3x3 matrix REAL(DOUBLE) :: TAU12,TAU23,TAU13 ! Max shear stresses or strains - + EXTERNAL :: DGEMM INTRINSIC :: DABS, DATAN2, DSQRT - + ! ********************************************************************************************************************************** @@ -107,24 +107,24 @@ SUBROUTINE PRINCIPAL_3D ( STR, PRINCIPAL_STR, MEAN, VONMISES, SIG_OCT, TAU_OCT ) ! ********************************************************************************************************************************** ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## - + SUBROUTINE ROOTS_3D ( STR_TENSOR, Q, INFO ) - + ! Jacobi solution for 3x3 eigenvalue problem used in finding principal moments of inertia - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, WARN_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE USE LAPACK_STD_EIG_1 - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ROOTS_3D' CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: CALLED_SUBR = ' ' ! Name of a called subr (for output error purposes) CHARACTER( 1*BYTE), PARAMETER :: JOBZ = 'V' ! Indicates to solve for eigenvalues and vectors in LAPACK subr DSYEV @@ -145,15 +145,15 @@ SUBROUTINE ROOTS_3D ( STR_TENSOR, Q, INFO ) ! On exit , the principal stresses or strains (if INFO = 0) REAL(DOUBLE) , INTENT(OUT) :: Q(N,N) ! Transformation from basic to principal directions ! Q = Z'. That is; -! U(principal) = Q*U(basic), where U is a displ vector +! U(principal) = Q*U(basic), where U is a displ vector REAL(DOUBLE) :: Z(N,N) ! When subr DSYEV is called, Z = input STR_TENSOR ! When subr DSYEV returns, Z = eigenvecs: PMOI = Z'*STR_TENSOR*Z - REAL(DOUBLE) :: DUM(N,N) ! Intermediate result in calculating Z'*STR_TENSOR*Z + REAL(DOUBLE) :: DUM(N,N) ! Intermediate result in calculating Z'*STR_TENSOR*Z REAL(DOUBLE) , PARAMETER :: ALPHA = ONE ! Scalar multiplier for subr DGEMM REAL(DOUBLE) , PARAMETER :: BETA = ZERO ! Scalar multiplier for subr DGEMM REAL(DOUBLE) :: PSTR(N) ! Principal stresses or strains in a 1-D array REAL(DOUBLE) :: WORK(LWORK) ! Workspace - + !xx EXTERNAL :: DGEMM @@ -177,12 +177,12 @@ SUBROUTINE ROOTS_3D ( STR_TENSOR, Q, INFO ) Q(I,J) = ZERO ENDDO ENDDO - + CALL DSYEV ( JOBZ, UPLO, N, Z, N, PSTR, WORK, LWORK, INFO ) -! Set STR_TENSOR matrix to zero for off-diag terms and to STR_TENSOR for diag terms. Set Q = Z' (' = transpose) +! Set STR_TENSOR matrix to zero for off-diag terms and to STR_TENSOR for diag terms. Set Q = Z' (' = transpose) - CALLED_SUBR = 'DSTEQR' + CALLED_SUBR = 'DSTEQR' IF (INFO < 0) THEN ! LAPACK subr XERBLA should have reported error on an illegal argument ! in a called LAPACK subr, so we should not have gotten here WRITE(ERR,993) SUBR_NAME, CALLED_SUBR @@ -214,8 +214,8 @@ SUBROUTINE ROOTS_3D ( STR_TENSOR, Q, INFO ) TRANSB = 'N' CALL DGEMM ( TRANSA, TRANSB, N, N, N, ALPHA, Z, N, DUM, N, BETA, STR_TENSOR, N ) - ENDIF - + ENDIF + @@ -230,7 +230,7 @@ SUBROUTINE ROOTS_3D ( STR_TENSOR, Q, INFO ) ,/,14X,' CANNOT CONVERGE IN ATTEMPTING TO FIND PRINCIPAL STRESSES/STRAINS' & ,/,14X,' THE ALGORITHM HAS FAILED TO FIND ALL THE EIGENVALUES (PRINCIPAL STRESSES/STRAINS) IN 90 ITERATIONS' & ,/,14X,' PRINCIPAL STRESSES/STRAINS AND PRINCIPAL DIRECTIONS CANNOT BE FOUND') - + ! ********************************************************************************************************************************** END SUBROUTINE ROOTS_3D diff --git a/Source/LK9/L91/ROD_MARGIN.f90 b/Source/LK9/L91/ROD_MARGIN.f90 index 1f31e5ff..baf07170 100644 --- a/Source/LK9/L91/ROD_MARGIN.f90 +++ b/Source/LK9/L91/ROD_MARGIN.f90 @@ -1,63 +1,63 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ROD_MARGIN (ICOL, S1, S2, MS1, MS2, MSP1, MSP2 ) - + ! Calculates margins of safety for ROD element - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, ONEPM6, ONEPP10 - USE PARAMS, ONLY : EPSIL + USE PARAMS, ONLY : EPSIL USE MODEL_STUF, ONLY : ULT_STRE USE ROD_MARGIN_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ROD_MARGIN' - CHARACTER(LEN=*), INTENT(OUT) :: MSP1,MSP2 ! If '1', print margins in F06 file. If '0', do not print. - + CHARACTER(LEN=*), INTENT(OUT) :: MSP1,MSP2 ! If '1', print margins in F06 file. If '0', do not print. + INTEGER(LONG), INTENT(IN) :: ICOL ! Column no. from ULT_STRE to get max allow. stresses - + REAL(DOUBLE), INTENT(OUT) :: MS1 ! Calculated margin of safety REAL(DOUBLE), INTENT(OUT) :: MS2 ! Calculated margin of safety REAL(DOUBLE), INTENT(IN) :: S1 ! An input stress for which margins are calculated REAL(DOUBLE), INTENT(IN) :: S2 ! An input stress for which margins are calculated REAL(DOUBLE) :: EPS5 ! Small value REAL(DOUBLE) :: S1M,S2M ! DABS(S1), etc - REAL(DOUBLE) :: SCP !-DABS(SC) + REAL(DOUBLE) :: SCP !-DABS(SC) REAL(DOUBLE) :: ST,SC,SS ! Material allowables in tension, compr., shear REAL(DOUBLE) :: STM,SCM,SSM ! DABS(ST), etc - + INTRINSIC :: DABS, DMIN1 - + ! ********************************************************************************************************************************** @@ -79,14 +79,14 @@ SUBROUTINE ROD_MARGIN (ICOL, S1, S2, MS1, MS2, MSP1, MSP2 ) SCM = DABS(SC) SSM = DABS(SS) SCP = -SCM - -! Calculate margins for ROD1 element. S1 is axial stress, S2 is torsional stress (S3, S4 not used) + +! Calculate margins for ROD1 element. S1 is axial stress, S2 is torsional stress (S3, S4 not used) ! MS1 is the margin for axial stress and MS2 is the margin for torsion. S1M = DABS(S1) - + IF (S1 >= ZERO) THEN ! ROD margin for positive axial stress - + IF (S1M < EPS5) THEN MS1 = ONEPP10 MSP1 = '0' @@ -97,9 +97,9 @@ SUBROUTINE ROD_MARGIN (ICOL, S1, S2, MS1, MS2, MSP1, MSP2 ) IF (STM < EPS5) THEN MSP1 = '0' ENDIF - + ELSE ! ROD margin for negative axial stress - + IF (S1M < EPS5) THEN MS1 = ONEPP10 MSP1 = '0' @@ -110,11 +110,11 @@ SUBROUTINE ROD_MARGIN (ICOL, S1, S2, MS1, MS2, MSP1, MSP2 ) IF (SCM < EPS5) THEN MSP1 = '0' ENDIF - + ENDIF S2M = DABS(S2) ! ROD torsional margin (positive or negative torsional stress) - + IF (S2M < EPS5) THEN MS2 = ONEPP10 MSP2 = '0' @@ -125,7 +125,7 @@ SUBROUTINE ROD_MARGIN (ICOL, S1, S2, MS1, MS2, MSP1, MSP2 ) IF (SSM < EPS5) THEN MSP2 = '0' ENDIF - + RETURN diff --git a/Source/LK9/L91/WRITE_ELEM_ENGR_FORCE.f90 b/Source/LK9/L91/WRITE_ELEM_ENGR_FORCE.f90 index 44e39e52..aa127e39 100644 --- a/Source/LK9/L91/WRITE_ELEM_ENGR_FORCE.f90 +++ b/Source/LK9/L91/WRITE_ELEM_ENGR_FORCE.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) ! Writes blocks of element engineering force output for one element type, one - ! subcase. Elements that can have engineering force output are the ones + ! subcase. Elements that can have engineering force output are the ones ! enumerated below fin the IF(TYPE == ???) USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, OP2 @@ -62,7 +62,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) REAL(DOUBLE) :: ABS_ANS(8) ! Max ABS for all element output REAL(DOUBLE) :: MAX_ANS(8) ! Max for all element output REAL(DOUBLE) :: MIN_ANS(8) ! Min for all element output - + ! op2 info CHARACTER( 8*BYTE) :: TABLE_NAME ! the name of the op2 table @@ -147,7 +147,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) ELSE IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN ! Write info on what CB DOF the output is for ISUBCASE_INDEX = 1 - IF ((JSUB <= NDOFR) .OR. (JSUB >= NDOFR+NVEC)) THEN + IF ((JSUB <= NDOFR) .OR. (JSUB >= NDOFR+NVEC)) THEN IF (JSUB <= NDOFR) THEN BDY_DOF_NUM = JSUB ELSE @@ -176,17 +176,17 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) IF (TITLE(INT_SC_NUM)(1:) /= ' ') THEN WRITE(F06,201) TITLE(INT_SC_NUM) ENDIF - + IF (STITLE(INT_SC_NUM)(1:) /= ' ') THEN WRITE(F06,201) STITLE(INT_SC_NUM) ENDIF - + IF (LABEL(INT_SC_NUM)(1:) /= ' ') THEN WRITE(F06,201) LABEL(INT_SC_NUM) ENDIF - + WRITE(F06,*) - + !--- 1st 2 lines of element specific headers - general info on what type of output: IF (TYPE(1:3) == 'BAR') THEN IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN @@ -195,7 +195,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) WRITE(F06,301) FILL(1:39) ENDIF WRITE(F06,401) FILL(1:45), ONAME - + ELSE IF (TYPE(1:4) == 'BUSH') THEN IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN WRITE(F06,302) FILL(1:19) @@ -203,7 +203,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) WRITE(F06,301) FILL(1:24) ENDIF WRITE(F06,401) FILL(1:29), ONAME - + ELSE IF (TYPE(1:4) == 'ELAS') THEN IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN WRITE(F06,302) FILL(1:27) @@ -211,7 +211,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) WRITE(F06,301) FILL(1:33) ENDIF WRITE(F06,401) FILL(1:37), ONAME - + ELSE IF (TYPE(1:3) == 'ROD') THEN IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN WRITE(F06,302) FILL(1:27) @@ -219,7 +219,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) WRITE(F06,301) FILL(1:33) ENDIF WRITE(F06,401) FILL(1:37), ONAME - + ELSE IF (TYPE(1:5) == 'SHEAR') THEN IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN WRITE(F06,302) FILL(1:22) @@ -227,7 +227,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) WRITE(F06,301) FILL(1:29) ENDIF WRITE(F06,401) FILL(1:32), ONAME - + ELSE IF((TYPE(1:5) == 'TRIA3') .OR. (TYPE(1:5) == 'QUAD4') .OR. (TYPE(1:5) == 'QUAD8')) THEN IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN WRITE(F06,302) FILL(1:33) @@ -250,7 +250,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) ELSE IF (TYPE(1:5) == 'SHEAR') THEN WRITE(F06,1401) FILL(1: 0), FILL(1: 0) - ELSE IF ((TYPE(1:5) == 'TRIA3') .OR. (TYPE(1:5) == 'QUAD4') .OR. (TYPE(1:5) == 'QUAD8')) THEN + ELSE IF ((TYPE(1:5) == 'TRIA3') .OR. (TYPE(1:5) == 'QUAD4') .OR. (TYPE(1:5) == 'QUAD8')) THEN WRITE(F06,1501) FILL(1: 0), FILL(1: 0), FILL(1: 0) ELSE IF (TYPE(1:4) == 'BUSH') THEN @@ -263,7 +263,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) ! Write element force output IF (TYPE == 'BAR ') THEN - + CALL GET_MAX_MIN_ABS ( 1, 8 ) ! (1) PRINT, (2) PLOT, (3) PUNCH, (4) NEU, (5) CSV @@ -276,11 +276,11 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) WRITE(OP2) NVALUES WRITE(OP2) (EID_OUT_ARRAY(I,1)*10+DEVICE_CODE, (REAL(OGEL(I,J), 4), J=1,8), I=1,NUM) ENDIF - + IF (WRITE_F06) THEN ! f06/print DO I=1,NUM WRITE(F06,1102) FILL(1: 0), EID_OUT_ARRAY(I,1),(OGEL(I,J),J=1,8) - ENDDO + ENDDO !CALL GET_MAX_MIN_ABS ( 1, 8 ) WRITE(F06,1103) FILL(1: 0), FILL(1: 0), (MAX_ANS(J),J=1,8), FILL(1: 0), (MIN_ANS(J),J=1,8), FILL(1: 0), & (ABS_ANS(J),J=1,8), FILL(1: 0) @@ -299,10 +299,10 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) ! TITLEI, STITLEI, LABELI, FIELD5_INT_MODE, FIELD6_EIGENVALUE) ! WRITE(OP2) NVALUES ! WRITE(OP2) (EID_OUT_ARRAY(I,1)*10+DEVICE_CODE, REAL(OGEL(I,1), 4), I=1,NUM) -! +! ! ! TODO: what's going on with this loop having the 1,NUM,5??? and the J=J1,J1+4??? ! ======= -! +! !xx WRITE(F06,1202) FILL(1: 0), (EID_OUT_ARRAY(I,1),OGEL(I,1),I=1,NUM) IF (WRITE_F06) THEN ! f06/print @@ -319,7 +319,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) WRITE(F06,1203) FILL(1: 0), FILL(1: 0), (MAX_ANS(J),J=1,1), FILL(1: 0), (MIN_ANS(J),J=1,1), FILL(1: 0), & (ABS_ANS(J),J=1,1), FILL(1: 0) ENDIF - + ELSE IF (TYPE == 'ROD ') THEN IF (WRITE_OP2) THEN ! op2/plot !CALL WRITE_OEF_ROD ( ISUBCASE, NUM, FILL(1:1), FILL(1:16), ITABLE, TITLEI, STITLEI, LABELI ) @@ -348,7 +348,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) WRITE(F06,1303) FILL(1: 0), FILL(1: 0), (MAX_ANS(J),J=7,8), FILL(1: 0), (MIN_ANS(J),J=7,8), FILL(1: 0), & (ABS_ANS(J),J=7,8), FILL(1: 0) ENDIF - + ELSE IF (TYPE == 'SHEAR ') THEN IF (WRITE_OP2) THEN ! op2/plot !CALL WRITE_SHEAR_OEF() @@ -383,12 +383,12 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) WRITE(F06,1403) FILL(1: 0), FILL(1: 0), (MAX_ANS(J),J=1,3), FILL(1: 0), (MIN_ANS(J),J=1,3), FILL(1: 0), & (ABS_ANS(J),J=1,3), FILL(1: 0) ENDIF - + ELSE IF ((TYPE == 'TRIA3K ') .OR. (TYPE == 'QUAD4K ')) THEN IF (WRITE_F06) THEN DO I=1,NUM WRITE(F06,1512) FILL(1: 0), EID_OUT_ARRAY(I,1),(OGEL(I,J),J=1,6) - ENDDO + ENDDO CALL GET_MAX_MIN_ABS ( 1, 8 ) WRITE(F06,1513) FILL(1: 0), FILL(1: 0), (MAX_ANS(J),J=1,6), FILL(1: 0), (MIN_ANS(J),J=1,6), FILL(1: 0), & (ABS_ANS(J),J=1,6), FILL(1: 0) @@ -425,12 +425,12 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) ELSE WRITE(F06,1524) FILL(1: 0), EID_OUT_ARRAY(I,1), ' ', (OGEL(K,J),J=1,8) ENDIF - + DO L=2,NUM_PTS ! Corner forces K = K + 1 - WRITE(F06,1525) FILL(1: 0), GID_OUT_ARRAY(I,L),(OGEL(K,J),J=1,8) + WRITE(F06,1525) FILL(1: 0), GID_OUT_ARRAY(I,L),(OGEL(K,J),J=1,8) ENDDO - ENDDO + ENDDO CALL GET_MAX_MIN_ABS ( 1, 8 ) WRITE(F06,1523) FILL(1: 0), FILL(1: 0), (MAX_ANS(J),J=1,8), FILL(1: 0), (MIN_ANS(J),J=1,8), FILL(1: 0), & (ABS_ANS(J),J=1,8), FILL(1: 0) @@ -452,14 +452,14 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) IF (WRITE_F06) THEN ! f06/print DO I=1,NUM WRITE(F06,1602) FILL(1: 0), EID_OUT_ARRAY(I,1),(OGEL(I,J),J=1,6) - ENDDO + ENDDO CALL GET_MAX_MIN_ABS ( 1, 6 ) WRITE(F06,1603) FILL(1: 0), FILL(1: 0), (MAX_ANS(J),J=1,6), FILL(1: 0), (MIN_ANS(J),J=1,6), FILL(1: 0), & (ABS_ANS(J),J=1,6), FILL(1: 0) ENDIF - + ENDIF - + RETURN @@ -484,9 +484,9 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) 1101 FORMAT(16X,A,' Element Bend-Moment End A Bend-Moment End B - Shear - Axial' & ,' Torque' & ,/,16X,A,' ID Plane 1 Plane 2 Plane 1 Plane 2 Plane 1 Plane 2 Force') - + 1102 FORMAT(16X,A,I8,8(1ES14.6)) - + 1103 FORMAT(1X,A,' ------------- ------------- ------------- ------------- ------------- ------------- -------------', & ' -------------',/, & 16X,A,'MAX* : ',8(ES14.6),/, & @@ -497,9 +497,9 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) ! ELAS >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 1201 FORMAT(16X,A,' Element Force Element Force Element Force Element Force Element Force'& ,/,16X,A,' ID ID ID ID ID') - + 1202 FORMAT(16X,A,5(I8,1ES14.6)) - + 1203 FORMAT(16X,A,' -------------',/, & 16X,A,'MAX* : ',1(ES14.6),/, & 16X,A,'MIN* : ',1(ES14.6),//, & @@ -509,9 +509,9 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) ! ROD >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 1301 FORMAT(16X,A,' Element Axial Torque Element Axial Torque Element Axial Torque' & ,/,16X,A,' ID Force ID Force ID Force') - + 1302 FORMAT(16X,A,3(I8,1ES14.6,1ES14.6)) - + 1303 FORMAT(16X,A,' ------------- -------------',/, & 16X,A,'MAX* : ',2(1ES14.6),/, & 16X,A,'MIN* : ',2(1ES14.6),//, & @@ -521,9 +521,9 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) ! SHEAR >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 1401 FORMAT(16X,A,' Element N o r m a l F o r c e s Element N o r m a l F o r c e s ' & ,/,16X,A,' ID Nxx Nyy Nxy ID Nxx Nyy Nxy') - + 1402 FORMAT(1X,A,2(I8,3(1ES14.6),1X)) - + 1403 FORMAT(16X,A,' ------------- ------------- -------------',/, & 16X,A,'MAX* : ',3ES14.6,/, & 16X,A,'MIN* : ',3ES14.6,//, & @@ -538,7 +538,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) ! WRITE(F06,1501) FILL(1: 0), FILL(1: 0), FILL(1: 0) 1512 FORMAT(1X,A,I8,15X,6(1ES14.6)) - + 1513 FORMAT(16X,A,' ------------- ------------- ------------- ------------- ------------- -------------',/, & 16X,A,'MAX* : ',6(ES14.6),/, & 16X,A,'MIN* : ',6(ES14.6),//, & @@ -553,16 +553,16 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) 16X,A,'*for output set') 1524 FORMAT(1X,A,I8,2X,A,5X,8(1ES14.6)) - + 1525 FORMAT(1X,A,10X,'GRD',I8,2X,8(1ES14.6)) - + ! BUSH >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 1601 FORMAT(16X,A,' Element Force Force Force Moment Moment Moment' & ,/,16X,A,' ID XE YE ZE XE YE ZE') - + 1602 FORMAT(16X,A,I8,6(1ES14.6)) - + 1603 FORMAT(16X,A,' ------------- ------------- ------------- ------------- ------------- ------------- ',/, & 16X,A,'MAX* : ',6(ES14.6),/, & 16X,A,'MIN* : ',6(ES14.6),//, & @@ -570,7 +570,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) 16X,A,'*for output set') ! ********************************************************************************************************************************** - + CONTAINS @@ -580,7 +580,7 @@ SUBROUTINE GET_MAX_MIN_ABS ( BEG_COL, END_COL ) USE PENTIUM_II_KIND, ONLY : LONG USE CONSTANTS_1, ONLY : ZERO - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM IMPLICIT NONE @@ -592,7 +592,7 @@ SUBROUTINE GET_MAX_MIN_ABS ( BEG_COL, END_COL ) ! Get MAX, MIN, ABS values DO JJ=BEG_COL,END_COL MAX_ANS(JJ) = -MACH_LARGE_NUM - ENDDO + ENDDO DO II=1,NUM DO JJ=BEG_COL,END_COL diff --git a/Source/LK9/L91/WRITE_ELEM_NODE_FORCE.f90 b/Source/LK9/L91/WRITE_ELEM_NODE_FORCE.f90 index c7d1ac3a..21bfe6b2 100644 --- a/Source/LK9/L91/WRITE_ELEM_NODE_FORCE.f90 +++ b/Source/LK9/L91/WRITE_ELEM_NODE_FORCE.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_ELEM_NODE_FORCE ( JSUB, NUM_ELGP, NUM, IHDR ) - + ! Writes blocks of elem nodal force output for one elem type, one subcase. All elements can have node force output - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, INT_SC_NUM, NDOFR, NUM_CB_DOFS, MOGEL, NVEC, SOL_NAME @@ -37,12 +37,12 @@ SUBROUTINE WRITE_ELEM_NODE_FORCE ( JSUB, NUM_ELGP, NUM, IHDR ) USE DEBUG_PARAMETERS, ONLY : DEBUG USE LINK9_STUFF, ONLY : GID_OUT_ARRAY, EID_OUT_ARRAY, MAXREQ, OGEL USE MODEL_STUF, ONLY : ELEM_ONAME, LABEL, SCNUM, STITLE, TITLE - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM - + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + USE WRITE_ELEM_NODE_FORCE_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_ELEM_NODE_FORCE' CHARACTER(LEN=*), INTENT(IN) :: IHDR ! Indicator of whether to write output header CHARACTER(14*BYTE) :: ABS_ANS_CHAR(6) ! Character variable that contains the 6 grid abs outputs @@ -51,7 +51,7 @@ SUBROUTINE WRITE_ELEM_NODE_FORCE ( JSUB, NUM_ELGP, NUM, IHDR ) CHARACTER(11*BYTE) :: FORCE_COORD_SYS ! Indicator of whether output is in global or basic coord system CHARACTER(14*BYTE) :: OGEL_CHAR(MOGEL) ! Char representation of 1 row of OGEL outputs CHARACTER(LEN=LEN(ELEM_ONAME)) :: ONAME ! Element name to write out in F06 file - + INTEGER(LONG), INTENT(IN) :: JSUB ! Solution vector number INTEGER(LONG), INTENT(IN) :: NUM ! The number of rows of OGEL to write out INTEGER(LONG), INTENT(IN) :: NUM_ELGP ! The number of grid points for the elem being processed @@ -61,7 +61,7 @@ SUBROUTINE WRITE_ELEM_NODE_FORCE ( JSUB, NUM_ELGP, NUM, IHDR ) INTEGER(LONG) :: I,J,K,M ! DO loop indices INTEGER(LONG) :: L ! Counter - + REAL(DOUBLE) :: ABS_ANS(6) ! Max Abs for all grids output for each of the 6 disp components REAL(DOUBLE) :: MAX_ANS(6) ! Max for all grids output for each of the 6 disp components REAL(DOUBLE) :: MIN_ANS(6) ! Min for all grids output for each of the 6 disp components @@ -70,10 +70,10 @@ SUBROUTINE WRITE_ELEM_NODE_FORCE ( JSUB, NUM_ELGP, NUM, IHDR ) ! ********************************************************************************************************************************** ! Get element output name - + ONAME(1:) = ' ' CALL GET_ELEM_ONAME ( ONAME ) - + ! Write output headers if this is not the first use of this subr. IF (IHDR == 'Y') THEN @@ -90,7 +90,7 @@ SUBROUTINE WRITE_ELEM_NODE_FORCE ( JSUB, NUM_ELGP, NUM, IHDR ) ELSE IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN ! Write info on what CB DOF the output is for - IF ((JSUB <= NDOFR) .OR. (JSUB >= NDOFR+NVEC)) THEN + IF ((JSUB <= NDOFR) .OR. (JSUB >= NDOFR+NVEC)) THEN IF (JSUB <= NDOFR) THEN BDY_DOF_NUM = JSUB ELSE @@ -141,12 +141,12 @@ SUBROUTINE WRITE_ELEM_NODE_FORCE ( JSUB, NUM_ELGP, NUM, IHDR ) WRITE(F06,213) ENDIF - + ! Get MAX, MIN, ABS values DO J=1,6 - MAX_ANS(J) = -MACH_LARGE_NUM - ENDDO + MAX_ANS(J) = -MACH_LARGE_NUM + ENDDO L = 0 DO I=1,NUM @@ -203,10 +203,10 @@ SUBROUTINE WRITE_ELEM_NODE_FORCE ( JSUB, NUM_ELGP, NUM, IHDR ) ENDDO ! Write the elem force output - + L = 0 DO I=1,NUM - + DO J=1,NUM_ELGP L = L + 1 @@ -216,15 +216,15 @@ SUBROUTINE WRITE_ELEM_NODE_FORCE ( JSUB, NUM_ELGP, NUM, IHDR ) IF (J == 1) THEN WRITE(F06,221) EID_OUT_ARRAY(I,1),GID_OUT_ARRAY(I,J),(OGEL_CHAR(K),K=1,6) ELSE - WRITE(F06,222) GID_OUT_ARRAY(I,J),(OGEL_CHAR(K),K=1,6) + WRITE(F06,222) GID_OUT_ARRAY(I,J),(OGEL_CHAR(K),K=1,6) ENDIF ENDDO - + WRITE(F06,*) - ENDDO - + ENDDO + DO I=1,6 ABS_ANS(I) = MAX( DABS(MAX_ANS(I)), DABS(MIN_ANS(I)) ) ENDDO @@ -265,7 +265,7 @@ SUBROUTINE WRITE_ELEM_NODE_FORCE ( JSUB, NUM_ELGP, NUM, IHDR ) 16X,'ABS* : ',6A,/ & 16X,'* for output set') - + ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_ELEM_NODE_FORCE diff --git a/Source/LK9/L91/WRITE_ELEM_STRAINS.f90 b/Source/LK9/L91/WRITE_ELEM_STRAINS.f90 index 01ffb1b6..a36e5259 100644 --- a/Source/LK9/L91/WRITE_ELEM_STRAINS.f90 +++ b/Source/LK9/L91/WRITE_ELEM_STRAINS.f90 @@ -350,7 +350,7 @@ SUBROUTINE WRITE_ELEM_STRAINS ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) ENDIF ! write f06 - ENDIF + ENDIF ! Write the element strain output !IF (TYPE == 'BAR ') THEN @@ -375,7 +375,7 @@ SUBROUTINE WRITE_ELEM_STRAINS ( JSUB, NUM, IHDR, NUM_PTS, ITABLE ) ENDIF ! end of op2 WRITE(F06,1103) (FILL(1:1), EID_OUT_ARRAY(I,1), OGEL(I,1),I=1,NUM) - + ELSE IF((TYPE(1:4) == 'HEXA') .OR. (TYPE(1:5) == 'PENTA') .OR. (TYPE(1:5) == 'TETRA')) THEN ! 12345 diff --git a/Source/LK9/L91/WRITE_FEMAP_ELFO_VECS.f90 b/Source/LK9/L91/WRITE_FEMAP_ELFO_VECS.f90 index 4832b3db..aa73751e 100644 --- a/Source/LK9/L91/WRITE_FEMAP_ELFO_VECS.f90 +++ b/Source/LK9/L91/WRITE_FEMAP_ELFO_VECS.f90 @@ -1,32 +1,32 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_FEMAP_ELFO_VECS ( ELEM_TYP, NUM_FEMAP_ROWS, FEMAP_SET_ID ) - -! Writes element engineering forces to FEMAP neutral file for ROD, BAR,TRIA3, QUAD4, SHEAR + +! Writes element engineering forces to FEMAP neutral file for ROD, BAR,TRIA3, QUAD4, SHEAR USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, NEU @@ -34,11 +34,11 @@ SUBROUTINE WRITE_FEMAP_ELFO_VECS ( ELEM_TYP, NUM_FEMAP_ROWS, FEMAP_SET_ID ) USE SCONTR, ONLY : BLNK_SUB_NAM, NGRID, WARN_ERR USE TIMDAT, ONLY : TSEC USE FEMAP_ARRAYS, ONLY : FEMAP_EL_NUMS, FEMAP_EL_VECS - + USE WRITE_FEMAP_ELFO_VECS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_FEMAP_ELFO_VECS' CHARACTER( 1*BYTE) :: CALC_WARN ! FEMAP value for record 7 CHARACTER( 1*BYTE) :: CENT_TOTAL ! FEMAP value for record 7 @@ -73,7 +73,7 @@ SUBROUTINE WRITE_FEMAP_ELFO_VECS ( ELEM_TYP, NUM_FEMAP_ROWS, FEMAP_SET_ID ) REAL(DOUBLE) :: VEC_ABS ! Abs value in vector REAL(DOUBLE) :: VEC_MAX ! Max value in vector REAL(DOUBLE) :: VEC_MIN ! Min value in vector - + ! ********************************************************************************************************************************** @@ -410,5 +410,5 @@ SUBROUTINE WRITE_FEMAP_ELFO_VECS ( ELEM_TYP, NUM_FEMAP_ROWS, FEMAP_SET_ID ) 1008 FORMAT(' -1, 0. ,') ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_FEMAP_ELFO_VECS diff --git a/Source/LK9/L91/WRITE_FEMAP_GRID_VECS.f90 b/Source/LK9/L91/WRITE_FEMAP_GRID_VECS.f90 index 0af5705c..1de24703 100644 --- a/Source/LK9/L91/WRITE_FEMAP_GRID_VECS.f90 +++ b/Source/LK9/L91/WRITE_FEMAP_GRID_VECS.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_FEMAP_GRID_VECS ( GRID_VEC, FEMAP_SET_ID, WHAT ) - + ! Writes grid related vectors to FEMAP neutral file (displ, applied load, SPC and MPC forces) USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -34,11 +34,11 @@ SUBROUTINE WRITE_FEMAP_GRID_VECS ( GRID_VEC, FEMAP_SET_ID, WHAT ) USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : CORD, GRID, GRID_ID, INV_GRID_SEQ - + USE WRITE_FEMAP_GRID_VECS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_FEMAP_GRID_VECS' CHARACTER(LEN=*), INTENT(IN) :: WHAT ! Indicator if GRID_VEC is DISP, OLOA, SPCF or MPCF CHARACTER(LEN= 3*BYTE) :: TITLE1(4,2) ! Titles for vectors written to NEU @@ -50,7 +50,7 @@ SUBROUTINE WRITE_FEMAP_GRID_VECS ( GRID_VEC, FEMAP_SET_ID, WHAT ) INTEGER(LONG) :: GRID_MIN ! Grid ID where vector is min INTEGER(LONG) :: GRID_NUMS(NGRID) ! Grid ID's in global order INTEGER(LONG) :: I ! DO loop index - INTEGER(LONG) :: ICID ! Internal coord sys no. corresponding to an actual coord sys no. + INTEGER(LONG) :: ICID ! Internal coord sys no. corresponding to an actual coord sys no. INTEGER(LONG) :: IGRID ! Internal grid ID for a grid in array GRID_NUMS INTEGER(LONG) :: IARRAY(NGRID) ! Original GRID_NUMS array INTEGER(LONG) :: IDOFG ! A G-set DOF number @@ -73,11 +73,11 @@ SUBROUTINE WRITE_FEMAP_GRID_VECS ( GRID_VEC, FEMAP_SET_ID, WHAT ) REAL(DOUBLE) :: R1_VEC(NGRID) ! R1 rotation component from GRID_VEC REAL(DOUBLE) :: R2_VEC(NGRID) ! R2 rotation component from GRID_VEC REAL(DOUBLE) :: R3_VEC(NGRID) ! R3 rotation component from GRID_VEC - REAL(DOUBLE) :: T0G(3,3) ! Matrix to transform offsets from global to basic coords + REAL(DOUBLE) :: T0G(3,3) ! Matrix to transform offsets from global to basic coords REAL(DOUBLE) :: VEC_ABS ! Abs value in vector REAL(DOUBLE) :: VEC_MAX ! Max value in vector REAL(DOUBLE) :: VEC_MIN ! Min value in vector - + ! ********************************************************************************************************************************** @@ -161,7 +161,7 @@ SUBROUTINE WRITE_FEMAP_GRID_VECS ( GRID_VEC, FEMAP_SET_ID, WHAT ) ICID = J EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( IGRID, ICID, THETAD, PHID, T0G ) T1_VEC(I) = T0G(1,1)*DIS(1) + T0G(1,2)*DIS(2) + T0G(1,3)*DIS(3) T2_VEC(I) = T0G(2,1)*DIS(1) + T0G(2,2)*DIS(2) + T0G(2,3)*DIS(3) @@ -391,7 +391,7 @@ SUBROUTINE WRITE_FEMAP_GRID_VECS ( GRID_VEC, FEMAP_SET_ID, WHAT ) ! ********************************************************************************************************************************** 939 FORMAT(' *ERROR 939: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' WRONG VALUE = ',A,' FOR ARGUMENT "WHAT"') + ,/,14X,' WRONG VALUE = ',A,' FOR ARGUMENT "WHAT"') 1001 FORMAT(2(I8,','),' 1,') @@ -408,5 +408,5 @@ SUBROUTINE WRITE_FEMAP_GRID_VECS ( GRID_VEC, FEMAP_SET_ID, WHAT ) 1007 FORMAT(' -1, 0. ,') ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_FEMAP_GRID_VECS diff --git a/Source/LK9/L91/WRITE_FEMAP_STRE_VECS.f90 b/Source/LK9/L91/WRITE_FEMAP_STRE_VECS.f90 index 60e199f4..570ed3ee 100644 --- a/Source/LK9/L91/WRITE_FEMAP_STRE_VECS.f90 +++ b/Source/LK9/L91/WRITE_FEMAP_STRE_VECS.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_FEMAP_STRE_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET_ID ) - + ! Writes elem stress to FEMAP neutral file for ELAS, ROD, BAR, TRIA3, QUAD4, SHEAR, HEXA, PENTA, TETRA4 USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -35,11 +35,11 @@ SUBROUTINE WRITE_FEMAP_STRE_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : STRE_OPT USE FEMAP_ARRAYS, ONLY : FEMAP_EL_NUMS, FEMAP_EL_VECS - + USE WRITE_FEMAP_STRE_VECS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_FEMAP_STRE_VECS' CHARACTER(LEN=*), INTENT(IN) :: ELEM_TYP ! Element type CHARACTER(LEN=*), INTENT(IN) :: IS_PCOMP ! 'Y'/'N' for whether elements are PCOMP @@ -72,7 +72,7 @@ SUBROUTINE WRITE_FEMAP_STRE_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET REAL(DOUBLE) :: VEC_ABS ! Abs value in vector REAL(DOUBLE) :: VEC_MAX ! Max value in vector REAL(DOUBLE) :: VEC_MIN ! Min value in vector - + ! ********************************************************************************************************************************** @@ -248,7 +248,7 @@ SUBROUTINE WRITE_FEMAP_STRE_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET TITLE_E( 6) = 'EndB Pt3 Comb Stress'; CALC_WARN( 6) = '0'; COMP_DIR( 6) = '3'; CENT_TOTAL( 6) = '1' TITLE_E( 7) = 'EndA Pt4 Comb Stress'; CALC_WARN( 7) = '0'; COMP_DIR( 7) = '3'; CENT_TOTAL( 7) = '1' TITLE_E( 8) = 'EndB Pt4 Comb Stress'; CALC_WARN( 8) = '0'; COMP_DIR( 8) = '3'; CENT_TOTAL( 8) = '1' - TITLE_E( 9) = 'EndA Max Stress' ; CALC_WARN( 9) = '1'; COMP_DIR( 9) = '3'; CENT_TOTAL( 9) = '1' + TITLE_E( 9) = 'EndA Max Stress' ; CALC_WARN( 9) = '1'; COMP_DIR( 9) = '3'; CENT_TOTAL( 9) = '1' TITLE_E(10) = 'EndB Max Stress' ; CALC_WARN(10) = '1'; COMP_DIR(10) = '3'; CENT_TOTAL(10) = '1' TITLE_E(11) = 'EndA Min Stress' ; CALC_WARN(11) = '1'; COMP_DIR(11) = '3'; CENT_TOTAL(11) = '1' TITLE_E(12) = 'EndB Min Stress' ; CALC_WARN(12) = '1'; COMP_DIR(12) = '3'; CENT_TOTAL(12) = '1' @@ -360,7 +360,7 @@ SUBROUTINE WRITE_FEMAP_STRE_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET WRITE(F06,*) ' *WARNING : CODE NOT WRITTEN FOR FEMAP PROCESSING OF STRESSES FOR PCOMP TYPE ELEMWMTS' ENDIF - + ELSE IF (ELEM_TYP(1:5) == 'SHEAR') THEN IF (IS_PCOMP == 'N') THEN @@ -455,7 +455,7 @@ SUBROUTINE WRITE_FEMAP_STRE_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET ENDDO ENDIF - + @@ -481,5 +481,5 @@ SUBROUTINE WRITE_FEMAP_STRE_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET 1008 FORMAT(' -1, 0. ,') ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_FEMAP_STRE_VECS diff --git a/Source/LK9/L91/WRITE_FEMAP_STRN_VECS.f90 b/Source/LK9/L91/WRITE_FEMAP_STRN_VECS.f90 index 624c7181..a77014e9 100644 --- a/Source/LK9/L91/WRITE_FEMAP_STRN_VECS.f90 +++ b/Source/LK9/L91/WRITE_FEMAP_STRN_VECS.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_FEMAP_STRN_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET_ID ) - + ! Writes elem strain to FEMAP neutral file for TRIA3, QUAD4, SHEAR, HEXA, PENTA, TETRA4 USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -35,11 +35,11 @@ SUBROUTINE WRITE_FEMAP_STRN_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_OPT USE FEMAP_ARRAYS, ONLY : FEMAP_EL_NUMS, FEMAP_EL_VECS - + USE WRITE_FEMAP_STRN_VECS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_FEMAP_STRN_VECS' CHARACTER(LEN=*), INTENT(IN) :: ELEM_TYP ! Element type CHARACTER(LEN=*), INTENT(IN) :: IS_PCOMP ! 'Y'/'N' for whether elements are PCOMP @@ -70,7 +70,7 @@ SUBROUTINE WRITE_FEMAP_STRN_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET REAL(DOUBLE) :: VEC_ABS ! Abs value in vector REAL(DOUBLE) :: VEC_MAX ! Max value in vector REAL(DOUBLE) :: VEC_MIN ! Min value in vector - + ! ********************************************************************************************************************************** ELEM_NAME_LEN = LEN(ELEM_TYP) @@ -267,7 +267,7 @@ SUBROUTINE WRITE_FEMAP_STRN_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET ENDDO ENDIF - + @@ -293,5 +293,5 @@ SUBROUTINE WRITE_FEMAP_STRN_VECS ( ELEM_TYP, IS_PCOMP, NUM_FEMAP_ROWS, FEMAP_SET 1008 FORMAT(' -1, 0. ,') ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_FEMAP_STRN_VECS diff --git a/Source/LK9/L91/WRITE_GRD_OP2_OUTPUTS.f90 b/Source/LK9/L91/WRITE_GRD_OP2_OUTPUTS.f90 index e53284bc..b446d641 100644 --- a/Source/LK9/L91/WRITE_GRD_OP2_OUTPUTS.f90 +++ b/Source/LK9/L91/WRITE_GRD_OP2_OUTPUTS.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ ! End MIT license text. - + SUBROUTINE WRITE_GRD_OP2_OUTPUTS ( JSUB, NUM, WHAT, ITABLE, NEW_RESULT ) ! Writes "plot" output for grid point related quantities: ! - accels @@ -32,7 +32,7 @@ SUBROUTINE WRITE_GRD_OP2_OUTPUTS ( JSUB, NUM, WHAT, ITABLE, NEW_RESULT ) ! - applied loads ! - SPC / MPC forces ! - velocity???? - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, OP2 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, INT_SC_NUM, SOL_NAME @@ -114,7 +114,7 @@ SUBROUTINE WRITE_GRD_OP2_OUTPUTS ( JSUB, NUM, WHAT, ITABLE, NEW_RESULT ) MODE = 0 ISUBCASE_INDEX = 0 CALL GET_ANALYSIS_CODE_FIELD5_FIELD6(JSUB, ANALYSIS_CODE, MODE, EIGENVALUE, ISUBCASE_INDEX) - + TITLEI = TITLE(INT_SC_NUM) STITLEI = STITLE(INT_SC_NUM) LABELI = LABEL(INT_SC_NUM) @@ -149,7 +149,7 @@ SUBROUTINE WRITE_GRD_OP2_OUTPUTS ( JSUB, NUM, WHAT, ITABLE, NEW_RESULT ) ! DO I=1,NUM ! WRITE(OP2) GID_OUT_ARRAY(I,1)*10+DEVICE_CODE ! Nastran is weird and requires scaling the NODE_ID ! WRITE(OP2) G_OR_S(I) ! GRID, SPOINT flag - ! + ! ! write the TX, TY, TZ, RX, RY, RZ ! DO J=1,6 ! FLOAT_VAL = REAL(OGEL(I,J), 4) ! convert from float64 (double precision) to float32 (single precision) @@ -172,7 +172,7 @@ SUBROUTINE WRITE_GRD_OP2_OUTPUTS ( JSUB, NUM, WHAT, ITABLE, NEW_RESULT ) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_GRD_OP2_OUTPUTS !============================================================================== @@ -193,7 +193,7 @@ SUBROUTINE GET_TABLE_NAME_OUG ( WHAT, TABLE_NAME, TABLE_CODE ) ELSE IF (WHAT == 'ACCE') THEN TABLE_NAME = 'OUGV1 ' TABLE_CODE = 11 - + ELSE IF (WHAT == 'OLOAD') THEN TABLE_NAME = 'OPG1 ' ! TODO: should this be OPGV1? TABLE_CODE = 2 @@ -267,7 +267,7 @@ SUBROUTINE GET_ANALYSIS_CODE_FIELD5_FIELD6(JSUB, ANALYSIS_CODE, MODE, EIGENVALUE ELSE IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 1)) THEN ISUBCASE_INDEX = 1 ANALYSIS_CODE = 1 ! statics - + ELSE IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN ISUBCASE_INDEX = 2 ANALYSIS_CODE = 7 ! pre-buckling diff --git a/Source/LK9/L91/WRITE_GRD_PCH_OUTPUTS.f90 b/Source/LK9/L91/WRITE_GRD_PCH_OUTPUTS.f90 index 330e3267..e613d39f 100644 --- a/Source/LK9/L91/WRITE_GRD_PCH_OUTPUTS.f90 +++ b/Source/LK9/L91/WRITE_GRD_PCH_OUTPUTS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_GRD_PCH_OUTPUTS ( JSUB, NUM, WHAT ) - + ! Writes "punch" output for grid point related quantities (accels, displacements, eigenvectors, applied loads and SPC, MPC forces) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, PCH USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, INT_SC_NUM, PCH_LINE_NUM, SOL_NAME @@ -36,7 +36,7 @@ SUBROUTINE WRITE_GRD_PCH_OUTPUTS ( JSUB, NUM, WHAT ) USE LINK9_STUFF, ONLY : GID_OUT_ARRAY, OGEL USE MODEL_STUF, ONLY : GRID, LABEL, SCNUM, SUBLOD, STITLE, TITLE USE EIGEN_MATRICES_1 , ONLY : EIGEN_VAL - + USE WRITE_GRD_PCH_OUTPUTS_USE_IFs IMPLICIT NONE @@ -72,7 +72,7 @@ SUBROUTINE WRITE_GRD_PCH_OUTPUTS ( JSUB, NUM, WHAT ) IF (WHAT == 'ACCE' ) THEN OUTNAM = 'ACCELERATION ' ELSE IF (WHAT == 'DISP' ) THEN - IF ((SOL_NAME(1:7) == 'STATICS') .OR. (SOL_NAME(1:8) == 'NLSTATIC')) THEN + IF ((SOL_NAME(1:7) == 'STATICS') .OR. (SOL_NAME(1:8) == 'NLSTATIC')) THEN OUTNAM = 'DISPLACEMENT OUTPUT' ELSE IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 1)) THEN OUTNAM = 'DISPLACEMENT OUTPUT' @@ -114,7 +114,7 @@ SUBROUTINE WRITE_GRD_PCH_OUTPUTS ( JSUB, NUM, WHAT ) ! Write accels, displ's, applied forces or SPC forces (also calc TOTALS for forces if that is being output) ! TOTALS(J) is summation of G.P. values of applied forces, SPC forces, or MFC forces, for each of the J=1,6 components. - + DO I=1,NUM IF (GRID(I,6) == 1) THEN @@ -127,10 +127,10 @@ SUBROUTINE WRITE_GRD_PCH_OUTPUTS ( JSUB, NUM, WHAT ) PCH_LINE_NUM = PCH_LINE_NUM + 1 ; WRITE(PCH,9902) GID_OUT_ARRAY(I,1), G_OR_S, (OGEL(I,J),J=1,3), PCH_LINE_NUM - PCH_LINE_NUM = PCH_LINE_NUM + 1 ; WRITE(PCH,9903) (OGEL(I,J),J=4,6), PCH_LINE_NUM + PCH_LINE_NUM = PCH_LINE_NUM + 1 ; WRITE(PCH,9903) (OGEL(I,J),J=4,6), PCH_LINE_NUM ENDDO - + RETURN @@ -158,5 +158,5 @@ SUBROUTINE WRITE_GRD_PCH_OUTPUTS ( JSUB, NUM, WHAT ) 9903 FORMAT('-CONT-',12X,3(1ES18.6),I8) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_GRD_PCH_OUTPUTS diff --git a/Source/LK9/L91/WRITE_GRD_PRT_OUTPUTS.f90 b/Source/LK9/L91/WRITE_GRD_PRT_OUTPUTS.f90 index 0a968236..4eb66033 100644 --- a/Source/LK9/L91/WRITE_GRD_PRT_OUTPUTS.f90 +++ b/Source/LK9/L91/WRITE_GRD_PRT_OUTPUTS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_GRD_PRT_OUTPUTS ( JVEC, NUM, WHAT, IHDR, ALL_SAME_CID, WRITE_OGEL ) - + ! Writes printed output for grid point related quantities (accels, displacements, eigenvectors, applied loads and SPC, MPC forces) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, PCH USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, INT_SC_NUM, MELGP, MOGEL, NDOFR, NVEC, NUM_CB_DOFS, & @@ -38,12 +38,12 @@ SUBROUTINE WRITE_GRD_PRT_OUTPUTS ( JVEC, NUM, WHAT, IHDR, ALL_SAME_CID, WRITE_OG USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP USE LINK9_STUFF, ONLY : GID_OUT_ARRAY, MAXREQ, OGEL USE MODEL_STUF, ONLY : LABEL, SCNUM, SUBLOD, STITLE, TITLE - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM - + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + USE WRITE_GRD_PRT_OUTPUTS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_GRD_PRT_OUTPUTS' CHARACTER(LEN=*) , INTENT(IN) :: IHDR ! Indicator of whether to write an output header in this use of this subr CHARACTER(LEN=*) , INTENT(IN) :: WHAT ! Indicator whether to process displ or force output requests @@ -57,7 +57,7 @@ SUBROUTINE WRITE_GRD_PRT_OUTPUTS ( JVEC, NUM, WHAT, IHDR, ALL_SAME_CID, WRITE_OG CHARACTER(14*BYTE) :: MAX_ANS_CHAR(6) ! Character variable that contains the 6 grid max outputs CHARACTER(14*BYTE) :: MIN_ANS_CHAR(6) ! Character variable that contains the 6 grid min outputs CHARACTER(14*BYTE) :: TOTALS_CHAR(6) ! Character variable that contains the 6 grid tot outputs - + INTEGER(LONG), INTENT(IN) :: JVEC ! Sol'n vector num. Can be internal subcase number or eigenvector number INTEGER(LONG), INTENT(IN) :: NUM ! The number of rows of OGEL to write out INTEGER(LONG) :: BDY_COMP ! Component (1-6) for a boundary DOF in CB analyses @@ -114,7 +114,7 @@ SUBROUTINE WRITE_GRD_PRT_OUTPUTS ( JVEC, NUM, WHAT, IHDR, ALL_SAME_CID, WRITE_OG ELSE IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN ! Write info on what CB DOF the output is for - IF ((JVEC <= NDOFR) .OR. (JVEC >= NDOFR+NVEC)) THEN + IF ((JVEC <= NDOFR) .OR. (JVEC >= NDOFR+NVEC)) THEN IF (JVEC <= NDOFR) THEN BDY_DOF_NUM = JVEC ELSE @@ -145,7 +145,7 @@ SUBROUTINE WRITE_GRD_PRT_OUTPUTS ( JVEC, NUM, WHAT, IHDR, ALL_SAME_CID, WRITE_OG ENDIF WRITE(F06,*) - + IF (WHAT == 'ACCE') THEN IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN WRITE(F06,9314) @@ -185,15 +185,15 @@ SUBROUTINE WRITE_GRD_PRT_OUTPUTS ( JVEC, NUM, WHAT, IHDR, ALL_SAME_CID, WRITE_OG ENDIF ENDIF WRITE(F06,9501) - + ENDIF - + ! Get MAX, MIN, ABS values DO J=1,6 - MAX_ANS(J) = -MACH_LARGE_NUM - ENDDO + MAX_ANS(J) = -MACH_LARGE_NUM + ENDDO DO I=1,NUM DO J=1,6 @@ -243,11 +243,11 @@ SUBROUTINE WRITE_GRD_PRT_OUTPUTS ( JVEC, NUM, WHAT, IHDR, ALL_SAME_CID, WRITE_OG ! Write accels, displ's, applied forces or SPC forces (also calc TOTALS for forces if that is being output) ! TOTALS(J) is summation of G.P. values of applied forces, SPC forces, or MFC forces, for each of the J=1,6 components. - + DO J=1,6 TOTALS(J) = ZERO - ENDDO - + ENDDO + LINES_WRITTEN = 0 DO I=1,NUM @@ -259,7 +259,7 @@ SUBROUTINE WRITE_GRD_PRT_OUTPUTS ( JVEC, NUM, WHAT, IHDR, ALL_SAME_CID, WRITE_OG ELSE WRITE(TOTALS_CHAR(J),'(1ES14.6)') TOTALS(J) ENDIF - ENDDO + ENDDO ENDIF IF (WRITE_OGEL(I) == 'Y') THEN @@ -279,7 +279,7 @@ SUBROUTINE WRITE_GRD_PRT_OUTPUTS ( JVEC, NUM, WHAT, IHDR, ALL_SAME_CID, WRITE_OG ENDIF ENDDO - + IF (LINES_WRITTEN > 2) THEN WRITE(F06,9601) (MAX_ANS_CHAR(J),J=1,6), (MIN_ANS_CHAR(J),J=1,6), (ABS_ANS_CHAR(J),J=1,6) ENDIF @@ -289,7 +289,7 @@ SUBROUTINE WRITE_GRD_PRT_OUTPUTS ( JVEC, NUM, WHAT, IHDR, ALL_SAME_CID, WRITE_OG ELSE PRINT_TOTALS = 'Y' ENDIF - + IF (LINES_WRITTEN > 1) THEN IF (PRINT_TOTALS == 'Y') THEN IF (WHAT == 'OLOAD') THEN @@ -387,5 +387,5 @@ SUBROUTINE WRITE_GRD_PRT_OUTPUTS ( JVEC, NUM, WHAT, IHDR, ALL_SAME_CID, WRITE_OG 9902 FORMAT(6X,2(1X,I8),6A) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_GRD_PRT_OUTPUTS diff --git a/Source/LK9/L91/WRITE_MEFFMASS.f90 b/Source/LK9/L91/WRITE_MEFFMASS.f90 index 369a19da..3d6f1cc4 100644 --- a/Source/LK9/L91/WRITE_MEFFMASS.f90 +++ b/Source/LK9/L91/WRITE_MEFFMASS.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_MEFFMASS - + ! Writes output for modal effective mass USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -37,11 +37,11 @@ SUBROUTINE WRITE_MEFFMASS USE EIGEN_MATRICES_1, ONLY : EIGEN_VAL, MEFFMASS USE MODEL_STUF, ONLY : MEFM_RB_MASS, LABEL, STITLE, TITLE USE PARAMS, ONLY : EPSIL, GRDPNT, MEFMCORD, MEFMGRID, MEFMLOC, SUPINFO, WTMASS - + USE WRITE_MEFFMASS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_MEFFMASS' CHARACTER(14*BYTE) :: CHAR_PCT(6) ! Character representation of MEFFMASS sum percents of total model mass CHARACTER(1*BYTE) :: IHDR = 'Y' ! Indicator of whether to write an output header @@ -73,12 +73,12 @@ SUBROUTINE WRITE_MEFFMASS WRITE(F06,909) TITLE(1) WRITE(F06,909) STITLE(1) WRITE(F06,909) LABEL(1) - WRITE(F06,*) + WRITE(F06,*) ENDIF ! Write modal effective masses WRITE(F06,9102) MEFMCORD - + IF (MEFMLOC == 'GRDPNT') THEN IF (MEFMGRID == 0) THEN WRITE(F06,9103) @@ -90,7 +90,7 @@ SUBROUTINE WRITE_MEFFMASS ELSE IF (MEFMLOC == 'GRID ') THEN WRITE(F06,9106) MEFMGRID ENDIF - + IF (IS_LOW_PRECISION) THEN WRITE(F06,9107) ELSE @@ -99,8 +99,8 @@ SUBROUTINE WRITE_MEFFMASS DO J=1,6 MEFM_TOTALS(J) = ZERO - ENDDO - + ENDDO + DO I=1,NVEC CYCLES = DSQRT(DABS(EIGEN_VAL(I)))/(TWO*PI) @@ -112,7 +112,7 @@ SUBROUTINE WRITE_MEFFMASS DO J=1,6 MEFM_TOTALS(J) = MEFM_TOTALS(J) + MEFFMASS(I,J)/WTMASS - ENDDO + ENDDO ENDDO @@ -127,10 +127,10 @@ SUBROUTINE WRITE_MEFFMASS ELSE WRITE(F06,9117) (MEFM_RB_MASS(I,I),I=1,6) ENDIF - + ! For each of the 6 modal masses, calc % of total mass. ! A character variable is used to store the % so that blank percentages can - ! be printed if zero modal mass exists for a component (T1 - R3) or + ! be printed if zero modal mass exists for a component (T1 - R3) or ! if a denominator in the % expression is zero IF (DABS(MEFM_RB_MASS(1,1)) > EPS1) THEN MODES_PCT(1) = ONE_HUNDRED*MEFM_TOTALS(1)/MEFM_RB_MASS(1,1) @@ -286,5 +286,5 @@ SUBROUTINE WRITE_MEFFMASS ' -----') ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_MEFFMASS diff --git a/Source/LK9/L91/WRITE_MPFACTOR.f90 b/Source/LK9/L91/WRITE_MPFACTOR.f90 index 76c0a3c0..c103d1c9 100644 --- a/Source/LK9/L91/WRITE_MPFACTOR.f90 +++ b/Source/LK9/L91/WRITE_MPFACTOR.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_MPFACTOR ! ( IHDR ) - + ! Writes output for modal participation factors USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, F06 @@ -37,11 +37,11 @@ SUBROUTINE WRITE_MPFACTOR ! ( IHDR ) USE MODEL_STUF, ONLY : LABEL, STITLE, TITLE USE PARAMS, ONLY : GRDPNT, MEFMCORD, MEFMGRID, MEFMLOC, MPFOUT, PRTF06, PRTOP2 USE DOF_TABLES, ONLY : TDOFI - + USE WRITE_MPFACTOR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_MPFACTOR' !xx CHARACTER(LEN=*) , INTENT(IN) :: IHDR ! Indicator of whether to write an output header CHARACTER(1*BYTE) :: IHDR = 'Y' ! Indicator of whether to write an output header @@ -142,7 +142,7 @@ SUBROUTINE WRITE_MPFACTOR ! ( IHDR ) WRITE(F06,9504) I, CYCLES, (MPFACTOR_N6(I,J),J=1,6) ENDIF - ENDDO + ENDDO ENDIF @@ -199,5 +199,5 @@ SUBROUTINE WRITE_MPFACTOR ! ( IHDR ) 9504 FORMAT(9X,I8,7(1ES14.2)) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_MPFACTOR diff --git a/Source/LK9/L91/WRITE_PLY_STRAINS.f90 b/Source/LK9/L91/WRITE_PLY_STRAINS.f90 index aa79576f..a71fbc17 100644 --- a/Source/LK9/L91/WRITE_PLY_STRAINS.f90 +++ b/Source/LK9/L91/WRITE_PLY_STRAINS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_PLY_STRAINS ( JSUB, NUM, IHDR, ETYPE, ITABLE ) - + ! Writes blocks of element ply strains for one subcase one element type for elements with PCOMP properties. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06, OP2 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, BARTOR, INT_SC_NUM, LPCOMP_PLIES, NDOFR, NUM_CB_DOFS, & @@ -39,17 +39,17 @@ SUBROUTINE WRITE_PLY_STRAINS ( JSUB, NUM, IHDR, ETYPE, ITABLE ) USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, FTNAME, OGEL USE MODEL_STUF, ONLY : ANY_FAILURE_THEORY, ELEM_ONAME, LABEL, PCOMP, SCNUM, STITLE, TITLE USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_OPT - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM - + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + USE WRITE_PLY_STRAINS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_PLY_STRAINS' CHARACTER(LEN=*), INTENT(IN) :: IHDR ! Indicator of whether to write an output header CHARACTER(128*BYTE) :: FILL ! Padding for output format CHARACTER(LEN=LEN(ELEM_ONAME)) :: ONAME ! Element name to write out in F06 file - + INTEGER(LONG), INTENT(IN) :: JSUB ! Solution vector number INTEGER(LONG), INTENT(IN) :: NUM ! The number of rows of OGEL to write out CHARACTER(8*BYTE), INTENT(IN) :: ETYPE ! the name of the element @@ -59,7 +59,7 @@ SUBROUTINE WRITE_PLY_STRAINS ( JSUB, NUM, IHDR, ETYPE, ITABLE ) INTEGER(LONG) :: BDY_DOF_NUM ! DOF number for BDY_GRID/BDY_COMP INTEGER(LONG) :: I,J ! DO loop indices - + REAL(DOUBLE) :: ABS_ANS(10) ! Max ABS for all grids output for each of the 6 disp components REAL(DOUBLE) :: MAX_ANS(10) ! Max for all grids output for each of the 6 disp components REAL(DOUBLE) :: MIN_ANS(10) ! Min for all grids output for each of the 6 disp components @@ -99,10 +99,10 @@ SUBROUTINE WRITE_PLY_STRAINS ( JSUB, NUM, IHDR, ETYPE, ITABLE ) ABS_ANS(J) = ZERO MAX_ANS(J) = -MACH_LARGE_NUM MIN_ANS(J) = ZERO - ENDDO + ENDDO ! Get element output name - + ONAME(1:) = ' ' CALL GET_ELEM_ONAME ( ONAME ) @@ -153,7 +153,7 @@ SUBROUTINE WRITE_PLY_STRAINS ( JSUB, NUM, IHDR, ETYPE, ITABLE ) ANALYSIS_CODE = 2 FIELD5_INT_MODE = JSUB - IF ((JSUB <= NDOFR) .OR. (JSUB >= NDOFR+NVEC)) THEN + IF ((JSUB <= NDOFR) .OR. (JSUB >= NDOFR+NVEC)) THEN IF (JSUB <= NDOFR) THEN BDY_DOF_NUM = JSUB ELSE @@ -209,9 +209,9 @@ SUBROUTINE WRITE_PLY_STRAINS ( JSUB, NUM, IHDR, ETYPE, ITABLE ) WRITE(F06,1404) FILL(1: 0), ONAME, FILL(1: 0), FILL(1: 0) ENDIF ENDIF - + ENDIF - + ! Write the element strain output ! 95: cquad4 ! 96: cquad8 @@ -235,7 +235,7 @@ SUBROUTINE WRITE_PLY_STRAINS ( JSUB, NUM, IHDR, ETYPE, ITABLE ) CALL GET_STRESS_CODE( STRESS_CODE, 0, 1, 1) ENDIF - ! elementi = [eid_device, layer, + ! elementi = [eid_device, layer, ! o1, o2, t12, t1z, t2z, angle, major, minor, ovm) NUM_WIDE = 11 NVALUES = NUM * NUM_WIDE @@ -326,7 +326,7 @@ SUBROUTINE WRITE_PLY_STRAINS ( JSUB, NUM, IHDR, ETYPE, ITABLE ) 301 FORMAT(45X,A,' S T R A I N S I N L A Y E R E D C O M P O S I T E E L E M E N T S') 302 FORMAT(9X,A,'C B E L E M E N T S T R A I N O T M I N L O C A L E L E M E N T C O O R D I N A T E S Y S T E M') - + 1401 FORMAT(53X,A,'F O R E L E M E N T T Y P E ',A11,/, & 1X,A,' Element Ply Strains in fiber and matrix directions Inter-laminar strains Principal strains (zero shear)',& ' von',/, & @@ -373,5 +373,5 @@ SUBROUTINE WRITE_PLY_STRAINS ( JSUB, NUM, IHDR, ETYPE, ITABLE ) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_PLY_STRAINS diff --git a/Source/LK9/L91/WRITE_PLY_STRESSES.f90 b/Source/LK9/L91/WRITE_PLY_STRESSES.f90 index b7769e3d..7fb01d64 100644 --- a/Source/LK9/L91/WRITE_PLY_STRESSES.f90 +++ b/Source/LK9/L91/WRITE_PLY_STRESSES.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_PLY_STRESSES ( JSUB, NUM, IHDR, ETYPE, ITABLE ) - + ! Writes blocks of element ply stresses for one subcase one ! element type for elements with PCOMP properties. USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -39,17 +39,17 @@ SUBROUTINE WRITE_PLY_STRESSES ( JSUB, NUM, IHDR, ETYPE, ITABLE ) USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, FTNAME, OGEL USE MODEL_STUF, ONLY : ANY_FAILURE_THEORY, ELEM_ONAME, LABEL, PCOMP, SCNUM, STITLE, TITLE USE CC_OUTPUT_DESCRIBERS, ONLY : STRE_OPT - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM - + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + USE WRITE_PLY_STRESSES_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_PLY_STRESSES' CHARACTER(LEN=*), INTENT(IN) :: IHDR ! Indicator of whether to write an output header CHARACTER(128*BYTE) :: FILL ! Padding for output format CHARACTER(LEN=LEN(ELEM_ONAME)) :: ONAME ! Element name to write out in F06 file - + INTEGER(LONG), INTENT(IN) :: JSUB ! Solution vector number INTEGER(LONG), INTENT(IN) :: NUM ! The number of rows of OGEL to write out CHARACTER(8*BYTE), INTENT(IN) :: ETYPE ! the name of the element @@ -59,7 +59,7 @@ SUBROUTINE WRITE_PLY_STRESSES ( JSUB, NUM, IHDR, ETYPE, ITABLE ) INTEGER(LONG) :: BDY_DOF_NUM ! DOF number for BDY_GRID/BDY_COMP INTEGER(LONG) :: I,J ! DO loop indices - + REAL(DOUBLE) :: ABS_ANS(10) ! Max ABS for all grids output for each of the 6 disp components REAL(DOUBLE) :: MAX_ANS(10) ! Max for all grids output for each of the 6 disp components REAL(DOUBLE) :: MIN_ANS(10) ! Min for all grids output for each of the 6 disp components @@ -99,12 +99,12 @@ SUBROUTINE WRITE_PLY_STRESSES ( JSUB, NUM, IHDR, ETYPE, ITABLE ) DO J=1,10 ABS_ANS(J) = ZERO - MAX_ANS(J) = -MACH_LARGE_NUM + MAX_ANS(J) = -MACH_LARGE_NUM MIN_ANS(J) = ZERO - ENDDO + ENDDO ! Get element output name - + ONAME(1:) = ' ' 90 FORMAT("*DEBUG: WRITE_PLY_STRESSES: ELEM_ONAME=",A," ONAME=",A," NUM=",I8) CALL GET_ELEM_ONAME ( ONAME ) @@ -157,7 +157,7 @@ SUBROUTINE WRITE_PLY_STRESSES ( JSUB, NUM, IHDR, ETYPE, ITABLE ) ANALYSIS_CODE = 2 FIELD5_INT_MODE = JSUB - IF ((JSUB <= NDOFR) .OR. (JSUB >= NDOFR+NUM_CB_DOFS)) THEN + IF ((JSUB <= NDOFR) .OR. (JSUB >= NDOFR+NUM_CB_DOFS)) THEN IF (JSUB <= NDOFR) THEN BDY_DOF_NUM = JSUB ELSE @@ -223,9 +223,9 @@ SUBROUTINE WRITE_PLY_STRESSES ( JSUB, NUM, IHDR, ETYPE, ITABLE ) WRITE(F06,1499) FILL(1: 0), FILL(1: 0), FILL(1: 0), FILL(1: 0) ENDIF ENDIF - + ENDIF - + ! Write the element stress output ! 95: cquad4 ! 96: cquad8 @@ -249,7 +249,7 @@ SUBROUTINE WRITE_PLY_STRESSES ( JSUB, NUM, IHDR, ETYPE, ITABLE ) CALL GET_STRESS_CODE( STRESS_CODE, 0, 0, 1) ENDIF - ! elementi = [eid_device, layer, + ! elementi = [eid_device, layer, ! o1, o2, t12, t1z, t2z, angle, major, minor, ovm) NUM_WIDE = 11 NVALUES = NUM * NUM_WIDE @@ -393,5 +393,5 @@ SUBROUTINE WRITE_PLY_STRESSES ( JSUB, NUM, IHDR, ETYPE, ITABLE ) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_PLY_STRESSES diff --git a/Source/LK9/L91/WRITE_ROD.f90 b/Source/LK9/L91/WRITE_ROD.f90 index 03e98159..f60d0eb3 100644 --- a/Source/LK9/L91/WRITE_ROD.f90 +++ b/Source/LK9/L91/WRITE_ROD.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, & TITLE, SUBTITLE, LABEL, & FIELD5_INT_MODE, FIELD6_EIGENVALUE, WRITE_OP2) - + ! Routine for writing output to text files F06 for ROD element stresses. Up to 2 elements written per line of output. ! Data is first written to character variables and then that character variable is output the F06. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM @@ -41,7 +41,7 @@ SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, & USE WRITE_ROD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_ROD' INTEGER(LONG), INTENT(IN) :: ISUBCASE ! the current subcase CHARACTER(LEN=*), INTENT(IN) :: FILL_F06 ! Padding for output format @@ -76,11 +76,11 @@ SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, & CHARACTER( 14*BYTE) :: RSTR22 ! Internal file: torsional stress in 2nd CROD CHARACTER( 10*BYTE) :: RMS22 ! Internal file: M.S. for torsional stress in 2nd CROD CHARACTER( 1*BYTE) :: RMSF22 ! Internal file: MSFLAG for torsional M.S. in 2nd CROD - + INTEGER(LONG), INTENT(IN) :: NUM ! The number of rows of OGEL to write out INTEGER(LONG) :: I,J ! DO loop indices - + REAL(DOUBLE) :: ABS_ANS(4) ! Max ABS for all grids output for each of the 6 disp components REAL(DOUBLE) :: MAX_ANS(4) ! Max for all grids output for each of the 6 disp components REAL(DOUBLE) :: MIN_ANS(4) ! Min for all grids output for each of the 6 disp components @@ -95,7 +95,7 @@ SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, & CALL OUTPUT2_WRITE_OES_ROD(ISUBCASE, ELEM_TYPE, NUM, ITABLE, TITLE, SUBTITLE, LABEL, & FIELD5_INT_MODE, FIELD6_EIGENVALUE, WRITE_OP2) DO I=1,NUM,2 - + RLINE_F06(1:) = ' ' REID1(1:) = ' ' @@ -105,7 +105,7 @@ SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, & RSTR12(1:) = ' ' RMS12(1:) = ' ' RMSF12(1:) = ' ' - + REID2(1:) = ' ' RSTR21(1:) = ' ' RMS21(1:) = ' ' @@ -113,16 +113,16 @@ SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, & RSTR22(1:) = ' ' RMS22(1:) = ' ' RMSF22(1:) = ' ' - + RMS31(1:) = ' ' RMS32(1:) = ' ' RMS41(1:) = ' ' RMS42(1:) = ' ' WRITE(REID1,2201) EID_OUT_ARRAY(I,1) - + ! Write axial stress output to a temporary internal file for one element - + WRITE(RSTR11,2202) OGEL(I,1) MSFLAG = ' ' IF (MSPRNT(I,1) /= '0') THEN @@ -135,7 +135,7 @@ SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, & ENDIF ! Write torsional stress output to a temporary internal file for one element - + WRITE(RSTR12,2202) OGEL(I,3) MSFLAG = ' ' IF (MSPRNT(I,2) /= '0') THEN @@ -146,13 +146,13 @@ SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, & WRITE(RMS32,2213) OGEL(I,4) WRITE(RMSF12,2204) MSFLAG ENDIF - + ! Write axial stress output to a temporary internal file for another element - + IF ((I+1) <= NUM) THEN - + WRITE(REID2,2201) EID_OUT_ARRAY(I+1,1) - + WRITE(RSTR21,2202) OGEL(I+1,1) MSFLAG = ' ' IF (MSPRNT(I+1,1) /= '0') THEN @@ -163,9 +163,9 @@ SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, & WRITE(RMS41,2213) OGEL(I+1,2) WRITE(RMSF21,2204) MSFLAG ENDIF - + ! Write torsional stress output to a temporary internal file for another element - + WRITE(RSTR22,2202) OGEL(I+1,3) MSFLAG = ' ' IF (MSPRNT(I+1,2) /= '0') THEN @@ -176,17 +176,17 @@ SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, & WRITE(RMS42,2213) OGEL(I+1,4) WRITE(RMSF22,2204) MSFLAG ENDIF - + ENDIF - + ! Write a line of output, consisting of stress output for one or two elements, to the output file - + RLINE_F06 = REID1//RSTR11//RMS11//RMSF11//RSTR12//RMS12//RMSF12//REID2//RSTR21//RMS21//RMSF21//RSTR22//RMS22//RMSF22 WRITE(F06,2205) FILL_F06, RLINE_F06 - - ENDDO - + + ENDDO + CALL GET_MAX_MIN_ABS ( 1, 4 ) WRITE(F06,9104) (MAX_ANS(J),J=1,4),(MIN_ANS(J),J=1,4),(ABS_ANS(J),J=1,4) @@ -214,18 +214,18 @@ SUBROUTINE WRITE_ROD ( ISUBCASE, NUM, FILL_F06, ITABLE, & 1X,'*for output set') ! ********************************************************************************************************************************** - + ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE GET_MAX_MIN_ABS ( BEG_COL, END_COL ) USE PENTIUM_II_KIND, ONLY : LONG USE CONSTANTS_1, ONLY : ZERO - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM IMPLICIT NONE @@ -237,8 +237,8 @@ SUBROUTINE GET_MAX_MIN_ABS ( BEG_COL, END_COL ) ! Get MAX, MIN, ABS values DO JJ=1,END_COL-BEG_COL+1 - MAX_ANS(JJ) = -MACH_LARGE_NUM - ENDDO + MAX_ANS(JJ) = -MACH_LARGE_NUM + ENDDO DO II=1,NUM KK = 0 @@ -276,7 +276,7 @@ SUBROUTINE OUTPUT2_WRITE_OES_ROD(ISUBCASE, ELEM_TYPE, NUM, ITABLE, TITLE, SUBTIT FIELD5_INT_MODE, FIELD6_EIGENVALUE, WRITE_OP2) ! writes the CROD/CTUBE/CONROD stress/strain results. ! Data is first written to character variables and then that character variable is output the F06. -! +! ! Parameters ! ========== ! ELEM_TYPE : int @@ -351,7 +351,7 @@ SUBROUTINE OUTPUT2_WRITE_OES_ROD(ISUBCASE, ELEM_TYPE, NUM, ITABLE, TITLE, SUBTIT ! RE2 = REAL(OGEL(I,2), 4) ! RE3 = REAL(OGEL(I,3), 4) ! RE4 = REAL(OGEL(I,4), 4) - ! + ! ! write the axisl_stress, axial_margin, torsional stress, torsional_margin ! WRITE(OP2) RE1, RE2, RE3, RE4 ! ENDDO diff --git a/Source/LK9/L91/WRT_REAL_TO_CHAR_VAR.f90 b/Source/LK9/L91/WRT_REAL_TO_CHAR_VAR.f90 index 817e6890..fc8cc4b8 100644 --- a/Source/LK9/L91/WRT_REAL_TO_CHAR_VAR.f90 +++ b/Source/LK9/L91/WRT_REAL_TO_CHAR_VAR.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE WRT_REAL_TO_CHAR_VAR ( REAL_VAR, NROWS, NCOLS, ROW_NUM, CHAR_VAR ) @@ -46,7 +46,7 @@ SUBROUTINE WRT_REAL_TO_CHAR_VAR ( REAL_VAR, NROWS, NCOLS, ROW_NUM, CHAR_VAR ) INTEGER(LONG), INTENT(IN) :: ROW_NUM ! Row number in array REAL_VAR to write INTEGER(LONG) :: J ! DO loop index - REAL(DOUBLE) , INTENT(IN) :: REAL_VAR(NROWS,NCOLS)! + REAL(DOUBLE) , INTENT(IN) :: REAL_VAR(NROWS,NCOLS)! ! ********************************************************************************************************************************** DO J=1,NCOLS diff --git a/Source/LK9/L92/CALC_ELEM_NODE_FORCES.f90 b/Source/LK9/L92/CALC_ELEM_NODE_FORCES.f90 index 0d847433..222ecb4b 100644 --- a/Source/LK9/L92/CALC_ELEM_NODE_FORCES.f90 +++ b/Source/LK9/L92/CALC_ELEM_NODE_FORCES.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CALC_ELEM_NODE_FORCES - + ! Calculates elem nodal forces in local elem coord system for one elem and one subcase for all element types. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, INT_SC_NUM, JTSUB, NCORD, NGRID, WARN_ERR @@ -36,26 +36,26 @@ SUBROUTINE CALC_ELEM_NODE_FORCES USE DEBUG_PARAMETERS USE MODEL_STUF, ONLY : AGRID, BGRID, CORD, EID, ELAS_COMP, ELDOF, ELGP, GRID, KE, KEG, KEO_BUSH, & PEB, PE_GA_GB, PEG, PEL, PTE, RCORD, SCNUM, SUBLOD, TYPE, UEB, UEG, UEL, TE, TE_GA_GB - + USE CALC_ELEM_NODE_FORCES_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CALC_ELEM_NODE_FORCES' CHARACTER( 1*BYTE) :: TEMP_OPT(6) ! Array of EMG option indicators - + INTEGER(LONG) :: ACID_G ! Actual coordinate system ID INTEGER(LONG) :: I,J,K ! DO loop indices - INTEGER(LONG) :: ICID ! Internal coord sys no. corresponding to an actual coord sys no. + INTEGER(LONG) :: ICID ! Internal coord sys no. corresponding to an actual coord sys no. INTEGER(LONG) :: I1,I2 ! Calculated displ component no's for ELAS elems INTEGER(LONG) :: NCOLS ! Number of rows in element stiffness matrix INTEGER(LONG) :: NROWS ! Number of cols in element stiffness matrix INTEGER(LONG) :: NUM_COMPS_GRID_1 ! No. displ components for 1st grid on ELAS elems - + REAL(DOUBLE) :: DUM1(3),DUM2(3) ! Intermediate variables REAL(DOUBLE) :: PHID, THETAD ! Outputs from subr GEN_T0L - REAL(DOUBLE) :: T0G(3,3) ! Matrix to transform offsets from global to basic coords + REAL(DOUBLE) :: T0G(3,3) ! Matrix to transform offsets from global to basic coords REAL(DOUBLE) :: TET(3,3) ! Transpose of TE REAL(DOUBLE) :: TET_GA_GB(3,3) ! Transpose of TE REAL(DOUBLE) :: TR(12,12) ! Matrix with 4 TE matrices on the diagonal @@ -65,25 +65,25 @@ SUBROUTINE CALC_ELEM_NODE_FORCES ! ********************************************************************************************************************************** NROWS = ELDOF NCOLS = ELDOF - + DO I=1,NCOLS PEL(I) = ZERO - ENDDO - + ENDDO + ! ********************************************************************************************************************************** ! Calc forces for one element. The ELAS and ROD1 elem have very sparse stiffness matrices, so an explicit form is used ! for them. All other element forces are calculated by multiplication of complete stiffness matrix with the displ's. - + IF (TYPE(1:4) == 'ELAS') THEN ! Calculate forces for ELAS1-4 elems - + I1 = ELAS_COMP(1) CALL GET_GRID_NUM_COMPS ( BGRID(1), NUM_COMPS_GRID_1, SUBR_NAME ) I2 = NUM_COMPS_GRID_1 + ELAS_COMP(2) PEL(I1) = KE(I1,I1)*UEL(I1) + KE(I1,I2)*UEL(I2) ! Note: KE is global and local for the ELAS elems PEL(I2) = KE(I2,I1)*UEL(I1) + KE(I2,I2)*UEL(I2) - + ELSE IF (TYPE == 'ROD ') THEN ! Calculate forces for ROD1 elem - + IF (SUBLOD(INT_SC_NUM,2) > 0) THEN PEL(1) = -PTE(1,JTSUB) PEL(7) = -PTE(7,JTSUB) @@ -93,7 +93,7 @@ SUBROUTINE CALC_ELEM_NODE_FORCES PEL( 4) = KE( 4, 4)*UEL( 4) + KE( 4,10)*UEL(10) PEL( 7) = PEL(7) + KE( 7, 1)*UEL( 1) + KE( 7, 7)*UEL( 7) PEL(10) = KE(10, 4)*UEL( 4) + KE(10,10)*UEL(10) - + ELSE IF (TYPE == 'USERIN ') THEN WRITE(F06,9991) TYPE @@ -101,12 +101,12 @@ SUBROUTINE CALC_ELEM_NODE_FORCES ELSE IF (TYPE == 'BUSH ') THEN CALL ELEM_TRANSFORM_LBG ( 'KE', KE, PTE ) - + DO I=1,6 TEMP_OPT(I) ='N' ENDDO TEMP_OPT(4) = 'Y' - CALL ELMOFF ( TEMP_OPT, 'Y' ) + CALL ELMOFF ( TEMP_OPT, 'Y' ) DO I=1,NROWS DO J=1,NCOLS @@ -123,23 +123,23 @@ SUBROUTINE CALC_ELEM_NODE_FORCES ICID = J EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( BGRID(I), ICID, THETAD, PHID, T0G ) IF (I == 1) THEN DO J=1,3 - PEB(J) = T0G(J,1)*PEG(J) + T0G(J,2)*PEG(J) + T0G(J,3)*PEG(J) - ENDDO + PEB(J) = T0G(J,1)*PEG(J) + T0G(J,2)*PEG(J) + T0G(J,3)*PEG(J) + ENDDO DO J=1,3 - PEB(J+3) = T0G(J,1)*PEG(J+3) + T0G(J,2)*PEG(J+3) + T0G(J,3)*PEG(J+3) + PEB(J+3) = T0G(J,1)*PEG(J+3) + T0G(J,2)*PEG(J+3) + T0G(J,3)*PEG(J+3) ENDDO - ELSE + ELSE DO J=1,3 - PEB(J+6) = T0G(J,1)*PEG(J+6) + T0G(J,2)*PEG(J+6) + T0G(J,3)*PEG(J+6) - ENDDO + PEB(J+6) = T0G(J,1)*PEG(J+6) + T0G(J,2)*PEG(J+6) + T0G(J,3)*PEG(J+6) + ENDDO DO J=1,3 - PEB(J+9) = T0G(J,1)*PEG(J+9) + T0G(J,2)*PEG(J+9) + T0G(J,3)*PEG(J+9) + PEB(J+9) = T0G(J,1)*PEG(J+9) + T0G(J,2)*PEG(J+9) + T0G(J,3)*PEG(J+9) ENDDO - ENDIF + ENDIF ELSE ! Global was basic so no transformation of coords needed DO J=1,12 PEB(J) = PEG(J) @@ -195,20 +195,20 @@ SUBROUTINE CALC_ELEM_NODE_FORCES ELSE ! Calculate forces for any other type of elem DO I=1,NROWS - + IF (SUBLOD(INT_SC_NUM,2) > 0) THEN PEL(I) = -PTE(I,JTSUB) ENDIF - + DO J=1,NCOLS PEL(I) = PEL(I) + KE(I,J)*UEL(J) ENDDO ENDDO - + ENDIF - IF (DEBUG(56) > 0) THEN ! Print UEL, PEL to f06 for debug + IF (DEBUG(56) > 0) THEN ! Print UEL, PEL to f06 for debug WRITE(F06,5000) WRITE(F06,5004) TRIM(TYPE), EID, SCNUM(INT_SC_NUM) J = 0 ; K = 0 @@ -227,7 +227,7 @@ SUBROUTINE CALC_ELEM_NODE_FORCES ENDDO WRITE(F06,5000) ENDIF - + RETURN @@ -237,7 +237,7 @@ SUBROUTINE CALC_ELEM_NODE_FORCES 5000 FORMAT('=============================================================================================================',/) 5004 FORMAT(16X, 'S U B R O U T I N E CALC_ELEM_NODE_FORCES F O R ',A,I8,', S/C',I8,/, & - + 28X,'(displacements and node forces in element coordinates)',/) 5006 FORMAT(21X,A,I8,1X,I3,2ES15.6) diff --git a/Source/LK9/L92/CALC_ELEM_STRAINS.f90 b/Source/LK9/L92/CALC_ELEM_STRAINS.f90 index 3d80aaa7..f27f4b23 100644 --- a/Source/LK9/L92/CALC_ELEM_STRAINS.f90 +++ b/Source/LK9/L92/CALC_ELEM_STRAINS.f90 @@ -1,41 +1,41 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CALC_ELEM_STRAINS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + ! Calls routines that process the STRAIN array calculated in subr ELEM_STRE_STRN_ARRAYS to obtain element specific strain values ! that will be written to the F06 file. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : TYPE USE CONSTANTS_1, ONLY : ZERO - + USE CALC_ELEM_STRAINS_USE_IFs IMPLICIT NONE @@ -43,13 +43,13 @@ SUBROUTINE CALC_ELEM_STRAINS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CALC_ELEM_STRAINS' CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP arrays - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to in a subr ! called here so we can check that we don't try to write more rows INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr - + ! ********************************************************************************************************************************** @@ -73,7 +73,7 @@ SUBROUTINE CALC_ELEM_STRAINS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, CALL OUTA_HERE ( 'Y' ) ENDIF - + RETURN @@ -81,7 +81,7 @@ SUBROUTINE CALC_ELEM_STRAINS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, ! ********************************************************************************************************************************** 9203 FORMAT(' *ERROR 9203: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' INCORRECT ELEMENT TYPE = "',A,'"') - + ! ********************************************************************************************************************************** END SUBROUTINE CALC_ELEM_STRAINS diff --git a/Source/LK9/L92/CALC_ELEM_STRESSES.f90 b/Source/LK9/L92/CALC_ELEM_STRESSES.f90 index c985cab5..967a79a1 100644 --- a/Source/LK9/L92/CALC_ELEM_STRESSES.f90 +++ b/Source/LK9/L92/CALC_ELEM_STRESSES.f90 @@ -1,41 +1,41 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CALC_ELEM_STRESSES ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + ! Calls routines that process the STRESS array calculated in subr ELEM_STRE_STRN_ARRAYS to obtain element specific stress values ! that will be written to the F06 file - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : TYPE USE CONSTANTS_1, ONLY : ZERO - + USE CALC_ELEM_STRESSES_USE_IFs IMPLICIT NONE @@ -43,13 +43,13 @@ SUBROUTINE CALC_ELEM_STRESSES ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CALC_ELEM_STRESSES' CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP arrays - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to in a subr ! called here so we can check that we don't try to write more rows INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr - + ! ********************************************************************************************************************************** @@ -73,7 +73,7 @@ SUBROUTINE CALC_ELEM_STRESSES ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL CALL OUTA_HERE ( 'Y' ) ENDIF - + RETURN @@ -82,10 +82,10 @@ SUBROUTINE CALC_ELEM_STRESSES ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL ! not used 9200 FORMAT(' *ERROR 9200: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' ARRAY OGEL WAS ALLOCATED TO HAVE ',I12,' ROWS. ATTEMPT TO WRITE TO OGEL BEYOND THIS') - + 9203 FORMAT(' *ERROR 9203: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' INCORRECT ELEMENT TYPE = "',A,'"') - + ! ********************************************************************************************************************************** END SUBROUTINE CALC_ELEM_STRESSES diff --git a/Source/LK9/L92/ELEM_STRE_STRN_ARRAYS.f90 b/Source/LK9/L92/ELEM_STRE_STRN_ARRAYS.f90 index a40492bb..263ae5b6 100644 --- a/Source/LK9/L92/ELEM_STRE_STRN_ARRAYS.f90 +++ b/Source/LK9/L92/ELEM_STRE_STRN_ARRAYS.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) - + ! Calculates element stress and strain arrays (arrays STRESS and STRAIN). Stresses are calculated for all engineering elements ! (1-D, 2-D, 3-D elements). Strains are calculated for the BUSH element, all 2-D and 3-D elements. The default method for ! calculating stresses (for 2D and 3D elements) is to first calculate strains by multiplying the element strain-displ matrices @@ -37,7 +37,7 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) ! The arrays STRESS and STRAIN are calculated at the mid plane of 2-D elements and have to be processed later to get element ! specific outputs (e.g. stresses at the top and bottom of the 2-D element). The same is true for some of the 1-D elements (e.g. ! the BAR element stresses at the 4 points on the cross-section have to be processed from the STRESS array generated here) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, INT_SC_NUM, JTSUB @@ -52,7 +52,7 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) USE ELEM_STRE_STRN_ARRAYS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELEM_STRE_STRN_ARRAYS' INTEGER(LONG), INTENT(IN) :: STR_PT_NUM ! Which point (3rd index in SEi matrices) this call is for @@ -60,7 +60,7 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) INTEGER(LONG) :: K ! Counter INTEGER(LONG) :: STR_CID_SOLID - + REAL(DOUBLE) :: ALPT(6) ! Col of ALPVEC times temperatures REAL(DOUBLE) :: ALPTM(3) ! Col of ALPVEC times temperatures REAL(DOUBLE) :: ALPTB(3) ! Col of ALPVEC times temperatures @@ -83,7 +83,7 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) REAL(DOUBLE) :: STRESS1_MECH(3) ! Part of array STRESS1 REAL(DOUBLE) :: STRESS2_MECH(3) ! Part of array STRESS2 REAL(DOUBLE) :: STRESS3_MECH(3) ! Part of array STRESS3 - REAL(DOUBLE) :: TBAR ! Average elem temperature + REAL(DOUBLE) :: TBAR ! Average elem temperature REAL(DOUBLE) :: STR_TENSOR(3,3) ! 2D stress or strain tensor @@ -113,7 +113,7 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) STRESS(I) = STRESS(I) - STE1(I,JTSUB,STR_PT_NUM) ENDIF ENDDO - + IF ((TYPE(1:3) == 'BAR') .OR. (TYPE(1:4) == 'BUSH')) THEN K = 0 DO I=4,6 @@ -124,8 +124,8 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) ENDIF DO J=1,ELDOF STRESS(I) = STRESS(I) + SE2(K,J,STR_PT_NUM)*UEL(J) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF @@ -142,23 +142,23 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) STRAIN(I) = STRAIN(I) + BE1(I,J,STR_PT_NUM)*UEL(J) ENDDO ENDDO - + K = 0 DO I=4,6 STRAIN(I) = ZERO K = K + 1 DO J=1,ELDOF STRAIN(I) = STRAIN(I) + BE2(K,J,STR_PT_NUM)*UEL(J) - ENDDO - ENDDO - + ENDDO + ENDDO + ! ********************************************************************************************************************************** ! Calc strains, then stresses for 2D elements ELSE IF ((TYPE(1:5) == 'TRIA3') .OR. (TYPE(1:5) == 'QUAD4') .OR. (TYPE(1:5) == 'QUAD8') .OR. & (TYPE(1:5) == 'SHEAR') .OR. (TYPE(1:5) == 'USER1')) THEN - + DO I=1,3 STRAIN(I) = ZERO STRAIN(I+3) = ZERO @@ -166,14 +166,14 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) STRAIN(I) = STRAIN(I) + BE1(I,J,STR_PT_NUM)*UEL(J) STRAIN(I+3) = STRAIN(I+3) + BE2(I,J,STR_PT_NUM)*UEL(J) ENDDO - ENDDO + ENDDO DO I=1,2 STRAIN(I+6) = ZERO DO J=1,ELDOF STRAIN(I+6) = STRAIN(I+6) + BE3(I,J,STR_PT_NUM)*UEL(J) ENDDO - ENDDO + ENDDO ! Calc stresses from strains @@ -213,7 +213,7 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) ALPTB(:) = ZERO ALPTT(:) = ZERO ENDIF - + ET3(:,:) = ZERO DO I=1,2 @@ -231,8 +231,8 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) STRESS3_MECH = PHI_SQ*DUM33 ! Need PHI_SQ on transv shear stress since this calc is from strains and ! BE3, not SE3. If DEBUG(176) > 0 then stresses are calc'd from the SE3 ! below and SE3 has PHI_SQ incorporated in subrs QPLT1, QPLT3, TPLT2. - - + + IF (SUBLOD(INT_SC_NUM,2) > 0) THEN CALL MATMULT_FFF ( EM , ALPTM , 3, 3, 1, STRESS1_THERM ) CALL MATMULT_FFF ( EB , ALPTB , 3, 3, 1, STRESS2_THERM ) @@ -242,7 +242,7 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) CALL MATADD_FFF ( STRESS1_MECH, STRESS1_THERM, 3, 1, ONE, -ONE, 0, STRESS1 ) CALL MATADD_FFF ( STRESS2_MECH, STRESS2_THERM, 3, 1, ONE, -ONE, 0, STRESS2 ) CALL MATADD_FFF ( STRESS3_MECH, STRESS3_THERM, 3, 1, ONE, -ONE, 0, STRESS3 ) - + DO I=1,3 STRESS(I) = STRESS1(I) STRESS(I+3) = STRESS2(I) @@ -305,7 +305,7 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) ALPT(I) = ZERO ENDIF ENDDO - + CALL MATMULT_FFF ( ES, STRAIN, 6, 6, 1, STRESS_MECH ) IF (SUBLOD(INT_SC_NUM,2) > 0) THEN @@ -396,9 +396,9 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) ! STR_CID_SOLID is -1 if ISOLID(3) is -1 which means ! material coordinates = element coordinates so don't ! transform it. - - ELSE IF(STR_CID_SOLID >= 0) THEN - + + ELSE IF(STR_CID_SOLID >= 0) THEN + ! Transform 3D stresses STR_TENSOR(1,1) = STRESS(1) ; STR_TENSOR(1,2) = STRESS(4) ; STR_TENSOR(1,3) = STRESS(6) STR_TENSOR(2,1) = STRESS(4) ; STR_TENSOR(2,2) = STRESS(2) ; STR_TENSOR(2,3) = STRESS(5) @@ -459,7 +459,7 @@ SUBROUTINE ELEM_STRE_STRN_ARRAYS ( STR_PT_NUM ) ! ********************************************************************************************************************************** 9203 FORMAT(' *ERROR 9203: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' INCORRECT ELEMENT TYPE = "',A,'"') - + 9303 FORMAT(' *ERROR 9303: PARAM,STR_CID not implemented for QUAD and TRIA elements.' ) 9304 FORMAT(' *ERROR 9304: PSOLID field 4, CORDM <= -2 not allowed for solid elements.' ) diff --git a/Source/LK9/L92/ELMDIS.f90 b/Source/LK9/L92/ELMDIS.f90 index d72d7741..8a763df5 100644 --- a/Source/LK9/L92/ELMDIS.f90 +++ b/Source/LK9/L92/ELMDIS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ELMDIS - + ! Get displs for one element, one subcase from list of all displ's (in UG_COL). Transform them to local elem coords. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, INT_SC_NUM, meldof, MELGP, NCORD, NGRID @@ -39,11 +39,11 @@ SUBROUTINE ELMDIS USE COL_VECS, ONLY : UG_COL USE DEBUG_PARAMETERS, ONLY : DEBUG USE MODEL_STUF, ONLY : EID, AGRID - + USE ELMDIS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELMDIS' INTEGER(LONG) :: G_SET_COL ! Col number in TDOF where the G-set DOF's exist @@ -60,18 +60,18 @@ SUBROUTINE ELMDIS INTEGER(LONG), PARAMETER :: NCOL = 1 ! An input to subr MATPUT, MATGET called herein INTEGER(LONG) :: NUM_COMPS ! Either 6 or 1 depending on whether grid is a physical grid or a SPOINT INTEGER(LONG) :: PROW ! An input to subr MATPUT, MATGET called herein - INTEGER(LONG), PARAMETER :: PCOL = 1 ! An input to subr MATPUT, MATGET called herein + INTEGER(LONG), PARAMETER :: PCOL = 1 ! An input to subr MATPUT, MATGET called herein INTEGER(LONG) :: ROW_NUM_START ! DOF number where TDOF data begins for a grid INTEGER(LONG) :: TDOF_ROW ! Row no. in array TDOF to find GDOF DOF number - + REAL(DOUBLE) :: DXI ! An offset distance in direction 1 REAL(DOUBLE) :: DYI ! An offset distance in direction 2 REAL(DOUBLE) :: DZI ! An offset distance in direction 3 - REAL(DOUBLE) :: T0G(3,3) ! Coord transformation matrix - basic to global + REAL(DOUBLE) :: T0G(3,3) ! Coord transformation matrix - basic to global REAL(DOUBLE) :: DUM1(3),DUM2(3) ! Dummy arrays needed in transforming from global to basic coords REAL(DOUBLE) :: THETAD,PHID ! Returns from subr GEN_T0L (not used here) - + ! ********************************************************************************************************************************** ! Initialize @@ -87,7 +87,7 @@ SUBROUTINE ELMDIS ! the internal grid point no's for this elem. These are generated in subroutine ELMDAT called by EMG ! called by OFP3 prior to this call. The grid point displ's in global coord's are in array UG_COL created in LINK9. ! This elems grid point displ's in global coord's, UGG, are gotten from UG_COL. - + I2 = 0 DO I=1,ELGP ! CALL CALC_TDOF_ROW_NUM ( AGRID(I), ROW_NUM_START, 'N' ) @@ -112,7 +112,7 @@ SUBROUTINE ELMDIS WRITE(F06,5002) ' UGG FOR G.P. ', AGRID(2), ': ', (UGG(I),I=7,12) WRITE(F06,*) ENDIF - ! For all but ELAS, USERIN there is a 3 step process to get UEL from UGG + ! For all but ELAS, USERIN there is a 3 step process to get UEL from UGG IF ((TYPE(1:4) /= 'ELAS') .AND. (TYPE /= 'USERIN ')) THEN ! --------------------------------------------------------------------------------------------------------------------------- @@ -122,7 +122,7 @@ SUBROUTINE ELMDIS DO J=1,NUM_COMPS I2 = I2 + 1 UEG(I2) = UGG(I2) - ENDDO + ENDDO IF (CAN_ELEM_TYPE_OFFSET == 'Y') THEN IF (TYPE /= 'BUSH ') THEN ! BUSH local axes are et the grids, not at the BUSH location IF (OFFSET(I) == 'Y') THEN ! Elem is offset at this node so transform UGG to UEG @@ -132,14 +132,14 @@ SUBROUTINE ELMDIS PROW = 6*(I-1) + 1 UEG(PROW) = UGG(PROW) + DZI*UGG(PROW+4) - DYI*UGG(PROW+5) UEG(PROW+1) = UGG(PROW+1) - DZI*UGG(PROW+3) + DXI*UGG(PROW+5) - UEG(PROW+2) = UGG(PROW+2) + DYI*UGG(PROW+3) - DXI*UGG(PROW+4) + UEG(PROW+2) = UGG(PROW+2) + DYI*UGG(PROW+3) - DXI*UGG(PROW+4) UEG(PROW+3) = UGG(PROW+3) UEG(PROW+4) = UGG(PROW+4) UEG(PROW+5) = UGG(PROW+5) ENDIF ENDIF ENDIF - ENDDO + ENDDO IF (DEBUG(56) > 0) THEN WRITE(F06,5102) @@ -158,21 +158,21 @@ SUBROUTINE ELMDIS ICORD = J ! ICORD is the internal coord. sys. ID corresponding to GLOBAL_CID EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( BGRID(I), ICORD, THETAD, PHID, T0G ) DO J=1,2 PROW = 6*(I-1) + 1 + 3*(J-1) CALL MATGET ( UEG, 6*MELGP, 1, PROW, PCOL, NROW, NCOL, DUM1 ) CALL MATMULT_FFF ( T0G, DUM1, NROWA, NCOLA, NCOLB, DUM2 ) CALL MATPUT ( DUM2, 6*MELGP, 1, PROW, PCOL, NROW, NCOL, UEB ) - ENDDO + ENDDO I2 = I2 + NUM_COMPS ELSE ! If global is basic, get UEB terms directly from UEG CALL GET_GRID_NUM_COMPS ( BGRID(I), NUM_COMPS, SUBR_NAME ) DO J=1,NUM_COMPS I2 = I2 + 1 UEB(I2) = UEG(I2) - ENDDO + ENDDO ENDIF ENDDO @@ -182,14 +182,14 @@ SUBROUTINE ELMDIS WRITE(F06,5002) ' UEB for G.P. ', AGRID(2), ': ', (UEB(I),I=7,12) WRITE(F06,*) ENDIF - + ! --------------------------------------------------------------------------------------------------------------------------- DO I=1,2*ELGP ! (3) Transform from basic (UEB) to local (UEL) elem coords at elem nodes I1 = 3*I - 2 UEL(I1) = TE(1,1)*UEB(I1)+ TE(1,2)*UEB(I1+1)+ TE(1,3)*UEB(I1+2) UEL(I1+1) = TE(2,1)*UEB(I1)+ TE(2,2)*UEB(I1+1)+ TE(2,3)*UEB(I1+2) UEL(I1+2) = TE(3,1)*UEB(I1)+ TE(3,2)*UEB(I1+1)+ TE(3,3)*UEB(I1+2) - ENDDO + ENDDO IF (DEBUG(56) > 0) THEN WRITE(F06,5104) @@ -226,18 +226,18 @@ SUBROUTINE ELMDIS 5002 FORMAT(A,I3,A,12ES14.6) 5101 FORMAT(' Displacements at grids in global coords',/,' ---------------------------------------') - + 5102 FORMAT(' Displacements at elem nodes in global coords',/,' --------------------------------------------') 5103 FORMAT(' Displacements at elem nodes in basic coords',/,' -------------------------------------------') - + 5104 FORMAT(' Displacements at elem nodes in local elem coords',/,' ------------------------------------------------') ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE DEBUG_ELMDIS diff --git a/Source/LK9/L92/ELMDIS_PLY.f90 b/Source/LK9/L92/ELMDIS_PLY.f90 index 64e55780..336a387b 100644 --- a/Source/LK9/L92/ELMDIS_PLY.f90 +++ b/Source/LK9/L92/ELMDIS_PLY.f90 @@ -1,51 +1,51 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ELMDIS_PLY - + ! Get displs for one ply, or lamina, of a multi-ply element given the UG displs for the overall element (i.e. at the mid plane of ! the laminate). Result goes back into UEL - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : f06 USE SCONTR, ONLY : BLNK_SUB_NAM USE CONSTANTS_1, ONLY : CONV_DEG_RAD USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : ELGP, ELDOF, UEL, ZPLY - + USE ELMDIS_PLY_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ELMDIS_PLY' INTEGER(LONG) :: I,j ! DO loop index - REAL(DOUBLE) :: DUM(6*ELGP) ! Intermediate variable in the calculation of UEL for the ply + REAL(DOUBLE) :: DUM(6*ELGP) ! Intermediate variable in the calculation of UEL for the ply diff --git a/Source/LK9/L92/GET_COMP_SHELL_ALLOWS.f90 b/Source/LK9/L92/GET_COMP_SHELL_ALLOWS.f90 index aa40dd71..2738740f 100644 --- a/Source/LK9/L92/GET_COMP_SHELL_ALLOWS.f90 +++ b/Source/LK9/L92/GET_COMP_SHELL_ALLOWS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE GET_COMP_SHELL_ALLOWS ( STRE_ALLOWABLES, STRN_ALLOWABLES ) diff --git a/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90 b/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90 index ef1a6214..19e6077e 100644 --- a/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90 +++ b/Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE GP_FORCE_BALANCE_PROC ( JVEC, IHEADER ) @@ -140,7 +140,7 @@ SUBROUTINE GP_FORCE_BALANCE_PROC ( JVEC, IHEADER ) WRITE_F06 = (GPFO_OUT(1:1) == 'Y') WRITE_OP2 = (GPFO_OUT(2:2) == 'Y') - + !WRITE(ERR,*) 'GPFORCE WRITE_F06',WRITE_F06 !WRITE(ERR,*) 'GPFORCE WRITE_OP2',WRITE_OP2 !FLUSH(ERR) @@ -237,17 +237,17 @@ SUBROUTINE GP_FORCE_BALANCE_PROC ( JVEC, IHEADER ) IF (TITLEI(1:) /= ' ') THEN WRITE(F06,9799) TITLE ENDIF - + IF (SUBTITLEI(1:) /= ' ') THEN WRITE(F06,9799) SUBTITLEI ENDIF - + IF (LABELI(1:) /= ' ') THEN WRITE(F06,9799) LABELI ENDIF - + WRITE(F06,*) - + ! write f06 header IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN WRITE(F06,8999) @@ -255,7 +255,7 @@ SUBROUTINE GP_FORCE_BALANCE_PROC ( JVEC, IHEADER ) WRITE(F06,9200) ENDIF ENDIF - + ENDIF ! Process grid point force balance output requests. @@ -354,7 +354,7 @@ SUBROUTINE GP_FORCE_BALANCE_PROC ( JVEC, IHEADER ) ELSE WRITE(ERR,*) 'GPFORCE_NID_EID ALLOCATED error' ENDIF - + !---------------- IF (ALLOCATED(GPFORCE_ETYPE)) THEN WRITE(ERR,*) 'ALLOCATED!' @@ -831,7 +831,7 @@ END SUBROUTINE CHK_COL_ARRAYS_ZEROS !------------------------------------------------------ LOGICAL FUNCTION IS_ABS_POSITIVE(ARRAY) - ! IS_ABS_POSITIVE has an implicit return that has the same name + ! IS_ABS_POSITIVE has an implicit return that has the same name ! as the function USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE @@ -911,7 +911,7 @@ SUBROUTINE OUTPUT2_WRITE_OGF(ISUBCASE, NUM, TITLE, SUBTITLE, LABEL, & ANALYSIS_CODE, FIELD5_INT_MODE, FIELD6_EIGENVALUE) ! writes the grid point force results header. ! Data is first written to character variables and then that character variable is output the F06. -! +! ! Parameters ! ========== ! @@ -988,7 +988,7 @@ SUBROUTINE WRITE_OGF3(ITABLE, ISUBCASE, ANALYSIS_CODE, DEVICE_CODE, NUM_WIDE, & INTEGER(LONG), INTENT(IN) :: ANALYSIS_CODE ! static, modal, time, freq, etc. flag INTEGER(LONG), INTENT(IN) :: ISUBCASE ! the subcase ID INTEGER(LONG), INTENT(IN) :: DEVICE_CODE ! PLOT, PRINT, PUNCH flag - INTEGER(LONG), INTENT(IN) :: NUM_WIDE ! the number of words per element + INTEGER(LONG), INTENT(IN) :: NUM_WIDE ! the number of words per element CHARACTER(LEN=128), INTENT(IN) :: TITLE ! the model TITLE CHARACTER(LEN=128), INTENT(IN) :: SUBTITLE ! the subcase SUBTITLE @@ -1027,14 +1027,14 @@ SUBROUTINE WRITE_OGF3(ITABLE, ISUBCASE, ANALYSIS_CODE, DEVICE_CODE, NUM_WIDE, & WRITE(OP2) 146 ! grid point forces only TABLE_CODE = 19 - + ! ??? LOAD_SET = 1 - + ! we're not doing acoustic/stress ACOUSTIC_FLAG = 0 STRESS_CODE = 0 - + ! not always 0 for stress, but for now THERMAL = 0 diff --git a/Source/LK9/L92/INDEP_FAILURE_INDEX.f90 b/Source/LK9/L92/INDEP_FAILURE_INDEX.f90 index aacd5bcf..1875df6e 100644 --- a/Source/LK9/L92/INDEP_FAILURE_INDEX.f90 +++ b/Source/LK9/L92/INDEP_FAILURE_INDEX.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE INDEP_FAILURE_INDEX ( STREi, STRNi, STRE_ALLOWABLES, STRN_ALLOWABLES, FAILURE_INDEX ) @@ -75,14 +75,14 @@ SUBROUTINE INDEP_FAILURE_INDEX ( STREi, STRNi, STRE_ALLOWABLES, STRN_ALLOWABLES, IF (FAILURE_THEORY == 'STRE') THEN - XT = STRE_ALLOWABLES(1) ; XC = STRE_ALLOWABLES(2) - YT = STRE_ALLOWABLES(3) ; YC = STRE_ALLOWABLES(4) - ZT = STRE_ALLOWABLES(5) ; ZC = STRE_ALLOWABLES(6) + XT = STRE_ALLOWABLES(1) ; XC = STRE_ALLOWABLES(2) + YT = STRE_ALLOWABLES(3) ; YC = STRE_ALLOWABLES(4) + ZT = STRE_ALLOWABLES(5) ; ZC = STRE_ALLOWABLES(6) R = STRE_ALLOWABLES(7) S = STRE_ALLOWABLES(8) T = STRE_ALLOWABLES(9) - ! Reset STRE_ALLOWABLES such that, if one is zero, then its inverse is + ! Reset STRE_ALLOWABLES such that, if one is zero, then its inverse is ! reset to DSQRT(MACH_LARGE_NUM). IF (DABS(XT) < EPS1) THEN ; XT = DSQRT(MACH_LARGE_NUM) ; ENDIF IF (DABS(XC) < EPS1) THEN ; XC = DSQRT(MACH_LARGE_NUM) ; ENDIF @@ -98,55 +98,55 @@ SUBROUTINE INDEP_FAILURE_INDEX ( STREi, STRNi, STRE_ALLOWABLES, STRN_ALLOWABLES, RATIO(1) = DABS(STREi(1)/XT) ELSE RATIO(1) = DABS(STREi(1)/XC) - ENDIF + ENDIF IF (STREi(2) > ZERO) THEN RATIO(2) = DABS(STREi(2)/YT) ELSE RATIO(2) = DABS(STREi(2)/YC) - ENDIF + ENDIF IF (STREi(3) > ZERO) THEN RATIO(3) = DABS(STREi(3)/ZT) ELSE RATIO(3) = DABS(STREi(3)/ZC) - ENDIF + ENDIF IF (STREi(4) > ZERO) THEN RATIO(4) = DABS(STREi(4)/R) ELSE RATIO(4) = DABS(STREi(4)/R) - ENDIF + ENDIF IF (STREi(5) > ZERO) THEN RATIO(5) = DABS(STREi(5)/S) ELSE RATIO(5) = DABS(STREi(5)/S) - ENDIF + ENDIF IF (STREi(6) > ZERO) THEN RATIO(6) = DABS(STREi(6)/T) ELSE RATIO(6) = DABS(STREi(6)/T) - ENDIF + ENDIF FAILURE_INDEX = RATIO(1) DO I=2,5 IF (RATIO(I) > FAILURE_INDEX) THEN FAILURE_INDEX = RATIO(I) ENDIF - ENDDO + ENDDO ELSE IF (FAILURE_THEORY == 'STRN') THEN - XT = STRN_ALLOWABLES(1) ; XC = STRN_ALLOWABLES(2) - YT = STRN_ALLOWABLES(3) ; YC = STRN_ALLOWABLES(4) - ZT = STRN_ALLOWABLES(5) ; ZC = STRN_ALLOWABLES(6) + XT = STRN_ALLOWABLES(1) ; XC = STRN_ALLOWABLES(2) + YT = STRN_ALLOWABLES(3) ; YC = STRN_ALLOWABLES(4) + ZT = STRN_ALLOWABLES(5) ; ZC = STRN_ALLOWABLES(6) R = STRN_ALLOWABLES(7) S = STRN_ALLOWABLES(8) T = STRN_ALLOWABLES(9) - ! Reset STRN_ALLOWABLES such that, if one is zero, then its inverse is + ! Reset STRN_ALLOWABLES such that, if one is zero, then its inverse is ! reset to DSQRT(MACH_LARGE_NUM). IF (DABS(XT) < EPS1) THEN ; XT = DSQRT(MACH_LARGE_NUM) ; ENDIF IF (DABS(XC) < EPS1) THEN ; XC = DSQRT(MACH_LARGE_NUM) ; ENDIF @@ -162,37 +162,37 @@ SUBROUTINE INDEP_FAILURE_INDEX ( STREi, STRNi, STRE_ALLOWABLES, STRN_ALLOWABLES, RATIO(1) = DABS(STRNi(1)/XT) ELSE RATIO(1) = DABS(STRNi(1)/XC) - ENDIF + ENDIF IF (STRNi(2) > ZERO) THEN RATIO(2) = DABS(STRNi(2)/YT) ELSE RATIO(2) = DABS(STRNi(2)/YC) - ENDIF + ENDIF IF (STRNi(3) > ZERO) THEN RATIO(3) = DABS(STRNi(3)/ZT) ELSE RATIO(3) = DABS(STRNi(3)/ZC) - ENDIF + ENDIF IF (STRNi(4) > ZERO) THEN RATIO(4) = DABS(STRNi(4)/R) ELSE RATIO(4) = DABS(STRNi(4)/R) - ENDIF + ENDIF IF (STRNi(5) > ZERO) THEN RATIO(5) = DABS(STRNi(5)/S) ELSE RATIO(5) = DABS(STRNi(5)/S) - ENDIF + ENDIF IF (STRNi(6) > ZERO) THEN RATIO(6) = DABS(STRNi(6)/T) ELSE RATIO(6) = DABS(STRNi(6)/T) - ENDIF + ENDIF FAILURE_INDEX = RATIO(1) DO I=2,5 diff --git a/Source/LK9/L92/OFP1.f90 b/Source/LK9/L92/OFP1.f90 index 89633306..2f3b8f2f 100644 --- a/Source/LK9/L92/OFP1.f90 +++ b/Source/LK9/L92/OFP1.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE OFP1 ( JVEC, WHAT, SC_OUT_REQ, FEMAP_SET_ID, ITG, OT4_GROW, ITABLE, NEW_RESULT ) @@ -62,11 +62,11 @@ SUBROUTINE OFP1 ( JVEC, WHAT, SC_OUT_REQ, FEMAP_SET_ID, ITG, OT4_GROW, ITABLE, N ! constr forces in subr WRITE_GRD_PRT_OUTPUTS for grids with no force INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITG ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITG ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(IN) :: SC_OUT_REQ ! If > 0, then requests for WHAT are to be output INTEGER(LONG), INTENT(INOUT) :: OT4_GROW ! Row number in OT4 file for grid related OTM descriptors - INTEGER(LONG), INTENT(INOUT) :: ITABLE ! + INTEGER(LONG), INTENT(INOUT) :: ITABLE ! LOGICAL, INTENT(INOUT) :: NEW_RESULT ! is this the first result of a table INTEGER(LONG) :: G_SET_COL ! Col number in TDOF where the G-set DOF's exist INTEGER(LONG) :: GDOF ! G-set DOF number @@ -95,16 +95,16 @@ SUBROUTINE OFP1 ( JVEC, WHAT, SC_OUT_REQ, FEMAP_SET_ID, ITG, OT4_GROW, ITABLE, N DO I=1,MAXREQ DO J=1,MOGEL OGEL(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + ! Initialize WRITE_OGEL DO I=1,NGRID WRITE_OGEL(I) = 'Y' ENDDO ! --------------------------------------------------------------------------------------------------------------------------------- -! Process acceleration output requests for CB sol. +! Process acceleration output requests for CB sol. ! TODO: where is the velocity output? 9002 FORMAT(" *DEBUG: WHAT=",A,"; NGRID",I8, "; NREQ=",I8, "; SC_OUT_REQ=",I8) @@ -114,7 +114,7 @@ SUBROUTINE OFP1 ( JVEC, WHAT, SC_OUT_REQ, FEMAP_SET_ID, ITG, OT4_GROW, ITABLE, N IROW_MAT = 0 OT4_DESCRIPTOR = 'Acceleration' - + ACCE_ALL_SAME_CID = 'Y' DO I=1,NGRID-1 IB = IAND(GROUT(I,INT_SC_NUM),IBIT(GROUT_ACCE_BIT)) @@ -283,7 +283,7 @@ SUBROUTINE OFP1 ( JVEC, WHAT, SC_OUT_REQ, FEMAP_SET_ID, ITG, OT4_GROW, ITABLE, N ENDIF ! --------------------------------------------------------------------------------------------------------------------------------- -! Process applied load output requests. +! Process applied load output requests. ELSE IF (WHAT == 'OLOAD') THEN OLOAD_ALL_SAME_CID = 'Y' ! Check if all grids, for which there will be output, have same coord sys @@ -303,11 +303,11 @@ SUBROUTINE OFP1 ( JVEC, WHAT, SC_OUT_REQ, FEMAP_SET_ID, ITG, OT4_GROW, ITABLE, N IF (IB > 0) THEN NREQ = NREQ + 1 ENDIF - ENDDO + ENDDO NUM = 0 write(ERR,9002) WHAT, NGRID, NREQ, SC_OUT_REQ - DO I=1,NGRID ! + DO I=1,NGRID ! IB = IAND(GROUT(I,INT_SC_NUM),IBIT(GROUT_OLOA_BIT)) IF (IB > 0) THEN NUM = NUM + 1 @@ -322,7 +322,7 @@ SUBROUTINE OFP1 ( JVEC, WHAT, SC_OUT_REQ, FEMAP_SET_ID, ITG, OT4_GROW, ITABLE, N TDOF_ROW = ROW_NUM_START + J - 1 GDOF = TDOF(TDOF_ROW,G_SET_COL) OGEL(NUM,J) = PG_COL(GDOF) - ENDDO + ENDDO WRITE_OGEL(NUM) = 'N' DO J=1,NUM_COMPS IF (OGEL(NUM,J) /= ZERO) THEN @@ -362,8 +362,8 @@ SUBROUTINE OFP1 ( JVEC, WHAT, SC_OUT_REQ, FEMAP_SET_ID, ITG, OT4_GROW, ITABLE, N ELSE - WRITE(ERR,9100) SUBR_NAME, WHAT - WRITE(F06,9100) SUBR_NAME, WHAT + WRITE(ERR,9100) SUBR_NAME, WHAT + WRITE(F06,9100) SUBR_NAME, WHAT FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) diff --git a/Source/LK9/L92/OFP2.f90 b/Source/LK9/L92/OFP2.f90 index b4ba235a..55e57bf2 100644 --- a/Source/LK9/L92/OFP2.f90 +++ b/Source/LK9/L92/OFP2.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4_GROW, ITABLE, NEW_RESULT ) @@ -76,11 +76,11 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 ! constr forces in subr WRITE_GRD_PRT_OUTPUTS for grids w no constr force INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITG ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITG ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(IN) :: SC_OUT_REQ ! If > 0, then req1uests for WHAT are to be output INTEGER(LONG), INTENT(INOUT) :: OT4_GROW ! Row number in OT4 file for grid related OTM descriptors - INTEGER(LONG), INTENT(INOUT) :: ITABLE ! + INTEGER(LONG), INTENT(INOUT) :: ITABLE ! LOGICAL, INTENT(INOUT) :: NEW_RESULT ! is this the first result of a table INTEGER(LONG) :: AGRID ! An actual grid number INTEGER(LONG) :: G_SET_COL ! Col number in TDOF where the G-set DOF's exist @@ -96,7 +96,7 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 INTEGER(LONG) :: IGRID ! Internal grid ID INTEGER(LONG) :: IROW_FILE ! Row number in text file INTEGER(LONG) :: IROW_MAT ! Row number in OTM's - INTEGER(LONG) :: K ! Counter + INTEGER(LONG) :: K ! Counter INTEGER(LONG) :: NREQ ! Number of user requested outputs of displ/force INTEGER(LONG) :: NUM ! Count of the number of rows added to array OGEL INTEGER(LONG) :: NUM_COMPS ! Either 6 or 1 depending on whether grid is a physical grid or a SPOINT @@ -130,8 +130,8 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 DO I=1,MAXREQ DO J=1,MOGEL OGEL(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO ! Initialize WRITE_OGEL DO I=1,NGRID @@ -177,20 +177,20 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 QSM_COL = ZERO IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN - IF (NTERM_KFSD > 0) THEN ! Calc QSK = KSFD*UF + IF (NTERM_KFSD > 0) THEN ! Calc QSK = KSFD*UF CALL MATMULT_SFF ( 'KSFD', NDOFS, NDOFF, NTERM_KFSD, SYM_KFSD, I_KSFD, J_KSFD, KSFD, 'UF', NDOFF, 1, UF_COL, 'Y', & 'QSK', ONE, QSK_COL ) ENDIF ELSE - IF (NTERM_KFS > 0) THEN ! Calc QSK = KSF*UF + IF (NTERM_KFS > 0) THEN ! Calc QSK = KSF*UF CALL MATMULT_SFF ( 'KSF ', NDOFS, NDOFF, NTERM_KFS , SYM_KFS , I_KSF , J_KSF , KSF , 'UF', NDOFF, 1, UF_COL, 'Y', & 'QSK', ONE, QSK_COL ) ENDIF ENDIF - ! Don't do the following for CB soln (vecs are CB vecs, NOT eigen vecs, + ! Don't do the following for CB soln (vecs are CB vecs, NOT eigen vecs, ! so no inertia effect is to be added for SPC forces due to CB vecs) IF (SOL_NAME(1:5) == 'MODES') THEN - IF (NTERM_MFS > 0) THEN ! Calc QSM = -EIGEN_VAL*MSF*UF + IF (NTERM_MFS > 0) THEN ! Calc QSM = -EIGEN_VAL*MSF*UF CALL MATMULT_SFF ( 'MSF', NDOFS, NDOFF, NTERM_MFS, SYM_MFS, I_MSF, J_MSF, MSF, 'UF', NDOFF, 1, UF_COL, 'Y', & 'QSM', -EIGEN_VAL(JVEC), QSM_COL ) ENDIF @@ -203,7 +203,7 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 ELSE QS_COL(I) = QSK_COL(I) + QSM_COL(I) + QSYS_COL(I) - PS_COL(I) ENDIF - ENDDO + ENDDO SPCF_ALL_SAME_CID = 'Y' ! Check if all grids, for which there will be output, have same coord sys DO I=1,NGRID-1 ! If not, then we won't write SPC output totals @@ -222,7 +222,7 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 IF (IB1 > 0) THEN NREQ = NREQ + 1 ENDIF - ENDDO + ENDDO NUM = 0 ! Put QS into 2-d output array OGEL for this subcase (NDOFS x 6). DO I=1,NGRID @@ -249,9 +249,9 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 !xx WRITE_OGEL(NUM) = 'Y' !xx EXIT doj1 !xx ENDIF -!xx ENDDO doj1 +!xx ENDDO doj1 - DO J=1,NUM_COMPS ! Calc SPC forces for all grids in requested output set (not only ones + DO J=1,NUM_COMPS ! Calc SPC forces for all grids in requested output set (not only ones CALL TDOF_COL_NUM ( 'S ', S_SET_COL ) ! that have a component in S-set) CALL TDOF_COL_NUM ( 'G ', G_SET_COL ) TDOF_ROW = ROW_NUM_START + J - 1 @@ -318,7 +318,7 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 ENDIF ENDIF - + ENDDO ! Calc modal effective masses and/or modal participation factors for current eigenector, if requested (but only if not CB soln) @@ -358,7 +358,7 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 ! Calc largest and sum of QS forces for AUTOSPC DOF's. Write SPC forces on the SA DOF's if PARAM AUTOSPC_SPCF = 'Y' IF (NDOFSA > 0) THEN - + WRITE(F06,*) IF (AUTOSPC_SPCF == 'Y') THEN WRITE(F06,1101) @@ -474,7 +474,7 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 'QMK', ONE, QMK_COL ) ENDIF - ! Don't do the following for CB soln (vecs are CB vecs, NOT eigen vecs, + ! Don't do the following for CB soln (vecs are CB vecs, NOT eigen vecs, ! so no inertia effect is to be added for MPC forces due to CB vecs) ! Get 1st portion of QM: LMN*UN IF (NTERM_LMN > 0) THEN @@ -534,7 +534,7 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 IF (IB1 > 0) THEN NREQ = NREQ + 1 ENDIF - ENDDO + ENDDO ! Put QGm into 2-d output array OGEL for this subcase (NDOFS x 6). NUM = 0 @@ -567,7 +567,7 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 ! ELSE ! OGEL(NUM,J) = ZERO ! ENDIF - ENDDO + ENDDO WRITE_OGEL(NUM) = 'N' DO J=1,NUM_COMPS IF (OGEL(NUM,J) /= ZERO) THEN @@ -620,8 +620,8 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4 ELSE - WRITE(ERR,9100) WHAT - WRITE(ERR,9100) WHAT + WRITE(ERR,9100) WHAT + WRITE(ERR,9100) WHAT FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) diff --git a/Source/LK9/L92/OFP3.f90 b/Source/LK9/L92/OFP3.f90 index b1198e10..fc6f34c8 100644 --- a/Source/LK9/L92/OFP3.f90 +++ b/Source/LK9/L92/OFP3.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OFP3 ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) - + ! Main driver routine for all element node (or engineering force) and stress and strain output requests for one subcase - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06, WRT_FIJ USE SCONTR, ONLY : BLNK_SUB_NAM, MFIJ, MOGEL @@ -35,22 +35,22 @@ SUBROUTINE OFP3 ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : ANY_ELFE_OUTPUT, ANY_ELFN_OUTPUT, ANY_STRE_OUTPUT, ANY_STRN_OUTPUT USE LINK9_STUFF, ONLY : MAXREQ, OGEL - + USE OFP3_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'OFP3' - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors INTEGER(LONG), PARAMETER :: MERROR = 6 ! Number of error indicators used INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERROR(MERROR) ! Local error count - + ! ********************************************************************************************************************************** @@ -59,9 +59,9 @@ SUBROUTINE OFP3 ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) DO I=1,MAXREQ DO J=1,MOGEL OGEL(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + DO I=1,MERROR IERROR(I) = 0 ENDDO @@ -87,7 +87,7 @@ SUBROUTINE OFP3 ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) OT4_EROW = 0 ! IF (ANY_STRE_OUTPUT > 0) THEN CALL OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! OES1C - CALL OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! OES1X1, OES1, OES1X, + CALL OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! OES1X1, OES1, OES1X, ! ENDIF OT4_EROW = 0 diff --git a/Source/LK9/L92/OFP3_ELFE_1D.f90 b/Source/LK9/L92/OFP3_ELFE_1D.f90 index 5539d21b..a25346e8 100644 --- a/Source/LK9/L92/OFP3_ELFE_1D.f90 +++ b/Source/LK9/L92/OFP3_ELFE_1D.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + ! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! Processes element engr force output requests for 1D (ELAS, BUSH, ROD, BAR) elements for one subcase. Results go into array OGEL ! for later output in LINK9 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ELOUT_ELFE_BIT, FATAL_ERR, IBIT, INT_SC_NUM, MBUG, MOGEL,& @@ -42,23 +42,23 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) PE_GA_GB, PEL, PLY_NUM, STRESS, TE, TE_GA_GB, TYPE, XEL USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, MAXREQ, OGEL USE OUTPUT4_MATRICES, ONLY : OTM_ELFE, TXT_ELFE - + USE OFP3_ELFE_1D_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'OFP3_ELFE_1D' CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein CHARACTER(20*BYTE) :: FORCE_ITEM(8) ! Char description of element engineering forces CHARACTER( 1*BYTE) :: OPT(6) ! Option indicators for subr EMG, called herein CHARACTER(31*BYTE) :: OT4_DESCRIPTOR ! Descriptor for rows of OT4 file CHARACTER(30*BYTE) :: REQUEST ! Text for error message - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors - INTEGER(LONG) :: ELOUT_ELFE ! If > 0, there are ELFORCE(ENGR) requests for some elems + INTEGER(LONG) :: ELOUT_ELFE ! If > 0, there are ELFORCE(ENGR) requests for some elems INTEGER(LONG) :: I,J,K,L ! DO loop indices INTEGER(LONG) :: IERROR = 0 ! Local error count !xx INTEGER(LONG) :: IROW_MAT ! Row number in OTM's @@ -72,7 +72,7 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! for ELFORCE(NODE) - elem nodal forces) ! Indicator for output of elem data to BUG file - + REAL(DOUBLE) :: DUM0(6,12) ! Intermediate matrix in a calc REAL(DOUBLE) :: DUM1(6) ! Intermediate matrix in a calc REAL(DOUBLE) :: DUM21(3) ! Intermediate matrix in a calc @@ -91,9 +91,9 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) REAL(DOUBLE) :: TET(3,3) ! Transpose of TE REAL(DOUBLE) :: TET_GA_GB(3,3) ! Transpose of TE_GA_GB LOGICAL :: WRITE_NEU - + INTRINSIC IAND - + ! ********************************************************************************************************************************** ! Initialize TABLE_NAME = "OEF ERR " @@ -105,7 +105,7 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! ********************************************************************************************************************************** ! Process element engineering force requests for BAR, BUSH, ELAS, ROD. Use subr CALC_ELEM_NODE_FORCES and then convert the node ! forces to engineering forces (see equations below after subr CALC_ELEM_NODE_FORCES is called) - + OPT(1) = 'N' ! OPT(1) is for calc of ME OPT(2) = 'Y' ! OPT(2) is for calc of PTE OPT(3) = 'Y' ! OPT(3) is for calc of SEi, STEi @@ -118,7 +118,7 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) FORCE_ITEM(3) = 'M2a: Mom Plane1 EndB' FORCE_ITEM(4) = 'M2b: Mom Plane2 EndB' FORCE_ITEM(5) = 'V1 : Shear Plane1 ' - FORCE_ITEM(6) = 'V2 : Shear Plane2 ' + FORCE_ITEM(6) = 'V2 : Shear Plane2 ' FORCE_ITEM(7) = 'FX : Axial force ' FORCE_ITEM(8) = 'T : Torque ' @@ -126,8 +126,8 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) DO I=1,METYPE ! Initialize the array containing the no. requests/elem. NELREQ(I) = 0 - ENDDO - + ENDDO + DO I=1,METYPE DO J=1,NELE IF ((ETYPE(J)(1:3) == 'BAR') .OR. (ETYPE(J)(1:4) == 'BUSH') .OR. (ETYPE(J)(1:4) == 'ELAS') .OR. & @@ -139,15 +139,15 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDIF ENDIF - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,MAXREQ DO J=1,MOGEL OGEL(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + !xx IROW_MAT = 0 !xx IROW_TXT = 0 OT4_DESCRIPTOR = 'Element engineering force, ELFO' @@ -178,14 +178,14 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL CALC_ELEM_NODE_FORCES ! Use NODE to get engr forces (SE matrices don't have torque) - + NUM_OGEL = NUM_OGEL + 1 IF (NUM_OGEL > MAXREQ) THEN WRITE(ERR,9200) SUBR_NAME, MAXREQ WRITE(F06,9200) SUBR_NAME, MAXREQ FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (dim of array OGEL too small), so quit - ENDIF + ENDIF ! --------------------------------------------------------------------------------------------------------------- IF (ETYPE(J)(1:4) == 'ELAS') THEN ! Set engr forces based on the node force values @@ -228,7 +228,7 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) TET_GA_GB(K,L) = TE_GA_GB(L,K) ENDDO ENDDO - + DO K=1,3 DUM22(K) = ZERO DUM32(K) = ZERO @@ -240,10 +240,10 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) EEF(K) = DUM22(K) EEF(K+3) = DUM32(K) ENDDO - ENDIF + ENDIF ! Transform elem forces from basic to local IF ((BUSH_CID > 0) .OR. (BUSH_VVEC /= 0)) THEN - + DO K=1,3 DO L=1,3 TET(K,L) = TE(L,K) @@ -257,7 +257,7 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) EEF(K+3) = DUM31(K) ENDDO - ENDIF + ENDIF ELSE ! Element has GA, GB coincident so element loads are in PEL @@ -343,7 +343,7 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDIF - + IF ((SOL_NAME(1:12) == 'GEN CB MODEL') .AND. (JVEC == 1) .AND. (OT4_EROW >= 1)) THEN DO K=1,OTMSKIP ! Write OTMSKIP blank separator lines OT4_EROW = OT4_EROW + 1 @@ -363,15 +363,15 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL WRITE_ELEM_ENGR_FORCE ( JVEC, NUM_ELEM, IHDR, 1, ITABLE ) EXIT ENDIF - + ENDIF - + ENDIF ENDIF - + ENDDO elems_2 - + ENDDO reqs2 10 FORMAT("*DEBUG: OEF_END 1D: TABLE_NAME",A) WRITE(ERR,10) TABLE_NAME @@ -410,7 +410,7 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) FEMAP_EL_VECS(NUM_FROWS,6) = -PEL(3) ! V2 (plane 2 shear for BAR) FEMAP_EL_VECS(NUM_FROWS,7) = -PEL(1) ! Fx (axial force for BAR or ROD) FEMAP_EL_VECS(NUM_FROWS,8) = -PEL(4) ! T (torque for BAR or ROD) - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_ELFO_VECS ( 'BAR ', NUM_FROWS, FEMAP_SET_ID ) @@ -550,7 +550,7 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL CALC_ELEM_NODE_FORCES FEMAP_EL_VECS(NUM_FROWS,7) = -PEL(1) ! Fx (axial force for BAR or ROD) FEMAP_EL_VECS(NUM_FROWS,8) = -PEL(4) ! T (torque for BAR or ROD) - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_ELFO_VECS ( 'ROD ', NUM_FROWS, FEMAP_SET_ID ) @@ -584,9 +584,9 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (FCONV(1) > 0.D0) THEN FEMAP_EL_VECS(NUM_FROWS,1) = STRESS(1)/FCONV(1) ELSE - + ENDIF - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_ELFO_VECS ( 'ELAS1 ', NUM_FROWS, FEMAP_SET_ID ) @@ -618,9 +618,9 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (FCONV(1) > 0.D0) THEN FEMAP_EL_VECS(NUM_FROWS,1) = STRESS(1)/FCONV(1) ELSE - + ENDIF - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_ELFO_VECS ( 'ELAS2 ', NUM_FROWS, FEMAP_SET_ID ) @@ -652,9 +652,9 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (FCONV(1) > 0.D0) THEN FEMAP_EL_VECS(NUM_FROWS,1) = STRESS(1)/FCONV(1) ELSE - + ENDIF - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_ELFO_VECS ( 'ELAS3 ', NUM_FROWS, FEMAP_SET_ID ) @@ -686,9 +686,9 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (FCONV(1) > 0.D0) THEN FEMAP_EL_VECS(NUM_FROWS,1) = STRESS(1)/FCONV(1) ELSE - + ENDIF - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_ELFO_VECS ( 'ELAS4 ', NUM_FROWS, FEMAP_SET_ID ) @@ -717,7 +717,7 @@ SUBROUTINE OFP3_ELFE_1D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) 9200 FORMAT(' *ERROR 9200: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' ARRAY OGEL WAS ALLOCATED TO HAVE ',I12,' ROWS. ATTEMPT TO WRITE TO OGEL BEYOND THIS') - + 9201 FORMAT(' *ERROR 9201: DUE TO ABOVE LISTED ERRORS, CANNOT CALCULATE ',A,' REQUESTS FOR ',A,' ELEMENT ID = ',I8) ! ********************************************************************************************************************************** diff --git a/Source/LK9/L92/OFP3_ELFE_2D.f90 b/Source/LK9/L92/OFP3_ELFE_2D.f90 index 50197024..2e004b13 100644 --- a/Source/LK9/L92/OFP3_ELFE_2D.f90 +++ b/Source/LK9/L92/OFP3_ELFE_2D.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! Processes element engr force output requests for 2D (TRIA3, QUAD4, SHEAR) elements for one subcase. Results go into array OGEL ! for later output in LINK9 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ELOUT_ELFE_BIT, FATAL_ERR, IBIT, INT_SC_NUM, MBUG, MOGEL, & @@ -43,26 +43,26 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) USE CC_OUTPUT_DESCRIBERS, ONLY : FORC_LOC USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, GID_OUT_ARRAY, MAXREQ, OGEL USE OUTPUT4_MATRICES, ONLY : OTM_ELFE, TXT_ELFE - + USE PLANE_COORD_TRANS_21_Interface USE TRANSFORM_SHELL_STR_Interface USE OFP3_ELFE_2D_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'OFP3_ELFE_2D' CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein CHARACTER(20*BYTE) :: FORCE_ITEM(8) ! Char description of element engineering forces CHARACTER( 1*BYTE) :: OPT(6) ! Option indicators for subr EMG, called herein CHARACTER(31*BYTE) :: OT4_DESCRIPTOR ! Descriptor for rows of OT4 file CHARACTER(30*BYTE) :: REQUEST ! Text for error message - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number !INTEGER(LONG), INTENT(INOUT) :: ITABLE ! the op2 subtable number, should be -3, -5, ... INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors - INTEGER(LONG) :: ELOUT_ELFE ! If > 0, there are ELFORCE(ENGR) requests for some elems + INTEGER(LONG) :: ELOUT_ELFE ! If > 0, there are ELFORCE(ENGR) requests for some elems INTEGER(LONG) :: I,J,K,M ! DO loop indices INTEGER(LONG) :: IERROR = 0 ! Local error count !xx INTEGER(LONG) :: IROW_MAT ! Row number in OTM's @@ -84,7 +84,7 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) REAL(DOUBLE) :: STRESS_OUT_PCT_ERR(MAX_STRESS_POINTS) REAL(DOUBLE) :: PCT_ERR_MAX ! Max value from array STRESS_OUT_PCT_ERR - + REAL(DOUBLE) :: TEL(3,3) ! Transformation matrix from cartesian local (L) to element (E) coordinates. ! Array of values from array STRESS for all stress points REAL(DOUBLE) :: STRESS_RAW(9,MAX_STRESS_POINTS) @@ -98,7 +98,7 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) LOGICAL :: WRITE_NEU INTRINSIC IAND - + ! ********************************************************************************************************************************** ! Initialize TABLE_NAME = "OEF ERR " @@ -110,20 +110,20 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! Process element engineering force requests for plate and USERIN elements. ! For the MIN3,4 elements, the stiffness matrix has to be generated to get FCONV(3). Therefore, set OPT(4) to 'N' initially, and if ! the element being processed is a MIN3 or MIN4, reset OPT(4) to 'Y' in the calculation loop prior to EMG call. - + OPT(1) = 'N' ! OPT(1) is for calc of ME OPT(2) = 'N' ! OPT(2) is for calc of PTE OPT(3) = 'Y' ! OPT(3) is for calc of SEi, STEi OPT(4) = 'N' ! OPT(4) is for calc of KE-linear OPT(5) = 'N' ! OPT(5) is for calc of PPE OPT(6) = 'N' ! OPT(6) is for calc of KE-diff stiff - + FORCE_ITEM(1) = 'Nxx: Normal x Force ' FORCE_ITEM(2) = 'Nyy: Normal y Force ' FORCE_ITEM(3) = 'Nxy: Shear xy Force ' FORCE_ITEM(4) = 'Mxx: Moment x Plane ' FORCE_ITEM(5) = 'Myy: Moment y Plane ' - FORCE_ITEM(6) = 'Mxy: Twist Mom xy ' + FORCE_ITEM(6) = 'Mxy: Twist Mom xy ' FORCE_ITEM(7) = 'Qx : Transv Shear x ' FORCE_ITEM(8) = 'Qy : Transv Shear y ' @@ -131,8 +131,8 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) DO I=1,METYPE ! Initialize the array containing the number of requests per element NELREQ(I) = 0 - ENDDO - + ENDDO + num_pcomp_elems = 0 ! Remove lower case code when I fix engr force output for PCOMP's DO I=1,METYPE DO J=1,NELE @@ -156,8 +156,8 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) endif ENDIF ENDIF - ENDDO - ENDDO + ENDDO + ENDDO !xx DO I=1,METYPE ! Engr force requests for ELAS elems not honored. Give message !xx IF ((ELMTYP(I)(1:4) == 'ELAS') .AND. (NELREQ(I) > 0)) THEN @@ -167,14 +167,14 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) !xx WRITE(F06,9204) NELREQ(I), ELMTYP(I) !xx ENDIF !xx ENDIF -!xx ENDDO - +!xx ENDDO + DO I=1,MAXREQ DO J=1,MOGEL OGEL(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + !xx IROW_MAT = 0 !xx IROW_TXT = 0 OT4_DESCRIPTOR = 'Element engineering force' @@ -182,7 +182,7 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (NELREQ(I) == 0) CYCLE reqs3 NUM_OGEL_ROWS = 0 NUM_OGEL = 0 - + elems_3: DO J = 1,NELE call is_elem_pcomp_props ( j ) ! Remove lower case code when I fix engr force output for PCOMP's if (pcomp_props == 'N') then @@ -201,23 +201,23 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) WRT_BUG(K) = 0 ENDDO PLY_NUM = 0 ! 'N' in call to EMG means do not write to BUG file - CALL EMG ( J , OPT, 'N', SUBR_NAME, 'N' ) + CALL EMG ( J , OPT, 'N', SUBR_NAME, 'N' ) IF (NUM_EMG_FATAL_ERRS > 0) THEN IERROR = IERROR + 1 CYCLE elems_3 ENDIF OPT(4) = 'N' CALL ELMDIS - + DO M=1,NUM_PTS(I) ! Gauss point stress CALL ELEM_STRE_STRN_ARRAYS ( M ) - STRESS_RAW(:,M) = STRESS(:) + STRESS_RAW(:,M) = STRESS(:) ENDDO - + STRESS_OUT(:,1) = STRESS_RAW(:,1) ! Set STRAIN_OUT for NUM_PTS(I) = 1 - IF ((FORC_LOC == 'CORNER ') .OR. & + IF ((FORC_LOC == 'CORNER ') .OR. & (ETYPE(J)(1:5) == 'QUAD8')) THEN IF (TYPE(1:5) == 'QUAD4') THEN @@ -237,20 +237,20 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL PLANE_COORD_TRANS_21( SHELL_STR_ANGLE( M ), TEL, '') CALL TRANSFORM_SHELL_STR( TEL, STRESS_OUT(:,M), ONE) ENDDO - + ! Center stress is the average of corner stress in element coordinates. ! In MSC, the center force and moment resultants are the average but ! this is equivalent. STRESS_OUT(:,1) = (STRESS_OUT(:,2) + STRESS_OUT(:,3) + STRESS_OUT(:,4) + STRESS_OUT(:,5)) / FOUR ENDIF - + ENDIF - + DO M=1,NUM_PTS(I) ! Calculate forces and moments from stresses STRESS(:) = STRESS_OUT(:,M) CALL SHELL_ENGR_FORCE_OGEL ( NUM_OGEL ) - + NUM_OGEL_ROWS = NUM_OGEL_ROWS + 1 EID_OUT_ARRAY(NUM_OGEL_ROWS,1) = EID GID_OUT_ARRAY(NUM_OGEL_ROWS,1) = 0 @@ -260,7 +260,7 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDDO - + IF (SOL_NAME(1:12) == 'GEN CB MODEL') THEN DO K=1,8 OT4_EROW = OT4_EROW + 1 @@ -291,7 +291,7 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDIF ENDIF - ENDIF + ENDIF ENDDO elems_3 ENDDO reqs3 @@ -332,7 +332,7 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) FEMAP_EL_VECS(NUM_FROWS,6) = FCONV(2)*STRESS(6) ! XY Moment FEMAP_EL_VECS(NUM_FROWS,7) = FCONV(3)*STRESS(7) ! X Transverse Shear FEMAP_EL_VECS(NUM_FROWS,8) = FCONV(3)*STRESS(8) ! Y Transverse Shear - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_ELFO_VECS ( 'TRIA3K ', NUM_FROWS, FEMAP_SET_ID ) @@ -368,7 +368,7 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) FEMAP_EL_VECS(NUM_FROWS,6) = FCONV(2)*STRESS(6) ! XY Moment FEMAP_EL_VECS(NUM_FROWS,7) = FCONV(3)*STRESS(7) ! X Transverse Shear FEMAP_EL_VECS(NUM_FROWS,8) = FCONV(3)*STRESS(8) ! Y Transverse Shear - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_ELFO_VECS ( 'TRIA3 ', NUM_FROWS, FEMAP_SET_ID ) @@ -404,7 +404,7 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) FEMAP_EL_VECS(NUM_FROWS,6) = FCONV(2)*STRESS(6) ! XY Moment FEMAP_EL_VECS(NUM_FROWS,7) = FCONV(3)*STRESS(7) ! X Transverse Shear FEMAP_EL_VECS(NUM_FROWS,8) = FCONV(3)*STRESS(8) ! Y Transverse Shear - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_ELFO_VECS ( 'QUAD4K ', NUM_FROWS, FEMAP_SET_ID ) @@ -440,7 +440,7 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) FEMAP_EL_VECS(NUM_FROWS,6) = FCONV(2)*STRESS(6) ! XY Moment FEMAP_EL_VECS(NUM_FROWS,7) = FCONV(3)*STRESS(7) ! X Transverse Shear FEMAP_EL_VECS(NUM_FROWS,8) = FCONV(3)*STRESS(8) ! Y Transverse Shear - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_ELFO_VECS ( 'QUAD4 ', NUM_FROWS, FEMAP_SET_ID ) @@ -476,7 +476,7 @@ SUBROUTINE OFP3_ELFE_2D ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) FEMAP_EL_VECS(NUM_FROWS,6) = FCONV(2)*STRESS(6) ! XY Moment FEMAP_EL_VECS(NUM_FROWS,7) = FCONV(3)*STRESS(7) ! X Transverse Shear FEMAP_EL_VECS(NUM_FROWS,8) = FCONV(3)*STRESS(8) ! Y Transverse Shear - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_ELFO_VECS ( 'SHEAR ', NUM_FROWS, FEMAP_SET_ID ) diff --git a/Source/LK9/L92/OFP3_ELFN.f90 b/Source/LK9/L92/OFP3_ELFN.f90 index 969659ee..359494b2 100644 --- a/Source/LK9/L92/OFP3_ELFN.f90 +++ b/Source/LK9/L92/OFP3_ELFN.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OFP3_ELFN ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! Processes element node force output requests for one subcase, all element types - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : WRT_BUG, WRT_FIJ, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ELOUT_ELFN_BIT, ELDT_BUG_U_P_BIT, ELDT_F25_U_P_BIT, FATAL_ERR,NELE, IBIT, & - INT_SC_NUM, MBUG, MOGEL, SOL_NAME + INT_SC_NUM, MBUG, MOGEL, SOL_NAME USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : ELFORCEN, OTMSKIP @@ -39,23 +39,23 @@ SUBROUTINE OFP3_ELFN ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) PEB, PEG, PEL, PLY_NUM, TYPE, SCNUM, BGRID USE LINK9_STUFF, ONLY : GID_OUT_ARRAY, EID_OUT_ARRAY, MAXREQ, OGEL USE OUTPUT4_MATRICES, ONLY : OTM_ELFN, TXT_ELFN - + USE OFP3_ELFN_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'OFP3_ELFN' CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein CHARACTER( 1*BYTE) :: OPT(6) ! Option indicators for subr EMG, called herein CHARACTER(31*BYTE) :: OT4_DESCRIPTOR ! Descriptor for rows of OT4 file CHARACTER(30*BYTE) :: REQUEST ! Text for error message - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors INTEGER(LONG) :: DUM_BUG(0:MBUG-1) ! Values from WRT_BUG sent to subr ELMOUT in a particular call - INTEGER(LONG) :: ELOUT_ELFN ! If > 0, there are ELFORCE(NODE) requests for some elems + INTEGER(LONG) :: ELOUT_ELFN ! If > 0, there are ELFORCE(NODE) requests for some elems INTEGER(LONG) :: I,J,K,L ! DO loop indices INTEGER(LONG) :: IERROR = 0 ! Local error count !xx INTEGER(LONG) :: IROW_MAT ! Row number in OTM's @@ -71,29 +71,29 @@ SUBROUTINE OFP3_ELFN ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! for ELFORCE(NODE) - elem nodal forces) ! Indicator for output of elem data to BUG file - + INTRINSIC IAND - + ! ********************************************************************************************************************************** ! Process element node force requests for all elements - + OPT(1) = 'N' ! OPT(1) is for calc of ME OPT(2) = 'Y' ! OPT(2) is for calc of PTE OPT(3) = 'N' ! OPT(3) is for calc of SEi, STEi OPT(4) = 'Y' ! OPT(4) is for calc of KE-linear OPT(5) = 'N' ! OPT(5) is for calc of PPE OPT(6) = 'N' ! OPT(6) is for calc of KE-diff stiff - + ! Find out how many output requests were made for each element type. - + DO I=1,METYPE ! Initialize the array containing no. requests/elem. NELREQ(I) = 0 NBUG(I) = 0 NDISK(I) = 0 - ENDDO - + ENDDO + DO I=1,METYPE DO J=1,NELE IF (ETYPE(J) == ELMTYP(I)) THEN @@ -110,9 +110,9 @@ SUBROUTINE OFP3_ELFN ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) NDISK(I) = NDISK(I) + 1 ENDIF ENDIF - ENDDO - ENDDO - + ENDDO + ENDDO + !xx IROW_MAT = 0 !xx IROW_TXT = 0 OT4_DESCRIPTOR = 'Element nodal force' @@ -125,7 +125,7 @@ SUBROUTINE OFP3_ELFN ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF ((NELREQ(I) + NBUG(I) + NDISK(I)) == 0) CYCLE reqs1 NUM_ELEM = 0 NUM_OGEL = 0 - + elems_1: DO J = 1,NELE EID = EDAT(EPNT(J)) TYPE = ETYPE(J) @@ -157,8 +157,8 @@ SUBROUTINE OFP3_ELFN ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) EID_OUT_ARRAY(NUM_ELEM,1) = EID DO K=1,ELGP GID_OUT_ARRAY(NUM_ELEM,K) = AGRID(K) - ENDDO - + ENDDO + I2 = 0 DO K=1,ELGP NUM_OGEL = NUM_OGEL + 1 @@ -167,7 +167,7 @@ SUBROUTINE OFP3_ELFN ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) WRITE(F06,9200) SUBR_NAME, MAXREQ FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (dim of array OGEL too small), so quit - ENDIF + ENDIF DO L=1,6 OGEL(NUM_OGEL,L) = ZERO ENDDO @@ -188,9 +188,9 @@ SUBROUTINE OFP3_ELFN ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) WRITE(TXT_ELFN(OT4_EROW), 9191) OT4_EROW, OT4_DESCRIPTOR, TYPE, EID, AGRID(K), L ENDIF ENDIF - ENDDO - ENDDO - + ENDDO + ENDDO + IF (NUM_ELEM == NELREQ(I)) THEN CALL CHK_OGEL_ZEROS ( NUM_OGEL ) CALL WRITE_ELEM_NODE_FORCE ( JVEC, ELGP, NUM_ELEM, IHDR ) @@ -200,7 +200,7 @@ SUBROUTINE OFP3_ELFN ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (WRT_FIJ(5) > 0) THEN CALL WRITE_FIJFIL ( 5, JVEC ) ENDIF - + IF ((SOL_NAME(1:12) == 'GEN CB MODEL') .AND. (JVEC == 1) .AND. (OT4_EROW >= 1)) THEN DO K=1,OTMSKIP ! Write OTMSKIP blank separator lines OT4_EROW = OT4_EROW + 1 @@ -209,11 +209,11 @@ SUBROUTINE OFP3_ELFN ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDIF - + ENDIF - + ENDDO elems_1 - + ENDDO reqs1 IF (IERROR > 0) THEN @@ -233,9 +233,9 @@ SUBROUTINE OFP3_ELFN ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) 9200 FORMAT(' *ERROR 9200: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' ARRAY OGEL WAS ALLOCATED TO HAVE ',I12,' ROWS. ATTEMPT TO WRITE TO OGEL BEYOND THIS') - + 9201 FORMAT(' *ERROR 9201: DUE TO ABOVE LISTED ERRORS, CANNOT CALCULATE ',A,' REQUESTS FOR ',A,' ELEMENT ID = ',I8) ! ********************************************************************************************************************************** - END SUBROUTINE OFP3_ELFN \ No newline at end of file + END SUBROUTINE OFP3_ELFN diff --git a/Source/LK9/L92/OFP3_STRE_NO_PCOMP.f90 b/Source/LK9/L92/OFP3_STRE_NO_PCOMP.f90 index 6cb0ffb1..179645c5 100644 --- a/Source/LK9/L92/OFP3_STRE_NO_PCOMP.f90 +++ b/Source/LK9/L92/OFP3_STRE_NO_PCOMP.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! Processes element stress output requests for non PCOMP elements for one subcase. Also write Output Transformation Matrices (OTM's) ! for stresses for Craig-Bampton models) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ELOUT_STRE_BIT, FATAL_ERR, IBIT, INT_SC_NUM, & @@ -51,19 +51,19 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) USE OFP3_STRE_NO_PCOMP_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'OFP3_STRE_NO_PCOMP' CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein CHARACTER( 1*BYTE) :: OPT(6) ! Option indicators for subr EMG, called herein CHARACTER(31*BYTE) :: OT4_DESCRIPTOR ! Descriptor for rows of OT4 file CHARACTER(30*BYTE) :: REQUEST ! Text for error message CHARACTER(20*BYTE) :: STRESS_ITEM(20) ! Char description of element stresses - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors - INTEGER(LONG) :: ELOUT_STRE ! If > 0, there are STRESS requests for some elems + INTEGER(LONG) :: ELOUT_STRE ! If > 0, there are STRESS requests for some elems INTEGER(LONG) :: I,J,K,L,M ! DO loop indices INTEGER(LONG) :: IERROR = 0 ! Local error count !xx INTEGER(LONG) :: IROW_MAT ! Row number in OTM's @@ -83,7 +83,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) INTEGER(LONG) :: STRESS_OUT_ERR_INDEX(MAX_STRESS_POINTS) - + ! Array of %errs from subr POLYNOM_FIT_STRE_STRN (only NUM_PTS vals used) REAL(DOUBLE) :: STRESS_OUT_PCT_ERR(MAX_STRESS_POINTS) @@ -109,27 +109,27 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! ********************************************************************************************************************************** ! Process element stress output (STRESS) requests for all elems except composite shells - + OPT(1) = 'N' ! OPT(1) is for calc of ME OPT(2) = 'N' ! OPT(2) is for calc of PTE OPT(3) = 'Y' ! OPT(3) is for calc of SEi, STEi OPT(4) = 'N' ! OPT(4) is for calc of KE-linear OPT(5) = 'N' ! OPT(5) is for calc of PPE OPT(6) = 'N' ! OPT(6) is for calc of KE-diff stiff - - + + ! Find out how many output requests were made for each element type. DO I=1,METYPE ! Initialize the array containing the no. requests/elem. NELREQ(I) = 0 - ENDDO - + ENDDO + DO I=1,METYPE DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'N') THEN IF (ETYPE(J) == ELMTYP(I)) THEN - IF ((STRE_LOC == 'CORNER ') .OR. & + IF ((STRE_LOC == 'CORNER ') .OR. & (STRE_LOC == 'GAUSS ') .OR. & (ETYPE(J)(1:4) == 'HEXA') .OR. & (ETYPE(J)(1:5) == 'PENTA') .OR. & @@ -146,14 +146,14 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDIF ENDDO - ENDDO - + ENDDO + DO I=1,MAXREQ DO J=1,MOGEL OGEL(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + ! 101 FORMAT("*DEBUG: ",A,"; ELEMENT_TYPE_INT=",I8,"; TABLE_NAME=",A) !xx IROW_MAT = 0 !xx IROW_TXT = 0 @@ -162,7 +162,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (NELREQ(I) == 0) CYCLE reqs5 NUM_OGEL_ROWS = 0 NUM_OGEL = 0 - + elems_5: DO J = 1,NELE EID = EDAT(EPNT(J)) @@ -183,12 +183,12 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) DO M=1,NUM_PTS(I) CALL ELEM_STRE_STRN_ARRAYS ( M ) - STRESS_RAW(:,M) = STRESS(:) + STRESS_RAW(:,M) = STRESS(:) ENDDO - + STRESS_OUT(:,1) = STRESS(:) ! Set STRESS_OUT for NUM_PTS(I) = 1 - IF ((STRE_LOC == 'CORNER ') .OR. & + IF ((STRE_LOC == 'CORNER ') .OR. & (STRE_LOC == 'GAUSS ') .OR. & (TYPE(1:4) == 'HEXA') .OR. & (TYPE(1:5) == 'PENTA') .OR. & @@ -198,12 +198,12 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (TYPE(1:5) == 'QUAD4') THEN CALL POLYNOM_FIT_STRE_STRN ( STRESS_RAW, 9, NUM_PTS(I), STRESS_OUT, STRESS_OUT_PCT_ERR, & STRESS_OUT_ERR_INDEX, PCT_ERR_MAX ) - + ELSE IF (TYPE(1:5) == 'QUAD8') THEN CALL POLYNOM_FIT_STRE_STRN ( STRESS_RAW, 9, NUM_PTS(I), STRESS_OUT, STRESS_OUT_PCT_ERR, & STRESS_OUT_ERR_INDEX, PCT_ERR_MAX ) - ! Transform stress from the cartesian local coordinate system to + ! Transform stress from the cartesian local coordinate system to ! the element coordinate system DO M=2,NUM_PTS(I) CALL PLANE_COORD_TRANS_21( SHELL_STR_ANGLE( M ), TEL, '') @@ -212,14 +212,14 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! Center stress is the average of corner stress in element coordinates. ! This is how MSC does it. STRESS_OUT(:,1) = (STRESS_OUT(:,2) + STRESS_OUT(:,3) + STRESS_OUT(:,4) + STRESS_OUT(:,5)) / FOUR - + ELSE IF ((TYPE(1:4) == 'HEXA') .OR. & (TYPE(1:5) == 'PENTA') .OR. & (TYPE(1:5) == 'TETRA')) THEN ! Stresses are directly evaluated at the corner grid points. If they are going to be evaluated at Gauss points ! then extrapolated to grid points, that should be done here, in POLYNOM_FIT_STRE_STRN, or in an equivalent subroutine. STRESS_OUT(:,:) = STRESS_RAW(:,:) - + ENDIF ENDIF @@ -271,7 +271,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDDO ENDIF - ENDIF + ENDIF IF ((SOL_NAME(1:12) == 'GEN CB MODEL') .AND. (JVEC == 1) .AND. (OT4_EROW >= 1)) THEN DO K=1,OTMSKIP ! Write OTMSKIP blank separator lines @@ -292,7 +292,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) DO K=1,ELGP GID_OUT_ARRAY(NUM_OGEL_ROWS,K+1) = AGRID(K) ENDDO - + ENDDO do_stress_pts IF (ETYPE(J)(1:5) /='USER1') THEN @@ -310,9 +310,9 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDIF - + ENDDO elems_5 - + ENDDO reqs5 IF ((TABLE_NAME .NE. "OES ERR ") .AND. (ITABLE < 0)) THEN @@ -344,7 +344,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCBUSH, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -375,7 +375,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCELAS1, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -438,7 +438,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCELAS3, NDUM, NUM_FROWS, 'N', 'Y' ) ENDIF - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRE_VECS ( 'ELAS3 ', 'N', NUM_FROWS, FEMAP_SET_ID ) @@ -469,7 +469,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCELAS4, NDUM, NUM_FROWS, 'N', 'Y' ) ENDIF - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRE_VECS ( 'ELAS4 ', 'N', NUM_FROWS, FEMAP_SET_ID ) @@ -499,14 +499,14 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCROD, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRE_VECS ( 'ROD ', 'N', NUM_FROWS, FEMAP_SET_ID ) ENDIF CALL DEALLOCATE_FEMAP_DATA - + NDUM = 0 NUM_FROWS= 0 ! Write out BAR stresses CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NCBAR, 12, SUBR_NAME ) @@ -531,13 +531,13 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCBAR, NDUM, NUM_FROWS, 'N', 'Y' ) ENDIF - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRE_VECS ( 'BAR ', 'N', NUM_FROWS, FEMAP_SET_ID ) ENDIF CALL DEALLOCATE_FEMAP_DATA - + NDUM = 0 NUM_FROWS= 0 ! Write out TRIA3K stresses CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NCTRIA3K, 22, SUBR_NAME ) @@ -561,18 +561,18 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCTRIA3K, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRE_VECS ( 'TRIA3K ', 'N', NUM_FROWS, FEMAP_SET_ID ) ENDIF CALL DEALLOCATE_FEMAP_DATA - + NDUM = 0 NUM_FROWS= 0 ! Write out TRIA3 stresses CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NCTRIA3, 22, SUBR_NAME ) - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'N') THEN EID = EDAT(EPNT(J)) @@ -592,14 +592,14 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCTRIA3, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRE_VECS ( 'TRIA3 ', 'N', NUM_FROWS, FEMAP_SET_ID ) ENDIF CALL DEALLOCATE_FEMAP_DATA - + NDUM = 0 NUM_FROWS= 0 ! Write out QUAD4K stresses CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NCQUAD4K, 22, SUBR_NAME ) @@ -624,13 +624,13 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCQUAD4K, NDUM, NUM_FROWS, 'N', 'Y' ) ENDIF - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRE_VECS ( 'QUAD4K ', 'N', NUM_FROWS, FEMAP_SET_ID ) ENDIF CALL DEALLOCATE_FEMAP_DATA - + NDUM = 0 NUM_FROWS= 0 ! Write out QUAD4 stresses CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NCQUAD4, 22, SUBR_NAME ) @@ -654,14 +654,14 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCQUAD4, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRE_VECS ( 'QUAD4 ', 'N', NUM_FROWS, FEMAP_SET_ID ) ENDIF CALL DEALLOCATE_FEMAP_DATA - + NDUM = 0 NUM_FROWS= 0 ! Write out HEXA8 stresses CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NCHEXA8, 12, SUBR_NAME ) @@ -685,14 +685,14 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCHEXA8, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRE_VECS ( 'HEXA8 ', 'N', NUM_FROWS, FEMAP_SET_ID ) ENDIF CALL DEALLOCATE_FEMAP_DATA - + NDUM = 0 NUM_FROWS= 0 ! Write out HEXA20 stresses CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NCHEXA20, 12, SUBR_NAME ) @@ -717,7 +717,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCHEXA20, NDUM, NUM_FROWS, 'N', 'Y' ) ENDIF - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRE_VECS ( 'HEXA20 ', 'N', NUM_FROWS, FEMAP_SET_ID ) @@ -748,7 +748,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCPENTA6, NDUM, NUM_FROWS, 'N', 'Y' ) ENDIF - ENDIF + ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRE_VECS ( 'PENTA6 ', 'N', NUM_FROWS, FEMAP_SET_ID ) @@ -778,7 +778,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCPENTA15, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -809,7 +809,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCTETRA4, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -840,7 +840,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCTETRA10, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -871,7 +871,7 @@ SUBROUTINE OFP3_STRE_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRESSES ( NCSHEAR, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -958,7 +958,7 @@ SUBROUTINE GET_STRESS_ITEM_DATA ELSE IF (STRE_OPT(1:4) == 'MAXS' ) THEN STRESS_ITEM( 8) = 'Max Shear XY at -Z1 ' ; STRESS_ITEM(18) = 'Max Shear XY at +Z1 ' ELSE - STRESS_ITEM( 8) = '**** undefined **** ' ; STRESS_ITEM(18) = '**** undefined **** ' + STRESS_ITEM( 8) = '**** undefined **** ' ; STRESS_ITEM(18) = '**** undefined **** ' ENDIF STRESS_ITEM( 9) = 'Shear XZ Stress avg ' ; STRESS_ITEM(19) = 'Shear XZ Stress avg ' STRESS_ITEM(10) = 'Shear YZ Stress avg ' ; STRESS_ITEM(20) = 'Shear XZ Stress avg ' diff --git a/Source/LK9/L92/OFP3_STRE_PCOMP.f90 b/Source/LK9/L92/OFP3_STRE_PCOMP.f90 index e369dd99..9d26b661 100644 --- a/Source/LK9/L92/OFP3_STRE_PCOMP.f90 +++ b/Source/LK9/L92/OFP3_STRE_PCOMP.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! Processes element ply stress output requests for PCOMP elements (TRIA3, QUAD4) for one subcase - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : WRT_BUG, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ELOUT_STRE_BIT, FATAL_ERR, IBIT, INT_SC_NUM, MBUG, MOGEL, & @@ -40,23 +40,23 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) NUM_PLIES, PCOMP_PROPS, PLY_NUM, THETA_PLY, TYPE USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, MAXREQ, OGEL USE OUTPUT4_MATRICES, ONLY : OTM_STRE, TXT_STRE - + USE OFP3_STRE_PCOMP_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'OFP3_STRE_PCOMP' CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein CHARACTER( 1*BYTE) :: OPT(6) ! Option indicators for subr EMG, called herein CHARACTER(31*BYTE) :: OT4_DESCRIPTOR ! Descriptor for rows of OT4 file CHARACTER(30*BYTE) :: REQUEST ! Text for error message CHARACTER(20*BYTE) :: STRESS_ITEM(18) ! Char description of element strains - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors - INTEGER(LONG) :: ELOUT_STRE ! If > 0, there are STRESS requests for some elems + INTEGER(LONG) :: ELOUT_STRE ! If > 0, there are STRESS requests for some elems INTEGER(LONG) :: I,J,K,L,M ! DO loop indices INTEGER(LONG) :: IERROR = 0 ! Local error count !xx INTEGER(LONG) :: IROW_MAT ! Row number in OTM's @@ -71,7 +71,7 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! Indicator for output of elem data to BUG file INTEGER(LONG) :: NUM_OTM_ENTRIES ! Number of entries in OGEL for a particular element type - + INTEGER(LONG) :: ITABLE ! the op2 subtable number CHARACTER(8*BYTE) :: TABLE_NAME ! the op2 table name LOGICAL :: IS_RESULT ! is there a result @@ -88,25 +88,25 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! ********************************************************************************************************************************** ! Process element stress output (STRESS) requests for composite shell elements - + OPT(1) = 'N' ! OPT(1) is for calc of ME OPT(2) = 'N' ! OPT(2) is for calc of PTE OPT(3) = 'Y' ! OPT(3) is for calc of SEi, STEi OPT(4) = 'N' ! OPT(4) is for calc of KE-linear OPT(5) = 'N' ! OPT(5) is for calc of PPE OPT(6) = 'N' ! OPT(6) is for calc of KE-diff stiff - + ! Find out how many output requests were made for each element type. DO I=1,METYPE ! Initialize the array containing the no. requests/elem. NELREQ(I) = 0 - ENDDO - + ENDDO + DO I=1,METYPE DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN - IF ((ETYPE(J)(1:5) == 'TRIA3') .OR. (ETYPE(J)(1:5) == 'QUAD4')) THEN + IF ((ETYPE(J)(1:5) == 'TRIA3') .OR. (ETYPE(J)(1:5) == 'QUAD4')) THEN IF (ETYPE(J) == ELMTYP(I)) THEN ELOUT_STRE = IAND(ELOUT(J,INT_SC_NUM),IBIT(ELOUT_STRE_BIT)) IF (ELOUT_STRE > 0) THEN @@ -117,15 +117,15 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDIF ENDIF - ENDDO - ENDDO - + ENDDO + ENDDO + DO I=1,MAXREQ DO J=1,MOGEL OGEL(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + !xx IROW_MAT = 0 !xx IROW_TXT = 0 OT4_DESCRIPTOR = 'Element stress' @@ -133,7 +133,7 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (NELREQ(I) == 0) CYCLE reqs4 NUM_LINES = 0 NUM_OGEL = 0 - + elems_4: DO J = 1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) @@ -160,7 +160,7 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (NUM_PLIES > 1) THEN CALL ELMDIS_PLY ! If there is more than 1 ply, get displs from elem mid plane displs ENDIF - + IF (ETYPE(J)(1:5) == 'USER1') THEN CALL SUSER1 ELSE ! Get ply stresses in ply coords (also need strains for failure index) @@ -183,7 +183,7 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDDO ENDDO - ENDIF + ENDIF IF ((SOL_NAME(1:12) == 'GEN CB MODEL') .AND. (JVEC == 1) .AND. (OT4_EROW >= 1)) THEN DO K=1,OTMSKIP ! Write OTMSKIP blank separator lines @@ -203,24 +203,24 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) WRITE(ERR,100) "OES_PCOMP",TYPE,TABLE_NAME,ITABLE CALL SET_OESC_TABLE_NAME(TABLE_NAME, ITABLE) WRITE(ERR,100) "OES_PCOMP",ETYPE(J)(1:8),TABLE_NAME,ITABLE - + CALL WRITE_PLY_STRESSES ( JVEC, NUM_LINES, IHDR, ETYPE(J)(1:8), ITABLE ) EXIT ENDIF ENDIF - + ENDDO do_plies_4 - + ENDIF ENDIF - + ENDIF pcomp ENDDO elems_4 - + ENDDO reqs4 - + 10 FORMAT("*DEBUG: OES_PCOMP_END: TABLE_NAME",A) WRITE(ERR,10) TABLE_NAME IF (ITABLE < 0) THEN @@ -230,7 +230,7 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (WRITE_NEU .AND. (ANY_STRE_OUTPUT > 0)) THEN NDUM = 0 NUM_FROWS= 0 ! Write out TRIA3 stresses - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN EID = EDAT(EPNT(J)) @@ -244,7 +244,7 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (NUM_FROWS > 0) THEN CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NUM_FROWS, 9, SUBR_NAME ) NUM_FROWS = 0 - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN EID = EDAT(EPNT(J)) @@ -272,7 +272,7 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ROT_COMP_ELEM_AXES ( J, M, THETA_PLY, '2-1' ) CALL CALC_ELEM_STRESSES ( NCTRIA3, NDUM, NUM_FROWS, 'N', 'Y' ) ENDDO - ENDIF + ENDIF ENDIF ENDDO CALL WRITE_FEMAP_STRE_VECS ( 'TRIA3 ', 'Y', NUM_FROWS, FEMAP_SET_ID ) @@ -281,7 +281,7 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) NDUM = 0 NUM_FROWS= 0 ! Write out QUAD4 stresses - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN EID = EDAT(EPNT(J)) @@ -295,7 +295,7 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (NUM_FROWS > 0) THEN CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NUM_FROWS, 9, SUBR_NAME ) NUM_FROWS = 0 - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN EID = EDAT(EPNT(J)) @@ -324,7 +324,7 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL CALC_ELEM_STRESSES ( NCQUAD4, NDUM, NUM_FROWS, 'N', 'Y' ) ENDDO ENDIF - ENDIF + ENDIF ENDDO CALL WRITE_FEMAP_STRE_VECS ( 'QUAD4 ', 'Y', NUM_FROWS, FEMAP_SET_ID ) CALL DEALLOCATE_FEMAP_DATA @@ -332,7 +332,7 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) NDUM = 0 NUM_FROWS= 0 ! Write out SHEAR stresses - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN EID = EDAT(EPNT(J)) @@ -346,7 +346,7 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (NUM_FROWS > 0) THEN CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NUM_FROWS, 9, SUBR_NAME ) NUM_FROWS = 0 - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN EID = EDAT(EPNT(J)) @@ -374,7 +374,7 @@ SUBROUTINE OFP3_STRE_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ROT_COMP_ELEM_AXES ( J, M, THETA_PLY, '2-1' ) CALL CALC_ELEM_STRESSES ( NCSHEAR, NDUM, NUM_FROWS, 'N', 'Y' ) ENDDO - ENDIF + ENDIF ENDIF ENDDO CALL WRITE_FEMAP_STRE_VECS ( 'SHEAR ', 'Y', NUM_FROWS, FEMAP_SET_ID ) diff --git a/Source/LK9/L92/OFP3_STRN_NO_PCOMP.f90 b/Source/LK9/L92/OFP3_STRN_NO_PCOMP.f90 index 30d523fa..b2844eea 100644 --- a/Source/LK9/L92/OFP3_STRN_NO_PCOMP.f90 +++ b/Source/LK9/L92/OFP3_STRN_NO_PCOMP.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! Processes element strain output requests for non PCOMP elements for one subcase. Also write Output Transformation Matrices (OTM's) ! for strains for Craig-Bampton models) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ELOUT_STRN_BIT, FATAL_ERR, IBIT, INT_SC_NUM, & @@ -45,25 +45,25 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_LOC, STRN_OPT USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, GID_OUT_ARRAY, MAXREQ, OGEL, POLY_FIT_ERR, POLY_FIT_ERR_INDEX USE OUTPUT4_MATRICES, ONLY : OTM_STRN, TXT_STRN - + USE PLANE_COORD_TRANS_21_Interface USE TRANSFORM_SHELL_STR_Interface USE OFP3_STRN_NO_PCOMP_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'OFP3_STRN_NO_PCOMP' CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein CHARACTER( 1*BYTE) :: OPT(6) ! Option indicators for subr EMG, called herein CHARACTER(31*BYTE) :: OT4_DESCRIPTOR ! Descriptor for rows of OT4 file CHARACTER(30*BYTE) :: REQUEST ! Text for error message CHARACTER(20*BYTE) :: STRAIN_ITEM(22) ! Char description of element strains - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors - INTEGER(LONG) :: ELOUT_STRN ! If > 0, there are STRAIN requests for some elems + INTEGER(LONG) :: ELOUT_STRN ! If > 0, there are STRAIN requests for some elems INTEGER(LONG) :: I,J,K,L,M ! DO loop indices INTEGER(LONG) :: IERROR = 0 ! Local error count !xx INTEGER(LONG) :: IROW_MAT ! Row number in OTM's @@ -83,7 +83,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) INTEGER(LONG) :: STRAIN_OUT_ERR_INDEX(MAX_STRESS_POINTS) - + ! Array of %errs from subr POLYNOM_FIT_STRE_STRN (only NUM_PTS vals used) REAL(DOUBLE) :: STRAIN_OUT_PCT_ERR(MAX_STRESS_POINTS) @@ -109,20 +109,20 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! ********************************************************************************************************************************** ! Process element strain output (STRAIN) requests for all elems except composite shells - + OPT(1) = 'N' ! OPT(1) is for calc of ME OPT(2) = 'N' ! OPT(2) is for calc of PTE OPT(3) = 'Y' ! OPT(3) is for calc of SEi, STEi OPT(4) = 'N' ! OPT(4) is for calc of KE-linear OPT(5) = 'N' ! OPT(5) is for calc of PPE OPT(6) = 'N' ! OPT(6) is for calc of KE-diff stiff - + ! Find out how many output requests were made for each element type. DO I=1,METYPE ! Initialize the array containing the no. requests/elem. NELREQ(I) = 0 - ENDDO - + ENDDO + DO I=1,METYPE ! Only count requests for elem types that can have strain output IF((ELMTYP(I)(1:5) == 'TRIA3') .OR. (ELMTYP(I)(1:5) == 'QUAD4') .OR. (ELMTYP(I)(1:5) == 'SHEAR') .OR. & (ELMTYP(I)(1:4) == 'HEXA' ) .OR. (ELMTYP(I)(1:5) == 'PENTA') .OR. (ELMTYP(I)(1:5) == 'TETRA') .OR. & @@ -131,7 +131,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'N') THEN IF (ETYPE(J) == ELMTYP(I)) THEN - IF ((STRN_LOC == 'CORNER ') .OR. & + IF ((STRN_LOC == 'CORNER ') .OR. & (STRN_LOC == 'GAUSS ') .OR. & (ETYPE(J)(1:4) == 'HEXA') .OR. & (ETYPE(J)(1:5) == 'PENTA') .OR. & @@ -149,14 +149,14 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDDO ENDIF - ENDDO - + ENDDO + DO I=1,MAXREQ DO J=1,MOGEL OGEL(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + !xx IROW_MAT = 0 !xx IROW_TXT = 0 OT4_DESCRIPTOR = 'Element strain' @@ -185,13 +185,13 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) DO M=1,NUM_PTS(I) CALL ELEM_STRE_STRN_ARRAYS ( M ) DO K=1,9 - STRAIN_RAW(K,M) = STRAIN(K) + STRAIN_RAW(K,M) = STRAIN(K) ENDDO ENDDO STRAIN_OUT(:,1) = STRAIN(:) ! Set STRAIN_OUT for NUM_PTS(I) = 1 - IF ((STRN_LOC == 'CORNER ') .OR. & + IF ((STRN_LOC == 'CORNER ') .OR. & (STRN_LOC == 'GAUSS ') .OR. & (TYPE(1:4) == 'HEXA') .OR. & (TYPE(1:5) == 'PENTA') .OR. & @@ -206,7 +206,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL POLYNOM_FIT_STRE_STRN ( STRAIN_RAW, 9, NUM_PTS(I), STRAIN_OUT, STRAIN_OUT_PCT_ERR, & STRAIN_OUT_ERR_INDEX, PCT_ERR_MAX ) - ! Transform strain from the cartesian local coordinate system to + ! Transform strain from the cartesian local coordinate system to ! the element coordinate system DO M=1,NUM_PTS(I) CALL PLANE_COORD_TRANS_21( SHELL_STR_ANGLE( M ), TEL, '') @@ -223,7 +223,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! Strains are directly evaluated at the corner grid points. If they are going to be evaluated at Gauss points ! then extrapolated to grid points, that should be done here, in POLYNOM_FIT_STRE_STRN, or in an equivalent subroutine. STRAIN_OUT(:,:) = STRAIN_RAW(:,:) - + ENDIF ENDIF @@ -274,7 +274,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDDO ENDIF - ENDIF + ENDIF IF ((SOL_NAME(1:12) == 'GEN CB MODEL') .AND. (JVEC == 1) .AND. (OT4_EROW >= 1)) THEN DO K=1,OTMSKIP ! Write OTMSKIP blank separator lines @@ -295,7 +295,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) DO K=1,ELGP GID_OUT_ARRAY(NUM_OGEL_ROWS,K+1) = AGRID(K) ENDDO - + ENDDO do_strain_pts IF (ETYPE(J)(1:5) /='USER1') THEN @@ -313,17 +313,17 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDIF - + ENDDO elems_7 - + ENDDO reqs7 - + IF ((TABLE_NAME .NE. "OES ERR ") .AND. (ITABLE < 0)) THEN CALL END_OP2_TABLE(ITABLE) ENDIF !=========================== IF (WRITE_NEU .AND. (ANY_STRN_OUTPUT > 0)) THEN - + NDUM = 0 NUM_FROWS= 0 ! Write out BUSH strains CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NCBUSH, 6, SUBR_NAME ) @@ -347,7 +347,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRAINS ( NCBUSH, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -378,7 +378,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRAINS ( NCTRIA3K, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -389,7 +389,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) NDUM = 0 NUM_FROWS= 0 ! Write out TRIA3 strains CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NCTRIA3, 22, SUBR_NAME ) - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'N') THEN EID = EDAT(EPNT(J)) @@ -409,14 +409,14 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRAINS ( NCTRIA3, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRN_VECS ( 'TRIA3 ', 'N', NUM_FROWS, FEMAP_SET_ID ) ENDIF CALL DEALLOCATE_FEMAP_DATA - + NDUM = 0 NUM_FROWS= 0 ! Write out QUAD4K strains CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NCQUAD4K, 22, SUBR_NAME ) @@ -440,14 +440,14 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRAINS ( NCQUAD4K, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRN_VECS ( 'QUAD4K ', 'N', NUM_FROWS, FEMAP_SET_ID ) ENDIF CALL DEALLOCATE_FEMAP_DATA - + NDUM = 0 NUM_FROWS= 0 ! Write out QUAD4 strains CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NCQUAD4, 22, SUBR_NAME ) @@ -471,14 +471,14 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRAINS ( NCQUAD4, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRN_VECS ( 'QUAD4 ', 'N', NUM_FROWS, FEMAP_SET_ID ) ENDIF CALL DEALLOCATE_FEMAP_DATA - + NDUM = 0 NUM_FROWS= 0 ! Write out HEXA8 strains CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NCHEXA8, 12, SUBR_NAME ) @@ -502,14 +502,14 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRAINS ( NCHEXA8, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN CALL WRITE_FEMAP_STRN_VECS ( 'HEXA8 ', 'N', NUM_FROWS, FEMAP_SET_ID ) ENDIF CALL DEALLOCATE_FEMAP_DATA - + NDUM = 0 NUM_FROWS= 0 ! Write out HEXA20 strains CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NCHEXA20, 12, SUBR_NAME ) @@ -533,7 +533,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRAINS ( NCHEXA20, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -564,7 +564,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRAINS ( NCPENTA6, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -595,7 +595,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRAINS ( NCPENTA15, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -626,7 +626,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRAINS ( NCTETRA4, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -657,7 +657,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRAINS ( NCTETRA10, NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -687,7 +687,7 @@ SUBROUTINE OFP3_STRN_NO_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ELMDIS CALL ELEM_STRE_STRN_ARRAYS ( 1 ) CALL CALC_ELEM_STRAINS ( NCSHEAR , NDUM, NUM_FROWS, 'N', 'Y' ) - ENDIF + ENDIF ENDIF ENDDO IF (NUM_FROWS > 0) THEN @@ -758,7 +758,7 @@ SUBROUTINE GET_STRAIN_ITEM_DATA ELSE IF (STRN_OPT(1:4) == 'MAXS' ) THEN STRAIN_ITEM( 8) = 'Max Shear XY at -Z1 ' ; STRAIN_ITEM(18) = 'Max Shear XY at +Z1 ' ELSE - STRAIN_ITEM( 8) = '**** undefined **** ' ; STRAIN_ITEM(18) = '**** undefined **** ' + STRAIN_ITEM( 8) = '**** undefined **** ' ; STRAIN_ITEM(18) = '**** undefined **** ' ENDIF STRAIN_ITEM( 9) = 'Transv Shear XZ avg ' ; STRAIN_ITEM(19) = 'Transv Shear XZ avg ' STRAIN_ITEM(10) = 'Transv Shear YZ avg ' ; STRAIN_ITEM(20) = 'Transv Shear YZ avg ' diff --git a/Source/LK9/L92/OFP3_STRN_PCOMP.f90 b/Source/LK9/L92/OFP3_STRN_PCOMP.f90 index b50b436f..0cedacab 100644 --- a/Source/LK9/L92/OFP3_STRN_PCOMP.f90 +++ b/Source/LK9/L92/OFP3_STRN_PCOMP.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! Processes element ply strain output requests for PCOMP elements (TRIA3, QUAD4) for one subcase - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : WRT_BUG, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, ELOUT_STRN_BIT, FATAL_ERR, IBIT, INT_SC_NUM, MBUG, MOGEL, & @@ -40,23 +40,23 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) NUM_PLIES, PCOMP_PROPS, PLY_NUM, THETA_PLY, TYPE USE LINK9_STUFF, ONLY : EID_OUT_ARRAY, MAXREQ, OGEL USE OUTPUT4_MATRICES, ONLY : OTM_STRN, TXT_STRN - + USE OFP3_STRN_PCOMP_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'OFP3_STRN_PCOMP' CHARACTER( 1*BYTE), PARAMETER :: IHDR = 'Y' ! An input to subr WRITE_GRID_OUTPUTS, called herein CHARACTER( 1*BYTE) :: OPT(6) ! Option indicators for subr EMG, called herein CHARACTER(31*BYTE) :: OT4_DESCRIPTOR ! Descriptor for rows of OT4 file CHARACTER(30*BYTE) :: REQUEST ! Text for error message CHARACTER(20*BYTE) :: STRAIN_ITEM(18) ! Char description of element strains - + INTEGER(LONG), INTENT(IN) :: FEMAP_SET_ID ! Set ID for FEMAP output - INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors + INTEGER(LONG), INTENT(IN) :: ITE ! Unit number for text files for OTM row descriptors INTEGER(LONG), INTENT(IN) :: JVEC ! Solution vector number INTEGER(LONG), INTENT(INOUT) :: OT4_EROW ! Row number in OT4 file for elem related OTM descriptors - INTEGER(LONG) :: ELOUT_STRN ! If > 0, there are STRAIN requests for some elems + INTEGER(LONG) :: ELOUT_STRN ! If > 0, there are STRAIN requests for some elems INTEGER(LONG) :: I,J,K,L,M ! DO loop indices INTEGER(LONG) :: IERROR = 0 ! Local error count !xx INTEGER(LONG) :: IROW_MAT ! Row number in OTM's @@ -71,7 +71,7 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! Indicator for output of elem data to BUG file INTEGER(LONG) :: NUM_OTM_ENTRIES ! Number of entries in OGEL for a particular element type - + INTEGER(LONG) :: ITABLE ! the op2 subtable number CHARACTER(8*BYTE) :: TABLE_NAME ! the op2 table name LOGICAL :: IS_RESULT ! is there a result @@ -88,25 +88,25 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ! ********************************************************************************************************************************** ! Process element strain output (STRAIN) requests for composite shell elements - + OPT(1) = 'N' ! OPT(1) is for calc of ME OPT(2) = 'N' ! OPT(2) is for calc of PTE OPT(3) = 'Y' ! OPT(3) is for calc of SEi, STEi OPT(4) = 'N' ! OPT(4) is for calc of KE-linear OPT(5) = 'N' ! OPT(5) is for calc of PPE OPT(6) = 'N' ! OPT(6) is for calc of KE-diff stiff - + ! Find out how many output requests were made for each element type. DO I=1,METYPE ! Initialize the array containing the no. requests/elem. NELREQ(I) = 0 - ENDDO - + ENDDO + DO I=1,METYPE DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN - IF ((ETYPE(J)(1:5) == 'TRIA3') .OR. (ETYPE(J)(1:5) == 'QUAD4') .OR. (ETYPE(J)(1:5) == 'SHEAR')) THEN + IF ((ETYPE(J)(1:5) == 'TRIA3') .OR. (ETYPE(J)(1:5) == 'QUAD4') .OR. (ETYPE(J)(1:5) == 'SHEAR')) THEN IF (ETYPE(J) == ELMTYP(I)) THEN ELOUT_STRN = IAND(ELOUT(J,INT_SC_NUM),IBIT(ELOUT_STRN_BIT)) IF (ELOUT_STRN > 0) THEN @@ -117,15 +117,15 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDIF ENDIF - ENDDO - ENDDO - + ENDDO + ENDDO + DO I=1,MAXREQ DO J=1,MOGEL OGEL(I,J) = ZERO - ENDDO - ENDDO - + ENDDO + ENDDO + !xx IROW_MAT = 0 !xx IROW_TXT = 0 OT4_DESCRIPTOR = 'Element strain' @@ -133,7 +133,7 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (NELREQ(I) == 0) CYCLE reqs6 NUM_LINES = 0 NUM_OGEL = 0 - + elems_6: DO J = 1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) @@ -160,7 +160,7 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (NUM_PLIES > 1) THEN CALL ELMDIS_PLY ! If there is more than 1 ply, get displs from elem mid plane displs ENDIF - + IF (ETYPE(J)(1:5) == 'USER1') THEN CALL SUSER1 ELSE ! Get ply strains inply coords @@ -183,7 +183,7 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) ENDIF ENDDO ENDDO - ENDIF + ENDIF IF ((SOL_NAME(1:12) == 'GEN CB MODEL') .AND. (JVEC == 1) .AND. (OT4_EROW >= 1)) THEN DO K=1,OTMSKIP ! Write OTMSKIP blank separator lines @@ -203,24 +203,24 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) WRITE(ERR,100) "OSTR1C_PCOMP",TYPE,TABLE_NAME,ITABLE CALL SET_OESC_TABLE_NAME(TABLE_NAME, ITABLE) WRITE(ERR,100) "OSTR1C_PCOMP",ETYPE(J)(1:8),TABLE_NAME,ITABLE - + CALL WRITE_PLY_STRAINS ( JVEC, NUM_LINES, IHDR, ETYPE(J)(1:8), ITABLE ) EXIT ENDIF ENDIF - + ENDDO do_plies_6 - + ENDIF ENDIF - + ENDIF pcomp ENDDO elems_6 - + ENDDO reqs6 - + 10 FORMAT("*DEBUG: OSTR_PCOMP_END: TABLE_NAME",A) WRITE(ERR,10) TABLE_NAME IF (ITABLE < 0) THEN @@ -231,7 +231,7 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) NDUM = 0 NUM_FROWS= 0 ! Write out TRIA3 strains - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN EID = EDAT(EPNT(J)) @@ -245,7 +245,7 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (NUM_FROWS > 0) THEN CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NUM_FROWS, 18, SUBR_NAME ) NUM_FROWS = 0 - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN EID = EDAT(EPNT(J)) @@ -273,7 +273,7 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ROT_COMP_ELEM_AXES ( J, M, THETA_PLY, '2-1' ) CALL CALC_ELEM_STRAINS ( NCTRIA3, NDUM, NUM_FROWS, 'N', 'Y' ) ENDDO - ENDIF + ENDIF ENDIF ENDDO CALL WRITE_FEMAP_STRN_VECS ( 'TRIA3 ', 'Y', NUM_FROWS, FEMAP_SET_ID ) @@ -282,7 +282,7 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) NDUM = 0 NUM_FROWS= 0 ! Write out QUAD4 strains - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN EID = EDAT(EPNT(J)) @@ -296,7 +296,7 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (NUM_FROWS > 0) THEN CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NUM_FROWS, 18, SUBR_NAME ) NUM_FROWS = 0 - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN EID = EDAT(EPNT(J)) @@ -324,7 +324,7 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ROT_COMP_ELEM_AXES ( J, M, THETA_PLY, '2-1' ) CALL CALC_ELEM_STRAINS ( NCQUAD4, NDUM, NUM_FROWS, 'N', 'Y' ) ENDDO - ENDIF + ENDIF ENDIF ENDDO CALL WRITE_FEMAP_STRN_VECS ( 'QUAD4 ', 'Y', NUM_FROWS, FEMAP_SET_ID ) @@ -333,7 +333,7 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) NDUM = 0 NUM_FROWS= 0 ! Write out SHEAR strains - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN EID = EDAT(EPNT(J)) @@ -347,7 +347,7 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) IF (NUM_FROWS > 0) THEN CALL ALLOCATE_FEMAP_DATA ( 'FEMAP ELEM ARRAYS', NUM_FROWS, 18, SUBR_NAME ) NUM_FROWS = 0 - DO J=1,NELE + DO J=1,NELE CALL IS_ELEM_PCOMP_PROPS ( J ) IF (PCOMP_PROPS == 'Y') THEN EID = EDAT(EPNT(J)) @@ -375,7 +375,7 @@ SUBROUTINE OFP3_STRN_PCOMP ( JVEC, FEMAP_SET_ID, ITE, OT4_EROW ) CALL ROT_COMP_ELEM_AXES ( J, M, THETA_PLY, '2-1' ) CALL CALC_ELEM_STRAINS ( NCSHEAR, NDUM, NUM_FROWS, 'N', 'Y' ) ENDDO - ENDIF + ENDIF ENDIF ENDDO CALL WRITE_FEMAP_STRN_VECS ( 'SHEAR ', 'Y', NUM_FROWS, FEMAP_SET_ID ) diff --git a/Source/LK9/L92/ONE_D_STRAIN_OUTPUTS.f90 b/Source/LK9/L92/ONE_D_STRAIN_OUTPUTS.f90 index 9046ce11..77ca7ffc 100644 --- a/Source/LK9/L92/ONE_D_STRAIN_OUTPUTS.f90 +++ b/Source/LK9/L92/ONE_D_STRAIN_OUTPUTS.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ONE_D_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + ! Calculates element strains for 1D ROD, BAR, ELAS, BUSH elements ! Calculates element specific strain output from array STRAIN (calc'd in subr ELEM_STRE_STRN_ARRAYS) for 1-D elements (ELAS, ROD, ! BAR, BUSH) and puts results into array OGEL for later output to F06 file. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : STRAIN, TYPE, ZS @@ -48,19 +48,19 @@ SUBROUTINE ONE_D_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG CHARACTER(1*BYTE) :: MSP1,MSP2,MSP3 ! Output from subr MARGIN used to control how margins of safety printed CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP_EL_VECS - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr INTEGER(LONG) :: ICOL ! An input to subr MARGIN, called by this subr - + REAL(DOUBLE) :: C1,C2 ! Coords of point "C" on cross-section of a CBAR where strain is calc'd REAL(DOUBLE) :: D1,D2 ! Coords of point "D" on cross-section of a CBAR where strain is calc'd REAL(DOUBLE) :: E1,E2 ! Coords of point "E" on cross-section of a CBAR where strain is calc'd REAL(DOUBLE) :: F1,F2 ! Coords of point "F" on cross-section of a CBAR where strain is calc'd REAL(DOUBLE) :: MS1,MS2,MS3 ! Margins of safety calc'd by subr MARGIN - REAL(DOUBLE) :: SA1,SA2,SA3,SA4 ! Strains at points "C", "D", "E" and "F" at end-a of a CBAR + REAL(DOUBLE) :: SA1,SA2,SA3,SA4 ! Strains at points "C", "D", "E" and "F" at end-a of a CBAR REAL(DOUBLE) :: SB1,SB2,SB3,SB4 ! Strains at points "C", "D", "E" and "F" at end-b of a CBAR REAL(DOUBLE) :: SA,ST ! Strains input to subrs that calc margins of safety REAL(DOUBLE) :: SAMAX,SAMIN ! Max & min strains from points "C", "D", "E" and "F" at end-a of CBAR @@ -68,12 +68,12 @@ SUBROUTINE ONE_D_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG LOGICAL :: WRITE_NEU INTRINSIC DMAX1,DMIN1 - + WRITE_NEU = (PRTNEU == 'Y') ! ********************************************************************************************************************************** ! Calc engineering strains from array STRAIN and put into array OGEL - + IF (TYPE == 'BAR ') THEN ! BAR1 elements ! TODO: not validated C1 = ZS(1) @@ -106,7 +106,7 @@ SUBROUTINE ONE_D_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF OGEL(NUM1,1) = SA1 OGEL(NUM1,2) = SA2 OGEL(NUM1,3) = SA3 @@ -123,7 +123,7 @@ SUBROUTINE ONE_D_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF OGEL(NUM1,1) = SB1 OGEL(NUM1,2) = SB2 OGEL(NUM1,3) = SB3 @@ -153,13 +153,13 @@ SUBROUTINE ONE_D_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG ELSE IF (TYPE(1:4) == 'BUSH') THEN ! BUSH elements IF (WRITE_OGEL == 'Y') THEN - NUM1 = NUM1 + 1 + NUM1 = NUM1 + 1 IF (NUM1 > SIZE_ALLOCATED) THEN WRITE(ERR,9200) SUBR_NAME,SIZE_ALLOCATED WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF OGEL(NUM1,1) = STRAIN(1) OGEL(NUM1,2) = STRAIN(2) OGEL(NUM1,3) = STRAIN(3) @@ -177,20 +177,20 @@ SUBROUTINE ONE_D_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG ENDIF ELSE IF (TYPE(1:4) == 'ELAS') THEN ! Strains for ELAS elements IF (WRITE_OGEL == 'Y') THEN - NUM1 = NUM1 + 1 + NUM1 = NUM1 + 1 IF (NUM1 > SIZE_ALLOCATED) THEN WRITE(ERR,9200) SUBR_NAME,SIZE_ALLOCATED WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF OGEL(NUM1,1) = STRAIN(1) ENDIF IF (WRITE_NEU .AND. (WRITE_FEMAP == 'Y')) THEN FEMAP_EL_VECS(NUM_FEMAP_ROWS,1) = STRAIN(1) FEMAP_EL_VECS(NUM_FEMAP_ROWS,2) = STRAIN(1) ENDIF - + ELSE IF (TYPE == 'ROD ') THEN ! ROD1 elements ! TODO: not validated SA = STRAIN(1) @@ -198,13 +198,13 @@ SUBROUTINE ONE_D_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG ICOL = 1 CALL ROD_MARGIN ( ICOL, SA, ST, MS1, MS2, MSP1, MSP2 ) IF (WRITE_OGEL == 'Y') THEN - NUM1 = NUM1 + 1 + NUM1 = NUM1 + 1 IF (NUM1 > SIZE_ALLOCATED) THEN WRITE(ERR,9200) SUBR_NAME,SIZE_ALLOCATED WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF OGEL(NUM1,1) = SA OGEL(NUM1,2) = MS1 OGEL(NUM1,3) = ST @@ -218,7 +218,7 @@ SUBROUTINE ONE_D_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG FEMAP_EL_VECS(NUM_FEMAP_ROWS,3) = ST FEMAP_EL_VECS(NUM_FEMAP_ROWS,4) = ST ENDIF - + ELSE FATAL_ERR = FATAL_ERR + 1 @@ -226,8 +226,8 @@ SUBROUTINE ONE_D_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9203) SUBR_NAME, TYPE CALL OUTA_HERE ( 'Y' ) - ENDIF - + ENDIF + RETURN @@ -235,11 +235,11 @@ SUBROUTINE ONE_D_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG ! ********************************************************************************************************************************** 9200 FORMAT(' *ERROR 9200: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' ARRAY OGEL WAS ALLOCATED TO HAVE ',I12,' ROWS. ATTEMPT TO WRITE TO OGEL BEYOND THIS') - + ! ********************************************************************************************************************************** 9203 FORMAT(' *ERROR 9203: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' INCORRECT ELEMENT TYPE = "',A,'"') ! ********************************************************************************************************************************** - + END SUBROUTINE ONE_D_STRAIN_OUTPUTS diff --git a/Source/LK9/L92/ONE_D_STRESS_OUTPUTS.f90 b/Source/LK9/L92/ONE_D_STRESS_OUTPUTS.f90 index 4f02e7a5..9ba618a5 100644 --- a/Source/LK9/L92/ONE_D_STRESS_OUTPUTS.f90 +++ b/Source/LK9/L92/ONE_D_STRESS_OUTPUTS.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ONE_D_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + ! Calculates element stresses for 1D ROD, BAR, ELAS elements ! Calculates element specific stress output from array STRESS (calc'd in subr ELEM_STRE_STRN_ARRAYS) for 1-D elements (ELAS, ROD, ! BAR, BUSH) and puts results into array OGEL for later output to F06 file. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : STRESS, TYPE, ZS @@ -48,19 +48,19 @@ SUBROUTINE ONE_D_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG CHARACTER(1*BYTE) :: MSP1,MSP2,MSP3 ! Output from subr MARGIN used to control how margins of safety printed CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP_EL_VECS - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr INTEGER(LONG) :: ICOL ! An input to subr MARGIN, called by this subr - + REAL(DOUBLE) :: C1,C2 ! Coords of point "C" on cross-section of a CBAR where stress is calc'd REAL(DOUBLE) :: D1,D2 ! Coords of point "D" on cross-section of a CBAR where stress is calc'd REAL(DOUBLE) :: E1,E2 ! Coords of point "E" on cross-section of a CBAR where stress is calc'd REAL(DOUBLE) :: F1,F2 ! Coords of point "F" on cross-section of a CBAR where stress is calc'd REAL(DOUBLE) :: MS1,MS2,MS3 ! Margins of safety calc'd by subr MARGIN - REAL(DOUBLE) :: SA1,SA2,SA3,SA4 ! Stresses at points "C", "D", "E" and "F" at end-a of a CBAR + REAL(DOUBLE) :: SA1,SA2,SA3,SA4 ! Stresses at points "C", "D", "E" and "F" at end-a of a CBAR REAL(DOUBLE) :: SB1,SB2,SB3,SB4 ! Stresses at points "C", "D", "E" and "F" at end-b of a CBAR REAL(DOUBLE) :: SA,ST ! Stresses input to subrs that calc margins of safety REAL(DOUBLE) :: SAMAX,SAMIN ! Max & min stresses from points "C", "D", "E" and "F" at end-a of CBAR @@ -68,13 +68,13 @@ SUBROUTINE ONE_D_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG LOGICAL :: WRITE_NEU INTRINSIC DMAX1,DMIN1 - + WRITE_NEU = (PRTNEU == 'Y') ! ********************************************************************************************************************************** ! Calc engineering stresses from array STRESS and put into array OGEL - + IF (TYPE == 'BAR ') THEN ! BAR1 elements C1 = ZS(1) C2 = ZS(2) @@ -107,7 +107,7 @@ SUBROUTINE ONE_D_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF OGEL(NUM1,1) = SA1 OGEL(NUM1,2) = SA2 OGEL(NUM1,3) = SA3 @@ -124,7 +124,7 @@ SUBROUTINE ONE_D_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF OGEL(NUM1,1) = SB1 OGEL(NUM1,2) = SB2 OGEL(NUM1,3) = SB3 @@ -153,13 +153,13 @@ SUBROUTINE ONE_D_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG ENDIF ELSE IF (TYPE(1:4) == 'BUSH') THEN ! BUSH elements - NUM1 = NUM1 + 1 + NUM1 = NUM1 + 1 IF (NUM1 > SIZE_ALLOCATED) THEN WRITE(ERR,9200) SUBR_NAME,SIZE_ALLOCATED WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF OGEL(NUM1,1) = STRESS(1) OGEL(NUM1,2) = STRESS(2) OGEL(NUM1,3) = STRESS(3) @@ -177,33 +177,33 @@ SUBROUTINE ONE_D_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG ENDIF ELSE IF (TYPE(1:4) == 'ELAS') THEN ! Stresses for ELAS elements IF (WRITE_OGEL == 'Y') THEN - NUM1 = NUM1 + 1 + NUM1 = NUM1 + 1 IF (NUM1 > SIZE_ALLOCATED) THEN WRITE(ERR,9200) SUBR_NAME,SIZE_ALLOCATED WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF OGEL(NUM1,1) = STRESS(1) ENDIF IF (WRITE_NEU .AND. (WRITE_FEMAP == 'Y')) THEN FEMAP_EL_VECS(NUM_FEMAP_ROWS,1) = STRESS(1) FEMAP_EL_VECS(NUM_FEMAP_ROWS,2) = STRESS(1) ENDIF - + ELSE IF (TYPE == 'ROD ') THEN ! ROD1 elements SA = STRESS(1) ST = STRESS(2) ICOL = 1 CALL ROD_MARGIN ( ICOL, SA, ST, MS1, MS2, MSP1, MSP2 ) IF (WRITE_OGEL == 'Y') THEN - NUM1 = NUM1 + 1 + NUM1 = NUM1 + 1 IF (NUM1 > SIZE_ALLOCATED) THEN WRITE(ERR,9200) SUBR_NAME,SIZE_ALLOCATED WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF OGEL(NUM1,1) = SA OGEL(NUM1,2) = MS1 OGEL(NUM1,3) = ST @@ -217,7 +217,7 @@ SUBROUTINE ONE_D_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG FEMAP_EL_VECS(NUM_FEMAP_ROWS,3) = ST FEMAP_EL_VECS(NUM_FEMAP_ROWS,4) = ST ENDIF - + ELSE FATAL_ERR = FATAL_ERR + 1 @@ -225,8 +225,8 @@ SUBROUTINE ONE_D_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9203) SUBR_NAME, TYPE CALL OUTA_HERE ( 'Y' ) - ENDIF - + ENDIF + RETURN @@ -234,11 +234,11 @@ SUBROUTINE ONE_D_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG ! ********************************************************************************************************************************** 9200 FORMAT(' *ERROR 9200: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' ARRAY OGEL WAS ALLOCATED TO HAVE ',I12,' ROWS. ATTEMPT TO WRITE TO OGEL BEYOND THIS') - + ! ********************************************************************************************************************************** 9203 FORMAT(' *ERROR 9203: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' INCORRECT ELEMENT TYPE = "',A,'"') ! ********************************************************************************************************************************** - + END SUBROUTINE ONE_D_STRESS_OUTPUTS diff --git a/Source/LK9/L92/POLYNOM_FIT_STRE_STRN.f90 b/Source/LK9/L92/POLYNOM_FIT_STRE_STRN.f90 index 1ffcf7a9..4dae8595 100644 --- a/Source/LK9/L92/POLYNOM_FIT_STRE_STRN.f90 +++ b/Source/LK9/L92/POLYNOM_FIT_STRE_STRN.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE POLYNOM_FIT_STRE_STRN ( STR_IN, NROW, NCOL, STR_OUT, STR_OUT_PCT_ERR, STR_OUT_ERR_INDEX, PCT_ERR_MAX ) @@ -75,7 +75,7 @@ SUBROUTINE POLYNOM_FIT_STRE_STRN ( STR_IN, NROW, NCOL, STR_OUT, STR_OUT_PCT_ERR, REAL(DOUBLE) :: POLY_PCT_ERR(MAX_STRESS_POINTS) ! 1st val is zero for center stress (not fitted) and remainder are for -! the points fitted (from row 2 to row NCOL; or NCOL-1 values) +! the points fitted (from row 2 to row NCOL; or NCOL-1 values) REAL(DOUBLE), INTENT(OUT) :: STR_OUT_PCT_ERR(MAX_STRESS_POINTS) REAL(DOUBLE) :: PCT_ERR_1STR ! % error from 1 of the NROW stress/strain values @@ -111,7 +111,7 @@ SUBROUTINE POLYNOM_FIT_STRE_STRN ( STR_IN, NROW, NCOL, STR_OUT, STR_OUT_PCT_ERR, DO I=1,NROW STR_OUT(I,J) = STR_IN(I,J) ENDDO - ENDDO + ENDDO ! Calc actual coords of the points for which the BEi, SEi matrices were calculated @@ -123,7 +123,7 @@ SUBROUTINE POLYNOM_FIT_STRE_STRN ( STR_IN, NROW, NCOL, STR_OUT, STR_OUT_PCT_ERR, FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ENDIF - ! For the MIN4/MITC4+ QUAD4 and QUAD8. XEP parametric coords + ! For the MIN4/MITC4+ QUAD4 and QUAD8. XEP parametric coords ! are the Gauss point coords IF ((QUAD4TYP == 'MIN4 ') .OR. & (QUAD4TYP == 'MITC4 ') .OR. & diff --git a/Source/LK9/L92/POLY_FAILURE_INDEX.f90 b/Source/LK9/L92/POLY_FAILURE_INDEX.f90 index a16e5043..d4b84724 100644 --- a/Source/LK9/L92/POLY_FAILURE_INDEX.f90 +++ b/Source/LK9/L92/POLY_FAILURE_INDEX.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE POLY_FAILURE_INDEX ( STREi, STRE_ALLOWABLES, FAILURE_INDEX ) @@ -78,9 +78,9 @@ SUBROUTINE POLY_FAILURE_INDEX ( STREi, STRE_ALLOWABLES, FAILURE_INDEX ) ENDDO ENDDO - XT = STRE_ALLOWABLES(1) ; XC = STRE_ALLOWABLES(2) - YT = STRE_ALLOWABLES(3) ; YC = STRE_ALLOWABLES(4) - ZT = STRE_ALLOWABLES(5) ; ZC = STRE_ALLOWABLES(6) + XT = STRE_ALLOWABLES(1) ; XC = STRE_ALLOWABLES(2) + YT = STRE_ALLOWABLES(3) ; YC = STRE_ALLOWABLES(4) + ZT = STRE_ALLOWABLES(5) ; ZC = STRE_ALLOWABLES(6) R = STRE_ALLOWABLES(7) S = STRE_ALLOWABLES(8) @@ -181,7 +181,7 @@ SUBROUTINE POLY_FAILURE_INDEX ( STREi, STRE_ALLOWABLES, FAILURE_INDEX ) F2(4,4) = ONE/(R*R) F2(5,5) = ONE/(S*S) - F2(6,6) = ONE/(T*T) + F2(6,6) = ONE/(T*T) F2(1,2) = -HALF*ONE/((DSQRT(XT*XC))*(DSQRT(YT*YC))) F2(1,3) = -HALF*ONE/((DSQRT(XT*XC))*(DSQRT(ZT*ZC))) diff --git a/Source/LK9/L92/SHELL_ENGR_FORCE_OGEL.f90 b/Source/LK9/L92/SHELL_ENGR_FORCE_OGEL.f90 index 74980760..be8e40af 100644 --- a/Source/LK9/L92/SHELL_ENGR_FORCE_OGEL.f90 +++ b/Source/LK9/L92/SHELL_ENGR_FORCE_OGEL.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SHELL_ENGR_FORCE_OGEL ( NUM1 ) - + ! Calculates element engineering forces for plate elements from array STRESS (generated in subr ELEM_STRE_STRN_ARRAYS) using FCONV ! (conversion factor from stress to engr force) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NGRID @@ -40,13 +40,13 @@ SUBROUTINE SHELL_ENGR_FORCE_OGEL ( NUM1 ) USE SHELL_ENGR_FORCE_OGEL_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SHELL_ENGR_FORCE_OGEL' INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr INTEGER(LONG) :: I ! DO loop indices - + ! ********************************************************************************************************************************** @@ -56,7 +56,7 @@ SUBROUTINE SHELL_ENGR_FORCE_OGEL ( NUM1 ) WRITE(F06,9200) SUBR_NAME,MAXREQ FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (dim of array OGEL too small), so quit - ENDIF + ENDIF DO I=1,3 OGEL(NUM1,I) = FCONV(1)*STRESS(I) ENDDO @@ -66,7 +66,7 @@ SUBROUTINE SHELL_ENGR_FORCE_OGEL ( NUM1 ) DO I=7,9 OGEL(NUM1,I) = FCONV(3)*STRESS(I) ENDDO - + RETURN @@ -74,7 +74,7 @@ SUBROUTINE SHELL_ENGR_FORCE_OGEL ( NUM1 ) ! ********************************************************************************************************************************** 9200 FORMAT(' *ERROR 9200: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' ARRAY OGEL WAS ALLOCATED TO HAVE ',I12,' ROWS. ATTEMPT TO WRITE TO OGEL BEYOND THIS') - + ! ********************************************************************************************************************************** - END SUBROUTINE SHELL_ENGR_FORCE_OGEL \ No newline at end of file + END SUBROUTINE SHELL_ENGR_FORCE_OGEL diff --git a/Source/LK9/L92/SHELL_STRAIN_OUTPUTS.f90 b/Source/LK9/L92/SHELL_STRAIN_OUTPUTS.f90 index 177ee3ae..594d698f 100644 --- a/Source/LK9/L92/SHELL_STRAIN_OUTPUTS.f90 +++ b/Source/LK9/L92/SHELL_STRAIN_OUTPUTS.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + ! Calculates element specific strain output from array STRAIN (calc'd in subr ELEM_STRE_STRN_ARRAYS) for shell elements (TRIA3, ! QUAD4, SHEAR) and puts results into array OGEL for later output to F06 file. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : ANY_FAILURE_THEORY, FAILURE_THEORY, PCOMP_PROPS, STRAIN, STRESS, TYPE, ZS @@ -39,7 +39,7 @@ SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG USE LINK9_STUFF, ONLY : FTNAME, OGEL USE FEMAP_ARRAYS, ONLY : FEMAP_EL_VECS USE PARAMS, ONLY : PRTNEU - + USE SHELL_STRAIN_OUTPUTS_USE_IFs IMPLICIT NONE @@ -47,14 +47,14 @@ SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SHELL_STRAIN_OUTPUTS' CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP_EL_VECS - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: NUM_ROWS ! Number of rows of stress for an element (plates have 2 ZS vals) - + REAL(DOUBLE) :: ANGLE ! Angle of prin strains in plate elems (calc'd in subr PRINCIPAL_2D) REAL(DOUBLE) :: FAILURE_INDEX ! Failure index (scalar value) REAL(DOUBLE) :: MEAN ! Mean strains @@ -70,7 +70,7 @@ SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG LOGICAL :: WRITE_NEU INTRINSIC DMAX1,DMIN1 - + WRITE_NEU = (PRTNEU == 'Y') @@ -95,7 +95,7 @@ SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF OGEL(NUM1,1) = SX OGEL(NUM1,2) = SY OGEL(NUM1,3) = SXY @@ -173,7 +173,7 @@ SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG NUM_ROWS = 2 IF (TYPE(1:5) == 'SHEAR') THEN NUM_ROWS = 1 - ENDIF + ENDIF DO I=1,NUM_ROWS SX = STRAIN(1) + ZS(I)*STRAIN(4) @@ -189,8 +189,8 @@ SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF - IF (TYPE(1:5) == 'SHEAR') THEN + ENDIF + IF (TYPE(1:5) == 'SHEAR') THEN OGEL(NUM1, 1) = SX OGEL(NUM1, 2) = SY OGEL(NUM1, 3) = SXY @@ -245,8 +245,8 @@ SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG !xx FEMAP_EL_VECS(NUM_FEMAP_ROWS,9*(I-1)+8) = SXYMAX !xx ENDIF ENDIF - ENDDO - + ENDDO + ENDIF ELSE IF (TYPE(1:6) == 'USERIN') THEN ! Stresses for USERIN elements @@ -258,7 +258,7 @@ SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF DO J=1,9 OGEL(NUM1,J) = STRAIN(J) ENDDO @@ -268,7 +268,7 @@ SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG FEMAP_EL_VECS(NUM_FEMAP_ROWS,J) = STRAIN(J) ENDDO ENDIF - + ELSE FATAL_ERR = FATAL_ERR + 1 @@ -276,8 +276,8 @@ SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9203) SUBR_NAME, TYPE CALL OUTA_HERE ( 'Y' ) - ENDIF - + ENDIF + RETURN @@ -285,10 +285,10 @@ SUBROUTINE SHELL_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG ! ********************************************************************************************************************************** 9200 FORMAT(' *ERROR 9200: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' ARRAY OGEL WAS ALLOCATED TO HAVE ',I12,' ROWS. ATTEMPT TO WRITE TO OGEL BEYOND THIS') - + 9203 FORMAT(' *ERROR 9203: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' INCORRECT ELEMENT TYPE = "',A,'"') - + 9205 FORMAT(' *ERROR 9205: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' INVALID ',A,' FAILURE THEORY = ',A,'. VALID ONES ARE: ',A) diff --git a/Source/LK9/L92/SHELL_STRESS_OUTPUTS.f90 b/Source/LK9/L92/SHELL_STRESS_OUTPUTS.f90 index 6f84e842..57bcd336 100644 --- a/Source/LK9/L92/SHELL_STRESS_OUTPUTS.f90 +++ b/Source/LK9/L92/SHELL_STRESS_OUTPUTS.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SHELL_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + ! Calculates element specific stress output from array STRESS (calc'd in subr ELEM_STRE_STRN_ARRAYS) for shell elements (TRIA3, ! QUAD4, SHEAR) and puts results into array OGEL for later output to F06 file - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : ANY_FAILURE_THEORY, FAILURE_THEORY, PCOMP_PROPS, STRAIN, STRESS, TYPE, ZS @@ -39,7 +39,7 @@ SUBROUTINE SHELL_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG USE LINK9_STUFF, ONLY : FTNAME, OGEL USE FEMAP_ARRAYS, ONLY : FEMAP_EL_VECS USE PARAMS, ONLY : PRTNEU - + USE SHELL_STRESS_OUTPUTS_USE_IFs IMPLICIT NONE @@ -47,14 +47,14 @@ SUBROUTINE SHELL_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SHELL_STRESS_OUTPUTS' CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP_EL_VECS - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: NUM_ROWS ! Number of rows of stress for an element (plates have 2 ZS vals) - + REAL(DOUBLE) :: ANGLE ! Angle of prin stresses in plate elems (calc'd in subr PRINCIPAL_2D) REAL(DOUBLE) :: FAILURE_INDEX ! Failure index (scalar value) REAL(DOUBLE) :: MEAN ! Mean stresses @@ -70,13 +70,13 @@ SUBROUTINE SHELL_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG LOGICAL :: WRITE_NEU INTRINSIC DMAX1,DMIN1 - + WRITE_NEU = (PRTNEU == 'Y') ! ********************************************************************************************************************************** ! Calc engineering stresses from array STRESS and put into array OGEL - + IF ((TYPE(1:5) == 'TRIA3') .OR. (TYPE(1:5) == 'QUAD4') .OR. (TYPE(1:5) == 'QUAD8') .OR. (TYPE(1:5) == 'SHEAR')) THEN IF (PCOMP_PROPS == 'Y') THEN @@ -94,7 +94,7 @@ SUBROUTINE SHELL_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF OGEL(NUM1,1) = SX OGEL(NUM1,2) = SY OGEL(NUM1,3) = SXY @@ -168,11 +168,11 @@ SUBROUTINE SHELL_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG ENDIF ELSE ! Not PCOMP - + NUM_ROWS = 2 IF (TYPE(1:5) == 'SHEAR') THEN NUM_ROWS = 1 - ENDIF + ENDIF DO I=1,NUM_ROWS SX = STRESS(1) + ZS(I)*STRESS(4) @@ -189,7 +189,7 @@ SUBROUTINE SHELL_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ENDIF - IF (TYPE(1:5) == 'SHEAR') THEN + IF (TYPE(1:5) == 'SHEAR') THEN OGEL(NUM1, 1) = SX OGEL(NUM1, 2) = SY OGEL(NUM1, 3) = SXY @@ -231,7 +231,7 @@ SUBROUTINE SHELL_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG FEMAP_EL_VECS(NUM_FEMAP_ROWS,11*(I-1)+10) = SXZ FEMAP_EL_VECS(NUM_FEMAP_ROWS,11*(I-1)+11) = SYZ ENDIF - ENDDO + ENDDO ENDIF @@ -244,7 +244,7 @@ SUBROUTINE SHELL_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF DO J=1,9 OGEL(NUM1,J) = STRESS(J) ENDDO @@ -262,8 +262,8 @@ SUBROUTINE SHELL_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9203) SUBR_NAME, TYPE CALL OUTA_HERE ( 'Y' ) - ENDIF - + ENDIF + RETURN @@ -271,14 +271,14 @@ SUBROUTINE SHELL_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG ! ********************************************************************************************************************************** 9200 FORMAT(' *ERROR 9200: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' ARRAY OGEL WAS ALLOCATED TO HAVE ',I12,' ROWS. ATTEMPT TO WRITE TO OGEL BEYOND THIS') - + 9203 FORMAT(' *ERROR 9203: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' INCORRECT ELEMENT TYPE = "',A,'"') - + 9205 FORMAT(' *ERROR 9205: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' INVALID ',A,' FAILURE THEORY = ',A,'. VALID ONES ARE: ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE SHELL_STRESS_OUTPUTS diff --git a/Source/LK9/L92/SOLID_STRAIN_OUTPUTS.f90 b/Source/LK9/L92/SOLID_STRAIN_OUTPUTS.f90 index 8bcb0e0e..b7a66c91 100644 --- a/Source/LK9/L92/SOLID_STRAIN_OUTPUTS.f90 +++ b/Source/LK9/L92/SOLID_STRAIN_OUTPUTS.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SOLID_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + ! Calculates element specific strain outputs from array STRESS (generated in subr ELEM_STRE_STRN_ARRAYS) for solid elements - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : STRAIN, TYPE @@ -38,7 +38,7 @@ SUBROUTINE SOLID_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG USE LINK9_STUFF, ONLY : OGEL USE FEMAP_ARRAYS, ONLY : FEMAP_EL_VECS USE PARAMS, ONLY : PRTNEU - + USE SOLID_STRAIN_OUTPUTS_USE_IFs IMPLICIT NONE @@ -46,13 +46,13 @@ SUBROUTINE SOLID_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SOLID_STRAIN_OUTPUTS' CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP_EL_VECS - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr INTEGER(LONG) :: J ! DO loop indices - + REAL(DOUBLE) :: MEAN ! Mean strains REAL(DOUBLE) :: PRINCIPAL_STRAIN(3)! Principal strains REAL(DOUBLE) :: SIG_OCT ! Octrahedral normal strain @@ -61,13 +61,13 @@ SUBROUTINE SOLID_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG LOGICAL :: WRITE_NEU INTRINSIC DMAX1,DMIN1 - + WRITE_NEU = (PRTNEU == 'Y') ! ********************************************************************************************************************************** ! Calc engineering strains from array STRAIN and put into array OGEL - + IF ((TYPE(1:4) == 'HEXA') .OR. (TYPE(1:5) == 'PENTA') .OR. (TYPE(1:5) == 'TETRA')) THEN CALL PRINCIPAL_3D ( STRAIN, PRINCIPAL_STRAIN, MEAN, VONMISES, SIG_OCT, TAU_OCT ) IF (WRITE_OGEL == 'Y') THEN @@ -77,7 +77,7 @@ SUBROUTINE SOLID_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (dim of array OGEL too small), so quit - ENDIF + ENDIF DO J=1,6 OGEL(NUM1,J) = STRAIN(J) ENDDO @@ -117,8 +117,8 @@ SUBROUTINE SOLID_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9203) SUBR_NAME, TYPE CALL OUTA_HERE ( 'Y' ) - ENDIF - + ENDIF + RETURN @@ -126,10 +126,10 @@ SUBROUTINE SOLID_STRAIN_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG ! ********************************************************************************************************************************** 9200 FORMAT(' *ERROR 9200: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' ARRAY OGEL WAS ALLOCATED TO HAVE ',I12,' ROWS. ATTEMPT TO WRITE TO OGEL BEYOND THIS') - + 9203 FORMAT(' *ERROR 9203: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' INCORRECT ELEMENT TYPE = "',A,'"') - + ! ********************************************************************************************************************************** - + END SUBROUTINE SOLID_STRAIN_OUTPUTS diff --git a/Source/LK9/L92/SOLID_STRESS_OUTPUTS.f90 b/Source/LK9/L92/SOLID_STRESS_OUTPUTS.f90 index fdb0cf3f..c238ae78 100644 --- a/Source/LK9/L92/SOLID_STRESS_OUTPUTS.f90 +++ b/Source/LK9/L92/SOLID_STRESS_OUTPUTS.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SOLID_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OGEL, WRITE_FEMAP ) - + ! Calculates element specific stress outputs from array STRESS (generated in subr ELEM_STRE_STRN_ARRAYS) for solid elements - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MODEL_STUF, ONLY : STRESS, TYPE @@ -38,7 +38,7 @@ SUBROUTINE SOLID_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG USE LINK9_STUFF, ONLY : OGEL USE FEMAP_ARRAYS, ONLY : FEMAP_EL_VECS USE PARAMS, ONLY : PRTNEU - + USE SOLID_STRESS_OUTPUTS_USE_IFs IMPLICIT NONE @@ -46,13 +46,13 @@ SUBROUTINE SOLID_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SOLID_STRESS_OUTPUTS' CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_OGEL ! If 'Y' then write data to array OGEL CHARACTER( 1*BYTE), INTENT(IN) :: WRITE_FEMAP ! If 'Y' then write data to array FEMAP_EL_VECS - + INTEGER(LONG), INTENT(IN) :: SIZE_ALLOCATED ! No. of rows allocated to array that will be written to INTEGER(LONG), INTENT(IN) :: NUM_FEMAP_ROWS ! Number of rows that will be written to FEMAP arrays INTEGER(LONG), INTENT(INOUT) :: NUM1 ! Cum rows written to OGEL prior to running this subr INTEGER(LONG) :: J ! DO loop indices - + REAL(DOUBLE) :: MEAN ! Mean stresses REAL(DOUBLE) :: PRINCIPAL_STRESS(3)! Principal stresses REAL(DOUBLE) :: SIG_OCT ! Octrahedral normal stress @@ -61,13 +61,13 @@ SUBROUTINE SOLID_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG LOGICAL :: WRITE_NEU INTRINSIC DMAX1,DMIN1 - + WRITE_NEU = (PRTNEU == 'Y') ! ********************************************************************************************************************************** ! Calc engineering stresses from array STRESS and put into array OGEL - + IF ((TYPE(1:4) == 'HEXA') .OR. (TYPE(1:5) == 'PENTA') .OR. (TYPE(1:5) == 'TETRA')) THEN CALL PRINCIPAL_3D ( STRESS, PRINCIPAL_STRESS, MEAN, VONMISES, SIG_OCT, TAU_OCT ) IF (WRITE_OGEL == 'Y') THEN @@ -77,7 +77,7 @@ SUBROUTINE SOLID_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9200) SUBR_NAME,SIZE_ALLOCATED FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (dim of array OGEL too small), so quit - ENDIF + ENDIF DO J=1,6 OGEL(NUM1,J) = STRESS(J) ENDDO @@ -117,8 +117,8 @@ SUBROUTINE SOLID_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG WRITE(F06,9203) SUBR_NAME, TYPE CALL OUTA_HERE ( 'Y' ) - ENDIF - + ENDIF + RETURN @@ -126,11 +126,11 @@ SUBROUTINE SOLID_STRESS_OUTPUTS ( SIZE_ALLOCATED, NUM1, NUM_FEMAP_ROWS, WRITE_OG ! ********************************************************************************************************************************** 9200 FORMAT(' *ERROR 9200: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' ARRAY OGEL WAS ALLOCATED TO HAVE ',I12,' ROWS. ATTEMPT TO WRITE TO OGEL BEYOND THIS') - + ! ********************************************************************************************************************************** 9203 FORMAT(' *ERROR 9203: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' INCORRECT ELEMENT TYPE = "',A,'"') - + ! ********************************************************************************************************************************** - + END SUBROUTINE SOLID_STRESS_OUTPUTS diff --git a/Source/LK9/L92/STR_TENSOR_TRANSFORM.f90 b/Source/LK9/L92/STR_TENSOR_TRANSFORM.f90 index 46882b94..969087e1 100644 --- a/Source/LK9/L92/STR_TENSOR_TRANSFORM.f90 +++ b/Source/LK9/L92/STR_TENSOR_TRANSFORM.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE STR_TENSOR_TRANSFORM ( STRESS_TENSOR, STRESS_CORD_SYS ) @@ -110,7 +110,7 @@ SUBROUTINE STR_TENSOR_TRANSFORM ( STRESS_TENSOR, STRESS_CORD_SYS ) IF (ICORD > 0) THEN ! STRESS_CORD_SYS was found so do transformation - DO I=1,3 ! Get TOS from RCORD array + DO I=1,3 ! Get TOS from RCORD array DO J=1,3 K = 3 + 3*(I-1) + J TS0(I,J) = RCORD(ICORD,K) diff --git a/Source/LK9/L92/SUSER1.f90 b/Source/LK9/L92/SUSER1.f90 index 4b415708..5cef19f8 100644 --- a/Source/LK9/L92/SUSER1.f90 +++ b/Source/LK9/L92/SUSER1.f90 @@ -1,47 +1,47 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SUSER1 - + ! Calc's stresses for user supplied subroutine elements - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : TYPE - + USE SUSER1_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SUSER1' - + ! ********************************************************************************************************************************** @@ -49,7 +49,7 @@ SUBROUTINE SUSER1 WRITE(F06,9204) SUBR_NAME,TYPE FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - + RETURN @@ -59,5 +59,5 @@ SUBROUTINE SUSER1 ,/,14X,' CODE NOT WRITTEN FOR ELEMENT TYPE = ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE SUSER1 diff --git a/Source/LK9/L92/TRANSFORM_NODE_FORCES.f90 b/Source/LK9/L92/TRANSFORM_NODE_FORCES.f90 index fae2f81b..830d0f0e 100644 --- a/Source/LK9/L92/TRANSFORM_NODE_FORCES.f90 +++ b/Source/LK9/L92/TRANSFORM_NODE_FORCES.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TRANSFORM_NODE_FORCES ( COORD_SYS ) - + ! Converts node forces for all elements from local to global or local to basic coords. The local to basic transformation is done ! every time this subr is called since that transformation must be done if either basic global is the final system anyway. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, MELGP, NCORD @@ -40,10 +40,10 @@ SUBROUTINE TRANSFORM_NODE_FORCES ( COORD_SYS ) USE TRANSFORM_NODE_FORCES_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'TRANSFORM_NODE_FORCES' CHARACTER(LEN=*), INTENT(IN) :: COORD_SYS ! 'B" for basic, 'G' for global - + INTEGER(LONG) :: GLOBAL_CID ! Global coord. sys. ID for a grid (BGRID(i)) of the element INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: I1 ! Calculated displ component no's for ELAS elems @@ -55,13 +55,13 @@ SUBROUTINE TRANSFORM_NODE_FORCES ( COORD_SYS ) INTEGER(LONG), PARAMETER :: NROW = 3 ! An input to subr MATPUT, MATGET called herein INTEGER(LONG), PARAMETER :: NCOL = 1 ! An input to subr MATPUT, MATGET called herein INTEGER(LONG) :: PROW ! An input to subr MATPUT, MATGET called herein - INTEGER(LONG), PARAMETER :: PCOL = 1 ! An input to subr MATPUT, MATGET called herein + INTEGER(LONG), PARAMETER :: PCOL = 1 ! An input to subr MATPUT, MATGET called herein + - REAL(DOUBLE) :: DXI ! An offset distance in direction 1 REAL(DOUBLE) :: DYI ! An offset distance in direction 2 REAL(DOUBLE) :: DZI ! An offset distance in direction 3 - REAL(DOUBLE) :: T0G(3,3) ! Coord transformation matrix - basic to global + REAL(DOUBLE) :: T0G(3,3) ! Coord transformation matrix - basic to global REAL(DOUBLE) :: DUM1(3) ! Dummy arrays needed in transforming from global to basic coords REAL(DOUBLE) :: DUM2(3) ! Dummy arrays needed in transforming from global to basic coords REAL(DOUBLE) :: DUM3(ELDOF) ! Dummy arrays needed in transforming from global to basic coords @@ -71,11 +71,11 @@ SUBROUTINE TRANSFORM_NODE_FORCES ( COORD_SYS ) ! ********************************************************************************************************************************** NROWS = ELDOF - + DO I=1,NROWS PEB(I) = ZERO PEG(I) = ZERO - ENDDO + ENDDO IF ((TYPE(1:4) /= 'ELAS') .AND. (TYPE /= 'USERIN ')) THEN ! (1) Transform from local to basic. Use TE transpose to get PEB from PEL @@ -96,19 +96,19 @@ SUBROUTINE TRANSFORM_NODE_FORCES ( COORD_SYS ) ICORD = J ! ICORD is the internal coord. sys. ID corresponding to GLOBAL_CID EXIT ENDIF - ENDDO + ENDDO CALL GEN_T0L ( BGRID(I), ICORD, THETAD, PHID, T0G ) DO J=1,2 PROW = 6*(I-1) + 1 + 3*(J-1) CALL MATGET ( PEB, 6*MELGP, 1, PROW, PCOL, NROW, NCOL, DUM1 ) CALL MATMULT_FFF_T ( T0G, DUM1, NROWA, NCOLA, NCOLB, DUM2 ) CALL MATPUT ( DUM2, 6*MELGP, 1, PROW, PCOL, NROW, NCOL, PEG ) - ENDDO + ENDDO ELSE ! If global is basic, get PEB terms directly from PEG PROW = 6*(I-1) + 1 DO J=1,6 PEG(PROW+J-1) = PEB(PROW+J-1) - ENDDO + ENDDO ENDIF ENDDO @@ -123,7 +123,7 @@ SUBROUTINE TRANSFORM_NODE_FORCES ( COORD_SYS ) ENDIF -! Transform element loads at element ends to grids for BAR and ROD. Only need to do this if there are any offsets. +! Transform element loads at element ends to grids for BAR and ROD. Only need to do this if there are any offsets. ! Still use PEG to denote element forces (but now at grids, not elem ends) IF ((TYPE == 'BAR ') .OR. (TYPE == 'ROD ')) THEN @@ -131,7 +131,7 @@ SUBROUTINE TRANSFORM_NODE_FORCES ( COORD_SYS ) PROW = 6*(I-1) + 1 DO J=1,6 DUM3(PROW+J-1) = PEG(PROW+J-1) - ENDDO + ENDDO IF (CAN_ELEM_TYPE_OFFSET == 'Y') THEN IF (OFFSET(I) == 'Y') THEN ! Elem is offset at this node so transform PEG (using DUM3) DXI = OFFDIS(I,1) @@ -161,6 +161,6 @@ SUBROUTINE TRANSFORM_NODE_FORCES ( COORD_SYS ) ! ********************************************************************************************************************************** ! ********************************************************************************************************************************** - + END SUBROUTINE TRANSFORM_NODE_FORCES diff --git a/Source/LK9/L92/TRANSFORM_SHELL_STR.f90 b/Source/LK9/L92/TRANSFORM_SHELL_STR.f90 index 0b178469..8dcc5015 100644 --- a/Source/LK9/L92/TRANSFORM_SHELL_STR.f90 +++ b/Source/LK9/L92/TRANSFORM_SHELL_STR.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE TRANSFORM_SHELL_STR ( T, STR_VEC, SHR_FAC ) ! Transforms a shell stress or strain vector with separate membrane, bending, and transverse shear terms. @@ -32,7 +32,7 @@ SUBROUTINE TRANSFORM_SHELL_STR ( T, STR_VEC, SHR_FAC ) USE PENTIUM_II_KIND, ONLY : DOUBLE USE CONSTANTS_1, ONLY : ZERO - IMPLICIT NONE + IMPLICIT NONE REAL(DOUBLE), INTENT(IN) :: T(3,3) REAL(DOUBLE), INTENT(INOUT) :: STR_VEC(9) @@ -74,5 +74,5 @@ SUBROUTINE TRANSFORM_SHELL_STR ( T, STR_VEC, SHR_FAC ) ! ********************************************************************************************************************************** - + END SUBROUTINE TRANSFORM_SHELL_STR diff --git a/Source/LK9/LINK9/ALLOCATE_FEMAP_DATA.f90 b/Source/LK9/LINK9/ALLOCATE_FEMAP_DATA.f90 index dc2c0820..b368082e 100644 --- a/Source/LK9/LINK9/ALLOCATE_FEMAP_DATA.f90 +++ b/Source/LK9/LINK9/ALLOCATE_FEMAP_DATA.f90 @@ -1,56 +1,56 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_FEMAP_DATA ( NAME_IN, NROWS, NCOLS, CALLING_SUBR ) - + ! Allocate arrays for FEMAP neutral file - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MAX_FEMAP_COLS, TOT_MB_MEM_ALLOC USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE TIMDAT, ONLY : TSEC USE FEMAP_ARRAYS, ONLY : FEMAP_EL_VECS, FEMAP_EL_NUMS - + USE ALLOCATE_FEMAP_DATA_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_FEMAP_DATA' CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Name CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this one CHARACTER(13*BYTE) :: NAME ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in array INTEGER(LONG), INTENT(IN) :: NCOLS ! Number of cols in array FEMAP_EL_VECS INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERR ! STAT from ALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -81,7 +81,7 @@ SUBROUTINE ALLOCATE_FEMAP_DATA ( NAME_IN, NROWS, NCOLS, CALLING_SUBR ) ENDIF ! Allocate arrays for FEMAP - + NAME = 'FEMAP_EL_NUMS' IF (ALLOCATED(FEMAP_EL_NUMS)) THEN WRITE(ERR,990) SUBR_NAME, NAME @@ -157,5 +157,5 @@ SUBROUTINE ALLOCATE_FEMAP_DATA ( NAME_IN, NROWS, NCOLS, CALLING_SUBR ) ,/,14X,' INTENT(IN) ARGUMENT NCOLS = ',I8,' MAY NOT BE GREATER THEN VARIABLE MAX_FEMAP_COLS = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_FEMAP_DATA diff --git a/Source/LK9/LINK9/ALLOCATE_LINK9_STUF.f90 b/Source/LK9/LINK9/ALLOCATE_LINK9_STUF.f90 index 22e2665c..3ec6ae36 100644 --- a/Source/LK9/LINK9/ALLOCATE_LINK9_STUF.f90 +++ b/Source/LK9/LINK9/ALLOCATE_LINK9_STUF.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_LINK9_STUF ( CALLING_SUBR ) - + ! Allocate some arrays for use in LINK9 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, TWO, ONEPP6 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MELGP, MMSPRNT, MOGEL, TOT_MB_MEM_ALLOC @@ -35,22 +35,22 @@ SUBROUTINE ALLOCATE_LINK9_STUF ( CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE LINK9_STUFF, ONLY : GID_OUT_ARRAY, EID_OUT_ARRAY, FTNAME, MAXREQ, MSPRNT, OGEL, POLY_FIT_ERR, & POLY_FIT_ERR_INDEX - + USE ALLOCATE_LINK9_STUF_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_LINK9_STUF' CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERR ! STAT from ALLOCATE INTEGER(LONG) :: JERR ! Local error indicator INTEGER(LONG) :: NROWS ! Nunber of rows in array NAME being allocated INTEGER(LONG) :: NCOLS ! Nunber of cols in array NAME being allocated - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -72,7 +72,7 @@ SUBROUTINE ALLOCATE_LINK9_STUF ( CALLING_SUBR ) JERR = 0 ! Allocate array for GID_OUT_ARRAY - + NAME = 'GID_OUT_ARRAY' NCOLS = MELGP IF (ALLOCATED(GID_OUT_ARRAY)) THEN @@ -125,7 +125,7 @@ SUBROUTINE ALLOCATE_LINK9_STUF ( CALLING_SUBR ) ENDIF ! Allocate arrays for FTNAME - + NAME = 'FTNAME ' IF (ALLOCATED(FTNAME)) THEN WRITE(ERR,990) SUBR_NAME, NAME @@ -149,7 +149,7 @@ SUBROUTINE ALLOCATE_LINK9_STUF ( CALLING_SUBR ) ENDIF ! Allocate arrays for MSPRNT - + NAME = 'MSPRNT ' NCOLS = MMSPRNT IF (ALLOCATED(MSPRNT)) THEN @@ -176,7 +176,7 @@ SUBROUTINE ALLOCATE_LINK9_STUF ( CALLING_SUBR ) ENDIF ! Allocate arrays for OGEL - + NAME = 'OGEL' NCOLS = MOGEL IF (ALLOCATED(OGEL)) THEN @@ -274,5 +274,5 @@ SUBROUTINE ALLOCATE_LINK9_STUF ( CALLING_SUBR ) 1699 FORMAT(' THE SUBR IN WHICH THESE ERRORS WERE FOUND (',A,') WAS CALLED BY SUBR ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_LINK9_STUF diff --git a/Source/LK9/LINK9/DEALLOCATE_FEMAP_DATA.f90 b/Source/LK9/LINK9/DEALLOCATE_FEMAP_DATA.f90 index 19e40084..76f1a5d3 100644 --- a/Source/LK9/LINK9/DEALLOCATE_FEMAP_DATA.f90 +++ b/Source/LK9/LINK9/DEALLOCATE_FEMAP_DATA.f90 @@ -1,51 +1,51 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_FEMAP_DATA - + ! Deallocate arrays for FEMAP neutral file - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE FEMAP_ARRAYS, ONLY : FEMAP_EL_VECS, FEMAP_EL_NUMS - + USE DEALLOCATE_FEMAP_DATA_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_FEMAP_DATA' CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -56,7 +56,7 @@ SUBROUTINE DEALLOCATE_FEMAP_DATA JERR = 0 ! Deallocate array FEMAP_EL_DATA - + IF (ALLOCATED(FEMAP_EL_NUMS)) THEN DEALLOCATE (FEMAP_EL_NUMS,STAT=IERR) NAME = 'FEMAP_EL_NUMS' @@ -66,8 +66,8 @@ SUBROUTINE DEALLOCATE_FEMAP_DATA WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF - + ENDIF + IF (ALLOCATED(FEMAP_EL_VECS)) THEN DEALLOCATE (FEMAP_EL_VECS,STAT=IERR) NAME = 'FEMAP_EL_VECS' @@ -77,8 +77,8 @@ SUBROUTINE DEALLOCATE_FEMAP_DATA WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF - + ENDIF + ! Quit if there were errors IF (JERR /= 0) THEN @@ -91,7 +91,7 @@ SUBROUTINE DEALLOCATE_FEMAP_DATA ! ********************************************************************************************************************************** 992 FORMAT(' *ERROR 992: CANNOT DEALLOCATE MEMORY FROM ARRAY ',A,' IN SUBROUTINE ',A) - + ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_FEMAP_DATA diff --git a/Source/LK9/LINK9/DEALLOCATE_LINK9_STUF.f90 b/Source/LK9/LINK9/DEALLOCATE_LINK9_STUF.f90 index 8ab321f2..8155fe30 100644 --- a/Source/LK9/LINK9/DEALLOCATE_LINK9_STUF.f90 +++ b/Source/LK9/LINK9/DEALLOCATE_LINK9_STUF.f90 @@ -1,52 +1,52 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_LINK9_STUF - + ! Deallocate some arrays used in LINK9 - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE LINK9_STUFF, ONLY : GID_OUT_ARRAY, EID_OUT_ARRAY, FTNAME, MSPRNT, OGEL, POLY_FIT_ERR, & POLY_FIT_ERR_INDEX - + USE DEALLOCATE_LINK9_STUF_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_LINK9_STUF' CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -57,7 +57,7 @@ SUBROUTINE DEALLOCATE_LINK9_STUF JERR = 0 ! Deallocate array GID_OUT_ARRAY - + IF (ALLOCATED(GID_OUT_ARRAY)) THEN DEALLOCATE (GID_OUT_ARRAY,STAT=IERR) NAME = 'GID_OUT_ARRAY' @@ -67,10 +67,10 @@ SUBROUTINE DEALLOCATE_LINK9_STUF WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF - + ENDIF + ! Deallocate array EID_OUT_ARRAY - + IF (ALLOCATED(EID_OUT_ARRAY)) THEN DEALLOCATE (EID_OUT_ARRAY,STAT=IERR) NAME = 'EID_OUT_ARRAY' @@ -80,10 +80,10 @@ SUBROUTINE DEALLOCATE_LINK9_STUF WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF - + ENDIF + ! Deallocate array FTNAME - + IF (ALLOCATED(FTNAME)) THEN DEALLOCATE (FTNAME,STAT=IERR) NAME = 'FTNAME ' @@ -93,10 +93,10 @@ SUBROUTINE DEALLOCATE_LINK9_STUF WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF - + ENDIF + ! Deallocate array MSPRNT - + IF (ALLOCATED(MSPRNT)) THEN DEALLOCATE (MSPRNT,STAT=IERR) NAME = 'MSPRNT ' @@ -106,10 +106,10 @@ SUBROUTINE DEALLOCATE_LINK9_STUF WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF - + ENDIF + ! Deallocate array OGEL - + IF (ALLOCATED(OGEL)) THEN DEALLOCATE (OGEL,STAT=IERR) NAME = 'OGEL ' @@ -119,10 +119,10 @@ SUBROUTINE DEALLOCATE_LINK9_STUF WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF - + ENDIF + ! Deallocate array POLY_FIT_ERR - + IF (ALLOCATED(POLY_FIT_ERR)) THEN DEALLOCATE (POLY_FIT_ERR,STAT=IERR) NAME = 'POLY_FIT_ERR ' @@ -132,10 +132,10 @@ SUBROUTINE DEALLOCATE_LINK9_STUF WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF - + ENDIF + ! Deallocate array POLY_FIT_ERR_INDEX - + IF (ALLOCATED(POLY_FIT_ERR_INDEX)) THEN DEALLOCATE (POLY_FIT_ERR_INDEX,STAT=IERR) NAME = 'POLY_FIT_ERR_INDEX ' @@ -145,8 +145,8 @@ SUBROUTINE DEALLOCATE_LINK9_STUF WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF - + ENDIF + ! Quit if there were errors IF (JERR /= 0) THEN @@ -159,7 +159,7 @@ SUBROUTINE DEALLOCATE_LINK9_STUF ! ********************************************************************************************************************************** 992 FORMAT(' *ERROR 992: CANNOT DEALLOCATE MEMORY FROM ARRAY ',A,' IN SUBROUTINE ',A) - + ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_LINK9_STUF diff --git a/Source/LK9/LINK9/LINK9.f90 b/Source/LK9/LINK9/LINK9.f90 index c7767f2a..0165e61a 100644 --- a/Source/LK9/LINK9/LINK9.f90 +++ b/Source/LK9/LINK9/LINK9.f90 @@ -91,7 +91,7 @@ SUBROUTINE LINK9 ( LK9_PROC_NUM ) USE LINK9_USE_IFs USE LINK_MESSAGE_Interface - + IMPLICIT NONE LOGICAL :: WRITE_F06, WRITE_OP2, WRITE_PCH, WRITE_NEU ! flag diff --git a/Source/LK9/LINK9/LINK9S.f90 b/Source/LK9/LINK9/LINK9S.f90 index 54fd3386..15a93936 100644 --- a/Source/LK9/LINK9/LINK9S.f90 +++ b/Source/LK9/LINK9/LINK9S.f90 @@ -1,28 +1,28 @@ ! ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE LINK9S @@ -60,17 +60,17 @@ SUBROUTINE LINK9S IMPLICIT NONE - CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'LINK9S' + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'LINK9S' CHARACTER(FILE_NAM_MAXLEN*BYTE) :: FILNAM ! Name of a file that is to be opened for reading CHARACTER(132*BYTE) :: MESSAG ! Char message for file name CHARACTER(LEN=DATA_NAM_LEN) :: NAME_Is ! Name of data actually read from file CHARACTER(LEN=DATA_NAM_LEN) :: NAME_ShouldBe ! Name of data that should be read from file INTEGER(LONG) :: I,J ! DO loop indices - INTEGER(LONG) :: INT2 ! An integer value read from a file from a file + INTEGER(LONG) :: INT2 ! An integer value read from a file from a file INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening or reading a file INTEGER(LONG) :: PCOMP_PLIES ! Number of plies in 1 PCOMP entry incl sym plies not explicitly defined - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: REC_NO ! Record number of a record read from a file INTEGER(LONG) :: UNT ! Unit number of a file to be read @@ -125,7 +125,7 @@ SUBROUTINE LINK9S READ(UNT,IOSTAT=IOCHK) SUBLOD(I,2) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO ! Read OGROUT @@ -143,7 +143,7 @@ SUBROUTINE LINK9S DO I=1,NSUB READ(UNT,IOSTAT=IOCHK) OGROUT(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO ! Read OELOUT @@ -161,7 +161,7 @@ SUBROUTINE LINK9S DO I=1,NSUB READ(UNT,IOSTAT=IOCHK) OELOUT(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO ! Read OELDT @@ -196,8 +196,8 @@ SUBROUTINE LINK9S DO J=1,NSUB READ(UNT,IOSTAT=IOCHK) GROUT(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO ! Read ELOUT @@ -220,8 +220,8 @@ SUBROUTINE LINK9S DO J=1,NSUB READ(UNT,IOSTAT=IOCHK) ELOUT(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO ! Read ELDT @@ -239,7 +239,7 @@ SUBROUTINE LINK9S DO I=1,NELE READ(UNT,IOSTAT=IOCHK) ELDT(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO ! Read ANY_xxxx_OUTPUT @@ -291,7 +291,7 @@ SUBROUTINE LINK9S ELSE CALL FILE_CLOSE ( L1D, LINK1D, 'KEEP' ) ENDIF - + ! ********************************************************************************************************************************** ! Open L1G @@ -347,10 +347,10 @@ SUBROUTINE LINK9S DO I = 1,NEDAT READ(UNT,IOSTAT=IOCHK) EDAT(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO ! Read element PARAMETERS - + NAME_ShouldBe = 'ELEM PARAMETERS' REC_NO = 0 @@ -358,25 +358,25 @@ SUBROUTINE LINK9S CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) IF (NAME_Is /= NAME_ShouldBe) CALL DATA_SET_NAME_ERROR ( NAME_ShouldBe, LINK1G, NAME_Is ) - READ(UNT,IOSTAT=IOCHK) IORQ1M ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) IORQ1M ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - READ(UNT,IOSTAT=IOCHK) IORQ1S ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) IORQ1S ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - READ(UNT,IOSTAT=IOCHK) IORQ1B ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) IORQ1B ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - READ(UNT,IOSTAT=IOCHK) IORQ2B ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) IORQ2B ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - READ(UNT,IOSTAT=IOCHK) IORQ2T ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) IORQ2T ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - READ(UNT,IOSTAT=IOCHK) CBMIN3 ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) CBMIN3 ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - READ(UNT,IOSTAT=IOCHK) CBMIN4 ; REC_NO = REC_NO + 1 + READ(UNT,IOSTAT=IOCHK) CBMIN4 ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) ! Read BAR v vectors @@ -394,10 +394,10 @@ SUBROUTINE LINK9S DO I=1,NVVEC READ(UNT,IOSTAT=IOCHK) (VVEC(I,J),J=1,3) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - + ENDDO + ! Read BAR offsets - + NAME_ShouldBe = 'BAR, BEAM OFFSETS' REC_NO = 0 @@ -413,10 +413,10 @@ SUBROUTINE LINK9S READ(UNT,IOSTAT=IOCHK) BAROFF(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) ENDDO - ENDDO - + ENDDO + ! Read BUSH offsets - + NAME_ShouldBe = 'BUSH OFFSETS' REC_NO = 0 @@ -432,10 +432,10 @@ SUBROUTINE LINK9S READ(UNT,IOSTAT=IOCHK) BUSHOFF(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) ENDDO - ENDDO - + ENDDO + ! Read plate offsets - + NAME_ShouldBe = 'PLATE OFFSETS' REC_NO = 0 @@ -449,10 +449,10 @@ SUBROUTINE LINK9S DO I = 1,NPLATEOFF READ(UNT,IOSTAT=IOCHK) PLATEOFF(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - + ENDDO + ! Read plate thicknesses from connection entries - + NAME_ShouldBe = 'PLATE THICKNESSES FROM CONNECTION ENTRIES' REC_NO = 0 @@ -466,8 +466,8 @@ SUBROUTINE LINK9S DO I = 1,NPLATETHICK READ(UNT,IOSTAT=IOCHK) PLATETHICK(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - + ENDDO + ! Read PBAR, RPBAR NAME_ShouldBe = 'PBAR, RPBAR' @@ -493,13 +493,13 @@ SUBROUTINE LINK9S DO J=1,MPBAR READ(UNT,IOSTAT=IOCHK) PBAR(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPBAR READ(UNT,IOSTAT=IOCHK) RPBAR(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PBEAM, RPBEAM NAME_ShouldBe = 'PBEAM, RPBEAM' @@ -525,13 +525,13 @@ SUBROUTINE LINK9S DO J=1,MPBEAM READ(UNT,IOSTAT=IOCHK) PBEAM(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPBEAM READ(UNT,IOSTAT=IOCHK) RPBEAM(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PBUSH, RPBUSH NAME_ShouldBe = 'PBUSH, RPBUSH' @@ -557,13 +557,13 @@ SUBROUTINE LINK9S DO J=1,MPBUSH READ(UNT,IOSTAT=IOCHK) PBUSH(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPBUSH READ(UNT,IOSTAT=IOCHK) RPBUSH(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PROD, RPROD NAME_ShouldBe = 'PROD, RPROD' @@ -589,13 +589,13 @@ SUBROUTINE LINK9S DO J=1,MPROD READ(UNT,IOSTAT=IOCHK) PROD(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPROD READ(UNT,IOSTAT=IOCHK) RPROD(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PELAS, RPELAS NAME_ShouldBe = 'PELAS, RPELAS' @@ -621,13 +621,13 @@ SUBROUTINE LINK9S DO J=1,MPELAS READ(UNT,IOSTAT=IOCHK) PELAS(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPELAS READ(UNT,IOSTAT=IOCHK) RPELAS(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PSHEAR, RPSHEAR NAME_ShouldBe = 'PSHEAR, RPSHEAR' @@ -653,13 +653,13 @@ SUBROUTINE LINK9S DO J=1,MPSHEAR READ(UNT,IOSTAT=IOCHK) PSHEAR(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPSHEAR READ(UNT,IOSTAT=IOCHK) RPSHEAR(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PSHEL, RPSHEL NAME_ShouldBe = 'PSHEL, RPSHEL' @@ -685,13 +685,13 @@ SUBROUTINE LINK9S DO J=1,MPSHEL READ(UNT,IOSTAT=IOCHK) PSHEL(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPSHEL READ(UNT,IOSTAT=IOCHK) RPSHEL(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PCOMP, RPCOMP NAME_ShouldBe = 'PCOMP, RPCOMP' @@ -730,15 +730,15 @@ SUBROUTINE LINK9S DO J=1,MPCOMP0+MPCOMP_PLIES*PCOMP_PLIES READ(UNT,IOSTAT=IOCHK) PCOMP(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPCOMP0+MRPCOMP_PLIES*PCOMP_PLIES READ(UNT,IOSTAT=IOCHK) RPCOMP(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO + + ENDDO - ENDDO - ! Read PSOLID NAME_ShouldBe = 'PSOLID' @@ -760,9 +760,9 @@ SUBROUTINE LINK9S DO J=1,MPSOLID READ(UNT,IOSTAT=IOCHK) PSOLID(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PUSER1, RPUSER1 NAME_ShouldBe = 'PUSER1, RPUSER1' @@ -788,13 +788,13 @@ SUBROUTINE LINK9S DO J=1,MPUSER1 READ(UNT,IOSTAT=IOCHK) PUSER1(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO DO J=1,MRPUSER1 READ(UNT,IOSTAT=IOCHK) RPUSER1(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read PUSERIN NAME_ShouldBe = 'PUSERIN' @@ -816,9 +816,9 @@ SUBROUTINE LINK9S DO J=1,MPUSERIN READ(UNT,IOSTAT=IOCHK) PUSERIN(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read USERIN_MAT_NAMES NAME_ShouldBe = 'USERIN_MAT_NAMES' @@ -840,11 +840,11 @@ SUBROUTINE LINK9S DO J=1,MUSERIN_MAT_NAMES READ(UNT,IOSTAT=IOCHK) USERIN_MAT_NAMES(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO - + ENDDO + ENDDO + ! Read material data from L1G - + NAME_ShouldBe = 'MATL, RMATL' REC_NO = 0 @@ -872,11 +872,11 @@ SUBROUTINE LINK9S DO J=1,MRMATLC READ(UNT,IOSTAT=IOCHK) RMATL(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO ! Read material property angles - + NAME_ShouldBe = 'MATERIAL PROPERTY ANGLES' REC_NO = 0 @@ -890,17 +890,17 @@ SUBROUTINE LINK9S DO I = 1,NMATANGLE READ(UNT,IOSTAT=IOCHK) MATANGLE(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - + ENDDO + IF ((SOL_NAME(1:8) /= 'BUCKLING') .AND. (SOL_NAME(1:8) /= 'NLSTATIC')) THEN CALL FILE_CLOSE ( L1G, LINK1G, L1GSTAT ) ELSE CALL FILE_CLOSE ( L1G, LINK1G, 'KEEP' ) ENDIF - + ! ********************************************************************************************************************************** ! Open L1K and read data - + IF ((SOL_NAME(1:7) == 'STATICS') .OR. (SOL_NAME(1:8) == 'BUCKLING') .OR. (SOL_NAME(1:8) == 'NLSTATIC')) THEN FILNAM = LINK1K @@ -908,9 +908,9 @@ SUBROUTINE LINK9S MESSAG = L1K_MSG IF (NTCARD > 0) THEN - + CALL FILE_OPEN ( UNT, FILNAM, OUNT, 'OLD', MESSAG, 'READ_STIME', 'UNFORMATTED', 'READ', 'REWIND', 'Y', 'N' ) - + ! Read TPNT NAME_ShouldBe = 'TPNT' @@ -932,8 +932,8 @@ SUBROUTINE LINK9S DO J=1,NTSUB READ(UNT,IOSTAT=IOCHK) TPNT(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO ! Read TDATA @@ -951,7 +951,7 @@ SUBROUTINE LINK9S DO I=1,NTDAT READ(UNT,IOSTAT=IOCHK) TDATA(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO ! Read GTEMP @@ -974,8 +974,8 @@ SUBROUTINE LINK9S DO J=1,NTSUB READ(UNT,IOSTAT=IOCHK) GTEMP(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO IF ((SOL_NAME(1:8) /= 'BUCKLING') .AND. (SOL_NAME(1:8) /= 'NLSTATIC')) THEN CALL FILE_CLOSE ( L1K, LINK1K, L1KSTAT ) @@ -989,7 +989,7 @@ SUBROUTINE LINK9S ! ********************************************************************************************************************************** ! Open L1Q and read data - + IF ((SOL_NAME(1:7) == 'STATICS') .OR. (SOL_NAME(1:8) == 'BUCKLING') .OR. (SOL_NAME(1:8) == 'NLSTATIC')) THEN FILNAM = LINK1Q @@ -997,9 +997,9 @@ SUBROUTINE LINK9S MESSAG = L1Q_MSG IF (NPCARD > 0) THEN - + CALL FILE_OPEN ( UNT, FILNAM, OUNT, 'OLD', MESSAG, 'READ_STIME', 'UNFORMATTED', 'READ', 'REWIND', 'Y', 'N' ) - + ! Read PPNT NAME_ShouldBe = 'PPNT' @@ -1021,8 +1021,8 @@ SUBROUTINE LINK9S DO J=1,NSUB READ(UNT,IOSTAT=IOCHK) PPNT(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO ! Read PDATA @@ -1040,7 +1040,7 @@ SUBROUTINE LINK9S DO I=1,NPDAT READ(UNT,IOSTAT=IOCHK) PDATA(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO ! Read PTYPE @@ -1058,7 +1058,7 @@ SUBROUTINE LINK9S DO I=1,NELE READ(UNT,IOSTAT=IOCHK) PTYPE(I) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO ! Read PLOAD4_3D_DATA @@ -1076,7 +1076,7 @@ SUBROUTINE LINK9S DO I=1,NPLOAD4_3D READ(UNT,IOSTAT=IOCHK) (PLOAD4_3D_DATA(I,J),J=1,MPLOAD4_3D_DATA) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, FILNAM, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO + ENDDO IF ((SOL_NAME(1:8) /= 'BUCKLING') .AND. (SOL_NAME(1:8) /= 'NLSTATIC')) THEN CALL FILE_CLOSE ( L1Q, LINK1Q, L1QSTAT ) @@ -1093,5 +1093,5 @@ SUBROUTINE LINK9S RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE LINK9S diff --git a/Source/LK9/LINK9/MAXREQ_OGEL.f90 b/Source/LK9/LINK9/MAXREQ_OGEL.f90 index 0a95a558..f94f66a6 100644 --- a/Source/LK9/LINK9/MAXREQ_OGEL.f90 +++ b/Source/LK9/LINK9/MAXREQ_OGEL.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MAXREQ_OGEL - + ! Count number of output requests to determine required leading dimension of array OGEL so memory can be allocated to it - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, IBIT, LSUB, NDOFG, NELE, NGRID, METYPE, SOL_NAME @@ -38,17 +38,17 @@ SUBROUTINE MAXREQ_OGEL USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_LOC, STRE_LOC, FORC_LOC USE LINK9_STUFF, ONLY : MAXREQ USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE MAXREQ_OGEL_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MAXREQ_OGEL' CHARACTER(25*BYTE) :: GROUT_NAME(0:15) CHARACTER(25*BYTE) :: ELOUT_NAME(0:15) CHARACTER(46*BYTE) :: MPF_MEFM_MSG ! Message written if MAXREQ impacted by req for output of MPF/MEFM CHARACTER( 1*BYTE) :: SKIP_ELEM_TYPE - + INTEGER(LONG) :: NUMBER_ROWS(0:15) ! For elem output, this accounts for more than 1 row written to OGEL INTEGER(LONG) :: I,J,K,L ! DO loop indices INTEGER(LONG) :: IB ! Result of IAND to determine if there is an output request @@ -60,9 +60,9 @@ SUBROUTINE MAXREQ_OGEL INTEGER(LONG) :: NREQ_EL(METYPE,0:15) ! No. of requests in ELOUT for each bit of ELOUT for 1 subcase INTEGER(LONG) :: NREQ_GR(0:15) ! No. of requests in GROUT for each bit of GROUT for 1 subcase - - INTRINSIC :: IAND, MAX - + + INTRINSIC :: IAND, MAX + ! ********************************************************************************************************************************** @@ -86,7 +86,7 @@ SUBROUTINE MAXREQ_OGEL ELOUT_NAME(3) = 'element strain' ! Count MAXGROUT, the max number of requests in GROUT. - + IF (DEBUG(91) == 1) CALL MAXREQ_OGEL_DEB ( '11' ) MAXGROUT = 0 @@ -94,17 +94,17 @@ SUBROUTINE MAXREQ_OGEL DO K=0,15 NREQ_GR(K) = 0 - ENDDO - + ENDDO + DO J=1,NGRID DO K=0,15 IB = IAND(GROUT(J,I),IBIT(K)) IF (IB > 0) THEN NREQ_GR(K) = NREQ_GR(K) + 1 ENDIF - ENDDO - ENDDO - + ENDDO + ENDDO + MPF_MEFM_MSG(1:) = ' ' IF ((MEFFMASS_CALC == 'Y') .OR. (MPFACTOR_CALC == 'Y')) THEN! Need to make sure MAXGROUT can cover MPF, MEFM IF (SOL_NAME /= 'GEN CB MODEL') THEN @@ -133,10 +133,10 @@ SUBROUTINE MAXREQ_OGEL ENDDO IF (DEBUG(91) == 1) CALL MAXREQ_OGEL_DEB ( '15' ) - + ! ********************************************************************************************************************************** ! Count MAXELOUT, the max number of requests in ELOUT. - + DO I=0,15 NUMBER_ROWS(I) = 0 ENDDO @@ -148,8 +148,8 @@ SUBROUTINE MAXREQ_OGEL DO K=0,15 NREQ_EL(L,K) = 0 ENDDO - ENDDO - + ENDDO + DO L=1,METYPE DO J=1,NELE INT_ELEM_ID = ESORT2(J) @@ -163,9 +163,9 @@ SUBROUTINE MAXREQ_OGEL ENDIF ENDIF ENDDO - ENDDO + ENDDO ENDDO - + IF (DEBUG(91) == 1) CALL MAXREQ_OGEL_DEB ( '21' ) DO L=1,METYPE @@ -193,9 +193,9 @@ SUBROUTINE MAXREQ_OGEL ENDIF IF (DEBUG(91) == 1) CALL MAXREQ_OGEL_DEB ( '24' ) ENDDO - + ENDDO - + IF (DEBUG(91) == 1) CALL MAXREQ_OGEL_DEB ( '25' ) MAXREQ = MAX(MAXGROUT,MAXELOUT) @@ -207,10 +207,10 @@ SUBROUTINE MAXREQ_OGEL RETURN ! ********************************************************************************************************************************** - - + + ! ################################################################################################################################## CONTAINS @@ -258,7 +258,7 @@ SUBROUTINE GET_NUM_ROWS_OUTPUT ( LETYPE ) NUMBER_ROWS(K) = NUM_PLIES ! PCOMP requires NUM_PLIES rows of output/elem ELSE IF (STRE_LOC == 'CENTER ') THEN ! PSHELL requires 2 rows of output/elem for STRE_LOC = 'CENTER' - NUMBER_ROWS(K) = 2 + NUMBER_ROWS(K) = 2 ELSE ! PSHELL requires more lines of output for other STRE_LOC NUMBER_ROWS(K) = 2*NUM_SEi(LETYPE) ENDIF @@ -287,7 +287,7 @@ SUBROUTINE GET_NUM_ROWS_OUTPUT ( LETYPE ) NUMBER_ROWS(K) = NUM_PLIES ! PCOMP requires NUM_PLIES rows of output/elem ELSE IF (STRN_LOC == 'CENTER ') THEN ! PSHELL requires 2 rows of output/elem for STRN_LOC = 'CENTER' - NUMBER_ROWS(K) = 2 + NUMBER_ROWS(K) = 2 ELSE ! PSHELL requires more lines of output for other STRN_LOC NUMBER_ROWS(K) = 2*NUM_SEi(LETYPE) ENDIF @@ -371,12 +371,12 @@ SUBROUTINE MAXREQ_OGEL_DEB ( WHICH ) WRITE(F06,2501) MAXELOUT WRITE(F06,1103) - + ELSE IF (WHICH == '31') THEN WRITE(F06,3101) MAXREQ WRITE(F06,3102) - + ENDIF ! ********************************************************************************************************************************** diff --git a/Source/MAIN/GET_MYSTRAN_DIR.f90 b/Source/MAIN/GET_MYSTRAN_DIR.f90 index b389bae8..f382e105 100644 --- a/Source/MAIN/GET_MYSTRAN_DIR.f90 +++ b/Source/MAIN/GET_MYSTRAN_DIR.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_MYSTRAN_DIR ( MYSTRAN_DIR, MYSTRAN_DIR_LEN ) - + ! Gets the environment variable MYSTRAN_DIR that tells Windows where the MYSTRAN executable is located. The user must have set this ! environment variable on their computer @@ -35,12 +35,12 @@ SUBROUTINE GET_MYSTRAN_DIR ( MYSTRAN_DIR, MYSTRAN_DIR_LEN ) USE GET_MYSTRAN_DIR_USE_IFs IMPLICIT NONE - + CHARACTER(FILE_NAM_MAXLEN*BYTE), INTENT(OUT) :: MYSTRAN_DIR ! Directory where executable (and INI file) exist INTEGER(LONG), INTENT(OUT) :: MYSTRAN_DIR_LEN ! Length of MYSTRAN_DIR (not including trailing blanks) INTEGER(LONG) :: I ! DO loop index - + INTRINSIC :: GETENV ! ********************************************************************************************************************************** diff --git a/Source/MAIN/MYSTRAN.f90 b/Source/MAIN/MYSTRAN.f90 index 1d79966e..9cf14d0b 100644 --- a/Source/MAIN/MYSTRAN.f90 +++ b/Source/MAIN/MYSTRAN.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. ! MYSTRAN stands for "MY STRuctural ANalysis and is a general purpose finite element analysis program ! -- --- -- @@ -31,7 +31,7 @@ PROGRAM MYSTRAN ! This is the main program. The major functions are to call the primary subroutines that comprise MYTRAN. The primary subroutines ! are LINK0, LINK1, LINK2, LINK3, LINK4, LINK5, LINK6, LINK9: -! LINK 0: +! LINK 0: ! Read input data deck and check for errors and possible restart ! Process grid and coordinate system input data ! Process Case Control output requests @@ -40,40 +40,40 @@ PROGRAM MYSTRAN ! Calculates rigid body mass properties (Grid Point Weight Generator) ! Process temperature and pressure load input data intp arrays needed for element load calculations -! LINK 1: +! LINK 1: ! Process MPC's and rigid elements into sparse array RMG ! Process all applied forces (grid forces and moments, gravity, pressure, thermal, centrifugal, scalar) into sparse array PG) ! Formulate the G-set sparse stiffness and mass arrays KGG and MGG ! Formulate the G-set sparse differential stiffness array KGGD -! LINK 2: +! LINK 2: ! Reduce the G-set stiffness, mass, load and constraint matrices to the L-set -! LINK 3 (for statics problems only): +! LINK 3 (for statics problems only): ! Solve for the L-set displacements -! LINK 4 (for eigenvalue problems only): +! LINK 4 (for eigenvalue problems only): ! Solve for the L-set eigenvalues and eigenvectors -! LINK 5: +! LINK 5: ! Build the A-set displacements back up to the G-set through use of the constraint matrices -! LINK 6 (for Craig-Bampton substructure model generation only): +! LINK 6 (for Craig-Bampton substructure model generation only): ! Builds a Craig-Bampton model from the input physical model. It is a normal eigenvalue run with SUPORT Bulk Data that defines ! a boundary where the model will connect with other models. All of the matrices needed to couple this model to ones connected -! at its boundary are calculated along with many output transformation matrices used by Craig-Bampton analysts. +! at its boundary are calculated along with many output transformation matrices used by Craig-Bampton analysts. -! LINK 9: +! LINK 9: ! Use the G-set displacements from LINK5 to solve for the outputs requested in Case Control. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - USE IOUNT1, ONLY : BUG, ERR, F06, IN0, IN1, L1A, NEU, SC1 + USE IOUNT1, ONLY : BUG, ERR, F06, IN0, IN1, L1A, NEU, SC1 - USE IOUNT1, ONLY : F06FIL, IN0FIL, INFILE, NEUFIL + USE IOUNT1, ONLY : F06FIL, IN0FIL, INFILE, NEUFIL - USE IOUNT1, ONLY : IN0_MSG, IN1_MSG, L1A_MSG + USE IOUNT1, ONLY : IN0_MSG, IN1_MSG, L1A_MSG USE IOUNT1, ONLY : BUGSTAT, BUGSTAT_OLD, ERRSTAT, ERRSTAT_OLD, PCHSTAT, OP2STAT @@ -83,7 +83,7 @@ PROGRAM MYSTRAN PROG_NAME, RESTART, SETLEN, SOL_NAME, WARN_ERR USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, YEAR, MONTH, DAY, STIME, & - START_HOUR, START_MINUTE, START_SEC, START_SFRAC, START_YEAR, START_MONTH, START_DAY + START_HOUR, START_MINUTE, START_SEC, START_SFRAC, START_YEAR, START_MONTH, START_DAY USE NONLINEAR_PARAMS, ONLY : LOAD_ISTEP, NL_ITER_NUM, NL_MAXITER, NL_NORM, NL_NUM_LOAD_STEPS @@ -105,11 +105,11 @@ PROGRAM MYSTRAN INTEGER(LONG) :: I,J ! DO loop indices - INTEGER(LONG) :: I1 ! Length of file name of LINK1A without the extension - INTEGER(LONG) :: ITER_MAX ! Naximum iterations before quiting + INTEGER(LONG) :: I1 ! Length of file name of LINK1A without the extension + INTEGER(LONG) :: ITER_MAX ! Naximum iterations before quiting INTEGER(LONG) :: NUM_INCL_FILES ! Number of INCLUDE statements found in the Bulk data file INTEGER(LONG) :: NUM_LOAD_STEPS ! Number of steps to divide the load into (1 unless SOL is nonlinear) - INTEGER(LONG) :: OUNT(2) ! File units to write messages to + INTEGER(LONG) :: OUNT(2) ! File units to write messages to REAL(DOUBLE) :: CPU_SECS ! CPU time for job REAL(DOUBLE) :: EPS1 ! Small number with which to compare to 0 @@ -230,12 +230,12 @@ PROGRAM MYSTRAN ENDIF IF (RESTART == 'N') THEN - + IF ((SOL_NAME(1:8) == 'DIFFEREN') .OR. (SOL_NAME(1:8) == 'NLSTATIC')) THEN NUM_LOAD_STEPS = NL_NUM_LOAD_STEPS ITER_MAX = NL_MAXITER ELSE IF ( SOL_NAME(1:8) == 'BUCKLING') THEN - NUM_LOAD_STEPS = 2 ! 1st "load" step is linear statics, 2nd is buckling eigens + NUM_LOAD_STEPS = 2 ! 1st "load" step is linear statics, 2nd is buckling eigens ITER_MAX = 0 ELSE NUM_LOAD_STEPS = 1 @@ -404,7 +404,7 @@ PROGRAM MYSTRAN CALL CLOSE_LIJFILES ( 'FILE_STAT' ) -! Write MYSTRAN END and output file name to screen +! Write MYSTRAN END and output file name to screen WRITE(SC1,151) MONTH,DAY,YEAR,HOUR,MINUTE,SEC,SFRAC CALL WRITE_FILNAM ( F06FIL, SC1, 4 ) @@ -461,9 +461,9 @@ PROGRAM MYSTRAN ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE CALC_CONVERGENCE @@ -487,7 +487,7 @@ SUBROUTINE CALC_CONVERGENCE !zzzz PERCENT_CHANGE(LOAD_ISTEP,NL_ITER_NUM) = ONE_HUNDRED ! Indeterminant but set it to a large number !zzzz ELSE !zzzz PERCENT_CHANGE(LOAD_ISTEP,NL_ITER_NUM) = ZERO -!zzzz ENDIF +!zzzz ENDIF !zzzz ENDIF ENDIF diff --git a/Source/MAIN/MYSTRAN_FILES.f90 b/Source/MAIN/MYSTRAN_FILES.f90 index ad85c6c7..889c39de 100644 --- a/Source/MAIN/MYSTRAN_FILES.f90 +++ b/Source/MAIN/MYSTRAN_FILES.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START_MINUTE, START_SEC, START_SFRAC) - + ! Sets all MYSTRAN file names. Opens all files and closes and deletes them so that no confusion about files if MYSTRAN aborts ! Reopen BUG, ERR, F06 @@ -63,7 +63,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START L2A_MSG, L2B_MSG, L2C_MSG, L2D_MSG, L2E_MSG, L2F_MSG, L2G_MSG, L2H_MSG, L2I_MSG, L2J_MSG, & L2K_MSG, L2L_MSG, L2M_MSG, L2N_MSG, L2O_MSG, L2P_MSG, L2Q_MSG, L2R_MSG, L2S_MSG, L2T_MSG, & L3A_MSG, L4A_MSG, L4B_MSG, L4C_MSG, L4D_MSG, L5A_MSG, L5B_MSG, & - NEU_MSG, F21_MSG, F22_MSG, F23_MSG, F24_MSG, F25_MSG, OP2_MSG, OT4_MSG, OU4_MSG, SPC_MSG + NEU_MSG, F21_MSG, F22_MSG, F23_MSG, F24_MSG, F25_MSG, OP2_MSG, OT4_MSG, OU4_MSG, SPC_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, RESTART USE TIMDAT, ONLY : TSEC, stime @@ -71,7 +71,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START USE MYSTRAN_FILES_USE_IFs IMPLICIT NONE - + LOGICAL :: FILE_EXIST ! T/F depending on whether a file exists CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MYSTRAN_FILES' @@ -87,14 +87,14 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START INTEGER(LONG), INTENT(IN) :: START_DAY ! The day when MYSTRAN started. INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: I1 ! Filename (less extension) length - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr READERR - + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr READERR + ! ********************************************************************************************************************************** ! Default units for writing errors the screen (until LINK1A is read) and set filename length - + OUNT(1) = SC1 OUNT(2) = SC1 - + IF (RESTART == 'Y') THEN I1 = LEN_RESTART_FNAME FILNAM = RESTART_FILNAM @@ -316,7 +316,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( OP2, OP2FIL,'DELETE') ENDIF ENDIF - + F21FIL(1:I1) = FILNAM(1:I1) F21FIL(I1+1:) = 'F21' INQUIRE ( FILE=F21FIL, EXIST=FILE_EXIST ) @@ -329,7 +329,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( F21, F21FIL,'DELETE') ENDIF ENDIF - + F22FIL(1:I1) = FILNAM(1:I1) F22FIL(I1+1:) = 'F22' INQUIRE ( FILE=F22FIL, EXIST=FILE_EXIST ) @@ -342,7 +342,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( F22, F22FIL,'DELETE') ENDIF ENDIF - + F23FIL(1:I1) = FILNAM(1:I1) F23FIL(I1+1:) = 'F23' INQUIRE ( FILE=F23FIL, EXIST=FILE_EXIST ) @@ -355,7 +355,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( F23, F23FIL,'DELETE') ENDIF ENDIF - + F24FIL(1:I1) = FILNAM(1:I1) F24FIL(I1+1:) = 'F24' INQUIRE ( FILE=F24FIL, EXIST=FILE_EXIST ) @@ -368,7 +368,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( F24, F24FIL,'DELETE') ENDIF ENDIF - + F25FIL(1:I1) = FILNAM(1:I1) F25FIL(I1+1:) = 'F25' INQUIRE ( FILE=F25FIL, EXIST=FILE_EXIST ) @@ -381,7 +381,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( F25, F25FIL,'DELETE') ENDIF ENDIF - + LINK1B(1:I1) = FILNAM(1:I1) LINK1B(I1+1:) = 'L1B' INQUIRE ( FILE=LINK1B, EXIST=FILE_EXIST ) @@ -407,7 +407,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1C, LINK1C,'DELETE') ENDIF ENDIF - + LINK1D(1:I1) = FILNAM(1:I1) LINK1D(I1+1:) = 'L1D' INQUIRE ( FILE=LINK1D, EXIST=FILE_EXIST ) @@ -420,7 +420,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1D, LINK1D,'DELETE') ENDIF ENDIF - + LINK1E(1:I1) = FILNAM(1:I1) LINK1E(I1+1:) = 'L1E' INQUIRE ( FILE=LINK1E, EXIST=FILE_EXIST ) @@ -433,7 +433,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1E, LINK1E,'DELETE') ENDIF ENDIF - + LINK1F(1:I1) = FILNAM(1:I1) LINK1F(I1+1:) = 'L1F' INQUIRE ( FILE=LINK1F, EXIST=FILE_EXIST ) @@ -446,7 +446,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1F, LINK1F,'DELETE') ENDIF ENDIF - + LINK1G(1:I1) = FILNAM(1:I1) LINK1G(I1+1:) = 'L1G' INQUIRE ( FILE=LINK1G, EXIST=FILE_EXIST ) @@ -459,7 +459,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1G, LINK1G,'DELETE') ENDIF ENDIF - + LINK1H(1:I1) = FILNAM(1:I1) LINK1H(I1+1:) = 'L1H' INQUIRE ( FILE=LINK1H, EXIST=FILE_EXIST ) @@ -472,7 +472,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1H, LINK1H,'DELETE') ENDIF ENDIF - + LINK1I(1:I1) = FILNAM(1:I1) LINK1I(I1+1:) = 'L1I' INQUIRE ( FILE=LINK1I, EXIST=FILE_EXIST ) @@ -485,7 +485,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1I, LINK1I,'DELETE') ENDIF ENDIF - + LINK1J(1:I1) = FILNAM(1:I1) LINK1J(I1+1:) = 'L1J' INQUIRE ( FILE=LINK1J, EXIST=FILE_EXIST ) @@ -498,7 +498,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1J, LINK1J,'DELETE') ENDIF ENDIF - + LINK1K(1:I1) = FILNAM(1:I1) LINK1K(I1+1:) = 'L1K' INQUIRE ( FILE=LINK1K, EXIST=FILE_EXIST ) @@ -511,7 +511,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1K, LINK1K,'DELETE') ENDIF ENDIF - + LINK1L(1:I1) = FILNAM(1:I1) LINK1L(I1+1:) = 'L1L' INQUIRE ( FILE=LINK1L, EXIST=FILE_EXIST ) @@ -524,7 +524,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1L, LINK1L,'DELETE') ENDIF ENDIF - + LINK1M(1:I1) = FILNAM(1:I1) LINK1M(I1+1:) = 'L1M' INQUIRE ( FILE=LINK1M, EXIST=FILE_EXIST ) @@ -537,7 +537,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1M, LINK1M,'DELETE') ENDIF ENDIF - + LINK1N(1:I1) = FILNAM(1:I1) LINK1N(I1+1:) = 'L1N' INQUIRE ( FILE=LINK1N, EXIST=FILE_EXIST ) @@ -550,7 +550,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1N, LINK1N,'DELETE') ENDIF ENDIF - + LINK1O(1:I1) = FILNAM(1:I1) LINK1O(I1+1:) = 'L1O' INQUIRE ( FILE=LINK1O, EXIST=FILE_EXIST ) @@ -563,7 +563,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1O, LINK1O,'DELETE') ENDIF ENDIF - + LINK1P(1:I1) = FILNAM(1:I1) LINK1P(I1+1:) = 'L1P' INQUIRE ( FILE=LINK1P, EXIST=FILE_EXIST ) @@ -576,7 +576,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1P, LINK1P,'DELETE') ENDIF ENDIF - + LINK1Q(1:I1) = FILNAM(1:I1) LINK1Q(I1+1:) = 'L1Q' INQUIRE ( FILE=LINK1Q, EXIST=FILE_EXIST ) @@ -589,7 +589,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1Q, LINK1Q,'DELETE') ENDIF ENDIF - + LINK1R(1:I1) = FILNAM(1:I1) LINK1R(I1+1:) = 'L1R' INQUIRE ( FILE=LINK1R, EXIST=FILE_EXIST ) @@ -602,7 +602,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1R, LINK1R,'DELETE') ENDIF ENDIF - + LINK1S(1:I1) = FILNAM(1:I1) LINK1S(I1+1:) = 'L1S' INQUIRE ( FILE=LINK1S, EXIST=FILE_EXIST ) @@ -615,7 +615,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1S, LINK1S,'DELETE') ENDIF ENDIF - + LINK1T(1:I1) = FILNAM(1:I1) LINK1T(I1+1:) = 'L1T' INQUIRE ( FILE=LINK1T, EXIST=FILE_EXIST ) @@ -628,7 +628,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1T, LINK1T,'DELETE') ENDIF ENDIF - + LINK1U(1:I1) = FILNAM(1:I1) LINK1U(I1+1:) = 'L1U' INQUIRE ( FILE=LINK1U, EXIST=FILE_EXIST ) @@ -641,7 +641,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1U, LINK1U,'DELETE') ENDIF ENDIF - + LINK1V(1:I1) = FILNAM(1:I1) LINK1V(I1+1:) = 'L1V' INQUIRE ( FILE=LINK1V, EXIST=FILE_EXIST ) @@ -654,7 +654,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1V, LINK1V,'DELETE') ENDIF ENDIF - + LINK1W(1:I1) = FILNAM(1:I1) LINK1W(I1+1:) = 'L1W' INQUIRE ( FILE=LINK1W, EXIST=FILE_EXIST ) @@ -667,7 +667,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1W, LINK1W,'DELETE') ENDIF ENDIF - + LINK1X(1:I1) = FILNAM(1:I1) LINK1X(I1+1:) = 'L1X' INQUIRE ( FILE=LINK1X, EXIST=FILE_EXIST ) @@ -680,7 +680,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1X, LINK1X,'DELETE') ENDIF ENDIF - + LINK1Y(1:I1) = FILNAM(1:I1) LINK1Y(I1+1:) = 'L1Y' INQUIRE ( FILE=LINK1Y, EXIST=FILE_EXIST ) @@ -693,7 +693,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1Y, LINK1Y,'DELETE') ENDIF ENDIF - + LINK1Z(1:I1) = FILNAM(1:I1) LINK1Z(I1+1:) = 'L1Z' INQUIRE ( FILE=LINK1Z, EXIST=FILE_EXIST ) @@ -706,7 +706,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L1Z, LINK1Z,'DELETE') ENDIF ENDIF - + LINK2A(1:I1) = FILNAM(1:I1) LINK2A(I1+1:) = 'L2A' INQUIRE ( FILE=LINK2A, EXIST=FILE_EXIST ) @@ -719,7 +719,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L2A, LINK2A,'DELETE') ENDIF ENDIF - + LINK2B(1:I1) = FILNAM(1:I1) LINK2B(I1+1:) = 'L2B' INQUIRE ( FILE=LINK2B, EXIST=FILE_EXIST ) @@ -732,7 +732,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L2B, LINK2B,'DELETE') ENDIF ENDIF - + LINK2C(1:I1) = FILNAM(1:I1) LINK2C(I1+1:) = 'L2C' INQUIRE ( FILE=LINK2C, EXIST=FILE_EXIST ) @@ -745,7 +745,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L2C, LINK2C,'DELETE') ENDIF ENDIF - + LINK2D(1:I1) = FILNAM(1:I1) LINK2D(I1+1:) = 'L2D' INQUIRE ( FILE=LINK2D, EXIST=FILE_EXIST ) @@ -758,7 +758,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L2D, LINK2D,'DELETE') ENDIF ENDIF - + LINK2E(1:I1) = FILNAM(1:I1) LINK2E(I1+1:) = 'L2E' INQUIRE ( FILE=LINK2E, EXIST=FILE_EXIST ) @@ -771,7 +771,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L2E, LINK2E,'DELETE') ENDIF ENDIF - + LINK2F(1:I1) = FILNAM(1:I1) LINK2F(I1+1:) = 'L2F' INQUIRE ( FILE=LINK2F, EXIST=FILE_EXIST ) @@ -784,7 +784,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L2F, LINK2F,'DELETE') ENDIF ENDIF - + LINK2G(1:I1) = FILNAM(1:I1) LINK2G(I1+1:) = 'L2G' INQUIRE ( FILE=LINK2G, EXIST=FILE_EXIST ) @@ -797,7 +797,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L2G, LINK2G,'DELETE') ENDIF ENDIF - + LINK2H(1:I1) = FILNAM(1:I1) LINK2H(I1+1:) = 'L2H' INQUIRE ( FILE=LINK2H, EXIST=FILE_EXIST ) @@ -810,7 +810,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L2H, LINK2H,'DELETE') ENDIF ENDIF - + LINK2I(1:I1) = FILNAM(1:I1) LINK2I(I1+1:) = 'L2I' INQUIRE ( FILE=LINK2I, EXIST=FILE_EXIST ) @@ -823,7 +823,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L2I, LINK2I,'DELETE') ENDIF ENDIF - + LINK2J(1:I1) = FILNAM(1:I1) LINK2J(I1+1:) = 'L2J' INQUIRE ( FILE=LINK2J, EXIST=FILE_EXIST ) @@ -836,7 +836,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L2J, LINK2J,'DELETE') ENDIF ENDIF - + LINK2K(1:I1) = FILNAM(1:I1) LINK2K(I1+1:) = 'L2K' INQUIRE ( FILE=LINK2K, EXIST=FILE_EXIST ) @@ -849,7 +849,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L2K, LINK2K,'DELETE') ENDIF ENDIF - + LINK2L(1:I1) = FILNAM(1:I1) LINK2L(I1+1:) = 'L2L' INQUIRE ( FILE=LINK2L, EXIST=FILE_EXIST ) @@ -862,7 +862,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L2L, LINK2L,'DELETE') ENDIF ENDIF - + LINK2M(1:I1) = FILNAM(1:I1) LINK2M(I1+1:) = 'L2M' INQUIRE ( FILE=LINK2M, EXIST=FILE_EXIST ) @@ -875,7 +875,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L2M, LINK2M,'DELETE') ENDIF ENDIF - + LINK2N(1:I1) = FILNAM(1:I1) LINK2N(I1+1:) = 'L2N' INQUIRE ( FILE=LINK2N, EXIST=FILE_EXIST ) @@ -979,7 +979,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L3A, LINK3A,'DELETE') ENDIF ENDIF - + LINK4A(1:I1) = FILNAM(1:I1) LINK4A(I1+1:) = 'L4A' INQUIRE ( FILE=LINK4A, EXIST=FILE_EXIST ) @@ -992,7 +992,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L4A, LINK4A,'DELETE') ENDIF ENDIF - + LINK4B(1:I1) = FILNAM(1:I1) LINK4B(I1+1:) = 'L4B' INQUIRE ( FILE=LINK4B, EXIST=FILE_EXIST ) @@ -1005,7 +1005,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L4B, LINK4B,'DELETE') ENDIF ENDIF - + LINK4C(1:I1) = FILNAM(1:I1) LINK4C(I1+1:) = 'L4C' INQUIRE ( FILE=LINK4C, EXIST=FILE_EXIST ) @@ -1018,7 +1018,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L4C, LINK4C,'DELETE') ENDIF ENDIF - + LINK4D(1:I1) = FILNAM(1:I1) LINK4D(I1+1:) = 'L4D' INQUIRE ( FILE=LINK4D, EXIST=FILE_EXIST ) @@ -1031,7 +1031,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L4D, LINK4D,'DELETE') ENDIF ENDIF - + LINK5A(1:I1) = FILNAM(1:I1) LINK5A(I1+1:) = 'L5A' INQUIRE ( FILE=LINK5A, EXIST=FILE_EXIST ) @@ -1044,7 +1044,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L5A, LINK5A,'DELETE') ENDIF ENDIF - + LINK5B(1:I1) = FILNAM(1:I1) LINK5B(I1+1:) = 'L5B' INQUIRE ( FILE=LINK5B, EXIST=FILE_EXIST ) @@ -1057,7 +1057,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START CALL FILE_CLOSE ( L5B, LINK5B,'DELETE') ENDIF ENDIF - + DO I=1,MOU4 OU4FIL(I)(1:I1) = FILNAM(1:I1) OU4FIL(I)(I1+1:) = OU4_EXT(I) @@ -1072,7 +1072,7 @@ SUBROUTINE MYSTRAN_FILES ( START_MONTH, START_DAY, START_YEAR, START_HOUR, START ENDIF ENDIF ENDDO - + RETURN diff --git a/Source/MAIN/PROCESS_INCLUDE_FILES.f90 b/Source/MAIN/PROCESS_INCLUDE_FILES.f90 index 210f24b2..36d1539e 100644 --- a/Source/MAIN/PROCESS_INCLUDE_FILES.f90 +++ b/Source/MAIN/PROCESS_INCLUDE_FILES.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE PROCESS_INCLUDE_FILES ( NUM_INCL_FILES ) @@ -43,7 +43,7 @@ SUBROUTINE PROCESS_INCLUDE_FILES ( NUM_INCL_FILES ) CHARACTER(LEN=EC_ENTRY_LEN) :: CARD ! Exec Control deck card CHARACTER(LEN=EC_ENTRY_LEN) :: CARD1 ! CARD shifted to begin in col 1 - INTEGER(LONG), INTENT(OUT) :: NUM_INCL_FILES ! Number of INCLUDE files in the Bulk Data file + INTEGER(LONG), INTENT(OUT) :: NUM_INCL_FILES ! Number of INCLUDE files in the Bulk Data file INTEGER(LONG) :: CHAR_COL ! Column number on CARD where character CHAR is found INTEGER(LONG) :: IERR = 0 ! Error indicator. INTEGER(LONG) :: IOCHK ! IOSTAT error number when reading a Case Control card from unit IN1 @@ -54,7 +54,7 @@ SUBROUTINE PROCESS_INCLUDE_FILES ( NUM_INCL_FILES ) ! ********************************************************************************************************************************** ! Initialize - NUM_INCL_FILES = 0 + NUM_INCL_FILES = 0 main: DO @@ -65,8 +65,8 @@ SUBROUTINE PROCESS_INCLUDE_FILES ( NUM_INCL_FILES ) ENDIF IF (IOCHK > 0) THEN ! Check if error occurs during read - WRITE(ERR,1010) - WRITE(F06,1010) + WRITE(ERR,1010) + WRITE(F06,1010) WRITE(F06,'(A)') CARD FATAL_ERR = FATAL_ERR + 1 CYCLE main @@ -83,7 +83,7 @@ SUBROUTINE PROCESS_INCLUDE_FILES ( NUM_INCL_FILES ) IF (IERR == 0) THEN CALL RW_INCLUDE_FILES ( INC, IN0 ) ENDIF - ENDIF + ENDIF ENDDO main diff --git a/Source/MAIN/READ_INI.f90 b/Source/MAIN/READ_INI.f90 index 9cec5480..8365d434 100644 --- a/Source/MAIN/READ_INI.f90 +++ b/Source/MAIN/READ_INI.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE READ_INI ( INI_EXIST ) @@ -85,7 +85,7 @@ SUBROUTINE READ_INI ( INI_EXIST ) INTEGER(LONG) :: IOCHK ! IOSTAT error value from OPEN/READ INTEGER(LONG) :: LINE_NUMBER ! Line number in the INI file INTEGER(LONG) :: MYSTRAN_DIR_LEN ! Length of MYSTRAN_DIR (not including trailing blanks) - INTEGER(LONG) :: OUNT(2) ! File units to write messages to + INTEGER(LONG) :: OUNT(2) ! File units to write messages to ! ********************************************************************************************************************************** ! Default units for writing errors the screen (until LINK1A is read) @@ -189,7 +189,7 @@ SUBROUTINE READ_INI ( INI_EXIST ) ELSE EXIT ! Once we get to col where DEFDIR begins, exit loop ENDIF ! ------ - ENDDO + ENDDO DEFDIR(1:) = CARD(IBEGIN:) ELSE IF (CARD(1:8) == 'LINKNOST') THEN @@ -416,7 +416,7 @@ SUBROUTINE READ_INI ( INI_EXIST ) WRITE(SC1,'(1X,A79)') CARD(1:79) WRITE(SC1,1502) !xx WRITE(SC1, * ) - CYCLE + CYCLE ENDIF @@ -424,15 +424,15 @@ SUBROUTINE READ_INI ( INI_EXIST ) IF (IERRFL(I) == 'Y') THEN IERR = IERR + 1 ENDIF - ENDDO + ENDDO DO I=1,10 IERRFL(I) = 'N' FLD_ERR_MSG(I) = 'N' - ENDDO + ENDDO ENDIF - ENDDO + ENDDO CALL FILE_CLOSE ( INI, INIFIL, 'KEEP' ) @@ -453,7 +453,7 @@ SUBROUTINE READ_INI ( INI_EXIST ) IF (IERR > 0) THEN DO WRITE(SC1,1511) - CALL WRITE_FILNAM ( INIFIL, SC1, 1 ) + CALL WRITE_FILNAM ( INIFIL, SC1, 1 ) WRITE(SC1,1512) !xx WRITE(SC1, * ) READ(*,*) RESPONSE @@ -468,7 +468,7 @@ SUBROUTINE READ_INI ( INI_EXIST ) ENDDO ENDIF - RETURN + RETURN ! ********************************************************************************************************************************** 101 FORMAT(A80) @@ -488,9 +488,9 @@ SUBROUTINE READ_INI ( INI_EXIST ) ! ********************************************************************************************************************************** ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## !*********************************************************************************************************************************** @@ -587,7 +587,7 @@ SUBROUTINE READ_INI_LINE ( FNAME, UNIT, CLOSE_STAT, WRT_HDR, WRT_CARD, FLD_ERR_M WRITE(SC1,1511) CHAR8, FNAME FLD_ERR_MSG(3) = 'Y' ENDIF - ENDIF + ENDIF CALL BD_IMBEDDED_BLANK0 ( JCARD_08, 2, 3, 0, 0, 0, 0, 0, 0, WRT_HDR, WRT_CARD, FLD_ERR_MSG ) CALL CARD_FLDS_NOT_BLANK0( JCARD_08, 0, 0, 4, 5, 6, 7, 8, 9, WRT_HDR, WRT_CARD ) @@ -607,27 +607,27 @@ SUBROUTINE READ_INI_LINE ( FNAME, UNIT, CLOSE_STAT, WRT_HDR, WRT_CARD, FLD_ERR_M END SUBROUTINE READ_INI_LINE ! ################################################################################################################################## - + SUBROUTINE I4FLD0 ( JCARDI_08, IFLD, I4INP, WRT_HDR, WRT_CARD, FLD_ERR_MSG ) - + ! Reads 8 column field of INTEGER*4 data - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : IERRFL - + IMPLICIT NONE - + CHARACTER( 8*BYTE), INTENT(IN) :: JCARDI_08 ! The field of 8 characters to read CHARACTER( 1*BYTE), INTENT(INOUT):: FLD_ERR_MSG(10) ! 'Y'/'N' designator of whether error msg has been written for a field CHARACTER( 1*BYTE), INTENT(INOUT):: WRT_CARD ! 'Y', 'N' indicator if line from INI file was written to show errors CHARACTER( 1*BYTE), INTENT(INOUT):: WRT_HDR ! 'Y', 'N' indicator if header msg written when there are errors CHARACTER( 1*BYTE) :: DEC_PT ! 'Y'/'N' indicator of whether a decimal point was founr in JCARDI_08 - + INTEGER(LONG), INTENT(IN) :: IFLD ! Field (2 - 9) of a Bulk Data card to read INTEGER(LONG), INTENT(OUT) :: I4INP ! The 4 byte integer value read INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IOCHK ! IOSTAT error value from READ - + ! ********************************************************************************************************************************** ! Initialize outputs @@ -648,7 +648,7 @@ SUBROUTINE I4FLD0 ( JCARDI_08, IFLD, I4INP, WRT_HDR, WRT_CARD, FLD_ERR_MSG ) IERRFL(IFLD) = 'Y' ENDIF - + ! Scan to make sure there was not a decimal point. IF (JCARDI_08 /= ' ') THEN @@ -673,27 +673,27 @@ SUBROUTINE I4FLD0 ( JCARDI_08, IFLD, I4INP, WRT_HDR, WRT_CARD, FLD_ERR_MSG ) FLD_ERR_MSG = 'Y' ENDIF ENDIF - + RETURN - + ! ********************************************************************************************************************************** 1500 FORMAT(' A decimal pt was found in what is supposed to be an integer number in field ',I2) ! ********************************************************************************************************************************** - + END SUBROUTINE I4FLD0 ! ################################################################################################################################## - + SUBROUTINE BD_IMBEDDED_BLANK0 ( JCARD_08, CF2, CF3, CF4, CF5, CF6, CF7, CF8, CF9, WRT_HDR, WRT_CARD, FLD_ERR_MSG ) - + ! Prepares message when some fields of a Bulk data card imbedded blanks when they should not - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : PROG_NAME IMPLICIT NONE - + CHARACTER( 8*BYTE), INTENT(IN) :: JCARD_08(10) ! The 10 fields of 8 characters making up CARD CHARACTER( 1*BYTE), INTENT(INOUT):: FLD_ERR_MSG(10) ! 'Y'/'N' designator of whether error msg has been written for a field CHARACTER( 1*BYTE), INTENT(INOUT):: WRT_CARD ! 'Y'/'N' indicator if line from INI file was written to show errors @@ -701,7 +701,7 @@ SUBROUTINE BD_IMBEDDED_BLANK0 ( JCARD_08, CF2, CF3, CF4, CF5, CF6, CF7, CF8, CF9 CHARACTER( 1*BYTE) :: ERRORS ! 'Y'/'N' indicator of errors CHARACTER( 1*BYTE) :: FOUND_DATA ! 'Y'/'N' indicator of data found in a Bulk Data card field CHARACTER( 1*BYTE) :: IMB_BLANK(2:9) ! 'Y'/'N' indicator of whether fields 2-9 have imbedded blanks - + INTEGER(LONG), INTENT(IN) :: CF2 ! = 2 if field 2 is to be checked, or 0 otherwise INTEGER(LONG), INTENT(IN) :: CF3 ! = 3 if field 2 is to be checked, or 0 otherwise INTEGER(LONG), INTENT(IN) :: CF4 ! = 4 if field 2 is to be checked, or 0 otherwise @@ -713,7 +713,7 @@ SUBROUTINE BD_IMBEDDED_BLANK0 ( JCARD_08, CF2, CF3, CF4, CF5, CF6, CF7, CF8, CF9 INTEGER(LONG) :: CHK_FLD(2:9) ! Array containing CF2 through CF9 INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: NUMBER(2:9) ! Number of imbedded blanks found in a Bulk Data card field - + ! ********************************************************************************************************************************** ! Load CF2 through CF9 into array CHK_FLD @@ -731,7 +731,7 @@ SUBROUTINE BD_IMBEDDED_BLANK0 ( JCARD_08, CF2, CF3, CF4, CF5, CF6, CF7, CF8, CF9 DO I=2,9 IMB_BLANK(I) = 'N' - ENDDO + ENDDO ! Check fields for any imbedded blanks and set error if so @@ -746,7 +746,7 @@ SUBROUTINE BD_IMBEDDED_BLANK0 ( JCARD_08, CF2, CF3, CF4, CF5, CF6, CF7, CF8, CF9 DO J=8,1,-1 IF(JCARD_08(I)(J:J) /= ' ') THEN FOUND_DATA = 'Y' - ELSE + ELSE IF(FOUND_DATA == 'Y') THEN IMB_BLANK(I) = 'Y' NUMBER(I) = NUMBER(I) + 1 @@ -785,30 +785,30 @@ SUBROUTINE BD_IMBEDDED_BLANK0 ( JCARD_08, CF2, CF3, CF4, CF5, CF6, CF7, CF8, CF9 ! ********************************************************************************************************************************** 1722 FORMAT(' There were ',I2,' imbedded blanks (not allowed) found in field ',I2) - + ! ********************************************************************************************************************************** - + END SUBROUTINE BD_IMBEDDED_BLANK0 ! ################################################################################################################################## - + SUBROUTINE CARD_FLDS_NOT_BLANK0 ( JCARD_08, FLD2, FLD3, FLD4, FLD5, FLD6, FLD7, FLD8, FLD9, WRT_HDR, WRT_CARD ) - + ! Prepares message when some fields of a Bulk data card that should be blank, aren't - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : PROG_NAME - + IMPLICIT NONE - + CHARACTER( 8*BYTE), INTENT(IN) :: JCARD_08(10) ! The 10 fields of 8 characters making up CARD CHARACTER( 1*BYTE), INTENT(INOUT):: WRT_CARD ! 'Y', 'N' indicator if line from INI file was written to show errors CHARACTER( 1*BYTE), INTENT(INOUT):: WRT_HDR ! 'Y', 'N' indicator if header msg written when there are errors - CHARACTER( 1*BYTE) :: COMMENT ! 'Y' or 'N' depending on whether non-blank fields are a comment + CHARACTER( 1*BYTE) :: COMMENT ! 'Y' or 'N' depending on whether non-blank fields are a comment CHARACTER( 8*BYTE) :: MSSG8 ! Message with all fields that are not blank that should be blank CHARACTER( 1*BYTE) :: MSSG1 ! Message that has the field number in it - - INTEGER(LONG), INTENT(IN) :: FLD2 ! Refers to field 2 of a Bulk Data card. If /= 0, then check this field + + INTEGER(LONG), INTENT(IN) :: FLD2 ! Refers to field 2 of a Bulk Data card. If /= 0, then check this field INTEGER(LONG), INTENT(IN) :: FLD3 ! Refers to field 3 of a Bulk Data card. If /= 0, then check this field INTEGER(LONG), INTENT(IN) :: FLD4 ! Refers to field 4 of a Bulk Data card. If /= 0, then check this field INTEGER(LONG), INTENT(IN) :: FLD5 ! Refers to field 5 of a Bulk Data card. If /= 0, then check this field @@ -818,7 +818,7 @@ SUBROUTINE CARD_FLDS_NOT_BLANK0 ( JCARD_08, FLD2, FLD3, FLD4, FLD5, FLD6, FLD7, INTEGER(LONG), INTENT(IN) :: FLD9 ! Refers to field 9 of a Bulk Data card. If /= 0, then check this field INTEGER(LONG) :: ALL_FLDS(2:9) ! Array of the FLDi (2 through 9) INTEGER(LONG) :: I,J ! Do loop indices - + ! ********************************************************************************************************************************** ! Set ALL_FLDS @@ -884,13 +884,13 @@ SUBROUTINE CARD_FLDS_NOT_BLANK0 ( JCARD_08, FLD2, FLD3, FLD4, FLD5, FLD6, FLD7, IF ((JCARD_08(8) /= ' ') .AND. (FLD8 == 8)) THEN MSSG1 = '8' MSSG8 = MSSG8(1:6) // MSSG1(1:1) // MSSG8(8:8) - ENDIF + ENDIF IF ((JCARD_08(9) /= ' ') .AND. (FLD9 == 9)) THEN MSSG1 = '9' MSSG8 = MSSG8(1:7) // MSSG1(1:1) ENDIF - IF (MSSG8 /= ' ') THEN + IF (MSSG8 /= ' ') THEN IF (WRT_HDR == 'N') THEN CALL WRITE_INIFIL_MSG ( '2', INIFIL_NAME_LEN ) WRT_HDR = 'Y' @@ -899,7 +899,7 @@ SUBROUTINE CARD_FLDS_NOT_BLANK0 ( JCARD_08, FLD2, FLD3, FLD4, FLD5, FLD6, FLD7, WRITE(SC1,'(1X,A79)') CARD(1:79) WRT_CARD = 'Y' ENDIF - WRITE(SC1,1726) MSSG8 + WRITE(SC1,1726) MSSG8 ENDIF ENDIF @@ -908,78 +908,78 @@ SUBROUTINE CARD_FLDS_NOT_BLANK0 ( JCARD_08, FLD2, FLD3, FLD4, FLD5, FLD6, FLD7, ! ********************************************************************************************************************************** 1726 FORMAT(' Field(s) ',A8,' should be blank and are ignored') - + ! ********************************************************************************************************************************** - + END SUBROUTINE CARD_FLDS_NOT_BLANK0 ! ################################################################################################################################## - + SUBROUTINE CRDERR0 ( CARD, FLD_ERR_MSG ) - + ! Prints Bulk Data card errors and warnings - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR USE SCONTR, ONLY : IERRFL - + IMPLICIT NONE - + CHARACTER(LEN=*) , INTENT(IN) :: CARD ! A Bulk Data card CHARACTER( 1*BYTE), INTENT(IN) :: FLD_ERR_MSG(10) ! 'Y'/'N' designator of whether error msg has been written for a field CHARACTER( 1*BYTE) :: CPN ! = 'Y' if IERRFL is 'Y' for any Bulk Data card field - + INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** CPN = 'N' DO I=1,10 IF (IERRFL(I) == 'Y') THEN CPN = 'Y' ENDIF - ENDDO - + ENDDO + IF (CPN == 'Y') THEN WRITE(SC1,1501) CARD(1:79) DO I=1,10 IF ((IERRFL(I) == 'Y') .AND. (FLD_ERR_MSG(I) == 'N')) THEN WRITE(SC1,1502) I ENDIF - ENDDO + ENDDO ENDIF - + RETURN ! ********************************************************************************************************************************** 1501 FORMAT(1X,A) 1502 FORMAT(' Format error in field',I3) - + ! ********************************************************************************************************************************** - + END SUBROUTINE CRDERR0 ! ################################################################################################################################## - + SUBROUTINE LEFT_ADJ_BDFLD0 ( CHR8_FLD ) - + ! Shifts an 8 character string so that it is left adjusted - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + IMPLICIT NONE - + CHARACTER(8*BYTE), INTENT(INOUT):: CHR8_FLD ! Char field to left adjust and return - CHARACTER(8*BYTE) :: TCHR8_FLD ! Temporary char field - + CHARACTER(8*BYTE) :: TCHR8_FLD ! Temporary char field + INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** IF (CHR8_FLD(1:1) == ' ') THEN ! We need to shift: - + TCHR8_FLD(1:8) = CHR8_FLD(1:8) ! Set temporary field to CHR8_FLD DO I = 2,8 ! Perform shift @@ -988,33 +988,33 @@ SUBROUTINE LEFT_ADJ_BDFLD0 ( CHR8_FLD ) EXIT ENDIF ENDDO - - CHR8_FLD(1:8) = TCHR8_FLD(1:8) ! Reset CHR*_FLD and return - - ENDIF - + + CHR8_FLD(1:8) = TCHR8_FLD(1:8) ! Reset CHR*_FLD and return + + ENDIF + ! ********************************************************************************************************************************** - + END SUBROUTINE LEFT_ADJ_BDFLD0 ! ################################################################################################################################## - + SUBROUTINE C8FLD0 ( JCARDI_08, IFLD, C8INP ) - + ! Reads a field of CHARACTER data that can be 1 to 8 chars in length - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_BUG, WRT_ERR, ERR, F06 USE SCONTR, ONLY : IERRFL, FATAL_ERR - + IMPLICIT NONE - + CHARACTER( 8*BYTE), INTENT(IN) :: JCARDI_08 ! The field of 8 characters to read CHARACTER(8*BYTE) , INTENT(OUT) :: C8INP ! The character variable to read - + INTEGER(LONG), INTENT(IN) :: IFLD ! Field (2 - 9) of a Bulk Data card to read INTEGER(LONG) :: IOCHK ! IOSTAT error value from READ - + ! ********************************************************************************************************************************** READ(JCARDI_08,'(A8)',IOSTAT=IOCHK) C8INP @@ -1033,29 +1033,29 @@ SUBROUTINE C8FLD0 ( JCARDI_08, IFLD, C8INP ) FATAL_ERR = FATAL_ERR + 1 ENDIF - + RETURN - + ! ********************************************************************************************************************************** - + END SUBROUTINE C8FLD0 ! ################################################################################################################################## - + SUBROUTINE WRITE_INIFIL_MSG ( WHICH_MSG, INIFIL_NAME_LEN ) - + ! Writes message to screen about INIFIL - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE iount1, ONLY : FILE_NAM_MAXLEN - + IMPLICIT NONE - + INTEGER(LONG), PARAMETER :: NUM_MSGS = 2 ! Number of messages to write CHARACTER( 1*BYTE), INTENT(IN) :: WHICH_MSG ! Which message to write to screen CHARACTER(79*BYTE) :: MSG(NUM_MSGS) ! Message to write - + INTEGER(LONG) :: INIFIL_NAME_LEN ! Length of INI file name (incl path) ! ********************************************************************************************************************************** @@ -1082,7 +1082,7 @@ SUBROUTINE WRITE_INIFIL_MSG ( WHICH_MSG, INIFIL_NAME_LEN ) 2000 FORMAT(1X,A) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_INIFIL_MSG END SUBROUTINE READ_INI diff --git a/Source/MAIN/READ_INPUT_FILE_NAME.f90 b/Source/MAIN/READ_INPUT_FILE_NAME.f90 index 97616515..8a9321ed 100644 --- a/Source/MAIN/READ_INPUT_FILE_NAME.f90 +++ b/Source/MAIN/READ_INPUT_FILE_NAME.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE READ_INPUT_FILE_NAME ( INI_EXIST ) @@ -50,8 +50,8 @@ SUBROUTINE READ_INPUT_FILE_NAME ( INI_EXIST ) CHARACTER( 1*BYTE), INTENT(IN) :: INI_EXIST ! 'Y' if file MYSTRAN.INI exists or 'N' otherwise CHARACTER( 1*BYTE) :: CEXT ! = 'Y' if there is an extension following a decimal point in FILNAM - CHARACTER(LEN=LEN(INFILE)) :: FILNAM ! File name - CHARACTER(LEN=LEN(INFILE)) :: DUMFIL ! File name + CHARACTER(LEN=LEN(INFILE)) :: FILNAM ! File name + CHARACTER(LEN=LEN(INFILE)) :: DUMFIL ! File name CHARACTER( 1*BYTE) :: POINT ! = 'Y' if we find a decimal point in INFILE (FILNAM) INTEGER(LONG) :: LEXT ! Length (chars) of input file extension @@ -89,7 +89,7 @@ SUBROUTINE READ_INPUT_FILE_NAME ( INI_EXIST ) ENDIF NC_TOT = NC_DIR ! This is length of DEFDIR including '\' (if needed) - ENDIF + ENDIF NC_FILNAM = 0 FILNAM(1:) = ' ' @@ -116,23 +116,23 @@ SUBROUTINE READ_INPUT_FILE_NAME ( INI_EXIST ) ENDIF INFILE(NC_TOT+1:) = FILNAM(1:) NC_TOT = NC_TOT + NC_FILNAM - + CEXT = 'N' ! If a file extension was not included, add '.DAT' POINT = 'N' inner_1: DO I=NC_TOT,1,-1 IF (INFILE(I:I) == ' ') THEN CYCLE inner_1 - ELSE IF (INFILE(I:I) == '.') THEN ! '.' indicates there is an extension if non white space after it + ELSE IF (INFILE(I:I) == '.') THEN ! '.' indicates there is an extension if non white space after it POINT = 'Y' IF (INFILE(I+1:I+1) == ' ') THEN ! Check if whote space or not after '.' CEXT = 'N' ! All white space after '.', so no file ext. is in INFILE at this point ELSE - CEXT = 'Y' ! Non-white space after '.', so file extension is in INFILE + CEXT = 'Y' ! Non-white space after '.', so file extension is in INFILE EXIT inner_1 ENDIF ENDIF ENDDO inner_1 - + IF (CEXT == 'N') THEN ! If there was no file name extension, add default extension 'DAT' IF ((NC_TOT+4) > FILE_NAM_MAXLEN) THEN WRITE(SC1,1002) FILE_NAM_MAXLEN @@ -145,7 +145,7 @@ SUBROUTINE READ_INPUT_FILE_NAME ( INI_EXIST ) ELSE IF (POINT == 'N') THEN INFILE(NC_TOT+1:) = '.' // 'DAT' NC_TOT = NC_TOT + 4 - ENDIF + ENDIF ENDIF ENDIF @@ -178,7 +178,7 @@ SUBROUTINE READ_INPUT_FILE_NAME ( INI_EXIST ) EXIT outer ENDIF - ENDIF + ENDIF WRITE(SC1,1004) CALL WRITE_FILNAM ( INFILE, SC1, 1 ) WRITE(SC1,1005) @@ -191,7 +191,7 @@ SUBROUTINE READ_INPUT_FILE_NAME ( INI_EXIST ) ENDDO outer -! Count length of extension of INFILE (after '.'). File name must have an extension length of at least 1 character. +! Count length of extension of INFILE (after '.'). File name must have an extension length of at least 1 character. LEXT = 0 DO I=NC_TOT,1,-1 diff --git a/Source/Modules/ALLOCATED_ARRAY_DATA.f90 b/Source/Modules/ALLOCATED_ARRAY_DATA.f90 index cf027ae9..ff907621 100644 --- a/Source/Modules/ALLOCATED_ARRAY_DATA.f90 +++ b/Source/Modules/ALLOCATED_ARRAY_DATA.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATED_ARRAY_DATA diff --git a/Source/Modules/ARPACK/ARPACK_UTIL.f b/Source/Modules/ARPACK/ARPACK_UTIL.f index 01c51a3c..c81714f8 100644 --- a/Source/Modules/ARPACK/ARPACK_UTIL.f +++ b/Source/Modules/ARPACK/ARPACK_UTIL.f @@ -260,4 +260,4 @@ SUBROUTINE DVOUT( LOUT, N, SX, IDIGIT, IFMT ) END SUBROUTINE DVOUT - END MODULE ARPACK_UTIL \ No newline at end of file + END MODULE ARPACK_UTIL diff --git a/Source/Modules/ARPACK_MATRICES_1.f90 b/Source/Modules/ARPACK_MATRICES_1.f90 index e81d144f..792ff122 100644 --- a/Source/Modules/ARPACK_MATRICES_1.f90 +++ b/Source/Modules/ARPACK_MATRICES_1.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ARPACK_MATRICES_1 - -! Matrices used by ARPACK for Lanczos method. - + +! Matrices used by ARPACK for Lanczos method. + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE IMPLICIT NONE - + SAVE LOGICAL , ALLOCATABLE :: SELECT(:) ! See ARPACK subroutine DSBAND for definition @@ -43,5 +43,5 @@ MODULE ARPACK_MATRICES_1 REAL(DOUBLE) , ALLOCATABLE :: VBAS(:,:) ! See ARPACK subroutine DSBAND for definition REAL(DOUBLE) , ALLOCATABLE :: WORKD(:) ! See ARPACK subroutine DSBAND for definition REAL(DOUBLE) , ALLOCATABLE :: WORKL(:) ! See ARPACK subroutine DSBAND for definition - + END MODULE ARPACK_MATRICES_1 diff --git a/Source/Modules/BANDIT/BANDIT_BLOCK_DATA.f90 b/Source/Modules/BANDIT/BANDIT_BLOCK_DATA.f90 index 426ee723..bdff20f1 100644 --- a/Source/Modules/BANDIT/BANDIT_BLOCK_DATA.f90 +++ b/Source/Modules/BANDIT/BANDIT_BLOCK_DATA.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. BLOCK DATA BANDIT_BLOCK_DATA @@ -102,7 +102,7 @@ BLOCK DATA BANDIT_BLOCK_DATA ! For long-field cards, set LEN=2 in ELTYPE. COMMON /ELEM/ NTYPE, VYPE(160), TYPE(160), WYPE(160), ME(160), NELEM(160),MDIM - + INTEGER vype, TYPE, WYPE INTEGER NTYPE ,ME ,NELEM ,MDIM @@ -225,7 +225,7 @@ BLOCK DATA BANDIT_BLOCK_DATA 10 , 10 , 10 , 23 , 23 , 33 , 33 , 44 , 34 , 0 , & ! 131 - 140 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , & ! 141 - 150 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 / ! 151 - 160 - + ! ME(I)=10*NCON+IFLD (for element type I) where ! NCON = Number of connections per element (see subroutine ELTYPE) ! IFLD = Field number of first connection. diff --git a/Source/Modules/BANDIT/BANDIT_FILES.f90 b/Source/Modules/BANDIT/BANDIT_FILES.f90 index 9ab8ebd6..555532ee 100644 --- a/Source/Modules/BANDIT/BANDIT_FILES.f90 +++ b/Source/Modules/BANDIT/BANDIT_FILES.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE BANDIT_FILES ( IOU6, IOU7, IOU8, IOU9, IOU11, IOU12, IOU13, IOU14, IOU15, IOU16, IOU17 ) - + ! Opens all output files and closes and deletes them so that no confusion about files if MYSTRAN aborts USE PENTIUM_II_KIND, ONLY : BYTE, LONG @@ -34,7 +34,7 @@ SUBROUTINE BANDIT_FILES ( IOU6, IOU7, IOU8, IOU9, IOU11, IOU12, IOU13, IOU14, IO USE BANDIT_FILES_USE_IFs IMPLICIT NONE - + LOGICAL :: FILE_EXIST ! T/F depending on whether a file exists CHARACTER(FILE_NAM_MAXLEN*BYTE) :: BANDIT_OUT ! Bandit file name @@ -73,14 +73,14 @@ SUBROUTINE BANDIT_FILES ( IOU6, IOU7, IOU8, IOU9, IOU11, IOU12, IOU13, IOU14, IO INTEGER(LONG), INTENT(IN) :: IOU16 ! Bandit file unit number INTEGER(LONG), INTENT(IN) :: IOU17 ! Bandit file unit number - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr READERR - + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr READERR + ! ********************************************************************************************************************************** ! Default units for writing errors the screen (until LINK1A is read) and set filename length - + OUNT(1) = SC1 OUNT(2) = SC1 - + ! Formatted files. BANDIT_OUT(1:) = ' ' ; OUT_MSG(1:) = ' ' diff --git a/Source/Modules/CC_OUTPUT_DESCRIBERS.f90 b/Source/Modules/CC_OUTPUT_DESCRIBERS.f90 index c56a55fb..a62427b2 100644 --- a/Source/Modules/CC_OUTPUT_DESCRIBERS.f90 +++ b/Source/Modules/CC_OUTPUT_DESCRIBERS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_OUTPUT_DESCRIBERS diff --git a/Source/Modules/COL_VECS.f90 b/Source/Modules/COL_VECS.f90 index 7fb55e10..04d1be69 100644 --- a/Source/Modules/COL_VECS.f90 +++ b/Source/Modules/COL_VECS.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE COL_VECS - + ! 1D column vectors USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE IMPLICIT NONE - + SAVE REAL(DOUBLE) , ALLOCATABLE :: UA_COL(:) ! A-set displ vector for 1 soln vec @@ -71,8 +71,8 @@ MODULE COL_VECS REAL(DOUBLE) , ALLOCATABLE :: PL_COL(:) ! L-set load vector for 1 soln vec REAL(DOUBLE) , ALLOCATABLE :: QGm_COL(:) ! G-set MPC constraint load vector for 1 soln vec REAL(DOUBLE) , ALLOCATABLE :: QGm0_COL(:) ! G-set MPC vector for 1 soln vec transformed from global to basic - REAL(DOUBLE) , ALLOCATABLE :: QGr_COL(:) ! G-set I/F force vec for 1 soln vec (G-set merge of QR_COL w/ zeros) - REAL(DOUBLE) , ALLOCATABLE :: QGs_COL(:) ! G-set SPC constr vec for 1 soln vec (G-set merge of QS_COL w/ zeros) + REAL(DOUBLE) , ALLOCATABLE :: QGr_COL(:) ! G-set I/F force vec for 1 soln vec (G-set merge of QR_COL w/ zeros) + REAL(DOUBLE) , ALLOCATABLE :: QGs_COL(:) ! G-set SPC constr vec for 1 soln vec (G-set merge of QS_COL w/ zeros) REAL(DOUBLE) , ALLOCATABLE :: QGs0_COL(:) ! G-set SPC vector for 1 soln vec transformed from global to basic REAL(DOUBLE) , ALLOCATABLE :: QM_COL(:) ! M-set MPC constraint load vector for 1 soln vec diff --git a/Source/Modules/CONSTANTS_1.f90 b/Source/Modules/CONSTANTS_1.f90 index 985658bb..2f2b5e5a 100644 --- a/Source/Modules/CONSTANTS_1.f90 +++ b/Source/Modules/CONSTANTS_1.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CONSTANTS_1 @@ -40,8 +40,8 @@ MODULE CONSTANTS_1 REAL(DOUBLE), PARAMETER :: ONEPM14 = 1.0E-14_QUAD REAL(DOUBLE), PARAMETER :: ONEPM8 = 1.0E-08_QUAD REAL(DOUBLE), PARAMETER :: ONEPM6 = 1.0E-06_QUAD - REAL(DOUBLE), PARAMETER :: ONEPM5 = 1.0E-05_QUAD - REAL(DOUBLE), PARAMETER :: ONEPM4 = 1.0E-04_QUAD + REAL(DOUBLE), PARAMETER :: ONEPM5 = 1.0E-05_QUAD + REAL(DOUBLE), PARAMETER :: ONEPM4 = 1.0E-04_QUAD REAL(DOUBLE), PARAMETER :: ONE = 1.0_QUAD REAL(DOUBLE), PARAMETER :: TWO = 2.0_QUAD REAL(DOUBLE), PARAMETER :: THREE = 3.0_QUAD @@ -72,4 +72,4 @@ MODULE CONSTANTS_1 REAL(DOUBLE), PARAMETER :: CONV_DEG_RAD = PI/ONE80 REAL(DOUBLE), PARAMETER :: CONV_RAD_DEG = ONE80/PI - END MODULE CONSTANTS_1 + END MODULE CONSTANTS_1 diff --git a/Source/Modules/CONSTANTS_GAUSS.f90 b/Source/Modules/CONSTANTS_GAUSS.f90 index 71b6c2c9..5b8f5a8b 100644 --- a/Source/Modules/CONSTANTS_GAUSS.f90 +++ b/Source/Modules/CONSTANTS_GAUSS.f90 @@ -1,43 +1,43 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CONSTANTS_GAUSS - -! Real parameters used in subroutine ORDER for Gaussian integration - + +! Real parameters used in subroutine ORDER for Gaussian integration + USE PENTIUM_II_KIND, ONLY : DOUBLE IMPLICIT NONE SAVE - + REAL(DOUBLE), PARAMETER :: SSV(29) = (/ 0.577350269189626D0, & ! SSV( 1) 0.774596669241483D0, & ! SSV( 2) - 0.000000000000000D0, & ! SSV( 3) - 0.861136311594053D0, & ! SSV( 4) + 0.000000000000000D0, & ! SSV( 3) + 0.861136311594053D0, & ! SSV( 4) 0.339981043584856D0, & ! SSV( 5) 0.906179845938664D0, & ! SSV( 6) 0.538469310105683D0, & ! SSV( 7) @@ -63,7 +63,7 @@ MODULE CONSTANTS_GAUSS 0.679409568299024D0, & ! SSV(27) 0.433395394129247D0, & ! SSV(28) 0.148874338981631D0 /) ! SSV(29) - + REAL(DOUBLE), PARAMETER :: HHV(29) = (/ 1.000000000000000D0, & ! HHV( 1) 0.555555555555556D0, & ! HHV( 2) 0.888888888888889D0, & ! HHV( 3) diff --git a/Source/Modules/DEBUG_PARAMETERS.f90 b/Source/Modules/DEBUG_PARAMETERS.f90 index 1412adfe..1d5b919c 100644 --- a/Source/Modules/DEBUG_PARAMETERS.f90 +++ b/Source/Modules/DEBUG_PARAMETERS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEBUG_PARAMETERS @@ -48,49 +48,49 @@ MODULE DEBUG_PARAMETERS ! DEBUG 5 = 1 print Gauss quadriture formula abscissa's and weights calculated in subr ORDER ! DEBUG 6 = 1 print some quad element data to BUG file (over and above what is printed with C.C ELDATA command) ! = 2 print some hexa element data to BUG file (over and above what is printed with C.C ELDATA command) -! DEBUG 7 = 1 print arrays ESORT1, ESORT2, EPNT and ETYPE in subr ELESORT before/after sorting elements +! DEBUG 7 = 1 print arrays ESORT1, ESORT2, EPNT and ETYPE in subr ELESORT before/after sorting elements ! DEBUG 8 = 1 print grid temperature data in subr TEMPERATURE_DATA_PROC ! = 2 print elem temperature data in subr TEMPERATURE_DATA_PROC ! = 3 print both grid and elem temperature data in subr TEMPERATURE_DATA_PROC ! DEBUG 9 > 0 print debug info in subr PINFLG (pin flag processing for elements) ! DEBUG 10 = 11 or 33 prints data on algorithm to create arrays STFKEY, STFPNT, STFCOL, STF at end of subr ESP -! = 12 or 32 prints detailed data on algorithm to create arrays STFKEY, STFPNT, STFCOL, STF in subr SPARSE -! = 13 or 33 also prints template of nonzero terms in K in subr ESP if PARAM SETLKTK = 1 or 2 +! = 12 or 32 prints detailed data on algorithm to create arrays STFKEY, STFPNT, STFCOL, STF in subr SPARSE +! = 13 or 33 also prints template of nonzero terms in K in subr ESP if PARAM SETLKTK = 1 or 2 ! = 21 or 33 prints data on algorithm to create arrays EMSKEY, EMSPNT, EMSCOL, EMS at end of subr ESP -! = 22 or 32 prints detailed data on algorithm to create arrays EMSKEY, EMSPNT, EMSCOL, EMS in subr SPARSE +! = 22 or 32 prints detailed data on algorithm to create arrays EMSKEY, EMSPNT, EMSCOL, EMS in subr SPARSE ! DEBUG 11 = 1 print individual 6x6 r.b. displ matrices in basic and global coords for each grid (subr RB_DISP_MATRIX_PROC) ! = 2 print ngrid by 6 rigid body displ matrix in global coords for the model ! = 3 print both ! DEBUG 12 = 1 Use BAR K1 and K2 shear factors in calculating stiffness matrix when I12 /= 0 as well as when I12 = 0 -! DEBUG 13 = 1 print GRID_SEQ and INV_GRID_SEQ table -! DEBUG 14 = 1 print matrices generated in the rigid element generation subr's +! DEBUG 13 = 1 print GRID_SEQ and INV_GRID_SEQ table +! DEBUG 14 = 1 print matrices generated in the rigid element generation subr's ! DEBUG 15 = 1 print concentrated mass data in subrs CONM2_PROC_1 and CONM2_PROC_2 ! DEBUG 16 = 1 use static equivalent instead of work equivalent pressure loads in subrs QPLT1, TPLT2 - + ! DEBUG 17 > 0 print some diagnostic info in subr KGG_SINGULARITY_PROC for grids that have AUTOSPC'd components ! > 1 do above for all grids (not just ones that have AUTOSPC's) ! DEBUG 18 > 0 print diagnostics in subr QMEM1 regarding checks on the BMEAN matrix satisfying R.B. motion -! DEBUG 19 = 1 print output from subr STOKEN (which, among other uses, processes Case Control SET cards) +! DEBUG 19 = 1 print output from subr STOKEN (which, among other uses, processes Case Control SET cards) ! DEBUG 20 = 1 bypass the simple solution for GMN when RMM is diagonal. Use subr SOLVE_GMN instead - + ! DEBUG 21 = 0 In subr STIFF_MAT_EQUIL_CHK use MATMULT_SFF to multiply stiffness matrix times rigid body displs ! = 1 In subr STIFF_MAT_EQUIL_CHK use DSBMV to multiply stiffness matrix times rigid body displs ! DEBUG 22 = 1 print RBMAT in subr STIFF_MAT_EQUIL_CHK ! DEBUG 23 > 0 do equil checks on stiffness matrix even though model has SPOINT's -! DEBUG 24 = 1 or 3 print KFSe matrix, 2 or 3 print KSSe matrix in subrs REDUCE_N_FS, REDUCE_PN_TO_PF +! DEBUG 24 = 1 or 3 print KFSe matrix, 2 or 3 print KSSe matrix in subrs REDUCE_N_FS, REDUCE_PN_TO_PF ! DEBUG 25 = 1 or 3 print PFYS matrix, 2 or 3 print QSYS matrix in subrs REDUCE_N_FS, REDUCE_PN_TO_PF ! DEBUG 26 = 1 print YSe matrix (S-set enforcorced displs) in REDUCE_N_FS ! DEBUG 27 Not used ! DEBUG 28 Not used ! DEBUG 29 Not used -! DEBUG 30 Not used +! DEBUG 30 Not used ! DEBUG 31 = 1 print KLL stiff matrix in subr LINK3 ! DEBUG 32 = 1 print PL load matrix in subr LINK3 ! DEBUG 33 = 1 print UL displ matrix @@ -98,7 +98,7 @@ MODULE DEBUG_PARAMETERS ! 2 or 3 print ABAND equil'd in LINK3 ! DEBUG 35 Not used ! DEBUG 36 = 1 print grid 6x6 mass for every grid in LINK2 -! DEBUG 37 Not used +! DEBUG 37 Not used ! DEBUG 38 Not used ! DEBUG 39 Not used diff --git a/Source/Modules/DERIVED_DATA_TYPES.f90 b/Source/Modules/DERIVED_DATA_TYPES.f90 index 237d0d49..fc0b3d87 100644 --- a/Source/Modules/DERIVED_DATA_TYPES.f90 +++ b/Source/Modules/DERIVED_DATA_TYPES.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DERIVED_DATA_TYPES USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - + IMPLICIT NONE TYPE :: INT2_REAL1 diff --git a/Source/Modules/DOF_TABLES.f90 b/Source/Modules/DOF_TABLES.f90 index e13cffaa..3af6dbe5 100644 --- a/Source/Modules/DOF_TABLES.f90 +++ b/Source/Modules/DOF_TABLES.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DOF_TABLES @@ -32,15 +32,15 @@ MODULE DOF_TABLES USE SCONTR, ONLY : TSET_CHR_LEN IMPLICIT NONE - + SAVE CHARACTER(LEN(TSET_CHR_LEN)), ALLOCATABLE & - :: TSET(:,:) + :: TSET(:,:) CHARACTER(LEN(TSET_CHR_LEN)), ALLOCATABLE & - :: USET(:,:) + :: USET(:,:) CHARACTER(2*BYTE) :: USETSTR_TABLE(16,2) @@ -55,4 +55,4 @@ MODULE DOF_TABLES INTEGER(LONG), ALLOCATABLE :: TDOF_ROW_START(:) ! Row number in TDOF where data begins for a GRID or SPOINT - END MODULE DOF_TABLES \ No newline at end of file + END MODULE DOF_TABLES diff --git a/Source/Modules/EIGEN_MATRICES_1.f90 b/Source/Modules/EIGEN_MATRICES_1.f90 index 1766a5b1..5d9458fc 100644 --- a/Source/Modules/EIGEN_MATRICES_1.f90 +++ b/Source/Modules/EIGEN_MATRICES_1.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EIGEN_MATRICES_1 - + ! Matrices used in eigenvalue analyses - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE IMPLICIT NONE - + SAVE INTEGER(LONG), ALLOCATABLE :: MODE_NUM(:) ! Integer array of mode numbers @@ -43,5 +43,5 @@ MODULE EIGEN_MATRICES_1 REAL(DOUBLE) , ALLOCATABLE :: MEFFMASS(:,:) ! Modal effective masses REAL(DOUBLE) , ALLOCATABLE :: MPFACTOR_N6(:,:) ! Modal participation factors rel to 6 displ comps at MEFMGRID REAL(DOUBLE) , ALLOCATABLE :: MPFACTOR_NR(:,:) ! Modal participation factors for all NDOFR DOF's - + END MODULE EIGEN_MATRICES_1 diff --git a/Source/Modules/EMS_ARRAYS.f90 b/Source/Modules/EMS_ARRAYS.f90 index c956a782..f79fd03f 100644 --- a/Source/Modules/EMS_ARRAYS.f90 +++ b/Source/Modules/EMS_ARRAYS.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EMS_ARRAYS - + ! Initial, linked list, representation of the G-set mass matrix for elem mass. This is the form in which the individual element mass ! matrices are assembled into the system mass matrix in subr EMP. @@ -34,15 +34,15 @@ MODULE EMS_ARRAYS USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE IMPLICIT NONE - + SAVE INTEGER(LONG), ALLOCATABLE :: EMSCOL(:) ! See explanation below INTEGER(LONG), ALLOCATABLE :: EMSPNT(:) ! See explanation below INTEGER(LONG), ALLOCATABLE :: EMSKEY(:) ! See explanation below - + REAL(DOUBLE) , ALLOCATABLE :: EMS(:) ! See explanation below - + ! EMS(I) = 1D real array of the nonzero terms, above the diag, in the G-set elem mass matrix. Size is NTERM_EMG. @@ -56,6 +56,6 @@ MODULE EMS_ARRAYS ! Size is NTERM_EMG. ! EMSCOL(I) = 1D integer array of the column numbers of the terms in EMS(I). Size is NTERM_EMG. - - + + END MODULE EMS_ARRAYS diff --git a/Source/Modules/FEMAP_ARRAYS.f90 b/Source/Modules/FEMAP_ARRAYS.f90 index 018546c2..8245e2b3 100644 --- a/Source/Modules/FEMAP_ARRAYS.f90 +++ b/Source/Modules/FEMAP_ARRAYS.f90 @@ -1,41 +1,41 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FEMAP_ARRAYS - + ! Arrays needed to be allocated for output vectors for FEMAP USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE IMPLICIT NONE - + SAVE INTEGER(LONG) , ALLOCATABLE :: FEMAP_EL_NUMS(:,:)! Array of elem and ply numbers for terms in FEMAP_ELEM_DATA REAL(DOUBLE) , ALLOCATABLE :: FEMAP_EL_VECS(:,:)! Real elem values for one FEMAP output vector for elem related outputs - + END MODULE FEMAP_ARRAYS diff --git a/Source/Modules/FULL_MATRICES.f90 b/Source/Modules/FULL_MATRICES.f90 index b2d17886..668e6ef4 100644 --- a/Source/Modules/FULL_MATRICES.f90 +++ b/Source/Modules/FULL_MATRICES.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FULL_MATRICES - + ! Arrays for full matrices. In the early days of MYSTRN, the capability for using full 2-D arrays for matrices (KGG stiffness, etc) ! was allowed. As MYSTRAN grew to employ sparse matrix technology, this full matrix capability was only used to make sure that the ! sparse algorithms coded were working properly. As of approx 2005, the full capability can be considered obsolete. @@ -33,7 +33,7 @@ MODULE FULL_MATRICES USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE IMPLICIT NONE - + SAVE REAL(DOUBLE) , ALLOCATABLE :: KGG_FULL(:,:) ! Full representation of KGG stiff matrix @@ -46,8 +46,8 @@ MODULE FULL_MATRICES REAL(DOUBLE) , ALLOCATABLE :: MNM_FULL(:,:) ! Full representation of MNM mass matrix REAL(DOUBLE) , ALLOCATABLE :: MMM_FULL(:,:) ! Full representation of MMM mass matrix - REAL(DOUBLE) , ALLOCATABLE :: PN_FULL(:,:) ! Full representation of PN load vectors - REAL(DOUBLE) , ALLOCATABLE :: PM_FULL(:,:) ! Full representation of PM load vectors + REAL(DOUBLE) , ALLOCATABLE :: PN_FULL(:,:) ! Full representation of PN load vectors + REAL(DOUBLE) , ALLOCATABLE :: PM_FULL(:,:) ! Full representation of PM load vectors REAL(DOUBLE) , ALLOCATABLE :: KFF_FULL(:,:) ! Full representation of KFF stiff matrix REAL(DOUBLE) , ALLOCATABLE :: KFS_FULL(:,:) ! Full representation of KFS stiff matrix @@ -59,8 +59,8 @@ MODULE FULL_MATRICES REAL(DOUBLE) , ALLOCATABLE :: MFS_FULL(:,:) ! Full representation of MFS mass matrix REAL(DOUBLE) , ALLOCATABLE :: MSS_FULL(:,:) ! Full representation of MSS mass matrix - REAL(DOUBLE) , ALLOCATABLE :: PF_FULL(:,:) ! Full representation of PF load vectors - REAL(DOUBLE) , ALLOCATABLE :: PS_FULL(:,:) ! Full representation of PS load vectors + REAL(DOUBLE) , ALLOCATABLE :: PF_FULL(:,:) ! Full representation of PF load vectors + REAL(DOUBLE) , ALLOCATABLE :: PS_FULL(:,:) ! Full representation of PS load vectors REAL(DOUBLE) , ALLOCATABLE :: KAA_FULL(:,:) ! Full representation of KAA stiff matrix REAL(DOUBLE) , ALLOCATABLE :: KAO_FULL(:,:) ! Full representation of KAO stiff matrix @@ -70,8 +70,8 @@ MODULE FULL_MATRICES REAL(DOUBLE) , ALLOCATABLE :: MAO_FULL(:,:) ! Full representation of MAO mass matrix REAL(DOUBLE) , ALLOCATABLE :: MOO_FULL(:,:) ! Full representation of MOO mass matrix - REAL(DOUBLE) , ALLOCATABLE :: PA_FULL(:,:) ! Full representation of PA load vectors - REAL(DOUBLE) , ALLOCATABLE :: PO_FULL(:,:) ! Full representation of PA load vectors + REAL(DOUBLE) , ALLOCATABLE :: PA_FULL(:,:) ! Full representation of PA load vectors + REAL(DOUBLE) , ALLOCATABLE :: PO_FULL(:,:) ! Full representation of PA load vectors REAL(DOUBLE) , ALLOCATABLE :: PFYS_FULL(:,:) ! Full representation of PFYS load vector REAL(DOUBLE) , ALLOCATABLE :: QSYS_FULL(:,:) ! Full representation of QSYS load vector diff --git a/Source/Modules/INPUTT4_MATRICES.f90 b/Source/Modules/INPUTT4_MATRICES.f90 index 06c840e8..a3154e59 100644 --- a/Source/Modules/INPUTT4_MATRICES.f90 +++ b/Source/Modules/INPUTT4_MATRICES.f90 @@ -1,41 +1,41 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE INPUTT4_MATRICES - + ! Data used in reading INPUTT4 binary matrices for substructure analyses in subr READ_IN4_FULL_MAT - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE IMPLICIT NONE SAVE - + INTEGER(LONG), ALLOCATABLE :: IN4_COL_MAP(:) ! Map to expand IN4_MAT to a full 6 comps/grid for a CUSERIN elem REAL(DOUBLE) , ALLOCATABLE :: IN4_MAT(:,:) ! INPUTT4 matrix read in subr READ_IN4_FULL_MAT - END MODULE INPUTT4_MATRICES + END MODULE INPUTT4_MATRICES diff --git a/Source/Modules/IOUNT1.f90 b/Source/Modules/IOUNT1.f90 index cbaa68cb..290e8c14 100644 --- a/Source/Modules/IOUNT1.f90 +++ b/Source/Modules/IOUNT1.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE IOUNT1 - + ! Input/output logical units, file names, status and file description (msg) variables USE PENTIUM_II_KIND, ONLY : BYTE, LONG @@ -34,8 +34,8 @@ MODULE IOUNT1 IMPLICIT NONE INTEGER(LONG), PARAMETER :: FILE_NAM_MAXLEN = 256 ! Max length (chars) in any file name (incl folder length & ext) - INTEGER(LONG) :: LEN_INPUT_FNAME ! Length of input dat filename up to and including the decimal pt - INTEGER(LONG) :: LEN_RESTART_FNAME ! Length of restart dat filename up to and including the decimal pt + INTEGER(LONG) :: LEN_INPUT_FNAME ! Length of input dat filename up to and including the decimal pt + INTEGER(LONG) :: LEN_RESTART_FNAME ! Length of restart dat filename up to and including the decimal pt INTEGER(LONG), PRIVATE :: I ! Only use is in implied DO loops below to initialize variables INTEGER(LONG), ALLOCATABLE :: IN4FIL_NUM(:) ! File number in E.C entry IN4 INTEGER(LONG), PARAMETER :: MOT4 = 9 ! Number of OT4 files allowable @@ -45,7 +45,7 @@ MODULE IOUNT1 INTEGER(LONG), PARAMETER :: NUM_OU4_FILES = 20 ! Number of OU4 files allowable INTEGER(LONG), PARAMETER :: MAX_FIL = 72 ! Number of files (except OU4, SCR) - + SAVE CHARACTER( 1*BYTE) :: BUGOUT = 'N' ! Y/N indicator if anything has been written to BUG file @@ -61,14 +61,14 @@ MODULE IOUNT1 CHARACTER(FILE_NAM_MAXLEN*BYTE) :: ERRFIL ! (filename.ERR) Error file: error messages written (and to F06) CHARACTER(FILE_NAM_MAXLEN*BYTE) :: F06FIL ! (filename.F06) Output file CHARACTER(FILE_NAM_MAXLEN*BYTE) :: IN0FIL ! (filename.F06) Input file with all INCLUDE files - CHARACTER(FILE_NAM_MAXLEN*BYTE) :: INFILE ! (filename.DAT) Input file - CHARACTER(FILE_NAM_MAXLEN*BYTE) :: PCHFIL ! (filename.PCH) Punch output file + CHARACTER(FILE_NAM_MAXLEN*BYTE) :: INFILE ! (filename.DAT) Input file + CHARACTER(FILE_NAM_MAXLEN*BYTE) :: PCHFIL ! (filename.PCH) Punch output file CHARACTER(FILE_NAM_MAXLEN*BYTE), & ALLOCATABLE :: IN4FIL(:) ! Names of IN4 files containing USERIN matrices CHARACTER(FILE_NAM_MAXLEN*BYTE) :: INCFIL ! Names of B.D. INCLUDE files CHARACTER(FILE_NAM_MAXLEN*BYTE) :: INIFIL ! Program initialization (formatted text) file (program.INI) CHARACTER(FILE_NAM_MAXLEN*BYTE) :: LINK1A ! (filename.L1A) Formatted file , see descr. below - CHARACTER(FILE_NAM_MAXLEN*BYTE) :: NEUFIL ! (filename.NEU) FEMAP neutral file + CHARACTER(FILE_NAM_MAXLEN*BYTE) :: NEUFIL ! (filename.NEU) FEMAP neutral file CHARACTER(FILE_NAM_MAXLEN*BYTE) :: SEQFIL ! (filename.SEQ) Unformatted file , see descr. below CHARACTER(FILE_NAM_MAXLEN*BYTE) :: SPCFIL ! (filename.SPC) Formatted file , see descr. below @@ -134,89 +134,89 @@ MODULE IOUNT1 CHARACTER(FILE_NAM_MAXLEN*BYTE) :: OU4FIL(MOU4) ! (filename.OUi) Unformatted file , see descr. below CHARACTER(FILE_NAM_MAXLEN*BYTE) :: OT4FIL(MOT4) ! (filename.OTi) Formatted file , see descr. below - CHARACTER(FILE_NAM_MAXLEN*BYTE) :: RESTART_FILNAM ! Name of file to restart + CHARACTER(FILE_NAM_MAXLEN*BYTE) :: RESTART_FILNAM ! Name of file to restart ! The following STAT variables are for deciding what to do with the files when they are closed. The user can override the ! initial values in file Program.INI. Not included are status for file units SC1, SCR. Also, note that several of the file status' ! are PARAMETER. These are files that the user would not want to be deleted (BUGFIL would want to be kept but only if something ! has been written to it - - CHARACTER( 8*BYTE) :: BUGSTAT = 'DELETE ' ! close status for file BUGFIL - CHARACTER( 8*BYTE) :: EINSTAT = 'KEEP ' ! close status for file EINFIL - CHARACTER( 8*BYTE) :: ENFSTAT = 'KEEP ' ! close status for file ENFFIL - CHARACTER( 8*BYTE) :: ERRSTAT = 'KEEP ' ! close status for file ERRFIL - CHARACTER( 8*BYTE) :: F06STAT = 'KEEP ' ! close status for file F06FIL + + CHARACTER( 8*BYTE) :: BUGSTAT = 'DELETE ' ! close status for file BUGFIL + CHARACTER( 8*BYTE) :: EINSTAT = 'KEEP ' ! close status for file EINFIL + CHARACTER( 8*BYTE) :: ENFSTAT = 'KEEP ' ! close status for file ENFFIL + CHARACTER( 8*BYTE) :: ERRSTAT = 'KEEP ' ! close status for file ERRFIL + CHARACTER( 8*BYTE) :: F06STAT = 'KEEP ' ! close status for file F06FIL CHARACTER( 8*BYTE) :: IN0STAT = 'KEEP ' ! close status for file INFILE plus all INCLUDE files - CHARACTER( 8*BYTE) :: IN1STAT = 'KEEP ' ! close status for file INFILE - CHARACTER( 8*BYTE) :: IN4STAT = 'KEEP ' ! close status for file IN4FIL - CHARACTER( 8*BYTE) :: INCSTAT = 'KEEP ' ! close status for file INCFIL - CHARACTER( 8*BYTE) :: INISTAT = 'KEEP ' ! close status for file INIFIL - CHARACTER( 8*BYTE) :: L1ASTAT = 'DELETE ' ! close status for file LINK1A - CHARACTER( 8*BYTE) :: NEUSTAT = 'DELETE ' ! close status for file NEUFIL - CHARACTER( 8*BYTE) :: PCHSTAT = 'DELETE ' ! close status for file PCHFIL - CHARACTER( 8*BYTE) :: SEQSTAT = 'DELETE ' ! close status for file SEQFIL - CHARACTER( 8*BYTE) :: SPCSTAT = 'DELETE ' ! close status for file SPCFIL - - CHARACTER( 8*BYTE) :: F21STAT = 'DELETE ' ! close status for file F21FIL - CHARACTER( 8*BYTE) :: F22STAT = 'DELETE ' ! close status for file F22FIL - CHARACTER( 8*BYTE) :: F23STAT = 'DELETE ' ! close status for file F23FIL - CHARACTER( 8*BYTE) :: F24STAT = 'DELETE ' ! close status for file F24FIL - CHARACTER( 8*BYTE) :: F25STAT = 'DELETE ' ! close status for file F25FIL - CHARACTER( 8*BYTE) :: L1BSTAT = 'DELETE ' ! close status for file LINK1B - CHARACTER( 8*BYTE) :: L1CSTAT = 'DELETE ' ! close status for file LINK1C - CHARACTER( 8*BYTE) :: L1DSTAT = 'DELETE ' ! close status for file LINK1D - CHARACTER( 8*BYTE) :: L1ESTAT = 'DELETE ' ! close status for file LINK1E - CHARACTER( 8*BYTE) :: L1FSTAT = 'DELETE ' ! close status for file LINK1F - CHARACTER( 8*BYTE) :: L1GSTAT = 'DELETE ' ! close status for file LINK1G - CHARACTER( 8*BYTE) :: L1HSTAT = 'DELETE ' ! close status for file LINK1H - CHARACTER( 8*BYTE) :: L1ISTAT = 'DELETE ' ! close status for file LINK1I - CHARACTER( 8*BYTE) :: L1JSTAT = 'DELETE ' ! close status for file LINK1J - CHARACTER( 8*BYTE) :: L1KSTAT = 'DELETE ' ! close status for file LINK1K - CHARACTER( 8*BYTE) :: L1LSTAT = 'DELETE ' ! close status for file LINK1L - CHARACTER( 8*BYTE) :: L1MSTAT = 'DELETE ' ! close status for file LINK1M - CHARACTER( 8*BYTE) :: L1NSTAT = 'DELETE ' ! close status for file LINK1N - CHARACTER( 8*BYTE) :: L1OSTAT = 'DELETE ' ! close status for file LINK1O + CHARACTER( 8*BYTE) :: IN1STAT = 'KEEP ' ! close status for file INFILE + CHARACTER( 8*BYTE) :: IN4STAT = 'KEEP ' ! close status for file IN4FIL + CHARACTER( 8*BYTE) :: INCSTAT = 'KEEP ' ! close status for file INCFIL + CHARACTER( 8*BYTE) :: INISTAT = 'KEEP ' ! close status for file INIFIL + CHARACTER( 8*BYTE) :: L1ASTAT = 'DELETE ' ! close status for file LINK1A + CHARACTER( 8*BYTE) :: NEUSTAT = 'DELETE ' ! close status for file NEUFIL + CHARACTER( 8*BYTE) :: PCHSTAT = 'DELETE ' ! close status for file PCHFIL + CHARACTER( 8*BYTE) :: SEQSTAT = 'DELETE ' ! close status for file SEQFIL + CHARACTER( 8*BYTE) :: SPCSTAT = 'DELETE ' ! close status for file SPCFIL + + CHARACTER( 8*BYTE) :: F21STAT = 'DELETE ' ! close status for file F21FIL + CHARACTER( 8*BYTE) :: F22STAT = 'DELETE ' ! close status for file F22FIL + CHARACTER( 8*BYTE) :: F23STAT = 'DELETE ' ! close status for file F23FIL + CHARACTER( 8*BYTE) :: F24STAT = 'DELETE ' ! close status for file F24FIL + CHARACTER( 8*BYTE) :: F25STAT = 'DELETE ' ! close status for file F25FIL + CHARACTER( 8*BYTE) :: L1BSTAT = 'DELETE ' ! close status for file LINK1B + CHARACTER( 8*BYTE) :: L1CSTAT = 'DELETE ' ! close status for file LINK1C + CHARACTER( 8*BYTE) :: L1DSTAT = 'DELETE ' ! close status for file LINK1D + CHARACTER( 8*BYTE) :: L1ESTAT = 'DELETE ' ! close status for file LINK1E + CHARACTER( 8*BYTE) :: L1FSTAT = 'DELETE ' ! close status for file LINK1F + CHARACTER( 8*BYTE) :: L1GSTAT = 'DELETE ' ! close status for file LINK1G + CHARACTER( 8*BYTE) :: L1HSTAT = 'DELETE ' ! close status for file LINK1H + CHARACTER( 8*BYTE) :: L1ISTAT = 'DELETE ' ! close status for file LINK1I + CHARACTER( 8*BYTE) :: L1JSTAT = 'DELETE ' ! close status for file LINK1J + CHARACTER( 8*BYTE) :: L1KSTAT = 'DELETE ' ! close status for file LINK1K + CHARACTER( 8*BYTE) :: L1LSTAT = 'DELETE ' ! close status for file LINK1L + CHARACTER( 8*BYTE) :: L1MSTAT = 'DELETE ' ! close status for file LINK1M + CHARACTER( 8*BYTE) :: L1NSTAT = 'DELETE ' ! close status for file LINK1N + CHARACTER( 8*BYTE) :: L1OSTAT = 'DELETE ' ! close status for file LINK1O CHARACTER( 8*BYTE) :: L1PSTAT = 'DELETE ' ! close status for file LINK1P - CHARACTER( 8*BYTE) :: L1QSTAT = 'DELETE ' ! close status for file LINK1Q - CHARACTER( 8*BYTE) :: L1RSTAT = 'DELETE ' ! close status for file LINK1R - CHARACTER( 8*BYTE) :: L1SSTAT = 'DELETE ' ! close status for file LINK1S - CHARACTER( 8*BYTE) :: L1TSTAT = 'DELETE ' ! close status for file LINK1T - CHARACTER( 8*BYTE) :: L1USTAT = 'DELETE ' ! close status for file LINK1U - CHARACTER( 8*BYTE) :: L1VSTAT = 'DELETE ' ! close status for file LINK1V - CHARACTER( 8*BYTE) :: L1WSTAT = 'DELETE ' ! close status for file LINK1W - CHARACTER( 8*BYTE) :: L1XSTAT = 'DELETE ' ! close status for file LINK1X - CHARACTER( 8*BYTE) :: L1YSTAT = 'DELETE ' ! close status for file LINK1Y - CHARACTER( 8*BYTE) :: L1ZSTAT = 'DELETE ' ! close status for file LINK1Z - CHARACTER( 8*BYTE) :: L2ASTAT = 'DELETE ' ! close status for file LINK2A - CHARACTER( 8*BYTE) :: L2BSTAT = 'DELETE ' ! close status for file LINK2B - CHARACTER( 8*BYTE) :: L2CSTAT = 'DELETE ' ! close status for file LINK2C - CHARACTER( 8*BYTE) :: L2DSTAT = 'DELETE ' ! close status for file LINK2D - CHARACTER( 8*BYTE) :: L2ESTAT = 'DELETE ' ! close status for file LINK2E - CHARACTER( 8*BYTE) :: L2FSTAT = 'DELETE ' ! close status for file LINK2F - CHARACTER( 8*BYTE) :: L2GSTAT = 'DELETE ' ! close status for file LINK2G - CHARACTER( 8*BYTE) :: L2HSTAT = 'DELETE ' ! close status for file LINK2H - CHARACTER( 8*BYTE) :: L2ISTAT = 'DELETE ' ! close status for file LINK2I - CHARACTER( 8*BYTE) :: L2JSTAT = 'DELETE ' ! close status for file LINK2J - CHARACTER( 8*BYTE) :: L2KSTAT = 'DELETE ' ! close status for file LINK2K - CHARACTER( 8*BYTE) :: L2LSTAT = 'DELETE ' ! close status for file LINK2L - CHARACTER( 8*BYTE) :: L2MSTAT = 'DELETE ' ! close status for file LINK2M - CHARACTER( 8*BYTE) :: L2NSTAT = 'DELETE ' ! close status for file LINK2N - CHARACTER( 8*BYTE) :: L2OSTAT = 'DELETE ' ! close status for file LINK2O - CHARACTER( 8*BYTE) :: L2PSTAT = 'DELETE ' ! close status for file LINK2P - CHARACTER( 8*BYTE) :: L2QSTAT = 'DELETE ' ! close status for file LINK2Q - CHARACTER( 8*BYTE) :: L2RSTAT = 'DELETE ' ! close status for file LINK2R - CHARACTER( 8*BYTE) :: L2SSTAT = 'DELETE ' ! close status for file LINK2S - CHARACTER( 8*BYTE) :: L2TSTAT = 'DELETE ' ! close status for file LINK2T - CHARACTER( 8*BYTE) :: L3ASTAT = 'DELETE ' ! close status for file LINK3A - CHARACTER( 8*BYTE) :: L4ASTAT = 'DELETE ' ! close status for file LINK4A - CHARACTER( 8*BYTE) :: L4BSTAT = 'DELETE ' ! close status for file LINK4B - CHARACTER( 8*BYTE) :: L4CSTAT = 'DELETE ' ! close status for file LINK4C - CHARACTER( 8*BYTE) :: L4DSTAT = 'DELETE ' ! close status for file LINK4D - CHARACTER( 8*BYTE) :: L5ASTAT = 'DELETE ' ! close status for file LINK5A - CHARACTER( 8*BYTE) :: L5BSTAT = 'DELETE ' ! close status for file LINK5B + CHARACTER( 8*BYTE) :: L1QSTAT = 'DELETE ' ! close status for file LINK1Q + CHARACTER( 8*BYTE) :: L1RSTAT = 'DELETE ' ! close status for file LINK1R + CHARACTER( 8*BYTE) :: L1SSTAT = 'DELETE ' ! close status for file LINK1S + CHARACTER( 8*BYTE) :: L1TSTAT = 'DELETE ' ! close status for file LINK1T + CHARACTER( 8*BYTE) :: L1USTAT = 'DELETE ' ! close status for file LINK1U + CHARACTER( 8*BYTE) :: L1VSTAT = 'DELETE ' ! close status for file LINK1V + CHARACTER( 8*BYTE) :: L1WSTAT = 'DELETE ' ! close status for file LINK1W + CHARACTER( 8*BYTE) :: L1XSTAT = 'DELETE ' ! close status for file LINK1X + CHARACTER( 8*BYTE) :: L1YSTAT = 'DELETE ' ! close status for file LINK1Y + CHARACTER( 8*BYTE) :: L1ZSTAT = 'DELETE ' ! close status for file LINK1Z + CHARACTER( 8*BYTE) :: L2ASTAT = 'DELETE ' ! close status for file LINK2A + CHARACTER( 8*BYTE) :: L2BSTAT = 'DELETE ' ! close status for file LINK2B + CHARACTER( 8*BYTE) :: L2CSTAT = 'DELETE ' ! close status for file LINK2C + CHARACTER( 8*BYTE) :: L2DSTAT = 'DELETE ' ! close status for file LINK2D + CHARACTER( 8*BYTE) :: L2ESTAT = 'DELETE ' ! close status for file LINK2E + CHARACTER( 8*BYTE) :: L2FSTAT = 'DELETE ' ! close status for file LINK2F + CHARACTER( 8*BYTE) :: L2GSTAT = 'DELETE ' ! close status for file LINK2G + CHARACTER( 8*BYTE) :: L2HSTAT = 'DELETE ' ! close status for file LINK2H + CHARACTER( 8*BYTE) :: L2ISTAT = 'DELETE ' ! close status for file LINK2I + CHARACTER( 8*BYTE) :: L2JSTAT = 'DELETE ' ! close status for file LINK2J + CHARACTER( 8*BYTE) :: L2KSTAT = 'DELETE ' ! close status for file LINK2K + CHARACTER( 8*BYTE) :: L2LSTAT = 'DELETE ' ! close status for file LINK2L + CHARACTER( 8*BYTE) :: L2MSTAT = 'DELETE ' ! close status for file LINK2M + CHARACTER( 8*BYTE) :: L2NSTAT = 'DELETE ' ! close status for file LINK2N + CHARACTER( 8*BYTE) :: L2OSTAT = 'DELETE ' ! close status for file LINK2O + CHARACTER( 8*BYTE) :: L2PSTAT = 'DELETE ' ! close status for file LINK2P + CHARACTER( 8*BYTE) :: L2QSTAT = 'DELETE ' ! close status for file LINK2Q + CHARACTER( 8*BYTE) :: L2RSTAT = 'DELETE ' ! close status for file LINK2R + CHARACTER( 8*BYTE) :: L2SSTAT = 'DELETE ' ! close status for file LINK2S + CHARACTER( 8*BYTE) :: L2TSTAT = 'DELETE ' ! close status for file LINK2T + CHARACTER( 8*BYTE) :: L3ASTAT = 'DELETE ' ! close status for file LINK3A + CHARACTER( 8*BYTE) :: L4ASTAT = 'DELETE ' ! close status for file LINK4A + CHARACTER( 8*BYTE) :: L4BSTAT = 'DELETE ' ! close status for file LINK4B + CHARACTER( 8*BYTE) :: L4CSTAT = 'DELETE ' ! close status for file LINK4C + CHARACTER( 8*BYTE) :: L4DSTAT = 'DELETE ' ! close status for file LINK4D + CHARACTER( 8*BYTE) :: L5ASTAT = 'DELETE ' ! close status for file LINK5A + CHARACTER( 8*BYTE) :: L5BSTAT = 'DELETE ' ! close status for file LINK5B CHARACTER( 8*BYTE) :: OP2STAT = 'KEEP ' ! close status for file OP2FIL - + ! close status for file OU4FIL's CHARACTER( 8*BYTE) :: OU4STAT(MOU4) = (/('DELETE', I=1,MOU4)/) CHARACTER( 8*BYTE) :: OT4STAT(MOT4) = (/('DELETE', I=1,MOT4)/) @@ -330,8 +330,8 @@ MODULE IOUNT1 INTEGER(LONG) :: ERR = 3 ! Unit no. for error file INTEGER(LONG) :: F06 = 7 ! Unit no. for output file INTEGER(LONG) :: IN0 = 1003 ! Unit no. for input file with all INCLUDE files - INTEGER(LONG) :: IN1 = 8 ! Unit no. for input file - INTEGER(LONG) :: IN4 = 1004 ! Unit no. for IN4file + INTEGER(LONG) :: IN1 = 8 ! Unit no. for input file + INTEGER(LONG) :: IN4 = 1004 ! Unit no. for IN4file INTEGER(LONG) :: INC = 1005 ! Unit no. for Bulk Data INCLUDE files ! BANDIT file unit nos: IOU6,IOU7,IOU8,IOU9,IOU10,IOU11,IOU12,IOU13,IOU14,IOU15,IOU16,IOU17,IOU18,IOU19,IOU20 defined in DATA stmt @@ -339,8 +339,8 @@ MODULE IOUNT1 INTEGER(LONG) :: INI = 9 ! Unit no. for MYSTRAN.INI file INTEGER(LONG) :: L1A = 101 ! Unit no. for file LINK1A - INTEGER(LONG) :: NEU = 10 ! Unit no. for FEMPA neutral file - INTEGER(LONG) :: PCH = 11 ! + INTEGER(LONG) :: NEU = 10 ! Unit no. for FEMPA neutral file + INTEGER(LONG) :: PCH = 11 ! INTEGER(LONG) :: SEQ = 12 ! Unit no. for SEQGP card images from BANDIT INTEGER(LONG) :: SPC = 13 ! Unit no. for SPC1 text file @@ -444,24 +444,24 @@ MODULE IOUNT1 ! the MSC Nastran formatted OP2 (basically the binary version of the F06) ! F21FIL is an unformatted file containing: -! Array ME (element mass) for elements requested in ELDATA Case Control command -! See module MODEL_STUF for description. Written by subr WEOFIL (called by subr's ELEM_MASS & EPTL in LINK1) +! Array ME (element mass) for elements requested in ELDATA Case Control command +! See module MODEL_STUF for description. Written by subr WEOFIL (called by subr's ELEM_MASS & EPTL in LINK1) ! F22FIL is an unformatted file containing: -! ArrayS PTE, PPE (element thermal & pressure loads) for elements requested in ELDATA Case Control command -! See module MODEL_STUF for description. Written by subr WEOFIL (called by subr's ELEM_MASS & EPTL in LINK1) +! ArrayS PTE, PPE (element thermal & pressure loads) for elements requested in ELDATA Case Control command +! See module MODEL_STUF for description. Written by subr WEOFIL (called by subr's ELEM_MASS & EPTL in LINK1) ! F23FIL is an unformatted file containing: -! Array KE (element stiffness) for elements requested in ELDATA Case Control command -! See module MODEL_STUF for description. Written by subr WEOFIL (called by subr ESP in LINK1) +! Array KE (element stiffness) for elements requested in ELDATA Case Control command +! See module MODEL_STUF for description. Written by subr WEOFIL (called by subr ESP in LINK1) ! F24FIL is an unformatted file containing: ! Arrays SE1, SE2, SE3, STE1, STE2, STE3 (elem stress recovery matrices) for elems requested in ELDATA Case Control command -! See module MODEL_STUF for description. Written by subr WEOFIL (called by subr ESP in LINK1) +! See module MODEL_STUF for description. Written by subr WEOFIL (called by subr ESP in LINK1) ! F25FIL is an unformatted file containing: ! Arrays UEL, PEL (elem displ's and nodal loads) for elements requested in ELDATA Case Control command -! See module MODEL_STUF for description. Written by subr WEOFIL (called by subr OFP3 in LINK9) +! See module MODEL_STUF for description. Written by subr WEOFIL (called by subr OFP3 in LINK9) ! INFILE is a formatted file containing the normal input @@ -513,10 +513,10 @@ MODULE IOUNT1 ! After the B.D. deck is read, L1F contains 2 records for each rigid element: ! The 1st record is the element type ('RBAR ', 'RBE1 ', or 'RBE2 ') ! The 2nd record contains the rigid element ID and all other element data (see subr's BD_RBAR, BD_RBE1, BD_RBE2) -! +! ! LINK1G is an unformatted file containing: -! Element data: See module MODEL_STUF for description. Written in subr ELSAVE +! Element data: See module MODEL_STUF for description. Written in subr ELSAVE ! Arrays ETYPE, EPNT, ESORT1, ESORT2, EOFF ! Array EDAT ! Elem integration order and thick plate constants (MIN3, MIN4) @@ -568,10 +568,10 @@ MODULE IOUNT1 ! After the B.D. deck is read, LINK1N has ASET, ASET1, OMIT, OMIT1 information (DOF, GRID range, A/O set) ! LINK1O is an unformatted file containing SPC, SPC1 data. This file is read in subr DOF_PROC: -! After the B.D. deck is read, LINK1O has Set ID, DOF, GRID no., enforced displ (0. or value) +! After the B.D. deck is read, LINK1O has Set ID, DOF, GRID no., enforced displ (0. or value) ! LINK1P is an unformatted file containing gravity load data that is read in subr GRAV_PROC: -! After the B.D. deck is read, LINK1P has: +! After the B.D. deck is read, LINK1P has: ! SETID = Load set ID ! ACID_L = Local coord sys ID that gravity load is given in ! GRAV_GRID = ID of grid that rotational (components 4, 5, 6) grav accels are about @@ -595,7 +595,7 @@ MODULE IOUNT1 ! After the B.D. deck is read, LINK1T has grid, component values for SUPORT'd DOF (one pair/record): ! LINK1U is an unformatted file containing RFORCE load data that is read in subr RFORCE_PROC: -! After the B.D. deck is read, LINK1P has: +! After the B.D. deck is read, LINK1P has: ! SETID = Load set ID ! ACID_L = Local coord sys ID that RFORCE load is given in ! GID = ID of grid that the angular velocity and/or angular accel is about @@ -617,7 +617,7 @@ MODULE IOUNT1 ! LINK1Y is an unformatted file containing concentrated and scalar mass data ! After subr CONM2_PROC_1 has run, LINK1Y has: -! +! ! LINK1Z is an unformatted file containing CHKPNT data: ! After the C.C deck is read, LINK1Z has the following records @@ -626,11 +626,11 @@ MODULE IOUNT1 ! SPCSET ! SUBLOD(I,1), SUBLOD(I,2) one record for each I=1,NSUB -! LINK2A is an unformatted file containing the GMN constraint matrix. Written in LINK2. +! LINK2A is an unformatted file containing the GMN constraint matrix. Written in LINK2. ! LINK2B is an unformatted file containing the KSF stiffness matrix partition. -! LINK2C is an unformatted file containing the QSYS equivalent loads due to enforced displ's. QSYS = KFS(transpose) x YS +! LINK2C is an unformatted file containing the QSYS equivalent loads due to enforced displ's. QSYS = KFS(transpose) x YS ! LINK2D is an unformatted file containing the PS loads on SPC'd-DOf's diff --git a/Source/Modules/LAPACK/LAPACK_BLAS_AUX.f b/Source/Modules/LAPACK/LAPACK_BLAS_AUX.f index ba3f88a4..d343524c 100644 --- a/Source/Modules/LAPACK/LAPACK_BLAS_AUX.f +++ b/Source/Modules/LAPACK/LAPACK_BLAS_AUX.f @@ -3,7 +3,7 @@ MODULE LAPACK_BLAS_AUX ! This is the set of LAPACK auxiliary routines called by other LAPACK subroutines - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR @@ -14,7 +14,7 @@ MODULE LAPACK_BLAS_AUX USE OUTA_HERE_Interface character(1*byte), parameter :: cr13_lba = char(13) - + CONTAINS ! >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1116,8 +1116,8 @@ SUBROUTINE DSBMV ( UPLO, N, K, ALPHA, A, LDA, X, INCX, * RETURN * -12345 format(7X,'mult row ',i8,' of ',i8,' times col ',i8, a) - +12345 format(7X,'mult row ',i8,' of ',i8,' times col ',i8, a) + * End of DSBMV . * END SUBROUTINE DSBMV @@ -2832,7 +2832,7 @@ SUBROUTINE DTBSV ( UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX, * RETURN * -12345 format(7X,'Forward pass, row ',i8,' to ',i8, a) +12345 format(7X,'Forward pass, row ',i8,' to ',i8, a) 22345 format(7X,'Backward pass, row ',i8,' to 1 ', a) diff --git a/Source/Modules/LAPACK/LAPACK_GIV_MGIV_EIG.f b/Source/Modules/LAPACK/LAPACK_GIV_MGIV_EIG.f index 30c668dc..ffe588a8 100644 --- a/Source/Modules/LAPACK/LAPACK_GIV_MGIV_EIG.f +++ b/Source/Modules/LAPACK/LAPACK_GIV_MGIV_EIG.f @@ -3,7 +3,7 @@ MODULE LAPACK_GIV_MGIV_EIG USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - USE IOUNT1, ONLY : ERR, F06, SC1 + USE IOUNT1, ONLY : ERR, F06, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LINKNO USE TIMDAT, ONLY : TSEC USE LAPACK_BLAS_AUX @@ -12,7 +12,7 @@ MODULE LAPACK_GIV_MGIV_EIG USE OURTIM_Interface USE OUTA_HERE_Interface USE LINK_MESSAGE_Interface - + character(1*byte), parameter :: cr13_lge = char(13) ! This is a set of LAPACK routines for solving for all, or some, eigenvalues and, possibly, some eigenvectors of: @@ -322,7 +322,7 @@ SUBROUTINE DSBGVX_GIV_MGIV ( JOBZ, RANGE, UPLO, N, KA, KB, AB, * if (method(1:3) == 'GIV') then if (sol_name(1:8) == 'BUCKLING') then - CALL LINK_MESSAGE( + CALL LINK_MESSAGE( $ ' CHOLESKY FACTORIZATION OF DIFFER STIFF MATRIX') else CALL LINK_MESSAGE( @@ -358,8 +358,8 @@ SUBROUTINE DSBGVX_GIV_MGIV ( JOBZ, RANGE, UPLO, N, KA, KB, AB, $ WORK( INDE ), Q, LDQ, WORK( INDWRK ), IINFO ) * * If all eigenvalues are desired and ABSTOL is less than or equal -* to zero, then call: -! DSTERF (eigenvalues only) or +* to zero, then call: +! DSTERF (eigenvalues only) or ! DSTEQR (eigenvalues and eigenvectors). ! If this fails for some eigenvalue, then try DSTEBZ. * @@ -434,7 +434,7 @@ SUBROUTINE DSBGVX_GIV_MGIV ( JOBZ, RANGE, UPLO, N, KA, KB, AB, $ WORK( INDD ), WORK( INDE ), mlam, NSPLIT, W, $ IWORK( INDIBL ), IWORK( INDISP ), WORK( INDWRK ), $ IWORK( INDIWO ), INFO, - & lowest_mode_num, highest_mode_num ) + & lowest_mode_num, highest_mode_num ) ! /////////////////////////////////////////////////////////////////////B if (info > 0) then ! Call routine to print message @@ -552,8 +552,8 @@ &NVERGE OR WERE NOT COMPUTED IN LAPACK SUBROUTINE DSTEBZ:') 99021 format(15x,'BISECTION FAILED TO CONVERGE FOR SOME EIGENVALUES; THE &SE EIGENVALUES ARE FLAGGED BY A NEGATIVE BLOCK NUMBER.',/,15X, - &'THE EFFECT IS THAT THE EIGENVALUES MAY NOT BE AS ACCURATE AS THE - &ABSOLUTE AND RELATIVE TOLERANCES.',/,15X, + &'THE EFFECT IS THAT THE EIGENVALUES MAY NOT BE AS ACCURATE AS THE + &ABSOLUTE AND RELATIVE TOLERANCES.',/,15X, &'THIS IS GENERALLY CAUSED BY UNEXPECTEDLY INACCURATE ARITHMETIC.' &,/) @@ -564,10 +564,10 @@ &NVERGE OR WERE NOT COMPUTED IN LAPACK SUBROUTINE DSTEBZ:') &'CURE : RECALCULATE, REQUESTING ALL EIGENVALUES',/) 803 format(' *ERROR 803: PROGRAMMING ERROR IN SUBROUTINE DSTEBZ.' - &,/,15X,'NO EIGENVALUES WERE COMPUTED BY LAPACK SUBROUTINE DSTEBZ. + &,/,15X,'NO EIGENVALUES WERE COMPUTED BY LAPACK SUBROUTINE DSTEBZ. &THE GERSHGORIN INTERVAL INITIALLY USED WAS TOO SMALL.',/,15X, &'PROBABLE CAUSE: YOUR MACHINE HAS SLOPPY FLOATING-POINT ARITHMETIC - &',/,15X,'CURE : INCREASE THE PARAMETER "FUDGE" IN LAPACK + &',/,15X,'CURE : INCREASE THE PARAMETER "FUDGE" IN LAPACK &SUBROUTINE DSTEBZ, RECOMPILE, AND TRY AGAIN',/) END SUBROUTINE EIGENVALUE_CONVERGENCE_FAILURE @@ -1644,7 +1644,7 @@ SUBROUTINE DSBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, phase = 1 490 CONTINUE IF( UPDATE ) THEN - write(sc1,12345,advance='no') phase,i,m,cr13_lge + write(sc1,12345,advance='no') phase,i,m,cr13_lge I = I + 1 KBT = MIN( KB, M-I ) I0 = I + 1 @@ -2219,12 +2219,12 @@ SUBROUTINE DSBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, * End of DSBGST ! ********************************************************************************************************************************** -22345 format(5X,'Loop ',i8,': K = ',i8,' of ',i8, a) +22345 format(5X,'Loop ',i8,': K = ',i8,' of ',i8, a) 12345 format(5X,'Phase ',i1,': Updating from index ',i8,' to ',i8, a) ! ********************************************************************************************************************************** - + END SUBROUTINE DSBGST ! ################################################################################################################################## @@ -2794,7 +2794,7 @@ SUBROUTINE DSBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, 12345 format(5X,'Loop ',i8,' of ',i8, a) ! ********************************************************************************************************************************** - + END SUBROUTINE DSBTRD ! ################################################################################################################################## @@ -3511,15 +3511,15 @@ SUBROUTINE DSTEBZ( RANGE, ORDER, N, VL, VU, IL, IU, ABSTOL, D, E, 801 format(' *ERROR 801: ERROR ATTEMPTING TO SOLVE FOR EIGENVALUES', &'. IN SUBROUTINE DLAEBZ, (CALLED FROM SUBR ',A,')' - & ,/,14X,' THE LAST ',I8,' INTERVALS DID NOT CONVERGE') + & ,/,14X,' THE LAST ',I8,' INTERVALS DID NOT CONVERGE') 802 format(' *ERROR 802: ERROR ATTEMPTING TO SOLVE FOR EIGENVALUES', &'. IN SUBROUTINE DLAEBZ, (CALLED FROM SUBR ',A,')' - & ,/,14X,' TOO MANY INTERVALS WERE GENERATED. MAX IS ',I8) + & ,/,14X,' TOO MANY INTERVALS WERE GENERATED. MAX IS ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE DSTEBZ ! ################################################################################################################################## diff --git a/Source/Modules/LAPACK/LAPACK_LANCZOS_EIG.f b/Source/Modules/LAPACK/LAPACK_LANCZOS_EIG.f index 4dd56f4b..70f72ee1 100644 --- a/Source/Modules/LAPACK/LAPACK_LANCZOS_EIG.f +++ b/Source/Modules/LAPACK/LAPACK_LANCZOS_EIG.f @@ -1,4 +1,4 @@ -! ################################################################################################################################## +! ################################################################################################################################## MODULE LAPACK_LANCZOS_EIG @@ -29,7 +29,7 @@ MODULE LAPACK_LANCZOS_EIG CONTAINS -! ################################################################################################################################## +! ################################################################################################################################## ! 001 LAPACK_LANCZOS_EIG SUBROUTINE DGEQR2( M, N, A, LDA, TAU, WORK, INFO ) @@ -160,7 +160,7 @@ SUBROUTINE DGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * END SUBROUTINE DGEQR2 -! ################################################################################################################################## +! ################################################################################################################################## ! 002 LAPACK_LANCZOS_EIG SUBROUTINE DORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, @@ -367,4 +367,4 @@ SUBROUTINE DORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * END SUBROUTINE DORM2R - END MODULE LAPACK_LANCZOS_EIG \ No newline at end of file + END MODULE LAPACK_LANCZOS_EIG diff --git a/Source/Modules/LAPACK/LAPACK_LIN_EQN_DGB.f b/Source/Modules/LAPACK/LAPACK_LIN_EQN_DGB.f index 19a8e300..58e4ee50 100644 --- a/Source/Modules/LAPACK/LAPACK_LIN_EQN_DGB.f +++ b/Source/Modules/LAPACK/LAPACK_LIN_EQN_DGB.f @@ -16,7 +16,7 @@ MODULE LAPACK_LIN_EQN_DGB CHARACTER(44*BYTE), PRIVATE :: MODNAM ! Name to write to screen to describe module being run. ! This is a set of LAPACK routines for factorization and solution of linear eqns for general band matrices - + ! DGBTRF: Driver to compute a LU factorization of a real m-by-n band matrix A using partial pivoting with row interchanges. ! DGBTRS: to solve a system of linear equations @@ -902,4 +902,4 @@ SUBROUTINE DGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * END SUBROUTINE DGBTF2 - END MODULE LAPACK_LIN_EQN_DGB \ No newline at end of file + END MODULE LAPACK_LIN_EQN_DGB diff --git a/Source/Modules/LAPACK/LAPACK_LIN_EQN_DPB.f b/Source/Modules/LAPACK/LAPACK_LIN_EQN_DPB.f index fe69084e..a29e198f 100644 --- a/Source/Modules/LAPACK/LAPACK_LIN_EQN_DPB.f +++ b/Source/Modules/LAPACK/LAPACK_LIN_EQN_DPB.f @@ -1,5 +1,5 @@ ! ################################################################################################################################## - + MODULE LAPACK_LIN_EQN_DPB USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -16,7 +16,7 @@ MODULE LAPACK_LIN_EQN_DPB ! Ax = B -! where matrix A is a dbl prec symmetric banded matrix. +! where matrix A is a dbl prec symmetric banded matrix. ! Matrix A is decomposed into an upper triangular matrix U such that: ! A = U(transp)*U @@ -35,7 +35,7 @@ MODULE LAPACK_LIN_EQN_DPB ! DPBTRS to get the solution for x given the triangular factors of A -! In addition, files in module LAPACK_BLAS_AUX are also used +! In addition, files in module LAPACK_BLAS_AUX are also used CONTAINS @@ -544,7 +544,7 @@ SUBROUTINE DPBTRF( UPLO, N, KD, AB, LDAB, INFO ) * lies outside the band. * I2 = MIN( KD-IB, N-I-IB+1 ) - I3 = MIN( IB, N-I-KD+1 ) + I3 = MIN( IB, N-I-KD+1 ) * IF( I2 > 0 ) THEN * @@ -1121,7 +1121,7 @@ SUBROUTINE DPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, * .. External Functions .. LOGICAL LSAME EXTERNAL LSAME - + REAL(DOUBLE) DLAMCH EXTERNAL DLAMCH * .. diff --git a/Source/Modules/LAPACK/LAPACK_MISCEL.f b/Source/Modules/LAPACK/LAPACK_MISCEL.f index c105baea..d298926f 100644 --- a/Source/Modules/LAPACK/LAPACK_MISCEL.f +++ b/Source/Modules/LAPACK/LAPACK_MISCEL.f @@ -14,8 +14,8 @@ MODULE LAPACK_MISCEL ! This is a set of LAPACK routines that are used in several other modules but are not BLAS or auxiliary routines ! The routines included herein are: - -! DSTERF: computes all eigenvalues of a symmetric tridiagonal matrix using the Pal-Walker-Kahan variant of the QL or QR alg. + +! DSTERF: computes all eigenvalues of a symmetric tridiagonal matrix using the Pal-Walker-Kahan variant of the QL or QR alg. ! DSTEQR: computes all eigenvalues and, optionally, eigenvectors of a sym tridiag matrix using the implicit QL or QR method. diff --git a/Source/Modules/LAPACK/LAPACK_STD_EIG_1.f b/Source/Modules/LAPACK/LAPACK_STD_EIG_1.f index 9042f9db..28ed0fae 100644 --- a/Source/Modules/LAPACK/LAPACK_STD_EIG_1.f +++ b/Source/Modules/LAPACK/LAPACK_STD_EIG_1.f @@ -31,7 +31,7 @@ MODULE LAPACK_STD_EIG_1 ! DSYTRD: To reduce A to tridiagonal form, and ! DSTERF: To calc eigenvalues if NO eigenvectors are sought, or ! NOTE: DSTEQR is not in this module, it is in module LAPACK_MISCEL, since it is used in several modules -! DORGTR: To generate orthogonal matrices +! DORGTR: To generate orthogonal matrices ! DSYEV also uses @@ -39,7 +39,7 @@ MODULE LAPACK_STD_EIG_1 ! NOTE: DSTEQR is not in this module, it is in module LAPACK_MISCEL, since it is used in several other modules ! In addition, other LAPACK procedures are called from module LAPACK_BLAS_AUX_1 - + CONTAINS ! ################################################################################################################################## diff --git a/Source/Modules/LAPACK_DPB_MATRICES.f90 b/Source/Modules/LAPACK_DPB_MATRICES.f90 index 2e80ad26..0517da5d 100644 --- a/Source/Modules/LAPACK_DPB_MATRICES.f90 +++ b/Source/Modules/LAPACK_DPB_MATRICES.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LAPACK_DPB_MATRICES - + ! Arrays for LAPACK banded matrices USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE IMPLICIT NONE - + SAVE REAL(DOUBLE), ALLOCATABLE :: ABAND(:,:) ! A stiffness matrix in LAPACK banded format @@ -40,4 +40,3 @@ MODULE LAPACK_DPB_MATRICES REAL(DOUBLE), ALLOCATABLE :: LAPACK_S(:) ! Array of scale factors if matrix needs equilibrating END MODULE LAPACK_DPB_MATRICES - \ No newline at end of file diff --git a/Source/Modules/LINK9_STUFF.f90 b/Source/Modules/LINK9_STUFF.f90 index 3ce34088..3b0b5fb8 100644 --- a/Source/Modules/LINK9_STUFF.f90 +++ b/Source/Modules/LINK9_STUFF.f90 @@ -1,48 +1,48 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK9_STUFF - + ! Grid point and element solution variables for data recovery LINK9 USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE IMPLICIT NONE - + SAVE CHARACTER( 1*BYTE), ALLOCATABLE :: MSPRNT(:,:) ! Flags for whether to print margins of safety for ROD, BAR CHARACTER( 4*BYTE), ALLOCATABLE :: FTNAME(:) ! Stress failure index name output with stresses/strains - + INTEGER(LONG) :: MAXREQ ! Max number of rows needed for array OGEL INTEGER(LONG) , ALLOCATABLE :: GID_OUT_ARRAY(:,:) ! Array of integer grid no's for some output in LINK9 INTEGER(LONG) , ALLOCATABLE :: EID_OUT_ARRAY(:,:) ! Array of elem no's (col 1) and num of plies (col 2) for that elem -! that are printed with certain outputs IN LINK9 +! that are printed with certain outputs IN LINK9 INTEGER(LONG) , ALLOCATABLE :: POLY_FIT_ERR_INDEX(:)! Index num for POLY_FIT_ERR (i.e. which of the 1 through 9 stress ! or strain values has the largest error in polynomial fit diff --git a/Source/Modules/LSQ_MYSTRAN.f90 b/Source/Modules/LSQ_MYSTRAN.f90 index 9b975bc8..7b5a56d3 100644 --- a/Source/Modules/LSQ_MYSTRAN.f90 +++ b/Source/Modules/LSQ_MYSTRAN.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + MODULE LSQ_MYSTRAN ! My version of Alan Miller's lsq module with only the procedures from his diff --git a/Source/Modules/MACHINE_PARAMS.f90 b/Source/Modules/MACHINE_PARAMS.f90 index 37e5168d..ffac374e 100644 --- a/Source/Modules/MACHINE_PARAMS.f90 +++ b/Source/Modules/MACHINE_PARAMS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MACHINE_PARAMS diff --git a/Source/Modules/MISC_MATRICES.f90 b/Source/Modules/MISC_MATRICES.f90 index 78d3a6d7..bd208a18 100644 --- a/Source/Modules/MISC_MATRICES.f90 +++ b/Source/Modules/MISC_MATRICES.f90 @@ -1,39 +1,39 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MISC_MATRICES - + ! Other matrices that are not designated as full (MAT_FULL) or sparse (I_MAT, J_MAT, MAT) - + USE PENTIUM_II_KIND, ONLY : DOUBLE IMPLICIT NONE - + SAVE REAL(DOUBLE), ALLOCATABLE :: UG_T123_MAT(:,:) ! Matrix of UG_COL values for tranlation comps in a NGRID x 3 matrix - + END MODULE MISC_MATRICES diff --git a/Source/Modules/MYSTRAN_Version.f90 b/Source/Modules/MYSTRAN_Version.f90 index ee17d5a7..89bb5beb 100644 --- a/Source/Modules/MYSTRAN_Version.f90 +++ b/Source/Modules/MYSTRAN_Version.f90 @@ -35,10 +35,10 @@ MODULE MYSTRAN_Version SAVE CHARACTER(256*BYTE) :: MYSTRAN_COMMENT = '*** Please report any problems to mystransolver@gmail.com ***' - CHARACTER( 8*BYTE), PARAMETER :: MYSTRAN_VER_NUM = '17.0.0' - CHARACTER( 3*BYTE), PARAMETER :: MYSTRAN_VER_MONTH= 'OCT' - CHARACTER( 2*BYTE), PARAMETER :: MYSTRAN_VER_DAY = '13' - CHARACTER( 4*BYTE), PARAMETER :: MYSTRAN_VER_YEAR = '2025' + CHARACTER( 8*BYTE), PARAMETER :: MYSTRAN_VER_NUM = '18.0.0' + CHARACTER( 3*BYTE), PARAMETER :: MYSTRAN_VER_MONTH= 'APR' + CHARACTER( 2*BYTE), PARAMETER :: MYSTRAN_VER_DAY = '20' + CHARACTER( 4*BYTE), PARAMETER :: MYSTRAN_VER_YEAR = '2026' CHARACTER( 33*BYTE), PARAMETER :: MYSTRAN_AUTHOR = 'MYSTRAN developed by Dr Bill Case' END MODULE MYSTRAN_Version diff --git a/Source/Modules/NONLINEAR_PARAMS.f90 b/Source/Modules/NONLINEAR_PARAMS.f90 index 7ad4a839..6fc03e15 100644 --- a/Source/Modules/NONLINEAR_PARAMS.f90 +++ b/Source/Modules/NONLINEAR_PARAMS.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE NONLINEAR_PARAMS ! Variables used in nonlinear analyses USE PENTIUM_II_KIND, ONLY : BYTE, LONG - + IMPLICIT NONE SAVE @@ -37,7 +37,7 @@ MODULE NONLINEAR_PARAMS CHARACTER(10*BYTE) :: NL_NORM = 'INFINITY '! Method to use when getting the vector norm of UG_COL INTEGER(LONG) :: LOAD_ISTEP = 0 ! In nonlinear statics, the load step number -! In BUCKLING: 1 is the linear static sol'n, +! In BUCKLING: 1 is the linear static sol'n, ! 2 is the BUCKLING eigen step INTEGER(LONG) :: NL_ITER_NUM = 0 ! Iteration number within any 1 load step diff --git a/Source/Modules/OUTPUT4_MATRICES.f90 b/Source/Modules/OUTPUT4_MATRICES.f90 index 26032638..d32ed3c5 100644 --- a/Source/Modules/OUTPUT4_MATRICES.f90 +++ b/Source/Modules/OUTPUT4_MATRICES.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OUTPUT4_MATRICES - + ! This module defines the characteristics for matrices that are allowed for OUTPUT4 requests in Case Control. The definition of ! the actual matrices (with dimensions) appear in a variety of other modules (with the names listed in ALLOW_OU4_MYSTRAN_NAMES ! below. In addition, all of the output transformation matrices related to Craig-Bampton analyses are defined here. Finally, the ! allowable OUTPUT4 matrix RBM0 is defined here as a 6x6 rigid body mass matrix relative to the basic origin for the 6 DOF's at the -! boundary of a Craig-Bampton model - +! boundary of a Craig-Bampton model + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, TSET_CHR_LEN IMPLICIT NONE SAVE - + INTEGER(LONG), PARAMETER :: NUM_OU4_VALID_NAMES = 33 ! Num of OUTPUT4 matrices defined here INTEGER(LONG) :: NUM_OU4_REQUESTS = 0 ! Number of OUTPUT4 requests in a run INTEGER(LONG) :: NUM_PARTN_REQUESTS = 0 ! Number of PARTN requests in a run @@ -286,9 +286,9 @@ MODULE OUTPUT4_MATRICES REAL(DOUBLE), ALLOCATABLE :: OTM_STRN(:,:) ! CB elm strain OTM for elems req in CC STRESS = sid entry ! ********************************************************************************************************************************** -! O T H E R +! O T H E R REAL(DOUBLE) :: RBM0(6,6) ! Rigid body mass matrix rel to basic origin for the 6 DOF's at the ! boundary of a Craig-Bampton model - END MODULE OUTPUT4_MATRICES + END MODULE OUTPUT4_MATRICES diff --git a/Source/Modules/PARAMS.f90 b/Source/Modules/PARAMS.f90 index 8a0670e3..bb894b2d 100644 --- a/Source/Modules/PARAMS.f90 +++ b/Source/Modules/PARAMS.f90 @@ -456,7 +456,7 @@ MODULE PARAMS ! ---------------------------------------------------------------------------------------------------------------------------------- INTEGER(LONG) :: STR_CID = -1 ! Indicator for the coordinate system to use ID for elem stress, strain ! and emgineering force output: -! -2 is material coordinate system for solids and local element +! -2 is material coordinate system for solids and local element ! coord system for other element types ! -1 is local element coord system (default) ! 0 is basic coord system diff --git a/Source/Modules/PENTIUM_II_KIND.f90 b/Source/Modules/PENTIUM_II_KIND.f90 index 3b5bca18..ba5a1c2b 100644 --- a/Source/Modules/PENTIUM_II_KIND.f90 +++ b/Source/Modules/PENTIUM_II_KIND.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PENTIUM_II_KIND @@ -40,4 +40,4 @@ MODULE PENTIUM_II_KIND INTEGER, PARAMETER :: DOUBLE = 8 INTEGER, PARAMETER :: QUAD = 16 - END MODULE PENTIUM_II_KIND + END MODULE PENTIUM_II_KIND diff --git a/Source/Modules/RIGID_BODY_DISP_MATS.f90 b/Source/Modules/RIGID_BODY_DISP_MATS.f90 index a2ae0434..75dd45cd 100644 --- a/Source/Modules/RIGID_BODY_DISP_MATS.f90 +++ b/Source/Modules/RIGID_BODY_DISP_MATS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RIGID_BODY_DISP_MATS diff --git a/Source/Modules/SCRATCH_MATRICES.f90 b/Source/Modules/SCRATCH_MATRICES.f90 index 6bbb9089..777a482c 100644 --- a/Source/Modules/SCRATCH_MATRICES.f90 +++ b/Source/Modules/SCRATCH_MATRICES.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SCRATCH_MATRICES - + ! Arrays for scratch matrices. CRSi are matrices in sparse CRS format. CCSi are matrices in sparse CCS format USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE IMPLICIT NONE - + SAVE INTEGER(LONG), ALLOCATABLE :: I_CCS1(:) ! Row indicators for nonzero terms in scratch matrix CCS1 @@ -42,7 +42,7 @@ MODULE SCRATCH_MATRICES INTEGER(LONG), ALLOCATABLE :: I_CRS2(:) ! Row indicators for nonzero terms in scratch matrix CRS2 INTEGER(LONG), ALLOCATABLE :: I_CRS3(:) ! Row indicators for nonzero terms in scratch matrix CRS3 - INTEGER(LONG), ALLOCATABLE :: J_CCS1(:) ! Col numbers for nonzero terms in scratch matrix CCS1 + INTEGER(LONG), ALLOCATABLE :: J_CCS1(:) ! Col numbers for nonzero terms in scratch matrix CCS1 INTEGER(LONG), ALLOCATABLE :: J_CCS2(:) ! Col numbers for nonzero terms in scratch matrix CCS2 INTEGER(LONG), ALLOCATABLE :: J_CCS3(:) ! Col numbers for nonzero terms in scratch matrix CCS3 diff --git a/Source/Modules/SPARSE_ALG_ARRAYS.f90 b/Source/Modules/SPARSE_ALG_ARRAYS.f90 index b7e7e14d..40667f89 100644 --- a/Source/Modules/SPARSE_ALG_ARRAYS.f90 +++ b/Source/Modules/SPARSE_ALG_ARRAYS.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_ALG_ARRAYS - + ! Arrays used in several of the sparse matrix operation routines (MATADD, MATMULT..., etc) written for MYSTRAN USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE IMPLICIT NONE - + SAVE LOGICAL , ALLOCATABLE :: LOGICAL_VEC(:) ! LOGICAL_VEC will be used to show which cols of C have terms in the @@ -46,5 +46,5 @@ MODULE SPARSE_ALG_ARRAYS REAL(DOUBLE) , ALLOCATABLE :: AROW(:) ! Array containing the nonzero terms from one row of A ! (used in sparse mult subrs) - + END MODULE SPARSE_ALG_ARRAYS diff --git a/Source/Modules/SPARSE_MATRICES.f90 b/Source/Modules/SPARSE_MATRICES.f90 index 01221ae7..fcbf1f3c 100644 --- a/Source/Modules/SPARSE_MATRICES.f90 +++ b/Source/Modules/SPARSE_MATRICES.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_MATRICES - + ! Arrays for sparse stiffness, mass, load, constraint and some other matrices USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE IMPLICIT NONE - + SAVE ! ********************************************************************************************************************************** @@ -226,8 +226,8 @@ MODULE SPARSE_MATRICES INTEGER(LONG), ALLOCATABLE :: I_MSF(:) ! Row indicators for nonzero terms in mass matrix MSF INTEGER(LONG), ALLOCATABLE :: I_MSS(:) ! Row indicators for nonzero terms in mass matrix MSS - INTEGER(LONG), ALLOCATABLE :: I_PF(:) ! Row indicators for nonzero terms in load matrix PF - INTEGER(LONG), ALLOCATABLE :: I_PF_TMP(:) ! Row indicators for nonzero terms in load matrix PF_TMP + INTEGER(LONG), ALLOCATABLE :: I_PF(:) ! Row indicators for nonzero terms in load matrix PF + INTEGER(LONG), ALLOCATABLE :: I_PF_TMP(:) ! Row indicators for nonzero terms in load matrix PF_TMP INTEGER(LONG), ALLOCATABLE :: I_PS(:) ! Row indicators for nonzero terms in load matrix PS INTEGER(LONG), ALLOCATABLE :: I_PFYS(:) ! Row indicators for nonzero terms in load matrix PFYS INTEGER(LONG), ALLOCATABLE :: I_PFYS1(:) ! Row indicators for nonzero terms in load matrix PFYS1 @@ -252,8 +252,8 @@ MODULE SPARSE_MATRICES INTEGER(LONG), ALLOCATABLE :: J_MSF(:) ! Col numbers for nonzero terms in mass matrix MSF INTEGER(LONG), ALLOCATABLE :: J_MSS(:) ! Col numbers for nonzero terms in mass matrix MSS - INTEGER(LONG), ALLOCATABLE :: J_PF(:) ! Col numbers for nonzero terms in load matrix PF - INTEGER(LONG), ALLOCATABLE :: J_PF_TMP(:) ! Col numbers for nonzero terms in load matrix PF_TMP + INTEGER(LONG), ALLOCATABLE :: J_PF(:) ! Col numbers for nonzero terms in load matrix PF + INTEGER(LONG), ALLOCATABLE :: J_PF_TMP(:) ! Col numbers for nonzero terms in load matrix PF_TMP INTEGER(LONG), ALLOCATABLE :: J_PS(:) ! Col numbers for nonzero terms in load matrix PS INTEGER(LONG), ALLOCATABLE :: J_PFYS(:) ! Col numbers for nonzero terms in load matrix PFYS INTEGER(LONG), ALLOCATABLE :: J_PFYS1(:) ! Col numbers for nonzero terms in load matrix PFYS1 @@ -316,7 +316,7 @@ MODULE SPARSE_MATRICES INTEGER(LONG), ALLOCATABLE :: I_KOODs(:) ! Row indicators for nonzero terms in stiff matrix KOODs-diff stiff INTEGER(LONG), ALLOCATABLE :: I2_KOODs(:) ! Row values for nonzero terms in stiff matrix KOODs-diff stiff - INTEGER(LONG), ALLOCATABLE :: I_MAA(:) ! Row indicators for nonzeros in mass matrix MAA + INTEGER(LONG), ALLOCATABLE :: I_MAA(:) ! Row indicators for nonzeros in mass matrix MAA INTEGER(LONG), ALLOCATABLE :: I_MAO(:) ! Row indicators for nonzero terms in mass matrix MAO INTEGER(LONG), ALLOCATABLE :: I_MOO(:) ! Row indicators for nonzero terms in mass matrix MOO @@ -337,7 +337,7 @@ MODULE SPARSE_MATRICES INTEGER(LONG), ALLOCATABLE :: J_KOOD(:) ! Col numbers for nonzero terms in stiff matrix KOOD-diff stiff INTEGER(LONG), ALLOCATABLE :: J_KOODs(:) ! Col numbers for nonzero terms in stiff matrix KOODs-diff stiff - INTEGER(LONG), ALLOCATABLE :: J_MAA(:) ! Col numbers for nonzeros in mass matrix MAA + INTEGER(LONG), ALLOCATABLE :: J_MAA(:) ! Col numbers for nonzeros in mass matrix MAA INTEGER(LONG), ALLOCATABLE :: J_MAO(:) ! Col numbers for nonzero terms in mass matrix MAO INTEGER(LONG), ALLOCATABLE :: J_MOO(:) ! Col numbers for nonzero terms in mass matrix MOO @@ -419,7 +419,7 @@ MODULE SPARSE_MATRICES INTEGER(LONG), ALLOCATABLE :: I2_DLR(:) ! Array of row numbers for all nonzero terms in matrix DLR INTEGER(LONG), ALLOCATABLE :: I2_DLRt(:) ! Array of row numbers for all nonzero terms in matrix DLRt - INTEGER(LONG), ALLOCATABLE :: I_IF_LTM(:) ! Row indicators for nonzero terms in matrix IF_LTM + INTEGER(LONG), ALLOCATABLE :: I_IF_LTM(:) ! Row indicators for nonzero terms in matrix IF_LTM INTEGER(LONG), ALLOCATABLE :: I_IRR(:) ! Row indicators for nonzero terms in identity matrix IRR INTEGER(LONG), ALLOCATABLE :: I_KLL(:) ! Row indicators for nonzero terms in stiff matrix KLL @@ -431,7 +431,7 @@ MODULE SPARSE_MATRICES INTEGER(LONG), ALLOCATABLE :: I_KRRcb(:) ! Row indicators for nonzero terms in stiff matrix KRRcb INTEGER(LONG), ALLOCATABLE :: I_KRRcbn(:) ! Row indicators for nonzero terms in stiff matrix KRRcbn INTEGER(LONG), ALLOCATABLE :: I_KRRcbs(:) ! Row indicators for nonzero terms in stiff matrix KRRcbs - INTEGER(LONG), ALLOCATABLE :: I_KXX(:) ! Row indicators for nonzero terms in stiff matrix KXX + INTEGER(LONG), ALLOCATABLE :: I_KXX(:) ! Row indicators for nonzero terms in stiff matrix KXX INTEGER(LONG), ALLOCATABLE :: I_KLLD(:) ! Row indicators for nonzero terms in stiff matrix KLLD INTEGER(LONG), ALLOCATABLE :: I_KLLDn(:) ! Row indicators for nonzero terms in stiff matrix KLLDn @@ -441,28 +441,28 @@ MODULE SPARSE_MATRICES INTEGER(LONG), ALLOCATABLE :: I_KRLD(:) ! Row indicators for nonzero terms in stiff matrix KRLD INTEGER(LONG), ALLOCATABLE :: I_KRRD(:) ! Row indicators for nonzero terms in stiff matrix KRRD - INTEGER(LONG), ALLOCATABLE :: I_KMSM(:) ! Row ind for nonzero terms in KLL - sigma*MLL - INTEGER(LONG), ALLOCATABLE :: I2_KMSM(:) ! Row values for nonzero terms in KLL - sigma*MLL - INTEGER(LONG), ALLOCATABLE :: I_KMSMn(:) ! Row ind for nonzero terms in KLL - sigma*MLL (nonsym) + INTEGER(LONG), ALLOCATABLE :: I_KMSM(:) ! Row ind for nonzero terms in KLL - sigma*MLL + INTEGER(LONG), ALLOCATABLE :: I2_KMSM(:) ! Row values for nonzero terms in KLL - sigma*MLL + INTEGER(LONG), ALLOCATABLE :: I_KMSMn(:) ! Row ind for nonzero terms in KLL - sigma*MLL (nonsym) INTEGER(LONG), ALLOCATABLE :: I_KMSMs(:) ! Row ind for nonzero terms in KLL - sigma*MLL (sym) - INTEGER(LONG), ALLOCATABLE :: I2_KMSMs(:) ! Row values for nonzero terms in KLL - sigma*MLL (sym) + INTEGER(LONG), ALLOCATABLE :: I2_KMSMs(:) ! Row values for nonzero terms in KLL - sigma*MLL (sym) - INTEGER(LONG), ALLOCATABLE :: I_MPF0 (:) ! Row indicators for nonzeros in temp matrix MPF0 - INTEGER(LONG), ALLOCATABLE :: I_MLL(:) ! Row indicators for nonzeros in mass matrix MLL + INTEGER(LONG), ALLOCATABLE :: I_MPF0 (:) ! Row indicators for nonzeros in temp matrix MPF0 + INTEGER(LONG), ALLOCATABLE :: I_MLL(:) ! Row indicators for nonzeros in mass matrix MLL INTEGER(LONG), ALLOCATABLE :: I2_MLL(:) ! Row numbers for nonzero terms in mass matrix MLL INTEGER(LONG), ALLOCATABLE :: I_MLLn(:) ! Row indicators for nonzeros in mass matrix MLLn - INTEGER(LONG), ALLOCATABLE :: I_MLLs(:) ! Row indicators for nonzeros in mass matrix MLL + INTEGER(LONG), ALLOCATABLE :: I_MLLs(:) ! Row indicators for nonzeros in mass matrix MLL INTEGER(LONG), ALLOCATABLE :: I2_MLLs(:) ! Row numbers for nonzero terms in mass matrix MLL INTEGER(LONG), ALLOCATABLE :: I_MLR(:) ! Row indicators for nonzero terms in mass matrix MLR INTEGER(LONG), ALLOCATABLE :: I_MRL(:) ! Row indicators for nonzero terms in mass matrix MRL INTEGER(LONG), ALLOCATABLE :: I_MRR(:) ! Row indicators for nonzero terms in mass matrix MRR - INTEGER(LONG), ALLOCATABLE :: I_MRN(:) ! Row indicators for nonzero terms in mass matrix MRN + INTEGER(LONG), ALLOCATABLE :: I_MRN(:) ! Row indicators for nonzero terms in mass matrix MRN INTEGER(LONG), ALLOCATABLE :: I_MRRcb(:) ! Row indicators for nonzero terms in mass matrix MRRcb INTEGER(LONG), ALLOCATABLE :: I_MRRcbn(:) ! Row indicators for nonzero terms in mass matrix MRRcb INTEGER(LONG), ALLOCATABLE :: I_MXX(:) ! Row indicators for nonzero terms in mass matrix MRRcb INTEGER(LONG), ALLOCATABLE :: I_MXXn(:) ! Row indicators for nonzero terms in mass matrix MRRcbn - INTEGER(LONG), ALLOCATABLE :: I_LTM(:) ! Row indicators for nonzero terms in matrix LTM + INTEGER(LONG), ALLOCATABLE :: I_LTM(:) ! Row indicators for nonzero terms in matrix LTM INTEGER(LONG), ALLOCATABLE :: I_PHIXA(:) ! Row indicators for nonzero terms in CB matrix PHIXA INTEGER(LONG), ALLOCATABLE :: I_PHIXG(:) ! Row indicators for nonzero terms in CB matrix PHIXG @@ -471,8 +471,8 @@ MODULE SPARSE_MATRICES INTEGER(LONG), ALLOCATABLE :: I_PHIZL1(:) ! Row indicators for nonzeros in matrix PHIZL1 INTEGER(LONG), ALLOCATABLE :: I_PHIZL1t(:) ! Row indicators for nonzeros in matrix PHIZL1 INTEGER(LONG), ALLOCATABLE :: I_PHIZL2(:) ! Row indicators for nonzeros in matrix PHIZL2 - INTEGER(LONG), ALLOCATABLE :: I2_PHIZL1(:) ! Array of row numbers for all nonzero terms in matrix PHIZL1 - INTEGER(LONG), ALLOCATABLE :: I2_PHIZL1t(:) ! Array of row numbers for all nonzero terms in matrix PHIZL1t + INTEGER(LONG), ALLOCATABLE :: I2_PHIZL1(:) ! Array of row numbers for all nonzero terms in matrix PHIZL1 + INTEGER(LONG), ALLOCATABLE :: I2_PHIZL1t(:) ! Array of row numbers for all nonzero terms in matrix PHIZL1t INTEGER(LONG), ALLOCATABLE :: I_PL(:) ! Row indicators for nonzero terms in load matrix PL INTEGER(LONG), ALLOCATABLE :: I_PR(:) ! Row indicators for nonzero terms in load matrix PR @@ -482,7 +482,7 @@ MODULE SPARSE_MATRICES INTEGER(LONG), ALLOCATABLE :: J_DLR(:) ! Col numbers for nonzeros in matrix DLR INTEGER(LONG), ALLOCATABLE :: J_DLRt(:) ! Col numbers for nonzeros in matrix DLRt - INTEGER(LONG), ALLOCATABLE :: J_IF_LTM(:) ! Col numbers for nonzero term in matrix IF_LTM + INTEGER(LONG), ALLOCATABLE :: J_IF_LTM(:) ! Col numbers for nonzero term in matrix IF_LTM INTEGER(LONG), ALLOCATABLE :: J_IRR(:) ! Col numbers for nonzero term in identity matrix IRR INTEGER(LONG), ALLOCATABLE :: J_KLL(:) ! Col numbers for nonzero terms in stiff matrix KLL @@ -492,7 +492,7 @@ MODULE SPARSE_MATRICES INTEGER(LONG), ALLOCATABLE :: J_KRRcb(:) ! Col numbers for nonzero terms in stiff matrix KRRcb INTEGER(LONG), ALLOCATABLE :: J_KRRcbn(:) ! Col numbers for nonzero terms in stiff matrix KRRcbn INTEGER(LONG), ALLOCATABLE :: J_KRRcbs(:) ! Col numbers for nonzero terms in stiff matrix KRRcbs - INTEGER(LONG), ALLOCATABLE :: J_KXX (:) ! Col numbers for nonzero terms in stiff matrix KXX + INTEGER(LONG), ALLOCATABLE :: J_KXX (:) ! Col numbers for nonzero terms in stiff matrix KXX INTEGER(LONG), ALLOCATABLE :: J_KLLD(:) ! Col numbers for nonzero terms in stiff matrix KLLD INTEGER(LONG), ALLOCATABLE :: J_KLLDn(:) ! Col numbers for nonzero terms in stiff matrix KLLDn @@ -500,20 +500,20 @@ MODULE SPARSE_MATRICES INTEGER(LONG), ALLOCATABLE :: J_KRLD(:) ! Col numbers for nonzero terms in stiff matrix KRLD INTEGER(LONG), ALLOCATABLE :: J_KRRD(:) ! Col numbers for nonzero terms in stiff matrix KRRD - INTEGER(LONG), ALLOCATABLE :: J_KMSM(:) ! Col ind for nonzero terms in KLL - sigma*MLL - INTEGER(LONG), ALLOCATABLE :: J_KMSMn(:) ! Col ind for nonzero terms in KLL - sigma*MLL (nonsym) - INTEGER(LONG), ALLOCATABLE :: J_KMSMs(:) ! Col ind for nonzero terms in KLL - sigma*MLL (sym) + INTEGER(LONG), ALLOCATABLE :: J_KMSM(:) ! Col ind for nonzero terms in KLL - sigma*MLL + INTEGER(LONG), ALLOCATABLE :: J_KMSMn(:) ! Col ind for nonzero terms in KLL - sigma*MLL (nonsym) + INTEGER(LONG), ALLOCATABLE :: J_KMSMs(:) ! Col ind for nonzero terms in KLL - sigma*MLL (sym) - INTEGER(LONG), ALLOCATABLE :: J_LTM(:) ! Col numbers for nonzero term in matrix LTM + INTEGER(LONG), ALLOCATABLE :: J_LTM(:) ! Col numbers for nonzero term in matrix LTM - INTEGER(LONG), ALLOCATABLE :: J_MPF0 (:) ! Col numbers for nonzeros in temp matrix MPF0 - INTEGER(LONG), ALLOCATABLE :: J_MLL(:) ! Col numbers for nonzeros in mass matrix MLL + INTEGER(LONG), ALLOCATABLE :: J_MPF0 (:) ! Col numbers for nonzeros in temp matrix MPF0 + INTEGER(LONG), ALLOCATABLE :: J_MLL(:) ! Col numbers for nonzeros in mass matrix MLL INTEGER(LONG), ALLOCATABLE :: J_MLLn(:) ! Col numbers for nonzeros in mass matrix MLLn - INTEGER(LONG), ALLOCATABLE :: J_MLLs(:) ! Col numbers for nonzeros in mass matrix MLL + INTEGER(LONG), ALLOCATABLE :: J_MLLs(:) ! Col numbers for nonzeros in mass matrix MLL INTEGER(LONG), ALLOCATABLE :: J_MLR(:) ! Col numbers for nonzero terms in mass matrix MLR INTEGER(LONG), ALLOCATABLE :: J_MRL(:) ! Col numbers for nonzero terms in mass matrix MRL INTEGER(LONG), ALLOCATABLE :: J_MRR(:) ! Col numbers for nonzero terms in mass matrix MRR - INTEGER(LONG), ALLOCATABLE :: J_MRN (:) ! Col numbers for nonzero terms in mass matrix MRN + INTEGER(LONG), ALLOCATABLE :: J_MRN (:) ! Col numbers for nonzero terms in mass matrix MRN INTEGER(LONG), ALLOCATABLE :: J_MRRcb(:) ! Col numbers for nonzero terms in mass matrix MRRcb INTEGER(LONG), ALLOCATABLE :: J_MRRcbn(:) ! Col numbers for nonzero terms in mass matrix MRRcbn INTEGER(LONG), ALLOCATABLE :: J_MXX(:) ! Col numbers for nonzero terms in mass matrix MRRcb @@ -530,13 +530,13 @@ MODULE SPARSE_MATRICES INTEGER(LONG), ALLOCATABLE :: J_PL(:) ! Col numbers for nonzero terms in load matrix PL INTEGER(LONG), ALLOCATABLE :: J_PR(:) ! Col numbers for nonzero terms in load matrix PR - REAL(DOUBLE) , ALLOCATABLE :: CG_LTM(:) ! Real values for matrix CG_LTM + REAL(DOUBLE) , ALLOCATABLE :: CG_LTM(:) ! Real values for matrix CG_LTM REAL(DOUBLE) , ALLOCATABLE :: DLR(:) ! -KLL(-1)*KRL REAL(DOUBLE) , ALLOCATABLE :: DLRt(:) ! DLR' REAL(DOUBLE) , ALLOCATABLE :: PHIZL(:) ! CB Displ Transformation Matrix for the L-set - REAL(DOUBLE) , ALLOCATABLE :: IF_LTM(:) ! Real terms in matrix IF_LTM + REAL(DOUBLE) , ALLOCATABLE :: IF_LTM(:) ! Real terms in matrix IF_LTM REAL(DOUBLE) , ALLOCATABLE :: IRR(:) ! R-set row and R-set col identity matrix REAL(DOUBLE) , ALLOCATABLE :: KLL(:) ! Initially, L-set part. of KAA. Finally, A-set reduced stiff terms @@ -558,7 +558,7 @@ MODULE SPARSE_MATRICES REAL(DOUBLE) , ALLOCATABLE :: KMSMn(:) ! KAA - sigma*MAA stored nonsymmetrically REAL(DOUBLE) , ALLOCATABLE :: KMSMs(:) ! KAA - sigma*MAA stored symmetrically - REAL(DOUBLE) , ALLOCATABLE :: LTM(:) ! Real terms in matrix LTM + REAL(DOUBLE) , ALLOCATABLE :: LTM(:) ! Real terms in matrix LTM REAL(DOUBLE) , ALLOCATABLE :: MPF0 (:) ! Temp array for eff mass calc REAL(DOUBLE) , ALLOCATABLE :: MLL(:) ! Initially, L-set part. of MAA. Finally, L-set reduced mass terms @@ -577,7 +577,7 @@ MODULE SPARSE_MATRICES REAL(DOUBLE) , ALLOCATABLE :: PHIXG(:) ! CB matrix PHIXG REAL(DOUBLE) , ALLOCATABLE :: PHIZL1(:) ! -KLL(-1)*(MLR + MLL*DLR) part of PHIZL - REAL(DOUBLE) , ALLOCATABLE :: PHIZL1t(:) ! PHIZL1 transposed + REAL(DOUBLE) , ALLOCATABLE :: PHIZL1t(:) ! PHIZL1 transposed REAL(DOUBLE) , ALLOCATABLE :: PHIZL2(:) ! -EIGEN_VEC*diag(EIGEN_VAL) part of PHIZL REAL(DOUBLE) , ALLOCATABLE :: PL(:) ! Initially, L-set part. of PA. Finally, L-set reduced load terms @@ -590,6 +590,6 @@ MODULE SPARSE_MATRICES ! have I_KGG(I+1) - I_KGG(I) nonzero terms in sparse array KGG ! (2) Array J_KGG is dimensioned NTERM_KGG (the number of nonzeros in the G-set stiff matrix). Term j gives the row number the -! G-set stiffness matrix for the j-th term in sparse array KGG +! G-set stiffness matrix for the j-th term in sparse array KGG END MODULE SPARSE_MATRICES diff --git a/Source/Modules/STF_ARRAYS.f90 b/Source/Modules/STF_ARRAYS.f90 index 0e5d38ec..dee81910 100644 --- a/Source/Modules/STF_ARRAYS.f90 +++ b/Source/Modules/STF_ARRAYS.f90 @@ -1,40 +1,40 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE STF_ARRAYS - + ! Initial, linked list, representation of the G-set stiffness matrix. This is the form in which the individual element stiffness ! matrices are assembled into the system stiffness matrix in subr ESP. Subr SPARSE_KGG taskes this form and creates the sparse -! CRS (compressed row storage) form (I_KGG, J_KGG, KGG) for use in LINK2 and later. +! CRS (compressed row storage) form (I_KGG, J_KGG, KGG) for use in LINK2 and later. USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE DERIVED_DATA_TYPES, ONLY : INT2_REAL1 IMPLICIT NONE - + SAVE TYPE(INT2_REAL1), ALLOCATABLE :: STF3(:) @@ -42,9 +42,9 @@ MODULE STF_ARRAYS INTEGER(LONG), ALLOCATABLE :: STFCOL(:) ! See explanation below INTEGER(LONG), ALLOCATABLE :: STFPNT(:) ! See explanation below INTEGER(LONG), ALLOCATABLE :: STFKEY(:) ! See explanation below - + REAL(DOUBLE) , ALLOCATABLE :: STF(:) ! See explanation below - + ! STF(I) = 1D real array of the nonzero terms, above the diag, in the G-set stiffness matrix. Size is NTERM_KGG. @@ -58,30 +58,30 @@ MODULE STF_ARRAYS ! Size is NTERM_KGG. ! STFCOL(I) = 1D integer array of the column numbers of the terms in STF(I). Size is NTERM_KGG. - + ! An example of this is given below. - + ! Consider the 6 x 6 stiffness matrix: - -! 1 2 3 4 5 6 -! + +! 1 2 3 4 5 6 +! ! | 5. 0. 0. 0. -3. -2.| 1 ! | 9. 0. -5. -4. 0.| 2 ! K = | 6. -6. 0. 0.| 3 ! | 11. 0. 0.| 4 ! | SYMMETRIC 7. 0.| 5 ! | 3.| 6 - + ! The 1D integer arrays STFKEY, STFCOL, STFPNT and the 1D real array STF are generated in subroutine ESP based on ! elem stiffness matrices (which combine to produce the above global K). The arrays are produced by calculating ! each element stiffness matrix (in their element number numerical order - order of ESORT2 after subr ! ELESORT). The terms from each of these elem stiffness matrices are written to STF as they are generated (values are ! accumulated at a common DOF when more than 1 element contributes to the stiffness at that DOF). -! For the above global stiffness matrix, the arrays generated in ESP are: - - +! For the above global stiffness matrix, the arrays generated in ESP are: + + ! I STFKEY(I) STFPNT(I) STFCOL(I) STF(I) -! +! ! 1 8 2 3 6. !---------------------------------------------------------- ! 2 4 0 4 -6. @@ -103,16 +103,16 @@ MODULE STF_ARRAYS ! 10 0 6 -2. !---------------------------------------------------------- ! 11 0 6 3. - + ! In this context it can be seen that STFPNT can be viewed as an array of pointers, one array for each row. The ! STFPNT values for any one row give the value of the stiffness term (STF) and the column it goes in (STFCOL) ! The way that the above arrays are interpreted to get the stiff matrix K (using IS as a intermediate variable) is: - + ! Row 1 (I=1). ! ------------ ! Subroutine ESP generates STF, STFKEY, STFCOL, STFPNT: -! +! ! IS = STFKEY( I) = 8, then STF( 8) = -3. goes in col STFCOL( 8) = 5 ! IS = STFPNT(IS) = 9, then STF( 9) = 5. goes in col STFCOL( 9) = 1 @@ -122,20 +122,20 @@ MODULE STF_ARRAYS ! IS = STFPNT(IS) = 0, No more terms in row I=1 ! Therefore, row 1 has -3. in col 5, 5. in col 1 and -2. in col 6 which is what is shown in the K matrix above. - + ! When subroutine SPARSE_kgg is run the 1st row of tha G-set stiffness, prior to sorting contains the terms above: - + ! KGG value = -3. 5. -2. (stiffness values in row 1) ! KGG col = 5 1 6 (column numbers of terms in row 1) - + ! When SPARSE_KGG has sorted the columns, prior to writing the row to file the 1st row is: - + ! KGG value = 5. -3. -2. (stiffness terms in row 1) -! KGG col = 1 5 6 (column numbers of terms in row 1) - - +! KGG col = 1 5 6 (column numbers of terms in row 1) + + ! Repeat the above for rows 2 - 6 to get all terms above the diag of K from the STFKEY, STFCOL, STFPNT, STF arrays. - + ! By applying the values in STFKEY for each of rows 1 through 5 we can write the above as: ! Row STFPNT STFCOL STF @@ -143,18 +143,18 @@ MODULE STF_ARRAYS ! 1 9 5 -3. ! 10 1 5. ! 0 6 -2. -! +! ! 2 5 4 -5. ! 6 2 9. ! 0 5 -4. -! +! ! 3 2 3 6. ! 0 4 -6. -! +! ! 4 0 4 11. -! +! ! 5 0 5 7. -! +! ! 6 0 6 3. diff --git a/Source/Modules/STF_TEMPLATE_ARRAYS.f90 b/Source/Modules/STF_TEMPLATE_ARRAYS.f90 index 9f013f0a..ef4b5a74 100644 --- a/Source/Modules/STF_TEMPLATE_ARRAYS.f90 +++ b/Source/Modules/STF_TEMPLATE_ARRAYS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE STF_TEMPLATE_ARRAYS diff --git a/Source/Modules/SuperLU_STUF.f90 b/Source/Modules/SuperLU_STUF.f90 index aa327335..a666d9a8 100644 --- a/Source/Modules/SuperLU_STUF.f90 +++ b/Source/Modules/SuperLU_STUF.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SuperLU_STUF diff --git a/Source/Modules/TIMDAT.f90 b/Source/Modules/TIMDAT.f90 index f33a9437..3169b589 100644 --- a/Source/Modules/TIMDAT.f90 +++ b/Source/Modules/TIMDAT.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TIMDAT - + ! Time & Date - + USE PENTIUM_II_KIND, ONLY : LONG, SINGLE IMPLICIT NONE - + SAVE INTEGER(LONG) :: HOUR ! The hour when subr OURTIM returns. @@ -50,8 +50,8 @@ MODULE TIMDAT INTEGER(LONG) :: START_DAY ! The day when MYSTRAN starts. INTEGER(LONG) :: STIME ! A number calc'd in LINK1 as a distinct time stamp to put into all ! output files: STIME = 10^8*MONTH+10^6*DAY+10^4*HOUR+10^2*MINUTE+SEC - - REAL(SINGLE) :: TSEC ! Total secs elapsed since beginning of a run + + REAL(SINGLE) :: TSEC ! Total secs elapsed since beginning of a run REAL(SINGLE) :: DSEC ! Delta secs elapsed since last OURTIM use - + END MODULE TIMDAT diff --git a/Source/USE_IFs/ALLOCATED_MEMORY_USE_IFs.f90 b/Source/USE_IFs/ALLOCATED_MEMORY_USE_IFs.f90 index 346d43c0..d20cfe21 100644 --- a/Source/USE_IFs/ALLOCATED_MEMORY_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATED_MEMORY_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATED_MEMORY_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_CB_ELM_OTM_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_CB_ELM_OTM_USE_IFs.f90 index fa0b4533..f3350315 100644 --- a/Source/USE_IFs/ALLOCATE_CB_ELM_OTM_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_CB_ELM_OTM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_CB_ELM_OTM_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_CB_GRD_OTM_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_CB_GRD_OTM_USE_IFs.f90 index 6dabaa49..6b1707e2 100644 --- a/Source/USE_IFs/ALLOCATE_CB_GRD_OTM_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_CB_GRD_OTM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_CB_GRD_OTM_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_COL_VEC_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_COL_VEC_USE_IFs.f90 index dd2c78f7..377b6005 100644 --- a/Source/USE_IFs/ALLOCATE_COL_VEC_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_COL_VEC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_COL_VEC_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_DOF_TABLES_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_DOF_TABLES_USE_IFs.f90 index 720d55db..f98e1346 100644 --- a/Source/USE_IFs/ALLOCATE_DOF_TABLES_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_DOF_TABLES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_DOF_TABLES_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_EIGEN1_MAT_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_EIGEN1_MAT_USE_IFs.f90 index 48d875b4..2994de31 100644 --- a/Source/USE_IFs/ALLOCATE_EIGEN1_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_EIGEN1_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_EIGEN1_MAT_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_EMS_ARRAYS_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_EMS_ARRAYS_USE_IFs.f90 index fd5dbeeb..d3fed247 100644 --- a/Source/USE_IFs/ALLOCATE_EMS_ARRAYS_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_EMS_ARRAYS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_EMS_ARRAYS_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_FEMAP_DATA_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_FEMAP_DATA_USE_IFs.f90 index af10911b..5f9f7e49 100644 --- a/Source/USE_IFs/ALLOCATE_FEMAP_DATA_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_FEMAP_DATA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_FEMAP_DATA_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_FULL_MAT_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_FULL_MAT_USE_IFs.f90 index c55eb64f..070a11b4 100644 --- a/Source/USE_IFs/ALLOCATE_FULL_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_FULL_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_FULL_MAT_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_IN4_FILES_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_IN4_FILES_USE_IFs.f90 index cfe480c6..8a2c78ff 100644 --- a/Source/USE_IFs/ALLOCATE_IN4_FILES_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_IN4_FILES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_IN4_FILES_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_L1_MGG_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_L1_MGG_USE_IFs.f90 index dc7644f6..c52e2198 100644 --- a/Source/USE_IFs/ALLOCATE_L1_MGG_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_L1_MGG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_L1_MGG_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_L2_GMN_2_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_L2_GMN_2_USE_IFs.f90 index 432e77eb..dc7b79fb 100644 --- a/Source/USE_IFs/ALLOCATE_L2_GMN_2_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_L2_GMN_2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_L2_GMN_2_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_L2_GOA_2_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_L2_GOA_2_USE_IFs.f90 index 6da24110..00f22b00 100644 --- a/Source/USE_IFs/ALLOCATE_L2_GOA_2_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_L2_GOA_2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_L2_GOA_2_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_L6_2_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_L6_2_USE_IFs.f90 index 8fa4177b..294d31cf 100644 --- a/Source/USE_IFs/ALLOCATE_L6_2_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_L6_2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_L6_2_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_LAPACK_MAT_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_LAPACK_MAT_USE_IFs.f90 index d209b8f8..9ce7097e 100644 --- a/Source/USE_IFs/ALLOCATE_LAPACK_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_LAPACK_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_LAPACK_MAT_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_LINK9_STUF_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_LINK9_STUF_USE_IFs.f90 index 362701c0..2c5425ec 100644 --- a/Source/USE_IFs/ALLOCATE_LINK9_STUF_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_LINK9_STUF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_LINK9_STUF_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_MISC_MAT_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_MISC_MAT_USE_IFs.f90 index fe488081..d1fb805c 100644 --- a/Source/USE_IFs/ALLOCATE_MISC_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_MISC_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_MISC_MAT_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_MODEL_STUF_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_MODEL_STUF_USE_IFs.f90 index b0d88771..e61c31c2 100644 --- a/Source/USE_IFs/ALLOCATE_MODEL_STUF_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_MODEL_STUF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_MODEL_STUF_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_NL_PARAMS_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_NL_PARAMS_USE_IFs.f90 index 282dc401..f6844011 100644 --- a/Source/USE_IFs/ALLOCATE_NL_PARAMS_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_NL_PARAMS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_NL_PARAMS_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_RBGLOBAL_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_RBGLOBAL_USE_IFs.f90 index 5daf6583..e19b3e9b 100644 --- a/Source/USE_IFs/ALLOCATE_RBGLOBAL_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_RBGLOBAL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_RBGLOBAL_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_SCR_CCS_MAT_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_SCR_CCS_MAT_USE_IFs.f90 index 64a3bbdc..57de538c 100644 --- a/Source/USE_IFs/ALLOCATE_SCR_CCS_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_SCR_CCS_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_SCR_CCS_MAT_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_SCR_CRS_MAT_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_SCR_CRS_MAT_USE_IFs.f90 index e9e2f74a..9924ef3e 100644 --- a/Source/USE_IFs/ALLOCATE_SCR_CRS_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_SCR_CRS_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_SCR_CRS_MAT_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_SPARSE_ALG_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_SPARSE_ALG_USE_IFs.f90 index 89fefefe..855cbae7 100644 --- a/Source/USE_IFs/ALLOCATE_SPARSE_ALG_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_SPARSE_ALG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_SPARSE_ALG_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_SPARSE_MAT_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_SPARSE_MAT_USE_IFs.f90 index 4768d965..ab480522 100644 --- a/Source/USE_IFs/ALLOCATE_SPARSE_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_SPARSE_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_SPARSE_MAT_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_STF_ARRAYS_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_STF_ARRAYS_USE_IFs.f90 index 3d50f1fc..d2414710 100644 --- a/Source/USE_IFs/ALLOCATE_STF_ARRAYS_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_STF_ARRAYS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_STF_ARRAYS_USE_IFs diff --git a/Source/USE_IFs/ALLOCATE_TEMPLATE_USE_IFs.f90 b/Source/USE_IFs/ALLOCATE_TEMPLATE_USE_IFs.f90 index a346e6db..68704f4b 100644 --- a/Source/USE_IFs/ALLOCATE_TEMPLATE_USE_IFs.f90 +++ b/Source/USE_IFs/ALLOCATE_TEMPLATE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ALLOCATE_TEMPLATE_USE_IFs diff --git a/Source/USE_IFs/ARPACK_INFO_MSG_USE_IFs.f90 b/Source/USE_IFs/ARPACK_INFO_MSG_USE_IFs.f90 index 47653036..fb88c08f 100644 --- a/Source/USE_IFs/ARPACK_INFO_MSG_USE_IFs.f90 +++ b/Source/USE_IFs/ARPACK_INFO_MSG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ARPACK_INFO_MSG_USE_IFs diff --git a/Source/USE_IFs/ARRAY_SIZE_ERROR_1_USE_IFs.f90 b/Source/USE_IFs/ARRAY_SIZE_ERROR_1_USE_IFs.f90 index d50c22a6..4bc2c9f2 100644 --- a/Source/USE_IFs/ARRAY_SIZE_ERROR_1_USE_IFs.f90 +++ b/Source/USE_IFs/ARRAY_SIZE_ERROR_1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ARRAY_SIZE_ERROR_1_USE_IFs diff --git a/Source/USE_IFs/AUTOSPC_SUMMARY_MSGS_USE_IFs.f90 b/Source/USE_IFs/AUTOSPC_SUMMARY_MSGS_USE_IFs.f90 index 1f06149a..d15ee45b 100644 --- a/Source/USE_IFs/AUTOSPC_SUMMARY_MSGS_USE_IFs.f90 +++ b/Source/USE_IFs/AUTOSPC_SUMMARY_MSGS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE AUTOSPC_SUMMARY_MSGS_USE_IFs diff --git a/Source/USE_IFs/B3D_ISOPARAMETRIC_USE_IFs.f90 b/Source/USE_IFs/B3D_ISOPARAMETRIC_USE_IFs.f90 index dd2ed839..40084337 100644 --- a/Source/USE_IFs/B3D_ISOPARAMETRIC_USE_IFs.f90 +++ b/Source/USE_IFs/B3D_ISOPARAMETRIC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE B3D_ISOPARAMETRIC_USE_IFs diff --git a/Source/USE_IFs/BANDGEN_LAPACK_DGB_USE_IFs.f90 b/Source/USE_IFs/BANDGEN_LAPACK_DGB_USE_IFs.f90 index 6485b69c..4a0c3f6e 100644 --- a/Source/USE_IFs/BANDGEN_LAPACK_DGB_USE_IFs.f90 +++ b/Source/USE_IFs/BANDGEN_LAPACK_DGB_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BANDGEN_LAPACK_DGB_USE_IFs diff --git a/Source/USE_IFs/BANDGEN_LAPACK_DPB_USE_IFs.f90 b/Source/USE_IFs/BANDGEN_LAPACK_DPB_USE_IFs.f90 index a0bf1a9d..eeaab8de 100644 --- a/Source/USE_IFs/BANDGEN_LAPACK_DPB_USE_IFs.f90 +++ b/Source/USE_IFs/BANDGEN_LAPACK_DPB_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BANDGEN_LAPACK_DPB_USE_IFs diff --git a/Source/USE_IFs/BANDIT_FILES_USE_IFs.f90 b/Source/USE_IFs/BANDIT_FILES_USE_IFs.f90 index 32fd0ff1..27cd4c95 100644 --- a/Source/USE_IFs/BANDIT_FILES_USE_IFs.f90 +++ b/Source/USE_IFs/BANDIT_FILES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BANDIT_FILES_USE_IFs diff --git a/Source/USE_IFs/BANDSIZ_USE_IFs.f90 b/Source/USE_IFs/BANDSIZ_USE_IFs.f90 index 0bc04cad..e5da9686 100644 --- a/Source/USE_IFs/BANDSIZ_USE_IFs.f90 +++ b/Source/USE_IFs/BANDSIZ_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BANDSIZ_USE_IFs diff --git a/Source/USE_IFs/BAR1_USE_IFs.f90 b/Source/USE_IFs/BAR1_USE_IFs.f90 index 6d05f5c5..59d7192e 100644 --- a/Source/USE_IFs/BAR1_USE_IFs.f90 +++ b/Source/USE_IFs/BAR1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BAR1_USE_IFs diff --git a/Source/USE_IFs/BART_USE_IFs.f90 b/Source/USE_IFs/BART_USE_IFs.f90 index 3bde34b7..4898e16c 100644 --- a/Source/USE_IFs/BART_USE_IFs.f90 +++ b/Source/USE_IFs/BART_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BART_USE_IFs diff --git a/Source/USE_IFs/BAR_MARGIN_USE_IFs.f90 b/Source/USE_IFs/BAR_MARGIN_USE_IFs.f90 index 8bcfe859..bf11ab48 100644 --- a/Source/USE_IFs/BAR_MARGIN_USE_IFs.f90 +++ b/Source/USE_IFs/BAR_MARGIN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BAR_MARGIN_USE_IFs diff --git a/Source/USE_IFs/BBDKQ_USE_IFs.f90 b/Source/USE_IFs/BBDKQ_USE_IFs.f90 index ff155639..a8a83caf 100644 --- a/Source/USE_IFs/BBDKQ_USE_IFs.f90 +++ b/Source/USE_IFs/BBDKQ_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BBDKQ_USE_IFs diff --git a/Source/USE_IFs/BBMIN3_USE_IFs.f90 b/Source/USE_IFs/BBMIN3_USE_IFs.f90 index 705687c7..9e56ed05 100644 --- a/Source/USE_IFs/BBMIN3_USE_IFs.f90 +++ b/Source/USE_IFs/BBMIN3_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BBMIN3_USE_IFs diff --git a/Source/USE_IFs/BBMIN4_USE_IFs.f90 b/Source/USE_IFs/BBMIN4_USE_IFs.f90 index 7938bc1c..3ee8b9d9 100644 --- a/Source/USE_IFs/BBMIN4_USE_IFs.f90 +++ b/Source/USE_IFs/BBMIN4_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BBMIN4_USE_IFs diff --git a/Source/USE_IFs/BCHECK_2D_USE_IFs.f90 b/Source/USE_IFs/BCHECK_2D_USE_IFs.f90 index 46586347..2970d353 100644 --- a/Source/USE_IFs/BCHECK_2D_USE_IFs.f90 +++ b/Source/USE_IFs/BCHECK_2D_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BCHECK_2D_USE_IFs diff --git a/Source/USE_IFs/BCHECK_3D_USE_IFs.f90 b/Source/USE_IFs/BCHECK_3D_USE_IFs.f90 index ff67c69f..1ab0edb1 100644 --- a/Source/USE_IFs/BCHECK_3D_USE_IFs.f90 +++ b/Source/USE_IFs/BCHECK_3D_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BCHECK_3D_USE_IFs diff --git a/Source/USE_IFs/BD_ASET1_USE_IFs.f90 b/Source/USE_IFs/BD_ASET1_USE_IFs.f90 index bf1aa706..7871fe93 100644 --- a/Source/USE_IFs/BD_ASET1_USE_IFs.f90 +++ b/Source/USE_IFs/BD_ASET1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_ASET1_USE_IFs diff --git a/Source/USE_IFs/BD_ASET_USE_IFs.f90 b/Source/USE_IFs/BD_ASET_USE_IFs.f90 index 0962381b..ba808ed0 100644 --- a/Source/USE_IFs/BD_ASET_USE_IFs.f90 +++ b/Source/USE_IFs/BD_ASET_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_ASET_USE_IFs diff --git a/Source/USE_IFs/BD_BAROR0_USE_IFs.f90 b/Source/USE_IFs/BD_BAROR0_USE_IFs.f90 index 7556c0bd..2ebd3dc4 100644 --- a/Source/USE_IFs/BD_BAROR0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_BAROR0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_BAROR0_USE_IFs diff --git a/Source/USE_IFs/BD_BAROR_USE_IFs.f90 b/Source/USE_IFs/BD_BAROR_USE_IFs.f90 index 80f37785..996a728e 100644 --- a/Source/USE_IFs/BD_BAROR_USE_IFs.f90 +++ b/Source/USE_IFs/BD_BAROR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_BAROR_USE_IFs diff --git a/Source/USE_IFs/BD_BEAMOR0_USE_IFs.f90 b/Source/USE_IFs/BD_BEAMOR0_USE_IFs.f90 index 0ae83df1..b69466b8 100644 --- a/Source/USE_IFs/BD_BEAMOR0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_BEAMOR0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_BEAMOR0_USE_IFs diff --git a/Source/USE_IFs/BD_BEAMOR_USE_IFs.f90 b/Source/USE_IFs/BD_BEAMOR_USE_IFs.f90 index ce4d884f..38c097bd 100644 --- a/Source/USE_IFs/BD_BEAMOR_USE_IFs.f90 +++ b/Source/USE_IFs/BD_BEAMOR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_BEAMOR_USE_IFs diff --git a/Source/USE_IFs/BD_CBAR0_USE_IFs.f90 b/Source/USE_IFs/BD_CBAR0_USE_IFs.f90 index 9470d6d7..e2407d9f 100644 --- a/Source/USE_IFs/BD_CBAR0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CBAR0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CBAR0_USE_IFs diff --git a/Source/USE_IFs/BD_CBAR_USE_IFs.f90 b/Source/USE_IFs/BD_CBAR_USE_IFs.f90 index 76588b19..4a65d1e3 100644 --- a/Source/USE_IFs/BD_CBAR_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CBAR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CBAR_USE_IFs diff --git a/Source/USE_IFs/BD_CBUSH0_USE_IFs.f90 b/Source/USE_IFs/BD_CBUSH0_USE_IFs.f90 index d8d37880..2b6646e6 100644 --- a/Source/USE_IFs/BD_CBUSH0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CBUSH0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CBUSH0_USE_IFs diff --git a/Source/USE_IFs/BD_CBUSH_USE_IFs.f90 b/Source/USE_IFs/BD_CBUSH_USE_IFs.f90 index 39b41696..e4295fe2 100644 --- a/Source/USE_IFs/BD_CBUSH_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CBUSH_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CBUSH_USE_IFs diff --git a/Source/USE_IFs/BD_CELAS1_USE_IFs.f90 b/Source/USE_IFs/BD_CELAS1_USE_IFs.f90 index 981142ea..03359636 100644 --- a/Source/USE_IFs/BD_CELAS1_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CELAS1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CELAS1_USE_IFs diff --git a/Source/USE_IFs/BD_CELAS2_USE_IFs.f90 b/Source/USE_IFs/BD_CELAS2_USE_IFs.f90 index 5b4edec6..43aee487 100644 --- a/Source/USE_IFs/BD_CELAS2_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CELAS2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CELAS2_USE_IFs diff --git a/Source/USE_IFs/BD_CELAS3_USE_IFs.f90 b/Source/USE_IFs/BD_CELAS3_USE_IFs.f90 index cdda0df3..92b69e14 100644 --- a/Source/USE_IFs/BD_CELAS3_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CELAS3_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CELAS3_USE_IFs diff --git a/Source/USE_IFs/BD_CELAS4_USE_IFs.f90 b/Source/USE_IFs/BD_CELAS4_USE_IFs.f90 index 0310bb89..225ee97a 100644 --- a/Source/USE_IFs/BD_CELAS4_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CELAS4_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CELAS4_USE_IFs diff --git a/Source/USE_IFs/BD_CHEXA0_USE_IFs.f90 b/Source/USE_IFs/BD_CHEXA0_USE_IFs.f90 index f08e2015..2718b902 100644 --- a/Source/USE_IFs/BD_CHEXA0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CHEXA0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CHEXA0_USE_IFs diff --git a/Source/USE_IFs/BD_CHEXA_USE_IFs.f90 b/Source/USE_IFs/BD_CHEXA_USE_IFs.f90 index 85abe02e..eb3d888f 100644 --- a/Source/USE_IFs/BD_CHEXA_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CHEXA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CHEXA_USE_IFs diff --git a/Source/USE_IFs/BD_CMASS1_USE_IFs.f90 b/Source/USE_IFs/BD_CMASS1_USE_IFs.f90 index 3474bc9f..47f35f82 100644 --- a/Source/USE_IFs/BD_CMASS1_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CMASS1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CMASS1_USE_IFs diff --git a/Source/USE_IFs/BD_CMASS2_USE_IFs.f90 b/Source/USE_IFs/BD_CMASS2_USE_IFs.f90 index 9aa63730..707de52c 100644 --- a/Source/USE_IFs/BD_CMASS2_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CMASS2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CMASS2_USE_IFs diff --git a/Source/USE_IFs/BD_CMASS3_USE_IFs.f90 b/Source/USE_IFs/BD_CMASS3_USE_IFs.f90 index 167515ab..958da7df 100644 --- a/Source/USE_IFs/BD_CMASS3_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CMASS3_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CMASS3_USE_IFs diff --git a/Source/USE_IFs/BD_CMASS4_USE_IFs.f90 b/Source/USE_IFs/BD_CMASS4_USE_IFs.f90 index 2420e49d..d6b5321b 100644 --- a/Source/USE_IFs/BD_CMASS4_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CMASS4_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CMASS4_USE_IFs diff --git a/Source/USE_IFs/BD_CONM2_USE_IFs.f90 b/Source/USE_IFs/BD_CONM2_USE_IFs.f90 index ef8a18b9..5d041f6f 100644 --- a/Source/USE_IFs/BD_CONM2_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CONM2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CONM2_USE_IFs diff --git a/Source/USE_IFs/BD_CONROD_USE_IFs.f90 b/Source/USE_IFs/BD_CONROD_USE_IFs.f90 index 29d79121..9bf2d195 100644 --- a/Source/USE_IFs/BD_CONROD_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CONROD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CONROD_USE_IFs diff --git a/Source/USE_IFs/BD_CORD_USE_IFs.f90 b/Source/USE_IFs/BD_CORD_USE_IFs.f90 index 63877d34..40be4ac3 100644 --- a/Source/USE_IFs/BD_CORD_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CORD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CORD_USE_IFs diff --git a/Source/USE_IFs/BD_CPENTA0_USE_IFs.f90 b/Source/USE_IFs/BD_CPENTA0_USE_IFs.f90 index 4ea59114..6b76ea21 100644 --- a/Source/USE_IFs/BD_CPENTA0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CPENTA0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CPENTA0_USE_IFs diff --git a/Source/USE_IFs/BD_CPENTA_USE_IFs.f90 b/Source/USE_IFs/BD_CPENTA_USE_IFs.f90 index 0f1d9208..037faa1d 100644 --- a/Source/USE_IFs/BD_CPENTA_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CPENTA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CPENTA_USE_IFs diff --git a/Source/USE_IFs/BD_CQUAD0_USE_IFs.f90 b/Source/USE_IFs/BD_CQUAD0_USE_IFs.f90 index 3f967c17..9ea81a81 100644 --- a/Source/USE_IFs/BD_CQUAD0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CQUAD0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CQUAD0_USE_IFs diff --git a/Source/USE_IFs/BD_CQUAD_USE_IFs.f90 b/Source/USE_IFs/BD_CQUAD_USE_IFs.f90 index a8fdf240..79c52e64 100644 --- a/Source/USE_IFs/BD_CQUAD_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CQUAD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CQUAD_USE_IFs diff --git a/Source/USE_IFs/BD_CROD_USE_IFs.f90 b/Source/USE_IFs/BD_CROD_USE_IFs.f90 index 4f86f270..16985a46 100644 --- a/Source/USE_IFs/BD_CROD_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CROD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CROD_USE_IFs diff --git a/Source/USE_IFs/BD_CSHEAR_USE_IFs.f90 b/Source/USE_IFs/BD_CSHEAR_USE_IFs.f90 index 542e3ccb..149807ee 100644 --- a/Source/USE_IFs/BD_CSHEAR_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CSHEAR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CSHEAR_USE_IFs diff --git a/Source/USE_IFs/BD_CTETRA0_USE_IFs.f90 b/Source/USE_IFs/BD_CTETRA0_USE_IFs.f90 index a733704d..3388162f 100644 --- a/Source/USE_IFs/BD_CTETRA0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CTETRA0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CTETRA0_USE_IFs diff --git a/Source/USE_IFs/BD_CTETRA_USE_IFs.f90 b/Source/USE_IFs/BD_CTETRA_USE_IFs.f90 index 48b0aca7..db1b1ee1 100644 --- a/Source/USE_IFs/BD_CTETRA_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CTETRA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CTETRA_USE_IFs diff --git a/Source/USE_IFs/BD_CTRIA0_USE_IFs.f90 b/Source/USE_IFs/BD_CTRIA0_USE_IFs.f90 index 170cb497..2c371609 100644 --- a/Source/USE_IFs/BD_CTRIA0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CTRIA0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CTRIA0_USE_IFs diff --git a/Source/USE_IFs/BD_CTRIA_USE_IFs.f90 b/Source/USE_IFs/BD_CTRIA_USE_IFs.f90 index 0df31a19..daee8443 100644 --- a/Source/USE_IFs/BD_CTRIA_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CTRIA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CTRIA_USE_IFs diff --git a/Source/USE_IFs/BD_CUSER1_USE_IFs.f90 b/Source/USE_IFs/BD_CUSER1_USE_IFs.f90 index f61704cc..aa5af53e 100644 --- a/Source/USE_IFs/BD_CUSER1_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CUSER1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CUSER1_USE_IFs diff --git a/Source/USE_IFs/BD_CUSERIN0_USE_IFs.f90 b/Source/USE_IFs/BD_CUSERIN0_USE_IFs.f90 index 7e51387c..ae2c21f9 100644 --- a/Source/USE_IFs/BD_CUSERIN0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CUSERIN0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CUSERIN0_USE_IFs diff --git a/Source/USE_IFs/BD_CUSERIN_USE_IFs.f90 b/Source/USE_IFs/BD_CUSERIN_USE_IFs.f90 index 5999de24..7af25618 100644 --- a/Source/USE_IFs/BD_CUSERIN_USE_IFs.f90 +++ b/Source/USE_IFs/BD_CUSERIN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_CUSERIN_USE_IFs diff --git a/Source/USE_IFs/BD_DEBUG0_USE_IFs.f90 b/Source/USE_IFs/BD_DEBUG0_USE_IFs.f90 index fe73c51e..6742f0a0 100644 --- a/Source/USE_IFs/BD_DEBUG0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_DEBUG0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_DEBUG0_USE_IFs diff --git a/Source/USE_IFs/BD_DEBUG_USE_IFs.f90 b/Source/USE_IFs/BD_DEBUG_USE_IFs.f90 index 32b30081..b5035db1 100644 --- a/Source/USE_IFs/BD_DEBUG_USE_IFs.f90 +++ b/Source/USE_IFs/BD_DEBUG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_DEBUG_USE_IFs diff --git a/Source/USE_IFs/BD_EIGRL_USE_IFs.f90 b/Source/USE_IFs/BD_EIGRL_USE_IFs.f90 index 1dffc2f4..b47f2492 100644 --- a/Source/USE_IFs/BD_EIGRL_USE_IFs.f90 +++ b/Source/USE_IFs/BD_EIGRL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_EIGRL_USE_IFs diff --git a/Source/USE_IFs/BD_EIGR_USE_IFs.f90 b/Source/USE_IFs/BD_EIGR_USE_IFs.f90 index 66a4cd5e..9c54a799 100644 --- a/Source/USE_IFs/BD_EIGR_USE_IFs.f90 +++ b/Source/USE_IFs/BD_EIGR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_EIGR_USE_IFs diff --git a/Source/USE_IFs/BD_FORMOM_USE_IFs.f90 b/Source/USE_IFs/BD_FORMOM_USE_IFs.f90 index f695d72a..6f1d72f2 100644 --- a/Source/USE_IFs/BD_FORMOM_USE_IFs.f90 +++ b/Source/USE_IFs/BD_FORMOM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_FORMOM_USE_IFs diff --git a/Source/USE_IFs/BD_GRAV_USE_IFs.f90 b/Source/USE_IFs/BD_GRAV_USE_IFs.f90 index 6f2278b6..54eeaea1 100644 --- a/Source/USE_IFs/BD_GRAV_USE_IFs.f90 +++ b/Source/USE_IFs/BD_GRAV_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_GRAV_USE_IFs diff --git a/Source/USE_IFs/BD_GRDSET0_USE_IFs.f90 b/Source/USE_IFs/BD_GRDSET0_USE_IFs.f90 index 889615b0..f8f87012 100644 --- a/Source/USE_IFs/BD_GRDSET0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_GRDSET0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_GRDSET0_USE_IFs diff --git a/Source/USE_IFs/BD_GRDSET_USE_IFs.f90 b/Source/USE_IFs/BD_GRDSET_USE_IFs.f90 index f02432e2..cae5f298 100644 --- a/Source/USE_IFs/BD_GRDSET_USE_IFs.f90 +++ b/Source/USE_IFs/BD_GRDSET_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_GRDSET_USE_IFs diff --git a/Source/USE_IFs/BD_GRID_USE_IFs.f90 b/Source/USE_IFs/BD_GRID_USE_IFs.f90 index b4c1bc5a..903d8d07 100644 --- a/Source/USE_IFs/BD_GRID_USE_IFs.f90 +++ b/Source/USE_IFs/BD_GRID_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_GRID_USE_IFs diff --git a/Source/USE_IFs/BD_IMBEDDED_BLANK_USE_IFs.f90 b/Source/USE_IFs/BD_IMBEDDED_BLANK_USE_IFs.f90 index b187f86b..9c681887 100644 --- a/Source/USE_IFs/BD_IMBEDDED_BLANK_USE_IFs.f90 +++ b/Source/USE_IFs/BD_IMBEDDED_BLANK_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_IMBEDDED_BLANK_USE_IFs diff --git a/Source/USE_IFs/BD_LOAD0_USE_IFs.f90 b/Source/USE_IFs/BD_LOAD0_USE_IFs.f90 index 11238bd6..c639300c 100644 --- a/Source/USE_IFs/BD_LOAD0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_LOAD0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_LOAD0_USE_IFs diff --git a/Source/USE_IFs/BD_LOAD_USE_IFs.f90 b/Source/USE_IFs/BD_LOAD_USE_IFs.f90 index ebe49391..4839b2a4 100644 --- a/Source/USE_IFs/BD_LOAD_USE_IFs.f90 +++ b/Source/USE_IFs/BD_LOAD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_LOAD_USE_IFs diff --git a/Source/USE_IFs/BD_MAT1_USE_IFs.f90 b/Source/USE_IFs/BD_MAT1_USE_IFs.f90 index f02b1856..efb82d2d 100644 --- a/Source/USE_IFs/BD_MAT1_USE_IFs.f90 +++ b/Source/USE_IFs/BD_MAT1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MAT1_USE_IFs diff --git a/Source/USE_IFs/BD_MAT2_USE_IFs.f90 b/Source/USE_IFs/BD_MAT2_USE_IFs.f90 index f841a123..f34a691f 100644 --- a/Source/USE_IFs/BD_MAT2_USE_IFs.f90 +++ b/Source/USE_IFs/BD_MAT2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MAT2_USE_IFs diff --git a/Source/USE_IFs/BD_MAT8_USE_IFs.f90 b/Source/USE_IFs/BD_MAT8_USE_IFs.f90 index 7af8e99f..699fdb41 100644 --- a/Source/USE_IFs/BD_MAT8_USE_IFs.f90 +++ b/Source/USE_IFs/BD_MAT8_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MAT8_USE_IFs diff --git a/Source/USE_IFs/BD_MAT9_USE_IFs.f90 b/Source/USE_IFs/BD_MAT9_USE_IFs.f90 index 5ac16724..73968a77 100644 --- a/Source/USE_IFs/BD_MAT9_USE_IFs.f90 +++ b/Source/USE_IFs/BD_MAT9_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MAT9_USE_IFs diff --git a/Source/USE_IFs/BD_MPC0_USE_IFs.f90 b/Source/USE_IFs/BD_MPC0_USE_IFs.f90 index f73fde80..2eabcd03 100644 --- a/Source/USE_IFs/BD_MPC0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_MPC0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MPC0_USE_IFs diff --git a/Source/USE_IFs/BD_MPCADD0_USE_IFs.f90 b/Source/USE_IFs/BD_MPCADD0_USE_IFs.f90 index 9818d3cc..d8a918a5 100644 --- a/Source/USE_IFs/BD_MPCADD0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_MPCADD0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MPCADD0_USE_IFs diff --git a/Source/USE_IFs/BD_MPCADD_USE_IFs.f90 b/Source/USE_IFs/BD_MPCADD_USE_IFs.f90 index d1ab2aa9..4efa8580 100644 --- a/Source/USE_IFs/BD_MPCADD_USE_IFs.f90 +++ b/Source/USE_IFs/BD_MPCADD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MPCADD_USE_IFs diff --git a/Source/USE_IFs/BD_MPC_USE_IFs.f90 b/Source/USE_IFs/BD_MPC_USE_IFs.f90 index 9e8cf9f8..6caaaf41 100644 --- a/Source/USE_IFs/BD_MPC_USE_IFs.f90 +++ b/Source/USE_IFs/BD_MPC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_MPC_USE_IFs diff --git a/Source/USE_IFs/BD_NLPARM_USE_IFs.f90 b/Source/USE_IFs/BD_NLPARM_USE_IFs.f90 index 584775ce..7ef7cf7b 100644 --- a/Source/USE_IFs/BD_NLPARM_USE_IFs.f90 +++ b/Source/USE_IFs/BD_NLPARM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_NLPARM_USE_IFs diff --git a/Source/USE_IFs/BD_PARAM0_USE_IFs.f90 b/Source/USE_IFs/BD_PARAM0_USE_IFs.f90 index c15c2636..24a58f69 100644 --- a/Source/USE_IFs/BD_PARAM0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PARAM0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PARAM0_USE_IFs diff --git a/Source/USE_IFs/BD_PARAM_USE_IFs.f90 b/Source/USE_IFs/BD_PARAM_USE_IFs.f90 index 448c54dd..8b8a190a 100644 --- a/Source/USE_IFs/BD_PARAM_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PARAM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PARAM_USE_IFs diff --git a/Source/USE_IFs/BD_PARVEC1_USE_IFs.f90 b/Source/USE_IFs/BD_PARVEC1_USE_IFs.f90 index fa2234dd..8a2597e1 100644 --- a/Source/USE_IFs/BD_PARVEC1_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PARVEC1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PARVEC1_USE_IFs diff --git a/Source/USE_IFs/BD_PARVEC_USE_IFs.f90 b/Source/USE_IFs/BD_PARVEC_USE_IFs.f90 index 946d2e44..d68c4ab7 100644 --- a/Source/USE_IFs/BD_PARVEC_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PARVEC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PARVEC_USE_IFs diff --git a/Source/USE_IFs/BD_PBARL_USE_IFs.f90 b/Source/USE_IFs/BD_PBARL_USE_IFs.f90 index 52e28f97..0ea31a67 100644 --- a/Source/USE_IFs/BD_PBARL_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PBARL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PBARL_USE_IFs diff --git a/Source/USE_IFs/BD_PBAR_USE_IFs.f90 b/Source/USE_IFs/BD_PBAR_USE_IFs.f90 index 1b834d4c..ebdbf6be 100644 --- a/Source/USE_IFs/BD_PBAR_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PBAR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PBAR_USE_IFs diff --git a/Source/USE_IFs/BD_PBEAM_USE_IFs.f90 b/Source/USE_IFs/BD_PBEAM_USE_IFs.f90 index 0d1c38c7..060ad681 100644 --- a/Source/USE_IFs/BD_PBEAM_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PBEAM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PBEAM_USE_IFs diff --git a/Source/USE_IFs/BD_PBUSH_USE_IFs.f90 b/Source/USE_IFs/BD_PBUSH_USE_IFs.f90 index 9a85bcb7..ab1809e6 100644 --- a/Source/USE_IFs/BD_PBUSH_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PBUSH_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PBUSH_USE_IFs diff --git a/Source/USE_IFs/BD_PCOMP0_USE_IFs.f90 b/Source/USE_IFs/BD_PCOMP0_USE_IFs.f90 index bbb67e30..059cda57 100644 --- a/Source/USE_IFs/BD_PCOMP0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PCOMP0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PCOMP0_USE_IFs diff --git a/Source/USE_IFs/BD_PCOMP10_USE_IFs.f90 b/Source/USE_IFs/BD_PCOMP10_USE_IFs.f90 index 163c0058..936aa21c 100644 --- a/Source/USE_IFs/BD_PCOMP10_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PCOMP10_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PCOMP10_USE_IFs diff --git a/Source/USE_IFs/BD_PCOMP1_USE_IFs.f90 b/Source/USE_IFs/BD_PCOMP1_USE_IFs.f90 index 96f4e15f..ff036662 100644 --- a/Source/USE_IFs/BD_PCOMP1_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PCOMP1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PCOMP1_USE_IFs diff --git a/Source/USE_IFs/BD_PCOMP_USE_IFs.f90 b/Source/USE_IFs/BD_PCOMP_USE_IFs.f90 index 64971226..138422a0 100644 --- a/Source/USE_IFs/BD_PCOMP_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PCOMP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PCOMP_USE_IFs diff --git a/Source/USE_IFs/BD_PELAS_USE_IFs.f90 b/Source/USE_IFs/BD_PELAS_USE_IFs.f90 index 8d8f9c44..a0690f30 100644 --- a/Source/USE_IFs/BD_PELAS_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PELAS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PELAS_USE_IFs diff --git a/Source/USE_IFs/BD_PLOAD2_USE_IFs.f90 b/Source/USE_IFs/BD_PLOAD2_USE_IFs.f90 index 6ce76a07..6432f6b0 100644 --- a/Source/USE_IFs/BD_PLOAD2_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PLOAD2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PLOAD2_USE_IFs diff --git a/Source/USE_IFs/BD_PLOAD4_USE_IFs.f90 b/Source/USE_IFs/BD_PLOAD4_USE_IFs.f90 index b7b77334..1f30b85b 100644 --- a/Source/USE_IFs/BD_PLOAD4_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PLOAD4_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PLOAD4_USE_IFs diff --git a/Source/USE_IFs/BD_PLOTEL_USE_IFs.f90 b/Source/USE_IFs/BD_PLOTEL_USE_IFs.f90 index e5307293..8a9e42ae 100644 --- a/Source/USE_IFs/BD_PLOTEL_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PLOTEL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PLOTEL_USE_IFs diff --git a/Source/USE_IFs/BD_PMASS_USE_IFs.f90 b/Source/USE_IFs/BD_PMASS_USE_IFs.f90 index f37b5a00..72859d57 100644 --- a/Source/USE_IFs/BD_PMASS_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PMASS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PMASS_USE_IFs diff --git a/Source/USE_IFs/BD_PROD_USE_IFs.f90 b/Source/USE_IFs/BD_PROD_USE_IFs.f90 index 62ca0683..c150eca8 100644 --- a/Source/USE_IFs/BD_PROD_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PROD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PROD_USE_IFs diff --git a/Source/USE_IFs/BD_PSHEAR_USE_IFs.f90 b/Source/USE_IFs/BD_PSHEAR_USE_IFs.f90 index 933dadd4..e6eeb021 100644 --- a/Source/USE_IFs/BD_PSHEAR_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PSHEAR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PSHEAR_USE_IFs diff --git a/Source/USE_IFs/BD_PSHEL_USE_IFs.f90 b/Source/USE_IFs/BD_PSHEL_USE_IFs.f90 index efc74f50..fc822335 100644 --- a/Source/USE_IFs/BD_PSHEL_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PSHEL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PSHEL_USE_IFs diff --git a/Source/USE_IFs/BD_PSOLID_USE_IFs.f90 b/Source/USE_IFs/BD_PSOLID_USE_IFs.f90 index 2bc80ba1..af75a6e4 100644 --- a/Source/USE_IFs/BD_PSOLID_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PSOLID_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PSOLID_USE_IFs diff --git a/Source/USE_IFs/BD_PUSER1_USE_IFs.f90 b/Source/USE_IFs/BD_PUSER1_USE_IFs.f90 index 24475936..8fd8ebf7 100644 --- a/Source/USE_IFs/BD_PUSER1_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PUSER1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PUSER1_USE_IFs diff --git a/Source/USE_IFs/BD_PUSERIN_USE_IFs.f90 b/Source/USE_IFs/BD_PUSERIN_USE_IFs.f90 index b4f18032..ca8127ca 100644 --- a/Source/USE_IFs/BD_PUSERIN_USE_IFs.f90 +++ b/Source/USE_IFs/BD_PUSERIN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_PUSERIN_USE_IFs diff --git a/Source/USE_IFs/BD_RBAR_USE_IFs.f90 b/Source/USE_IFs/BD_RBAR_USE_IFs.f90 index 6e608ab9..3a5b09cb 100644 --- a/Source/USE_IFs/BD_RBAR_USE_IFs.f90 +++ b/Source/USE_IFs/BD_RBAR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RBAR_USE_IFs diff --git a/Source/USE_IFs/BD_RBE1_USE_IFs.f90 b/Source/USE_IFs/BD_RBE1_USE_IFs.f90 index ccdae0a2..c6a1f5ab 100644 --- a/Source/USE_IFs/BD_RBE1_USE_IFs.f90 +++ b/Source/USE_IFs/BD_RBE1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RBE1_USE_IFs diff --git a/Source/USE_IFs/BD_RBE2_USE_IFs.f90 b/Source/USE_IFs/BD_RBE2_USE_IFs.f90 index 71476ad4..87f7b3b4 100644 --- a/Source/USE_IFs/BD_RBE2_USE_IFs.f90 +++ b/Source/USE_IFs/BD_RBE2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RBE2_USE_IFs diff --git a/Source/USE_IFs/BD_RBE30_USE_IFs.f90 b/Source/USE_IFs/BD_RBE30_USE_IFs.f90 index 0082b340..7920e68b 100644 --- a/Source/USE_IFs/BD_RBE30_USE_IFs.f90 +++ b/Source/USE_IFs/BD_RBE30_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RBE30_USE_IFs diff --git a/Source/USE_IFs/BD_RBE3_USE_IFs.f90 b/Source/USE_IFs/BD_RBE3_USE_IFs.f90 index 35b77992..e5d4b646 100644 --- a/Source/USE_IFs/BD_RBE3_USE_IFs.f90 +++ b/Source/USE_IFs/BD_RBE3_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RBE3_USE_IFs diff --git a/Source/USE_IFs/BD_RFORCE_USE_IFs.f90 b/Source/USE_IFs/BD_RFORCE_USE_IFs.f90 index 16c82e51..6a3d242f 100644 --- a/Source/USE_IFs/BD_RFORCE_USE_IFs.f90 +++ b/Source/USE_IFs/BD_RFORCE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RFORCE_USE_IFs diff --git a/Source/USE_IFs/BD_RSPLINE0_USE_IFs.f90 b/Source/USE_IFs/BD_RSPLINE0_USE_IFs.f90 index 44d0cda1..f1e22110 100644 --- a/Source/USE_IFs/BD_RSPLINE0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_RSPLINE0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RSPLINE0_USE_IFs diff --git a/Source/USE_IFs/BD_RSPLINE_USE_IFs.f90 b/Source/USE_IFs/BD_RSPLINE_USE_IFs.f90 index cebcc773..812b7d0b 100644 --- a/Source/USE_IFs/BD_RSPLINE_USE_IFs.f90 +++ b/Source/USE_IFs/BD_RSPLINE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_RSPLINE_USE_IFs diff --git a/Source/USE_IFs/BD_SEQGP_USE_IFs.f90 b/Source/USE_IFs/BD_SEQGP_USE_IFs.f90 index 43b7d871..8f85a81f 100644 --- a/Source/USE_IFs/BD_SEQGP_USE_IFs.f90 +++ b/Source/USE_IFs/BD_SEQGP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SEQGP_USE_IFs diff --git a/Source/USE_IFs/BD_SLOAD0_USE_IFs.f90 b/Source/USE_IFs/BD_SLOAD0_USE_IFs.f90 index 4b3ac70d..d0aed232 100644 --- a/Source/USE_IFs/BD_SLOAD0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_SLOAD0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SLOAD0_USE_IFs diff --git a/Source/USE_IFs/BD_SLOAD_USE_IFs.f90 b/Source/USE_IFs/BD_SLOAD_USE_IFs.f90 index 9654363a..1f1e7914 100644 --- a/Source/USE_IFs/BD_SLOAD_USE_IFs.f90 +++ b/Source/USE_IFs/BD_SLOAD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SLOAD_USE_IFs diff --git a/Source/USE_IFs/BD_SPC1_USE_IFs.f90 b/Source/USE_IFs/BD_SPC1_USE_IFs.f90 index 1ef39945..3e0c03d1 100644 --- a/Source/USE_IFs/BD_SPC1_USE_IFs.f90 +++ b/Source/USE_IFs/BD_SPC1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SPC1_USE_IFs diff --git a/Source/USE_IFs/BD_SPCADD0_USE_IFs.f90 b/Source/USE_IFs/BD_SPCADD0_USE_IFs.f90 index a2014301..0453c83e 100644 --- a/Source/USE_IFs/BD_SPCADD0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_SPCADD0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SPCADD0_USE_IFs diff --git a/Source/USE_IFs/BD_SPCADD_USE_IFs.f90 b/Source/USE_IFs/BD_SPCADD_USE_IFs.f90 index 06a3d970..f808f7d2 100644 --- a/Source/USE_IFs/BD_SPCADD_USE_IFs.f90 +++ b/Source/USE_IFs/BD_SPCADD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SPCADD_USE_IFs diff --git a/Source/USE_IFs/BD_SPC_USE_IFs.f90 b/Source/USE_IFs/BD_SPC_USE_IFs.f90 index 261fe7fb..321df70e 100644 --- a/Source/USE_IFs/BD_SPC_USE_IFs.f90 +++ b/Source/USE_IFs/BD_SPC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SPC_USE_IFs diff --git a/Source/USE_IFs/BD_SPOINT0_USE_IFs.f90 b/Source/USE_IFs/BD_SPOINT0_USE_IFs.f90 index 32288e9f..3c409ebe 100644 --- a/Source/USE_IFs/BD_SPOINT0_USE_IFs.f90 +++ b/Source/USE_IFs/BD_SPOINT0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SPOINT0_USE_IFs diff --git a/Source/USE_IFs/BD_SPOINT_USE_IFs.f90 b/Source/USE_IFs/BD_SPOINT_USE_IFs.f90 index aca36c88..3dbda684 100644 --- a/Source/USE_IFs/BD_SPOINT_USE_IFs.f90 +++ b/Source/USE_IFs/BD_SPOINT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SPOINT_USE_IFs diff --git a/Source/USE_IFs/BD_SUPORT_USE_IFs.f90 b/Source/USE_IFs/BD_SUPORT_USE_IFs.f90 index 97fb7aaa..c33c0949 100644 --- a/Source/USE_IFs/BD_SUPORT_USE_IFs.f90 +++ b/Source/USE_IFs/BD_SUPORT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_SUPORT_USE_IFs diff --git a/Source/USE_IFs/BD_TEMPD_USE_IFs.f90 b/Source/USE_IFs/BD_TEMPD_USE_IFs.f90 index ddb9b7ad..610056e1 100644 --- a/Source/USE_IFs/BD_TEMPD_USE_IFs.f90 +++ b/Source/USE_IFs/BD_TEMPD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_TEMPD_USE_IFs diff --git a/Source/USE_IFs/BD_TEMPRP_USE_IFs.f90 b/Source/USE_IFs/BD_TEMPRP_USE_IFs.f90 index 05665869..4b97c45b 100644 --- a/Source/USE_IFs/BD_TEMPRP_USE_IFs.f90 +++ b/Source/USE_IFs/BD_TEMPRP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_TEMPRP_USE_IFs diff --git a/Source/USE_IFs/BD_TEMP_USE_IFs.f90 b/Source/USE_IFs/BD_TEMP_USE_IFs.f90 index 787d32eb..02c116dd 100644 --- a/Source/USE_IFs/BD_TEMP_USE_IFs.f90 +++ b/Source/USE_IFs/BD_TEMP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_TEMP_USE_IFs diff --git a/Source/USE_IFs/BD_USET1_USE_IFs.f90 b/Source/USE_IFs/BD_USET1_USE_IFs.f90 index 1277b5e1..c4862ebc 100644 --- a/Source/USE_IFs/BD_USET1_USE_IFs.f90 +++ b/Source/USE_IFs/BD_USET1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_USET1_USE_IFs diff --git a/Source/USE_IFs/BD_USET_USE_IFs.f90 b/Source/USE_IFs/BD_USET_USE_IFs.f90 index fe284ab3..cb68be3c 100644 --- a/Source/USE_IFs/BD_USET_USE_IFs.f90 +++ b/Source/USE_IFs/BD_USET_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BD_USET_USE_IFs diff --git a/Source/USE_IFs/BEAM_USE_IFs.f90 b/Source/USE_IFs/BEAM_USE_IFs.f90 index 5e0d2947..644e703c 100644 --- a/Source/USE_IFs/BEAM_USE_IFs.f90 +++ b/Source/USE_IFs/BEAM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BEAM_USE_IFs diff --git a/Source/USE_IFs/BMQMEM_USE_IFs.f90 b/Source/USE_IFs/BMQMEM_USE_IFs.f90 index 42effae7..ac02ee5c 100644 --- a/Source/USE_IFs/BMQMEM_USE_IFs.f90 +++ b/Source/USE_IFs/BMQMEM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BMQMEM_USE_IFs diff --git a/Source/USE_IFs/BREL1_USE_IFs.f90 b/Source/USE_IFs/BREL1_USE_IFs.f90 index ceba95ed..a6ac50ff 100644 --- a/Source/USE_IFs/BREL1_USE_IFs.f90 +++ b/Source/USE_IFs/BREL1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BREL1_USE_IFs diff --git a/Source/USE_IFs/BSMIN3_USE_IFs.f90 b/Source/USE_IFs/BSMIN3_USE_IFs.f90 index eb269ac7..c9903a80 100644 --- a/Source/USE_IFs/BSMIN3_USE_IFs.f90 +++ b/Source/USE_IFs/BSMIN3_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BSMIN3_USE_IFs diff --git a/Source/USE_IFs/BSMIN4_USE_IFs.f90 b/Source/USE_IFs/BSMIN4_USE_IFs.f90 index 9e404d31..f5234358 100644 --- a/Source/USE_IFs/BSMIN4_USE_IFs.f90 +++ b/Source/USE_IFs/BSMIN4_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BSMIN4_USE_IFs diff --git a/Source/USE_IFs/BUILD_A_LR_USE_IFs.f90 b/Source/USE_IFs/BUILD_A_LR_USE_IFs.f90 index e61a4bdd..7b246afe 100644 --- a/Source/USE_IFs/BUILD_A_LR_USE_IFs.f90 +++ b/Source/USE_IFs/BUILD_A_LR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BUILD_A_LR_USE_IFs diff --git a/Source/USE_IFs/BUILD_F_AO_USE_IFs.f90 b/Source/USE_IFs/BUILD_F_AO_USE_IFs.f90 index 5c3fa8de..15ce20d8 100644 --- a/Source/USE_IFs/BUILD_F_AO_USE_IFs.f90 +++ b/Source/USE_IFs/BUILD_F_AO_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BUILD_F_AO_USE_IFs diff --git a/Source/USE_IFs/BUILD_G_NM_USE_IFs.f90 b/Source/USE_IFs/BUILD_G_NM_USE_IFs.f90 index b0b75479..77b57cde 100644 --- a/Source/USE_IFs/BUILD_G_NM_USE_IFs.f90 +++ b/Source/USE_IFs/BUILD_G_NM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BUILD_G_NM_USE_IFs diff --git a/Source/USE_IFs/BUILD_N_FS_USE_IFs.f90 b/Source/USE_IFs/BUILD_N_FS_USE_IFs.f90 index e3161aaa..437f5abd 100644 --- a/Source/USE_IFs/BUILD_N_FS_USE_IFs.f90 +++ b/Source/USE_IFs/BUILD_N_FS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BUILD_N_FS_USE_IFs diff --git a/Source/USE_IFs/BUSH_USE_IFs.f90 b/Source/USE_IFs/BUSH_USE_IFs.f90 index 7bcc82bf..04a40d64 100644 --- a/Source/USE_IFs/BUSH_USE_IFs.f90 +++ b/Source/USE_IFs/BUSH_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE BUSH_USE_IFs diff --git a/Source/USE_IFs/CALC_CB_MEFM_MPF_USE_IFs.f90 b/Source/USE_IFs/CALC_CB_MEFM_MPF_USE_IFs.f90 index 6efc2ac6..e4ed921c 100644 --- a/Source/USE_IFs/CALC_CB_MEFM_MPF_USE_IFs.f90 +++ b/Source/USE_IFs/CALC_CB_MEFM_MPF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_CB_MEFM_MPF_USE_IFs diff --git a/Source/USE_IFs/CALC_ELEM_NODE_FORCES_USE_IFs.f90 b/Source/USE_IFs/CALC_ELEM_NODE_FORCES_USE_IFs.f90 index f71a221c..e85cadb9 100644 --- a/Source/USE_IFs/CALC_ELEM_NODE_FORCES_USE_IFs.f90 +++ b/Source/USE_IFs/CALC_ELEM_NODE_FORCES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_ELEM_NODE_FORCES_USE_IFs diff --git a/Source/USE_IFs/CALC_ELEM_STRAINS_USE_IFs.f90 b/Source/USE_IFs/CALC_ELEM_STRAINS_USE_IFs.f90 index be9f0b2a..461c9e09 100644 --- a/Source/USE_IFs/CALC_ELEM_STRAINS_USE_IFs.f90 +++ b/Source/USE_IFs/CALC_ELEM_STRAINS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_ELEM_STRAINS_USE_IFs diff --git a/Source/USE_IFs/CALC_ELEM_STRESSES_USE_IFs.f90 b/Source/USE_IFs/CALC_ELEM_STRESSES_USE_IFs.f90 index 41ef0775..9ea8cc73 100644 --- a/Source/USE_IFs/CALC_ELEM_STRESSES_USE_IFs.f90 +++ b/Source/USE_IFs/CALC_ELEM_STRESSES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_ELEM_STRESSES_USE_IFs diff --git a/Source/USE_IFs/CALC_GEN_MASS_USE_IFs.f90 b/Source/USE_IFs/CALC_GEN_MASS_USE_IFs.f90 index c00d2be0..eea5b72d 100644 --- a/Source/USE_IFs/CALC_GEN_MASS_USE_IFs.f90 +++ b/Source/USE_IFs/CALC_GEN_MASS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_GEN_MASS_USE_IFs diff --git a/Source/USE_IFs/CALC_KRRcb_USE_IFs.f90 b/Source/USE_IFs/CALC_KRRcb_USE_IFs.f90 index c202c4f0..de79d6b7 100644 --- a/Source/USE_IFs/CALC_KRRcb_USE_IFs.f90 +++ b/Source/USE_IFs/CALC_KRRcb_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_KRRcb_USE_IFs diff --git a/Source/USE_IFs/CALC_MRN_USE_IFs.f90 b/Source/USE_IFs/CALC_MRN_USE_IFs.f90 index 05bbec83..353cc51d 100644 --- a/Source/USE_IFs/CALC_MRN_USE_IFs.f90 +++ b/Source/USE_IFs/CALC_MRN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_MRN_USE_IFs diff --git a/Source/USE_IFs/CALC_MRRcb_USE_IFs.f90 b/Source/USE_IFs/CALC_MRRcb_USE_IFs.f90 index 333ef306..bac540d4 100644 --- a/Source/USE_IFs/CALC_MRRcb_USE_IFs.f90 +++ b/Source/USE_IFs/CALC_MRRcb_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_MRRcb_USE_IFs diff --git a/Source/USE_IFs/CALC_PHIZL_USE_IFs.f90 b/Source/USE_IFs/CALC_PHIZL_USE_IFs.f90 index 959a2321..49fdb1a6 100644 --- a/Source/USE_IFs/CALC_PHIZL_USE_IFs.f90 +++ b/Source/USE_IFs/CALC_PHIZL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_PHIZL_USE_IFs diff --git a/Source/USE_IFs/CALC_PHI_SQ_USE_IFs.f90 b/Source/USE_IFs/CALC_PHI_SQ_USE_IFs.f90 index fc71cb9d..7e599cb7 100644 --- a/Source/USE_IFs/CALC_PHI_SQ_USE_IFs.f90 +++ b/Source/USE_IFs/CALC_PHI_SQ_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_PHI_SQ_USE_IFs diff --git a/Source/USE_IFs/CALC_TDOF_ROW_START_USE_IFs.f90 b/Source/USE_IFs/CALC_TDOF_ROW_START_USE_IFs.f90 index eb7bfb1d..8182f2f1 100644 --- a/Source/USE_IFs/CALC_TDOF_ROW_START_USE_IFs.f90 +++ b/Source/USE_IFs/CALC_TDOF_ROW_START_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_TDOF_ROW_START_USE_IFs diff --git a/Source/USE_IFs/CALC_VEC_SORT_ORDER_USE_IFs.f90 b/Source/USE_IFs/CALC_VEC_SORT_ORDER_USE_IFs.f90 index 16f48c19..545c9ff1 100644 --- a/Source/USE_IFs/CALC_VEC_SORT_ORDER_USE_IFs.f90 +++ b/Source/USE_IFs/CALC_VEC_SORT_ORDER_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CALC_VEC_SORT_ORDER_USE_IFs diff --git a/Source/USE_IFs/CARD_FLDS_NOT_BLANK_USE_IFs.f90 b/Source/USE_IFs/CARD_FLDS_NOT_BLANK_USE_IFs.f90 index 92ff5bc9..2be64139 100644 --- a/Source/USE_IFs/CARD_FLDS_NOT_BLANK_USE_IFs.f90 +++ b/Source/USE_IFs/CARD_FLDS_NOT_BLANK_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CARD_FLDS_NOT_BLANK_USE_IFs diff --git a/Source/USE_IFs/CC_ACCE_USE_IFs.f90 b/Source/USE_IFs/CC_ACCE_USE_IFs.f90 index 6c916183..a8db97c2 100644 --- a/Source/USE_IFs/CC_ACCE_USE_IFs.f90 +++ b/Source/USE_IFs/CC_ACCE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_ACCE_USE_IFs diff --git a/Source/USE_IFs/CC_DISP_USE_IFs.f90 b/Source/USE_IFs/CC_DISP_USE_IFs.f90 index 2c8bb6bf..dd79eee4 100644 --- a/Source/USE_IFs/CC_DISP_USE_IFs.f90 +++ b/Source/USE_IFs/CC_DISP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_DISP_USE_IFs diff --git a/Source/USE_IFs/CC_ECHO_USE_IFs.f90 b/Source/USE_IFs/CC_ECHO_USE_IFs.f90 index 98cbc730..9df74b3a 100644 --- a/Source/USE_IFs/CC_ECHO_USE_IFs.f90 +++ b/Source/USE_IFs/CC_ECHO_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_ECHO_USE_IFs diff --git a/Source/USE_IFs/CC_ELDA_USE_IFs.f90 b/Source/USE_IFs/CC_ELDA_USE_IFs.f90 index 6b202bcf..5bdb7e85 100644 --- a/Source/USE_IFs/CC_ELDA_USE_IFs.f90 +++ b/Source/USE_IFs/CC_ELDA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_ELDA_USE_IFs diff --git a/Source/USE_IFs/CC_ELFO_USE_IFs.f90 b/Source/USE_IFs/CC_ELFO_USE_IFs.f90 index fcf92df8..23f18f23 100644 --- a/Source/USE_IFs/CC_ELFO_USE_IFs.f90 +++ b/Source/USE_IFs/CC_ELFO_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_ELFO_USE_IFs diff --git a/Source/USE_IFs/CC_ENFO_USE_IFs.f90 b/Source/USE_IFs/CC_ENFO_USE_IFs.f90 index ef0d9c99..caa38c2f 100644 --- a/Source/USE_IFs/CC_ENFO_USE_IFs.f90 +++ b/Source/USE_IFs/CC_ENFO_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_ENFO_USE_IFs diff --git a/Source/USE_IFs/CC_GPFO_USE_IFs.f90 b/Source/USE_IFs/CC_GPFO_USE_IFs.f90 index ddb247fb..bb3b77dd 100644 --- a/Source/USE_IFs/CC_GPFO_USE_IFs.f90 +++ b/Source/USE_IFs/CC_GPFO_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_GPFO_USE_IFs diff --git a/Source/USE_IFs/CC_LABE_USE_IFs.f90 b/Source/USE_IFs/CC_LABE_USE_IFs.f90 index ce825b39..af49c74d 100644 --- a/Source/USE_IFs/CC_LABE_USE_IFs.f90 +++ b/Source/USE_IFs/CC_LABE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_LABE_USE_IFs diff --git a/Source/USE_IFs/CC_LOAD_USE_IFs.f90 b/Source/USE_IFs/CC_LOAD_USE_IFs.f90 index 963b5fc2..86ad09ae 100644 --- a/Source/USE_IFs/CC_LOAD_USE_IFs.f90 +++ b/Source/USE_IFs/CC_LOAD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_LOAD_USE_IFs diff --git a/Source/USE_IFs/CC_METH_USE_IFs.f90 b/Source/USE_IFs/CC_METH_USE_IFs.f90 index 956bfdc7..8d69e823 100644 --- a/Source/USE_IFs/CC_METH_USE_IFs.f90 +++ b/Source/USE_IFs/CC_METH_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_METH_USE_IFs diff --git a/Source/USE_IFs/CC_MPCF_USE_IFs.f90 b/Source/USE_IFs/CC_MPCF_USE_IFs.f90 index 4ce45167..cdb87750 100644 --- a/Source/USE_IFs/CC_MPCF_USE_IFs.f90 +++ b/Source/USE_IFs/CC_MPCF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_MPCF_USE_IFs diff --git a/Source/USE_IFs/CC_MPC_USE_IFs.f90 b/Source/USE_IFs/CC_MPC_USE_IFs.f90 index 4b765256..61354630 100644 --- a/Source/USE_IFs/CC_MPC_USE_IFs.f90 +++ b/Source/USE_IFs/CC_MPC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_MPC_USE_IFs diff --git a/Source/USE_IFs/CC_NLPARM_USE_IFs.f90 b/Source/USE_IFs/CC_NLPARM_USE_IFs.f90 index c7a2e631..0091dc9d 100644 --- a/Source/USE_IFs/CC_NLPARM_USE_IFs.f90 +++ b/Source/USE_IFs/CC_NLPARM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_NLPARM_USE_IFs diff --git a/Source/USE_IFs/CC_OLOA_USE_IFs.f90 b/Source/USE_IFs/CC_OLOA_USE_IFs.f90 index 66226e10..d74bb03a 100644 --- a/Source/USE_IFs/CC_OLOA_USE_IFs.f90 +++ b/Source/USE_IFs/CC_OLOA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_OLOA_USE_IFs diff --git a/Source/USE_IFs/CC_OUTPUTS_USE_IFs.f90 b/Source/USE_IFs/CC_OUTPUTS_USE_IFs.f90 index 9f54873f..76097be9 100644 --- a/Source/USE_IFs/CC_OUTPUTS_USE_IFs.f90 +++ b/Source/USE_IFs/CC_OUTPUTS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_OUTPUTS_USE_IFs diff --git a/Source/USE_IFs/CC_SET0_USE_IFs.f90 b/Source/USE_IFs/CC_SET0_USE_IFs.f90 index a37af2f9..f0dc6323 100644 --- a/Source/USE_IFs/CC_SET0_USE_IFs.f90 +++ b/Source/USE_IFs/CC_SET0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_SET0_USE_IFs diff --git a/Source/USE_IFs/CC_SET_USE_IFs.f90 b/Source/USE_IFs/CC_SET_USE_IFs.f90 index e211557c..0ce882e3 100644 --- a/Source/USE_IFs/CC_SET_USE_IFs.f90 +++ b/Source/USE_IFs/CC_SET_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_SET_USE_IFs diff --git a/Source/USE_IFs/CC_SPCF_USE_IFs.f90 b/Source/USE_IFs/CC_SPCF_USE_IFs.f90 index aac68e04..1477b6e8 100644 --- a/Source/USE_IFs/CC_SPCF_USE_IFs.f90 +++ b/Source/USE_IFs/CC_SPCF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_SPCF_USE_IFs diff --git a/Source/USE_IFs/CC_SPC_USE_IFs.f90 b/Source/USE_IFs/CC_SPC_USE_IFs.f90 index d5f66e56..c4116c2d 100644 --- a/Source/USE_IFs/CC_SPC_USE_IFs.f90 +++ b/Source/USE_IFs/CC_SPC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_SPC_USE_IFs diff --git a/Source/USE_IFs/CC_STRE_USE_IFs.f90 b/Source/USE_IFs/CC_STRE_USE_IFs.f90 index 76070399..eacb031e 100644 --- a/Source/USE_IFs/CC_STRE_USE_IFs.f90 +++ b/Source/USE_IFs/CC_STRE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_STRE_USE_IFs diff --git a/Source/USE_IFs/CC_STRN_USE_IFs.f90 b/Source/USE_IFs/CC_STRN_USE_IFs.f90 index a0b7819f..304c992c 100644 --- a/Source/USE_IFs/CC_STRN_USE_IFs.f90 +++ b/Source/USE_IFs/CC_STRN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_STRN_USE_IFs diff --git a/Source/USE_IFs/CC_SUBC_USE_IFs.f90 b/Source/USE_IFs/CC_SUBC_USE_IFs.f90 index 3dfa0038..eccba57c 100644 --- a/Source/USE_IFs/CC_SUBC_USE_IFs.f90 +++ b/Source/USE_IFs/CC_SUBC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_SUBC_USE_IFs diff --git a/Source/USE_IFs/CC_SUBT_USE_IFs.f90 b/Source/USE_IFs/CC_SUBT_USE_IFs.f90 index dfe922e9..2a57f479 100644 --- a/Source/USE_IFs/CC_SUBT_USE_IFs.f90 +++ b/Source/USE_IFs/CC_SUBT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_SUBT_USE_IFs diff --git a/Source/USE_IFs/CC_TEMP_USE_IFs.f90 b/Source/USE_IFs/CC_TEMP_USE_IFs.f90 index 51105931..860175cc 100644 --- a/Source/USE_IFs/CC_TEMP_USE_IFs.f90 +++ b/Source/USE_IFs/CC_TEMP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_TEMP_USE_IFs diff --git a/Source/USE_IFs/CC_TITL_USE_IFs.f90 b/Source/USE_IFs/CC_TITL_USE_IFs.f90 index 9c22f34f..4091428f 100644 --- a/Source/USE_IFs/CC_TITL_USE_IFs.f90 +++ b/Source/USE_IFs/CC_TITL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CC_TITL_USE_IFs diff --git a/Source/USE_IFs/CHAR_FLD_USE_IFs.f90 b/Source/USE_IFs/CHAR_FLD_USE_IFs.f90 index bbf6a62b..7dd5b844 100644 --- a/Source/USE_IFs/CHAR_FLD_USE_IFs.f90 +++ b/Source/USE_IFs/CHAR_FLD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHAR_FLD_USE_IFs diff --git a/Source/USE_IFs/CHECK_BAR_MOIs_USE_IFs.f90 b/Source/USE_IFs/CHECK_BAR_MOIs_USE_IFs.f90 index 174ca720..6de6a80a 100644 --- a/Source/USE_IFs/CHECK_BAR_MOIs_USE_IFs.f90 +++ b/Source/USE_IFs/CHECK_BAR_MOIs_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHECK_BAR_MOIs_USE_IFs diff --git a/Source/USE_IFs/CHECK_MAT_INVERSE_USE_IFs.f90 b/Source/USE_IFs/CHECK_MAT_INVERSE_USE_IFs.f90 index 8cd60879..cde46482 100644 --- a/Source/USE_IFs/CHECK_MAT_INVERSE_USE_IFs.f90 +++ b/Source/USE_IFs/CHECK_MAT_INVERSE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHECK_MAT_INVERSE_USE_IFs diff --git a/Source/USE_IFs/CHECK_TE_MATRIX_USE_IFs.f90 b/Source/USE_IFs/CHECK_TE_MATRIX_USE_IFs.f90 index afbc0e43..4eaaa66b 100644 --- a/Source/USE_IFs/CHECK_TE_MATRIX_USE_IFs.f90 +++ b/Source/USE_IFs/CHECK_TE_MATRIX_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHECK_TE_MATRIX_USE_IFs diff --git a/Source/USE_IFs/CHK_ARRAY_ALLOC_STAT_USE_IFs.f90 b/Source/USE_IFs/CHK_ARRAY_ALLOC_STAT_USE_IFs.f90 index 69a4ad6b..d4044896 100644 --- a/Source/USE_IFs/CHK_ARRAY_ALLOC_STAT_USE_IFs.f90 +++ b/Source/USE_IFs/CHK_ARRAY_ALLOC_STAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHK_ARRAY_ALLOC_STAT_USE_IFs diff --git a/Source/USE_IFs/CHK_CC_CMD_DESCRIBERS_USE_IFs.f90 b/Source/USE_IFs/CHK_CC_CMD_DESCRIBERS_USE_IFs.f90 index e8b9460e..6519c348 100644 --- a/Source/USE_IFs/CHK_CC_CMD_DESCRIBERS_USE_IFs.f90 +++ b/Source/USE_IFs/CHK_CC_CMD_DESCRIBERS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHK_CC_CMD_DESCRIBERS_USE_IFs diff --git a/Source/USE_IFs/CHK_OGEL_ZEROS_USE_IFs.f90 b/Source/USE_IFs/CHK_OGEL_ZEROS_USE_IFs.f90 index 76666b87..9a37ae5e 100644 --- a/Source/USE_IFs/CHK_OGEL_ZEROS_USE_IFs.f90 +++ b/Source/USE_IFs/CHK_OGEL_ZEROS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CHK_OGEL_ZEROS_USE_IFs diff --git a/Source/USE_IFs/CLOSE_LIJFILES_USE_IFs.f90 b/Source/USE_IFs/CLOSE_LIJFILES_USE_IFs.f90 index 8280af46..42223f1e 100644 --- a/Source/USE_IFs/CLOSE_LIJFILES_USE_IFs.f90 +++ b/Source/USE_IFs/CLOSE_LIJFILES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CLOSE_LIJFILES_USE_IFs diff --git a/Source/USE_IFs/CLOSE_OUTFILES_USE_IFs.f90 b/Source/USE_IFs/CLOSE_OUTFILES_USE_IFs.f90 index 6296e1d7..42de0416 100644 --- a/Source/USE_IFs/CLOSE_OUTFILES_USE_IFs.f90 +++ b/Source/USE_IFs/CLOSE_OUTFILES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CLOSE_OUTFILES_USE_IFs diff --git a/Source/USE_IFs/CNT_NONZ_IN_FULL_MAT_USE_IFs.f90 b/Source/USE_IFs/CNT_NONZ_IN_FULL_MAT_USE_IFs.f90 index da2ea182..3f235e64 100644 --- a/Source/USE_IFs/CNT_NONZ_IN_FULL_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/CNT_NONZ_IN_FULL_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CNT_NONZ_IN_FULL_MAT_USE_IFs diff --git a/Source/USE_IFs/COND_NUM_USE_IFs.f90 b/Source/USE_IFs/COND_NUM_USE_IFs.f90 index 74c9536e..1cfc645c 100644 --- a/Source/USE_IFs/COND_NUM_USE_IFs.f90 +++ b/Source/USE_IFs/COND_NUM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE COND_NUM_USE_IFs diff --git a/Source/USE_IFs/CONM2_PROC_1_USE_IFs.f90 b/Source/USE_IFs/CONM2_PROC_1_USE_IFs.f90 index 47801bd8..178f8851 100644 --- a/Source/USE_IFs/CONM2_PROC_1_USE_IFs.f90 +++ b/Source/USE_IFs/CONM2_PROC_1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CONM2_PROC_1_USE_IFs diff --git a/Source/USE_IFs/CONM2_PROC_2_USE_IFs.f90 b/Source/USE_IFs/CONM2_PROC_2_USE_IFs.f90 index 87a40df0..b129014b 100644 --- a/Source/USE_IFs/CONM2_PROC_2_USE_IFs.f90 +++ b/Source/USE_IFs/CONM2_PROC_2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CONM2_PROC_2_USE_IFs diff --git a/Source/USE_IFs/CONVERT_INT_TO_CHAR_USE_IFs.f90 b/Source/USE_IFs/CONVERT_INT_TO_CHAR_USE_IFs.f90 index 143f9df7..38c694b6 100644 --- a/Source/USE_IFs/CONVERT_INT_TO_CHAR_USE_IFs.f90 +++ b/Source/USE_IFs/CONVERT_INT_TO_CHAR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CONVERT_INT_TO_CHAR_USE_IFs diff --git a/Source/USE_IFs/CONVERT_VEC_COORD_SYS_USE_IFs.f90 b/Source/USE_IFs/CONVERT_VEC_COORD_SYS_USE_IFs.f90 index 8661d571..c0c22dc0 100644 --- a/Source/USE_IFs/CONVERT_VEC_COORD_SYS_USE_IFs.f90 +++ b/Source/USE_IFs/CONVERT_VEC_COORD_SYS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CONVERT_VEC_COORD_SYS_USE_IFs diff --git a/Source/USE_IFs/CORD_PROC_USE_IFs.f90 b/Source/USE_IFs/CORD_PROC_USE_IFs.f90 index 8eec00e0..f34fa48c 100644 --- a/Source/USE_IFs/CORD_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/CORD_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CORD_PROC_USE_IFs diff --git a/Source/USE_IFs/COUNTER_INIT_USE_IFs.f90 b/Source/USE_IFs/COUNTER_INIT_USE_IFs.f90 index 243697c2..a1ca900a 100644 --- a/Source/USE_IFs/COUNTER_INIT_USE_IFs.f90 +++ b/Source/USE_IFs/COUNTER_INIT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE COUNTER_INIT_USE_IFs @@ -31,4 +31,3 @@ MODULE COUNTER_INIT_USE_IFs USE OUTA_HERE_Interface END MODULE COUNTER_INIT_USE_IFs - \ No newline at end of file diff --git a/Source/USE_IFs/COUNTER_PROGRESS_USE_IFs.f90 b/Source/USE_IFs/COUNTER_PROGRESS_USE_IFs.f90 index e60868cd..9f54ef41 100644 --- a/Source/USE_IFs/COUNTER_PROGRESS_USE_IFs.f90 +++ b/Source/USE_IFs/COUNTER_PROGRESS_USE_IFs.f90 @@ -1,33 +1,32 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE COUNTER_PROGRESS_USE_IFs ! USE Interface statements for all subroutines called by SUBROUTINE COUNTER_PROGRESS - + USE UNIX_TIME_Interface - + END MODULE COUNTER_PROGRESS_USE_IFs - \ No newline at end of file diff --git a/Source/USE_IFs/CRDERR_USE_IFs.f90 b/Source/USE_IFs/CRDERR_USE_IFs.f90 index c6bd103f..31a265ca 100644 --- a/Source/USE_IFs/CRDERR_USE_IFs.f90 +++ b/Source/USE_IFs/CRDERR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CRDERR_USE_IFs diff --git a/Source/USE_IFs/CROSS_USE_IFs.f90 b/Source/USE_IFs/CROSS_USE_IFs.f90 index 7c006504..6a9e0755 100644 --- a/Source/USE_IFs/CROSS_USE_IFs.f90 +++ b/Source/USE_IFs/CROSS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CROSS_USE_IFs diff --git a/Source/USE_IFs/CRS_NONSYM_TO_CRS_SYM_USE_IFs.f90 b/Source/USE_IFs/CRS_NONSYM_TO_CRS_SYM_USE_IFs.f90 index 39c9cab0..c72407d2 100644 --- a/Source/USE_IFs/CRS_NONSYM_TO_CRS_SYM_USE_IFs.f90 +++ b/Source/USE_IFs/CRS_NONSYM_TO_CRS_SYM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CRS_NONSYM_TO_CRS_SYM_USE_IFs diff --git a/Source/USE_IFs/CRS_SYM_TO_CRS_NONSYM_USE_IFs.f90 b/Source/USE_IFs/CRS_SYM_TO_CRS_NONSYM_USE_IFs.f90 index cf9793b9..9f15dd66 100644 --- a/Source/USE_IFs/CRS_SYM_TO_CRS_NONSYM_USE_IFs.f90 +++ b/Source/USE_IFs/CRS_SYM_TO_CRS_NONSYM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CRS_SYM_TO_CRS_NONSYM_USE_IFs diff --git a/Source/USE_IFs/CSHIFT_USE_IFs.f90 b/Source/USE_IFs/CSHIFT_USE_IFs.f90 index 0b6114f0..153597d0 100644 --- a/Source/USE_IFs/CSHIFT_USE_IFs.f90 +++ b/Source/USE_IFs/CSHIFT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE CSHIFT_USE_IFs diff --git a/Source/USE_IFs/DATA_SET_NAME_ERROR_USE_IFs.f90 b/Source/USE_IFs/DATA_SET_NAME_ERROR_USE_IFs.f90 index 7b95497f..c3f58059 100644 --- a/Source/USE_IFs/DATA_SET_NAME_ERROR_USE_IFs.f90 +++ b/Source/USE_IFs/DATA_SET_NAME_ERROR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DATA_SET_NAME_ERROR_USE_IFs diff --git a/Source/USE_IFs/DATA_SET_SIZE_ERROR_USE_IFs.f90 b/Source/USE_IFs/DATA_SET_SIZE_ERROR_USE_IFs.f90 index 52b8f42a..76ef2497 100644 --- a/Source/USE_IFs/DATA_SET_SIZE_ERROR_USE_IFs.f90 +++ b/Source/USE_IFs/DATA_SET_SIZE_ERROR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DATA_SET_SIZE_ERROR_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_CB_ELM_OTM_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_CB_ELM_OTM_USE_IFs.f90 index a2c437f5..b70c44b1 100644 --- a/Source/USE_IFs/DEALLOCATE_CB_ELM_OTM_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_CB_ELM_OTM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_CB_ELM_OTM_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_CB_GRD_OTM_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_CB_GRD_OTM_USE_IFs.f90 index 98fe8482..937a0a5a 100644 --- a/Source/USE_IFs/DEALLOCATE_CB_GRD_OTM_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_CB_GRD_OTM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_CB_GRD_OTM_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_COL_VEC_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_COL_VEC_USE_IFs.f90 index 6c531be8..4c54703d 100644 --- a/Source/USE_IFs/DEALLOCATE_COL_VEC_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_COL_VEC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_COL_VEC_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_DOF_TABLES_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_DOF_TABLES_USE_IFs.f90 index 91514bef..77681b51 100644 --- a/Source/USE_IFs/DEALLOCATE_DOF_TABLES_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_DOF_TABLES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_DOF_TABLES_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_EIGEN1_MAT_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_EIGEN1_MAT_USE_IFs.f90 index 7b2a5469..258d9606 100644 --- a/Source/USE_IFs/DEALLOCATE_EIGEN1_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_EIGEN1_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_EIGEN1_MAT_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_EMS_ARRAYS_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_EMS_ARRAYS_USE_IFs.f90 index ff224d58..1e145170 100644 --- a/Source/USE_IFs/DEALLOCATE_EMS_ARRAYS_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_EMS_ARRAYS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_EMS_ARRAYS_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_FEMAP_DATA_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_FEMAP_DATA_USE_IFs.f90 index d756044c..7f94712f 100644 --- a/Source/USE_IFs/DEALLOCATE_FEMAP_DATA_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_FEMAP_DATA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_FEMAP_DATA_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_FULL_MAT_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_FULL_MAT_USE_IFs.f90 index 1791639c..5461f0bc 100644 --- a/Source/USE_IFs/DEALLOCATE_FULL_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_FULL_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_FULL_MAT_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_IN4_FILES_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_IN4_FILES_USE_IFs.f90 index b5eccdb6..25a43acd 100644 --- a/Source/USE_IFs/DEALLOCATE_IN4_FILES_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_IN4_FILES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_IN4_FILES_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_L1_MGG_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_L1_MGG_USE_IFs.f90 index 08caa498..b25be6bb 100644 --- a/Source/USE_IFs/DEALLOCATE_L1_MGG_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_L1_MGG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_L1_MGG_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_L2_GMN_2_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_L2_GMN_2_USE_IFs.f90 index 6baf457d..d67b0966 100644 --- a/Source/USE_IFs/DEALLOCATE_L2_GMN_2_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_L2_GMN_2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_L2_GMN_2_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_L2_GOA_2_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_L2_GOA_2_USE_IFs.f90 index 0eb30383..2609ca47 100644 --- a/Source/USE_IFs/DEALLOCATE_L2_GOA_2_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_L2_GOA_2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_L2_GOA_2_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_L6_2_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_L6_2_USE_IFs.f90 index fddfee38..6d5e744c 100644 --- a/Source/USE_IFs/DEALLOCATE_L6_2_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_L6_2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_L6_2_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_LAPACK_MAT_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_LAPACK_MAT_USE_IFs.f90 index f86a9e1c..3318eb32 100644 --- a/Source/USE_IFs/DEALLOCATE_LAPACK_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_LAPACK_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_LAPACK_MAT_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_LINK9_STUF_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_LINK9_STUF_USE_IFs.f90 index d5b4cb8f..aaed20fb 100644 --- a/Source/USE_IFs/DEALLOCATE_LINK9_STUF_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_LINK9_STUF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_LINK9_STUF_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_MISC_MAT_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_MISC_MAT_USE_IFs.f90 index b2ab63b9..e826b339 100644 --- a/Source/USE_IFs/DEALLOCATE_MISC_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_MISC_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_MISC_MAT_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_MODEL_STUF_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_MODEL_STUF_USE_IFs.f90 index f8980376..df5ddc93 100644 --- a/Source/USE_IFs/DEALLOCATE_MODEL_STUF_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_MODEL_STUF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_MODEL_STUF_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_NL_PARAMS_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_NL_PARAMS_USE_IFs.f90 index 51e9ba2b..d867d9aa 100644 --- a/Source/USE_IFs/DEALLOCATE_NL_PARAMS_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_NL_PARAMS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_NL_PARAMS_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_RBGLOBAL_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_RBGLOBAL_USE_IFs.f90 index d36a1a2b..d9f66cbd 100644 --- a/Source/USE_IFs/DEALLOCATE_RBGLOBAL_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_RBGLOBAL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_RBGLOBAL_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_SCR_MAT_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_SCR_MAT_USE_IFs.f90 index 37c4d67a..575fc7b7 100644 --- a/Source/USE_IFs/DEALLOCATE_SCR_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_SCR_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_SCR_MAT_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_SPARSE_ALG_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_SPARSE_ALG_USE_IFs.f90 index f9c1b413..a204475c 100644 --- a/Source/USE_IFs/DEALLOCATE_SPARSE_ALG_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_SPARSE_ALG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_SPARSE_ALG_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_SPARSE_MAT_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_SPARSE_MAT_USE_IFs.f90 index b652c79d..814b0504 100644 --- a/Source/USE_IFs/DEALLOCATE_SPARSE_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_SPARSE_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_SPARSE_MAT_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_STF_ARRAYS_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_STF_ARRAYS_USE_IFs.f90 index 11b0aea4..3a446b75 100644 --- a/Source/USE_IFs/DEALLOCATE_STF_ARRAYS_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_STF_ARRAYS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_STF_ARRAYS_USE_IFs diff --git a/Source/USE_IFs/DEALLOCATE_TEMPLATE_USE_IFs.f90 b/Source/USE_IFs/DEALLOCATE_TEMPLATE_USE_IFs.f90 index 4b4ec67e..6a8633e7 100644 --- a/Source/USE_IFs/DEALLOCATE_TEMPLATE_USE_IFs.f90 +++ b/Source/USE_IFs/DEALLOCATE_TEMPLATE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DEALLOCATE_TEMPLATE_USE_IFs diff --git a/Source/USE_IFs/DOF_PROC_USE_IFs.f90 b/Source/USE_IFs/DOF_PROC_USE_IFs.f90 index 73dea766..0134e05f 100644 --- a/Source/USE_IFs/DOF_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/DOF_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE DOF_PROC_USE_IFs diff --git a/Source/USE_IFs/EC_DEBUG_USE_IFs.f90 b/Source/USE_IFs/EC_DEBUG_USE_IFs.f90 index dae7b158..c68887c1 100644 --- a/Source/USE_IFs/EC_DEBUG_USE_IFs.f90 +++ b/Source/USE_IFs/EC_DEBUG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EC_DEBUG_USE_IFs diff --git a/Source/USE_IFs/EC_IN4FIL_USE_IFs.f90 b/Source/USE_IFs/EC_IN4FIL_USE_IFs.f90 index 8f29006e..190a6486 100644 --- a/Source/USE_IFs/EC_IN4FIL_USE_IFs.f90 +++ b/Source/USE_IFs/EC_IN4FIL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EC_IN4FIL_USE_IFs diff --git a/Source/USE_IFs/EC_OUTPUT4_USE_IFs.f90 b/Source/USE_IFs/EC_OUTPUT4_USE_IFs.f90 index 90c1e5a7..3699c690 100644 --- a/Source/USE_IFs/EC_OUTPUT4_USE_IFs.f90 +++ b/Source/USE_IFs/EC_OUTPUT4_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EC_OUTPUT4_USE_IFs diff --git a/Source/USE_IFs/EC_PARTN_USE_IFs.f90 b/Source/USE_IFs/EC_PARTN_USE_IFs.f90 index 346e18ca..90992516 100644 --- a/Source/USE_IFs/EC_PARTN_USE_IFs.f90 +++ b/Source/USE_IFs/EC_PARTN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EC_PARTN_USE_IFs diff --git a/Source/USE_IFs/EIG_GIV_MGIV_USE_IFs.f90 b/Source/USE_IFs/EIG_GIV_MGIV_USE_IFs.f90 index a2271a16..2cb7d8b9 100644 --- a/Source/USE_IFs/EIG_GIV_MGIV_USE_IFs.f90 +++ b/Source/USE_IFs/EIG_GIV_MGIV_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EIG_GIV_MGIV_USE_IFs diff --git a/Source/USE_IFs/EIG_INV_PWR_USE_IFs.f90 b/Source/USE_IFs/EIG_INV_PWR_USE_IFs.f90 index 27b68493..0e5b084b 100644 --- a/Source/USE_IFs/EIG_INV_PWR_USE_IFs.f90 +++ b/Source/USE_IFs/EIG_INV_PWR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EIG_INV_PWR_USE_IFs diff --git a/Source/USE_IFs/EIG_LANCZOS_ARPACK_USE_IFs.f90 b/Source/USE_IFs/EIG_LANCZOS_ARPACK_USE_IFs.f90 index c48669a2..4828206c 100644 --- a/Source/USE_IFs/EIG_LANCZOS_ARPACK_USE_IFs.f90 +++ b/Source/USE_IFs/EIG_LANCZOS_ARPACK_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EIG_LANCZOS_ARPACK_USE_IFs diff --git a/Source/USE_IFs/EIG_SUMMARY_USE_IFs.f90 b/Source/USE_IFs/EIG_SUMMARY_USE_IFs.f90 index 25d1b006..6b2e1427 100644 --- a/Source/USE_IFs/EIG_SUMMARY_USE_IFs.f90 +++ b/Source/USE_IFs/EIG_SUMMARY_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EIG_SUMMARY_USE_IFs diff --git a/Source/USE_IFs/ELAS1_USE_IFs.f90 b/Source/USE_IFs/ELAS1_USE_IFs.f90 index 9eaf7e8a..4f84e644 100644 --- a/Source/USE_IFs/ELAS1_USE_IFs.f90 +++ b/Source/USE_IFs/ELAS1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELAS1_USE_IFs diff --git a/Source/USE_IFs/ELEM_PROP_MATL_IIDS_USE_IFs.f90 b/Source/USE_IFs/ELEM_PROP_MATL_IIDS_USE_IFs.f90 index 50e0896f..f98b0629 100644 --- a/Source/USE_IFs/ELEM_PROP_MATL_IIDS_USE_IFs.f90 +++ b/Source/USE_IFs/ELEM_PROP_MATL_IIDS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELEM_PROP_MATL_IIDS_USE_IFs diff --git a/Source/USE_IFs/ELEM_STRE_STRN_ARRAYS_USE_IFs.f90 b/Source/USE_IFs/ELEM_STRE_STRN_ARRAYS_USE_IFs.f90 index 77fdf36b..e004b917 100644 --- a/Source/USE_IFs/ELEM_STRE_STRN_ARRAYS_USE_IFs.f90 +++ b/Source/USE_IFs/ELEM_STRE_STRN_ARRAYS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELEM_STRE_STRN_ARRAYS_USE_IFs diff --git a/Source/USE_IFs/ELEM_TRANSFORM_LBG_USE_IFs.f90 b/Source/USE_IFs/ELEM_TRANSFORM_LBG_USE_IFs.f90 index 4115df43..f5bebf4c 100644 --- a/Source/USE_IFs/ELEM_TRANSFORM_LBG_USE_IFs.f90 +++ b/Source/USE_IFs/ELEM_TRANSFORM_LBG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELEM_TRANSFORM_LBG_USE_IFs diff --git a/Source/USE_IFs/ELEPRO_USE_IFs.f90 b/Source/USE_IFs/ELEPRO_USE_IFs.f90 index 5ced3fc2..5d3b2e64 100644 --- a/Source/USE_IFs/ELEPRO_USE_IFs.f90 +++ b/Source/USE_IFs/ELEPRO_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELEPRO_USE_IFs diff --git a/Source/USE_IFs/ELESORT_USE_IFs.f90 b/Source/USE_IFs/ELESORT_USE_IFs.f90 index 4408ddbb..7365b9f2 100644 --- a/Source/USE_IFs/ELESORT_USE_IFs.f90 +++ b/Source/USE_IFs/ELESORT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELESORT_USE_IFs diff --git a/Source/USE_IFs/ELMDAT1_USE_IFs.f90 b/Source/USE_IFs/ELMDAT1_USE_IFs.f90 index 97ac8b17..1b83c0ab 100644 --- a/Source/USE_IFs/ELMDAT1_USE_IFs.f90 +++ b/Source/USE_IFs/ELMDAT1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMDAT1_USE_IFs diff --git a/Source/USE_IFs/ELMDAT2_USE_IFs.f90 b/Source/USE_IFs/ELMDAT2_USE_IFs.f90 index be94de4f..41fdc86f 100644 --- a/Source/USE_IFs/ELMDAT2_USE_IFs.f90 +++ b/Source/USE_IFs/ELMDAT2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMDAT2_USE_IFs diff --git a/Source/USE_IFs/ELMDIS_PLY_USE_IFs.f90 b/Source/USE_IFs/ELMDIS_PLY_USE_IFs.f90 index 8fef81b2..62110d04 100644 --- a/Source/USE_IFs/ELMDIS_PLY_USE_IFs.f90 +++ b/Source/USE_IFs/ELMDIS_PLY_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMDIS_PLY_USE_IFs diff --git a/Source/USE_IFs/ELMDIS_USE_IFs.f90 b/Source/USE_IFs/ELMDIS_USE_IFs.f90 index 8b50a7c8..1d212505 100644 --- a/Source/USE_IFs/ELMDIS_USE_IFs.f90 +++ b/Source/USE_IFs/ELMDIS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMDIS_USE_IFs diff --git a/Source/USE_IFs/ELMGM1_BUSH_USE_IFs.f90 b/Source/USE_IFs/ELMGM1_BUSH_USE_IFs.f90 index 2d99b4b7..dd76d0a2 100644 --- a/Source/USE_IFs/ELMGM1_BUSH_USE_IFs.f90 +++ b/Source/USE_IFs/ELMGM1_BUSH_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMGM1_BUSH_USE_IFs diff --git a/Source/USE_IFs/ELMGM1_USE_IFs.f90 b/Source/USE_IFs/ELMGM1_USE_IFs.f90 index dad8dfa7..ebdac4f9 100644 --- a/Source/USE_IFs/ELMGM1_USE_IFs.f90 +++ b/Source/USE_IFs/ELMGM1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMGM1_USE_IFs diff --git a/Source/USE_IFs/ELMGM2_USE_IFs.f90 b/Source/USE_IFs/ELMGM2_USE_IFs.f90 index 15cf0757..bade42a3 100644 --- a/Source/USE_IFs/ELMGM2_USE_IFs.f90 +++ b/Source/USE_IFs/ELMGM2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMGM2_USE_IFs diff --git a/Source/USE_IFs/ELMGM3_USE_IFs.f90 b/Source/USE_IFs/ELMGM3_USE_IFs.f90 index 9d5d4e2b..61f1efa8 100644 --- a/Source/USE_IFs/ELMGM3_USE_IFs.f90 +++ b/Source/USE_IFs/ELMGM3_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMGM3_USE_IFs diff --git a/Source/USE_IFs/ELMOFF_USE_IFs.f90 b/Source/USE_IFs/ELMOFF_USE_IFs.f90 index 636bebbb..512d8f47 100644 --- a/Source/USE_IFs/ELMOFF_USE_IFs.f90 +++ b/Source/USE_IFs/ELMOFF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMOFF_USE_IFs diff --git a/Source/USE_IFs/ELMOUT_USE_IFs.f90 b/Source/USE_IFs/ELMOUT_USE_IFs.f90 index a1d1d768..91098420 100644 --- a/Source/USE_IFs/ELMOUT_USE_IFs.f90 +++ b/Source/USE_IFs/ELMOUT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMOUT_USE_IFs diff --git a/Source/USE_IFs/ELMTLB_USE_IFs.f90 b/Source/USE_IFs/ELMTLB_USE_IFs.f90 index e3bca032..a768f61e 100644 --- a/Source/USE_IFs/ELMTLB_USE_IFs.f90 +++ b/Source/USE_IFs/ELMTLB_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELMTLB_USE_IFs diff --git a/Source/USE_IFs/ELSAVE_USE_IFs.f90 b/Source/USE_IFs/ELSAVE_USE_IFs.f90 index e5159af8..7397d3be 100644 --- a/Source/USE_IFs/ELSAVE_USE_IFs.f90 +++ b/Source/USE_IFs/ELSAVE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ELSAVE_USE_IFs diff --git a/Source/USE_IFs/EMG_USE_IFs.f90 b/Source/USE_IFs/EMG_USE_IFs.f90 index 257fd44e..201d8729 100644 --- a/Source/USE_IFs/EMG_USE_IFs.f90 +++ b/Source/USE_IFs/EMG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EMG_USE_IFs diff --git a/Source/USE_IFs/EMP0_USE_IFs.f90 b/Source/USE_IFs/EMP0_USE_IFs.f90 index 95e09e56..f11e8033 100644 --- a/Source/USE_IFs/EMP0_USE_IFs.f90 +++ b/Source/USE_IFs/EMP0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EMP0_USE_IFs diff --git a/Source/USE_IFs/EMP_USE_IFs.f90 b/Source/USE_IFs/EMP_USE_IFs.f90 index 71a2870c..204b3fa6 100644 --- a/Source/USE_IFs/EMP_USE_IFs.f90 +++ b/Source/USE_IFs/EMP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EMP_USE_IFs diff --git a/Source/USE_IFs/EPSCALC_USE_IFs.f90 b/Source/USE_IFs/EPSCALC_USE_IFs.f90 index 24fe94b6..64ea52df 100644 --- a/Source/USE_IFs/EPSCALC_USE_IFs.f90 +++ b/Source/USE_IFs/EPSCALC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EPSCALC_USE_IFs diff --git a/Source/USE_IFs/EPTL_USE_IFs.f90 b/Source/USE_IFs/EPTL_USE_IFs.f90 index 6cf83429..f4979790 100644 --- a/Source/USE_IFs/EPTL_USE_IFs.f90 +++ b/Source/USE_IFs/EPTL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EPTL_USE_IFs diff --git a/Source/USE_IFs/ESP0_FINAL_USE_IFs.f90 b/Source/USE_IFs/ESP0_FINAL_USE_IFs.f90 index 04966a06..c37dd520 100644 --- a/Source/USE_IFs/ESP0_FINAL_USE_IFs.f90 +++ b/Source/USE_IFs/ESP0_FINAL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ESP0_FINAL_USE_IFs diff --git a/Source/USE_IFs/ESP0_USE_IFs.f90 b/Source/USE_IFs/ESP0_USE_IFs.f90 index c4bf3a53..d1d53191 100644 --- a/Source/USE_IFs/ESP0_USE_IFs.f90 +++ b/Source/USE_IFs/ESP0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ESP0_USE_IFs diff --git a/Source/USE_IFs/ESP_USE_IFs.f90 b/Source/USE_IFs/ESP_USE_IFs.f90 index 912126b7..fed39654 100644 --- a/Source/USE_IFs/ESP_USE_IFs.f90 +++ b/Source/USE_IFs/ESP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ESP_USE_IFs diff --git a/Source/USE_IFs/EXPAND_PHIXA_TO_PHIXG_USE_IFs.f90 b/Source/USE_IFs/EXPAND_PHIXA_TO_PHIXG_USE_IFs.f90 index ff605b94..e074fe64 100644 --- a/Source/USE_IFs/EXPAND_PHIXA_TO_PHIXG_USE_IFs.f90 +++ b/Source/USE_IFs/EXPAND_PHIXA_TO_PHIXG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE EXPAND_PHIXA_TO_PHIXG_USE_IFs diff --git a/Source/USE_IFs/FBS_LAPACK_USE_IFs.f90 b/Source/USE_IFs/FBS_LAPACK_USE_IFs.f90 index fb04c819..461adaea 100644 --- a/Source/USE_IFs/FBS_LAPACK_USE_IFs.f90 +++ b/Source/USE_IFs/FBS_LAPACK_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FBS_LAPACK_USE_IFs diff --git a/Source/USE_IFs/FBS_SUPRLU_USE_IFs.f90 b/Source/USE_IFs/FBS_SUPRLU_USE_IFs.f90 index a7b50988..bdb5d55b 100644 --- a/Source/USE_IFs/FBS_SUPRLU_USE_IFs.f90 +++ b/Source/USE_IFs/FBS_SUPRLU_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FBS_SUPRLU_USE_IFs diff --git a/Source/USE_IFs/FFIELD2_USE_IFs.f90 b/Source/USE_IFs/FFIELD2_USE_IFs.f90 index ce3e0879..4a53d161 100644 --- a/Source/USE_IFs/FFIELD2_USE_IFs.f90 +++ b/Source/USE_IFs/FFIELD2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FFIELD2_USE_IFs diff --git a/Source/USE_IFs/FFIELD_USE_IFs.f90 b/Source/USE_IFs/FFIELD_USE_IFs.f90 index 0635001e..a87bc781 100644 --- a/Source/USE_IFs/FFIELD_USE_IFs.f90 +++ b/Source/USE_IFs/FFIELD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FFIELD_USE_IFs diff --git a/Source/USE_IFs/FILE_CLOSE_USE_IFs.f90 b/Source/USE_IFs/FILE_CLOSE_USE_IFs.f90 index d734a42a..b692ce87 100644 --- a/Source/USE_IFs/FILE_CLOSE_USE_IFs.f90 +++ b/Source/USE_IFs/FILE_CLOSE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FILE_CLOSE_USE_IFs diff --git a/Source/USE_IFs/FILE_INQUIRE_USE_IFs.f90 b/Source/USE_IFs/FILE_INQUIRE_USE_IFs.f90 index fa63db2d..ea40a9ec 100644 --- a/Source/USE_IFs/FILE_INQUIRE_USE_IFs.f90 +++ b/Source/USE_IFs/FILE_INQUIRE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FILE_INQUIRE_USE_IFs diff --git a/Source/USE_IFs/FILE_OPEN_USE_IFs.f90 b/Source/USE_IFs/FILE_OPEN_USE_IFs.f90 index 06f49c82..cbfb43b3 100644 --- a/Source/USE_IFs/FILE_OPEN_USE_IFs.f90 +++ b/Source/USE_IFs/FILE_OPEN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FILE_OPEN_USE_IFs diff --git a/Source/USE_IFs/FORCE_MOM_PROC_USE_IFs.f90 b/Source/USE_IFs/FORCE_MOM_PROC_USE_IFs.f90 index a0ba9dee..8c0b5ec6 100644 --- a/Source/USE_IFs/FORCE_MOM_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/FORCE_MOM_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FORCE_MOM_PROC_USE_IFs diff --git a/Source/USE_IFs/FULL_TO_SPARSE_CRS_USE_IFs.f90 b/Source/USE_IFs/FULL_TO_SPARSE_CRS_USE_IFs.f90 index b6feb4d2..d4e72201 100644 --- a/Source/USE_IFs/FULL_TO_SPARSE_CRS_USE_IFs.f90 +++ b/Source/USE_IFs/FULL_TO_SPARSE_CRS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE FULL_TO_SPARSE_CRS_USE_IFs diff --git a/Source/USE_IFs/GEN_T0L_USE_IFs.f90 b/Source/USE_IFs/GEN_T0L_USE_IFs.f90 index 980b1cbb..30898d74 100644 --- a/Source/USE_IFs/GEN_T0L_USE_IFs.f90 +++ b/Source/USE_IFs/GEN_T0L_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GEN_T0L_USE_IFs diff --git a/Source/USE_IFs/GET_ANSID_USE_IFs.f90 b/Source/USE_IFs/GET_ANSID_USE_IFs.f90 index a467c877..a346b82b 100644 --- a/Source/USE_IFs/GET_ANSID_USE_IFs.f90 +++ b/Source/USE_IFs/GET_ANSID_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_ANSID_USE_IFs diff --git a/Source/USE_IFs/GET_ARRAY_ROW_NUM_USE_IFs.f90 b/Source/USE_IFs/GET_ARRAY_ROW_NUM_USE_IFs.f90 index 68bbd739..50e11684 100644 --- a/Source/USE_IFs/GET_ARRAY_ROW_NUM_USE_IFs.f90 +++ b/Source/USE_IFs/GET_ARRAY_ROW_NUM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_ARRAY_ROW_NUM_USE_IFs diff --git a/Source/USE_IFs/GET_CHAR_STRING_END_USE_IFs.f90 b/Source/USE_IFs/GET_CHAR_STRING_END_USE_IFs.f90 index eba23156..4805eadf 100644 --- a/Source/USE_IFs/GET_CHAR_STRING_END_USE_IFs.f90 +++ b/Source/USE_IFs/GET_CHAR_STRING_END_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_CHAR_STRING_END_USE_IFs diff --git a/Source/USE_IFs/GET_COMP_SHELL_ALLOWS_USE_IFs.f90 b/Source/USE_IFs/GET_COMP_SHELL_ALLOWS_USE_IFs.f90 index 3d753282..1c40772a 100644 --- a/Source/USE_IFs/GET_COMP_SHELL_ALLOWS_USE_IFs.f90 +++ b/Source/USE_IFs/GET_COMP_SHELL_ALLOWS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_COMP_SHELL_ALLOWS_USE_IFs diff --git a/Source/USE_IFs/GET_ELEM_AGRID_BGRID_USE_IFs.f90 b/Source/USE_IFs/GET_ELEM_AGRID_BGRID_USE_IFs.f90 index cbf6466a..80b1d27a 100644 --- a/Source/USE_IFs/GET_ELEM_AGRID_BGRID_USE_IFs.f90 +++ b/Source/USE_IFs/GET_ELEM_AGRID_BGRID_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_ELEM_AGRID_BGRID_USE_IFs diff --git a/Source/USE_IFs/GET_ELEM_NUM_PLIES_USE_IFs.f90 b/Source/USE_IFs/GET_ELEM_NUM_PLIES_USE_IFs.f90 index 80153264..3f00abb8 100644 --- a/Source/USE_IFs/GET_ELEM_NUM_PLIES_USE_IFs.f90 +++ b/Source/USE_IFs/GET_ELEM_NUM_PLIES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_ELEM_NUM_PLIES_USE_IFs diff --git a/Source/USE_IFs/GET_ELEM_ONAME_USE_IFs.f90 b/Source/USE_IFs/GET_ELEM_ONAME_USE_IFs.f90 index d202275f..03500fb4 100644 --- a/Source/USE_IFs/GET_ELEM_ONAME_USE_IFs.f90 +++ b/Source/USE_IFs/GET_ELEM_ONAME_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_ELEM_ONAME_USE_IFs diff --git a/Source/USE_IFs/GET_ELGP_USE_IFs.f90 b/Source/USE_IFs/GET_ELGP_USE_IFs.f90 index 2a619101..b3da2b97 100644 --- a/Source/USE_IFs/GET_ELGP_USE_IFs.f90 +++ b/Source/USE_IFs/GET_ELGP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_ELGP_USE_IFs diff --git a/Source/USE_IFs/GET_FORMATTED_INTEGER_USE_IFs.f90 b/Source/USE_IFs/GET_FORMATTED_INTEGER_USE_IFs.f90 index 31cbd97a..0f7f0609 100644 --- a/Source/USE_IFs/GET_FORMATTED_INTEGER_USE_IFs.f90 +++ b/Source/USE_IFs/GET_FORMATTED_INTEGER_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_FORMATTED_INTEGER_USE_IFs diff --git a/Source/USE_IFs/GET_GRID_6X6_MASS_USE_IFs.f90 b/Source/USE_IFs/GET_GRID_6X6_MASS_USE_IFs.f90 index 7798753b..d085f82c 100644 --- a/Source/USE_IFs/GET_GRID_6X6_MASS_USE_IFs.f90 +++ b/Source/USE_IFs/GET_GRID_6X6_MASS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_GRID_6X6_MASS_USE_IFs diff --git a/Source/USE_IFs/GET_GRID_AND_COMP_USE_IFs.f90 b/Source/USE_IFs/GET_GRID_AND_COMP_USE_IFs.f90 index 1c72fdc2..d86a4f6f 100644 --- a/Source/USE_IFs/GET_GRID_AND_COMP_USE_IFs.f90 +++ b/Source/USE_IFs/GET_GRID_AND_COMP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_GRID_AND_COMP_USE_IFs diff --git a/Source/USE_IFs/GET_GRID_NUM_COMPS_USE_IFs.f90 b/Source/USE_IFs/GET_GRID_NUM_COMPS_USE_IFs.f90 index 24996a3c..6c18097c 100644 --- a/Source/USE_IFs/GET_GRID_NUM_COMPS_USE_IFs.f90 +++ b/Source/USE_IFs/GET_GRID_NUM_COMPS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_GRID_NUM_COMPS_USE_IFs diff --git a/Source/USE_IFs/GET_I2_MAT_FROM_I_MAT_USE_IFs.f90 b/Source/USE_IFs/GET_I2_MAT_FROM_I_MAT_USE_IFs.f90 index 64ffe2d8..917ce92e 100644 --- a/Source/USE_IFs/GET_I2_MAT_FROM_I_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/GET_I2_MAT_FROM_I_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_I2_MAT_FROM_I_MAT_USE_IFs diff --git a/Source/USE_IFs/GET_I_MAT_FROM_I2_MAT_USE_IFs.f90 b/Source/USE_IFs/GET_I_MAT_FROM_I2_MAT_USE_IFs.f90 index 9ff6aa22..2ee88856 100644 --- a/Source/USE_IFs/GET_I_MAT_FROM_I2_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/GET_I_MAT_FROM_I2_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_I_MAT_FROM_I2_MAT_USE_IFs diff --git a/Source/USE_IFs/GET_MACHINE_PARAMS_USE_IFs.f90 b/Source/USE_IFs/GET_MACHINE_PARAMS_USE_IFs.f90 index a6f9ef38..d453f57a 100644 --- a/Source/USE_IFs/GET_MACHINE_PARAMS_USE_IFs.f90 +++ b/Source/USE_IFs/GET_MACHINE_PARAMS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_MACHINE_PARAMS_USE_IFs diff --git a/Source/USE_IFs/GET_MATANGLE_FROM_CID_USE_IFs.f90 b/Source/USE_IFs/GET_MATANGLE_FROM_CID_USE_IFs.f90 index a34f86d9..f6fc2593 100644 --- a/Source/USE_IFs/GET_MATANGLE_FROM_CID_USE_IFs.f90 +++ b/Source/USE_IFs/GET_MATANGLE_FROM_CID_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_MATANGLE_FROM_CID_USE_IFs diff --git a/Source/USE_IFs/GET_MATRIX_DIAG_STATS_USE_IFs.f90 b/Source/USE_IFs/GET_MATRIX_DIAG_STATS_USE_IFs.f90 index 1cc04b31..df88d513 100644 --- a/Source/USE_IFs/GET_MATRIX_DIAG_STATS_USE_IFs.f90 +++ b/Source/USE_IFs/GET_MATRIX_DIAG_STATS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_MATRIX_DIAG_STATS_USE_IFs diff --git a/Source/USE_IFs/GET_MAX_MIN_ABS_STR_USE_IFs.f90 b/Source/USE_IFs/GET_MAX_MIN_ABS_STR_USE_IFs.f90 index 57f55738..3d2b2283 100644 --- a/Source/USE_IFs/GET_MAX_MIN_ABS_STR_USE_IFs.f90 +++ b/Source/USE_IFs/GET_MAX_MIN_ABS_STR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_MAX_MIN_ABS_STR_USE_IFs diff --git a/Source/USE_IFs/GET_MYSTRAN_DIR_USE_IFs.f90 b/Source/USE_IFs/GET_MYSTRAN_DIR_USE_IFs.f90 index 9a41324f..3a70a1ee 100644 --- a/Source/USE_IFs/GET_MYSTRAN_DIR_USE_IFs.f90 +++ b/Source/USE_IFs/GET_MYSTRAN_DIR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_MYSTRAN_DIR_USE_IFs diff --git a/Source/USE_IFs/GET_OU4_MAT_STATS_USE_IFs.f90 b/Source/USE_IFs/GET_OU4_MAT_STATS_USE_IFs.f90 index c84563b0..b3228c34 100644 --- a/Source/USE_IFs/GET_OU4_MAT_STATS_USE_IFs.f90 +++ b/Source/USE_IFs/GET_OU4_MAT_STATS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_OU4_MAT_STATS_USE_IFs diff --git a/Source/USE_IFs/GET_PCOMP_SECT_PROPS_USE_IFs.f90 b/Source/USE_IFs/GET_PCOMP_SECT_PROPS_USE_IFs.f90 index 5f3951e1..e26f1e9a 100644 --- a/Source/USE_IFs/GET_PCOMP_SECT_PROPS_USE_IFs.f90 +++ b/Source/USE_IFs/GET_PCOMP_SECT_PROPS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_PCOMP_SECT_PROPS_USE_IFs diff --git a/Source/USE_IFs/GET_SETID_USE_IFs.f90 b/Source/USE_IFs/GET_SETID_USE_IFs.f90 index 08df20b0..cf48dbad 100644 --- a/Source/USE_IFs/GET_SETID_USE_IFs.f90 +++ b/Source/USE_IFs/GET_SETID_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_SETID_USE_IFs diff --git a/Source/USE_IFs/GET_SPARSE_CRS_COL_USE_IFs.f90 b/Source/USE_IFs/GET_SPARSE_CRS_COL_USE_IFs.f90 index 5bf76dd4..11023778 100644 --- a/Source/USE_IFs/GET_SPARSE_CRS_COL_USE_IFs.f90 +++ b/Source/USE_IFs/GET_SPARSE_CRS_COL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_SPARSE_CRS_COL_USE_IFs diff --git a/Source/USE_IFs/GET_SPARSE_CRS_ROW_USE_IFs.f90 b/Source/USE_IFs/GET_SPARSE_CRS_ROW_USE_IFs.f90 index c3776518..699b0e91 100644 --- a/Source/USE_IFs/GET_SPARSE_CRS_ROW_USE_IFs.f90 +++ b/Source/USE_IFs/GET_SPARSE_CRS_ROW_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_SPARSE_CRS_ROW_USE_IFs diff --git a/Source/USE_IFs/GET_SPARSE_MAT_TERM_USE_IFs.f90 b/Source/USE_IFs/GET_SPARSE_MAT_TERM_USE_IFs.f90 index 92dfd4af..3198cc55 100644 --- a/Source/USE_IFs/GET_SPARSE_MAT_TERM_USE_IFs.f90 +++ b/Source/USE_IFs/GET_SPARSE_MAT_TERM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_SPARSE_MAT_TERM_USE_IFs diff --git a/Source/USE_IFs/GET_UG_123_IN_GRD_ORD_USE_IFs.f90 b/Source/USE_IFs/GET_UG_123_IN_GRD_ORD_USE_IFs.f90 index 185137d6..b6b65fc9 100644 --- a/Source/USE_IFs/GET_UG_123_IN_GRD_ORD_USE_IFs.f90 +++ b/Source/USE_IFs/GET_UG_123_IN_GRD_ORD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_UG_123_IN_GRD_ORD_USE_IFs diff --git a/Source/USE_IFs/GET_VEC_MIN_MAX_ABS_USE_IFs.f90 b/Source/USE_IFs/GET_VEC_MIN_MAX_ABS_USE_IFs.f90 index ee47b35d..85d507c9 100644 --- a/Source/USE_IFs/GET_VEC_MIN_MAX_ABS_USE_IFs.f90 +++ b/Source/USE_IFs/GET_VEC_MIN_MAX_ABS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GET_VEC_MIN_MAX_ABS_USE_IFs diff --git a/Source/USE_IFs/GPWG_PMOI_USE_IFs.f90 b/Source/USE_IFs/GPWG_PMOI_USE_IFs.f90 index eca17916..9fbd81bd 100644 --- a/Source/USE_IFs/GPWG_PMOI_USE_IFs.f90 +++ b/Source/USE_IFs/GPWG_PMOI_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GPWG_PMOI_USE_IFs diff --git a/Source/USE_IFs/GPWG_USERIN_USE_IFs.f90 b/Source/USE_IFs/GPWG_USERIN_USE_IFs.f90 index 3d02ac5f..3d645941 100644 --- a/Source/USE_IFs/GPWG_USERIN_USE_IFs.f90 +++ b/Source/USE_IFs/GPWG_USERIN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GPWG_USERIN_USE_IFs diff --git a/Source/USE_IFs/GPWG_USE_IFs.f90 b/Source/USE_IFs/GPWG_USE_IFs.f90 index f5e91963..012d4272 100644 --- a/Source/USE_IFs/GPWG_USE_IFs.f90 +++ b/Source/USE_IFs/GPWG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GPWG_USE_IFs diff --git a/Source/USE_IFs/GP_FORCE_BALANCE_PROC_USE_IFs.f90 b/Source/USE_IFs/GP_FORCE_BALANCE_PROC_USE_IFs.f90 index 2a226b99..af501610 100644 --- a/Source/USE_IFs/GP_FORCE_BALANCE_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/GP_FORCE_BALANCE_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GP_FORCE_BALANCE_PROC_USE_IFs diff --git a/Source/USE_IFs/GRAV_PROC_USE_IFs.f90 b/Source/USE_IFs/GRAV_PROC_USE_IFs.f90 index 7d124f3e..1f4007c2 100644 --- a/Source/USE_IFs/GRAV_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/GRAV_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GRAV_PROC_USE_IFs diff --git a/Source/USE_IFs/GRID_ELEM_CONN_TABLE_USE_IFs.f90 b/Source/USE_IFs/GRID_ELEM_CONN_TABLE_USE_IFs.f90 index e7ff9d4d..007672d9 100644 --- a/Source/USE_IFs/GRID_ELEM_CONN_TABLE_USE_IFs.f90 +++ b/Source/USE_IFs/GRID_ELEM_CONN_TABLE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GRID_ELEM_CONN_TABLE_USE_IFs diff --git a/Source/USE_IFs/GRID_PROC_USE_IFs.f90 b/Source/USE_IFs/GRID_PROC_USE_IFs.f90 index d0383c4b..ed1ed0da 100644 --- a/Source/USE_IFs/GRID_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/GRID_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE GRID_PROC_USE_IFs diff --git a/Source/USE_IFs/HEXA_USE_IFs.f90 b/Source/USE_IFs/HEXA_USE_IFs.f90 index b640f2db..b18e40ab 100644 --- a/Source/USE_IFs/HEXA_USE_IFs.f90 +++ b/Source/USE_IFs/HEXA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE HEXA_USE_IFs diff --git a/Source/USE_IFs/I4FLD_USE_IFs.f90 b/Source/USE_IFs/I4FLD_USE_IFs.f90 index 5d9939e8..e11ab182 100644 --- a/Source/USE_IFs/I4FLD_USE_IFs.f90 +++ b/Source/USE_IFs/I4FLD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE I4FLD_USE_IFs diff --git a/Source/USE_IFs/INDEP_FAILURE_INDEX_USE_IFs.f90 b/Source/USE_IFs/INDEP_FAILURE_INDEX_USE_IFs.f90 index 53c599dc..ef8c36cd 100644 --- a/Source/USE_IFs/INDEP_FAILURE_INDEX_USE_IFs.f90 +++ b/Source/USE_IFs/INDEP_FAILURE_INDEX_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE INDEP_FAILURE_INDEX_USE_IFs diff --git a/Source/USE_IFs/INTERFACE_FORCE_LTM_USE_IFs.f90 b/Source/USE_IFs/INTERFACE_FORCE_LTM_USE_IFs.f90 index 956d175c..c333c979 100644 --- a/Source/USE_IFs/INTERFACE_FORCE_LTM_USE_IFs.f90 +++ b/Source/USE_IFs/INTERFACE_FORCE_LTM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE INTERFACE_FORCE_LTM_USE_IFs diff --git a/Source/USE_IFs/INVERT_EIGENS_USE_IFs.f90 b/Source/USE_IFs/INVERT_EIGENS_USE_IFs.f90 index e4a55d80..60ac9621 100644 --- a/Source/USE_IFs/INVERT_EIGENS_USE_IFs.f90 +++ b/Source/USE_IFs/INVERT_EIGENS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE INVERT_EIGENS_USE_IFs diff --git a/Source/USE_IFs/INVERT_FF_MAT_USE_IFs.f90 b/Source/USE_IFs/INVERT_FF_MAT_USE_IFs.f90 index 318c7f4c..4556f4e5 100644 --- a/Source/USE_IFs/INVERT_FF_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/INVERT_FF_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE INVERT_FF_MAT_USE_IFs diff --git a/Source/USE_IFs/IP6CHK_USE_IFs.f90 b/Source/USE_IFs/IP6CHK_USE_IFs.f90 index 120b7ef2..f1422b4a 100644 --- a/Source/USE_IFs/IP6CHK_USE_IFs.f90 +++ b/Source/USE_IFs/IP6CHK_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE IP6CHK_USE_IFs diff --git a/Source/USE_IFs/IS_ELEM_PCOMP_PROPS_USE_IFs.f90 b/Source/USE_IFs/IS_ELEM_PCOMP_PROPS_USE_IFs.f90 index 8b78f1da..edaee245 100644 --- a/Source/USE_IFs/IS_ELEM_PCOMP_PROPS_USE_IFs.f90 +++ b/Source/USE_IFs/IS_ELEM_PCOMP_PROPS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE IS_ELEM_PCOMP_PROPS_USE_IFs diff --git a/Source/USE_IFs/IS_THIS_A_RESTART_USE_IFs.f90 b/Source/USE_IFs/IS_THIS_A_RESTART_USE_IFs.f90 index cdaf2abb..3bea786f 100644 --- a/Source/USE_IFs/IS_THIS_A_RESTART_USE_IFs.f90 +++ b/Source/USE_IFs/IS_THIS_A_RESTART_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE IS_THIS_A_RESTART_USE_IFs diff --git a/Source/USE_IFs/JAC2D_USE_IFs.f90 b/Source/USE_IFs/JAC2D_USE_IFs.f90 index 0c9960ec..91a22ffb 100644 --- a/Source/USE_IFs/JAC2D_USE_IFs.f90 +++ b/Source/USE_IFs/JAC2D_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE JAC2D_USE_IFs diff --git a/Source/USE_IFs/JAC3D_USE_IFs.f90 b/Source/USE_IFs/JAC3D_USE_IFs.f90 index e836766b..1563d47b 100644 --- a/Source/USE_IFs/JAC3D_USE_IFs.f90 +++ b/Source/USE_IFs/JAC3D_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE JAC3D_USE_IFs diff --git a/Source/USE_IFs/KGG_SINGULARITY_PROC_USE_IFs.f90 b/Source/USE_IFs/KGG_SINGULARITY_PROC_USE_IFs.f90 index eba03ce9..367cd9ba 100644 --- a/Source/USE_IFs/KGG_SINGULARITY_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/KGG_SINGULARITY_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE KGG_SINGULARITY_PROC_USE_IFs diff --git a/Source/USE_IFs/KUSER1_USE_IFs.f90 b/Source/USE_IFs/KUSER1_USE_IFs.f90 index 0c65e3de..a3e6349b 100644 --- a/Source/USE_IFs/KUSER1_USE_IFs.f90 +++ b/Source/USE_IFs/KUSER1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE KUSER1_USE_IFs diff --git a/Source/USE_IFs/LEFT_ADJ_BDFLD_USE_IFs.f90 b/Source/USE_IFs/LEFT_ADJ_BDFLD_USE_IFs.f90 index 23e9f658..d46bdf9d 100644 --- a/Source/USE_IFs/LEFT_ADJ_BDFLD_USE_IFs.f90 +++ b/Source/USE_IFs/LEFT_ADJ_BDFLD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LEFT_ADJ_BDFLD_USE_IFs diff --git a/Source/USE_IFs/LINK0_USE_IFs.f90 b/Source/USE_IFs/LINK0_USE_IFs.f90 index 32c911ac..55b783ab 100644 --- a/Source/USE_IFs/LINK0_USE_IFs.f90 +++ b/Source/USE_IFs/LINK0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK0_USE_IFs diff --git a/Source/USE_IFs/LINK1_RESTART_DATA_USE_IFs.f90 b/Source/USE_IFs/LINK1_RESTART_DATA_USE_IFs.f90 index d9a3ee03..140ccd94 100644 --- a/Source/USE_IFs/LINK1_RESTART_DATA_USE_IFs.f90 +++ b/Source/USE_IFs/LINK1_RESTART_DATA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK1_RESTART_DATA_USE_IFs diff --git a/Source/USE_IFs/LINK1_USE_IFs.f90 b/Source/USE_IFs/LINK1_USE_IFs.f90 index 30149467..03d76fc9 100644 --- a/Source/USE_IFs/LINK1_USE_IFs.f90 +++ b/Source/USE_IFs/LINK1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK1_USE_IFs diff --git a/Source/USE_IFs/LINK2_USE_IFs.f90 b/Source/USE_IFs/LINK2_USE_IFs.f90 index 1875edb8..7074dd04 100644 --- a/Source/USE_IFs/LINK2_USE_IFs.f90 +++ b/Source/USE_IFs/LINK2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK2_USE_IFs diff --git a/Source/USE_IFs/LINK3_USE_IFs.f90 b/Source/USE_IFs/LINK3_USE_IFs.f90 index 7b857fdc..83c3fdb8 100644 --- a/Source/USE_IFs/LINK3_USE_IFs.f90 +++ b/Source/USE_IFs/LINK3_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK3_USE_IFs diff --git a/Source/USE_IFs/LINK5_USE_IFs.f90 b/Source/USE_IFs/LINK5_USE_IFs.f90 index 7f66917a..83e98c9c 100644 --- a/Source/USE_IFs/LINK5_USE_IFs.f90 +++ b/Source/USE_IFs/LINK5_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK5_USE_IFs diff --git a/Source/USE_IFs/LINK6_USE_IFs.f90 b/Source/USE_IFs/LINK6_USE_IFs.f90 index a5f71996..5e7b0eb9 100644 --- a/Source/USE_IFs/LINK6_USE_IFs.f90 +++ b/Source/USE_IFs/LINK6_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK6_USE_IFs diff --git a/Source/USE_IFs/LINK9S_USE_IFs.f90 b/Source/USE_IFs/LINK9S_USE_IFs.f90 index ab9a9cc2..aedf5c26 100644 --- a/Source/USE_IFs/LINK9S_USE_IFs.f90 +++ b/Source/USE_IFs/LINK9S_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK9S_USE_IFs diff --git a/Source/USE_IFs/LINK9_USE_IFs.f90 b/Source/USE_IFs/LINK9_USE_IFs.f90 index 127445c7..ce0dbde6 100644 --- a/Source/USE_IFs/LINK9_USE_IFs.f90 +++ b/Source/USE_IFs/LINK9_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LINK9_USE_IFs diff --git a/Source/USE_IFs/LOADB0_USE_IFs.f90 b/Source/USE_IFs/LOADB0_USE_IFs.f90 index 1f899618..8eea73f8 100644 --- a/Source/USE_IFs/LOADB0_USE_IFs.f90 +++ b/Source/USE_IFs/LOADB0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADB0_USE_IFs diff --git a/Source/USE_IFs/LOADB_RESTART_USE_IFs.f90 b/Source/USE_IFs/LOADB_RESTART_USE_IFs.f90 index b1b30996..0d1ad3ba 100644 --- a/Source/USE_IFs/LOADB_RESTART_USE_IFs.f90 +++ b/Source/USE_IFs/LOADB_RESTART_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADB_RESTART_USE_IFs diff --git a/Source/USE_IFs/LOADB_USE_IFs.f90 b/Source/USE_IFs/LOADB_USE_IFs.f90 index 90953e46..2e792be6 100644 --- a/Source/USE_IFs/LOADB_USE_IFs.f90 +++ b/Source/USE_IFs/LOADB_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADB_USE_IFs diff --git a/Source/USE_IFs/LOADC0_USE_IFs.f90 b/Source/USE_IFs/LOADC0_USE_IFs.f90 index a1d221ee..0f3e9332 100644 --- a/Source/USE_IFs/LOADC0_USE_IFs.f90 +++ b/Source/USE_IFs/LOADC0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADC0_USE_IFs diff --git a/Source/USE_IFs/LOADC_USE_IFs.f90 b/Source/USE_IFs/LOADC_USE_IFs.f90 index 87a10e21..98e992e7 100644 --- a/Source/USE_IFs/LOADC_USE_IFs.f90 +++ b/Source/USE_IFs/LOADC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADC_USE_IFs diff --git a/Source/USE_IFs/LOADE0_USE_IFs.f90 b/Source/USE_IFs/LOADE0_USE_IFs.f90 index 875dcb32..5460b7e7 100644 --- a/Source/USE_IFs/LOADE0_USE_IFs.f90 +++ b/Source/USE_IFs/LOADE0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADE0_USE_IFs diff --git a/Source/USE_IFs/LOADE_USE_IFs.f90 b/Source/USE_IFs/LOADE_USE_IFs.f90 index c9b665dd..765e21f1 100644 --- a/Source/USE_IFs/LOADE_USE_IFs.f90 +++ b/Source/USE_IFs/LOADE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE LOADE_USE_IFs diff --git a/Source/USE_IFs/MATADD_FFF_USE_IFs.f90 b/Source/USE_IFs/MATADD_FFF_USE_IFs.f90 index c27339b8..ac4ce40f 100644 --- a/Source/USE_IFs/MATADD_FFF_USE_IFs.f90 +++ b/Source/USE_IFs/MATADD_FFF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATADD_FFF_USE_IFs diff --git a/Source/USE_IFs/MATADD_SSS_NTERM_USE_IFs.f90 b/Source/USE_IFs/MATADD_SSS_NTERM_USE_IFs.f90 index e2efa9af..e3d91f26 100644 --- a/Source/USE_IFs/MATADD_SSS_NTERM_USE_IFs.f90 +++ b/Source/USE_IFs/MATADD_SSS_NTERM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATADD_SSS_NTERM_USE_IFs diff --git a/Source/USE_IFs/MATADD_SSS_USE_IFs.f90 b/Source/USE_IFs/MATADD_SSS_USE_IFs.f90 index 7854a734..a413e1d7 100644 --- a/Source/USE_IFs/MATADD_SSS_USE_IFs.f90 +++ b/Source/USE_IFs/MATADD_SSS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATADD_SSS_USE_IFs diff --git a/Source/USE_IFs/MATERIAL_PROPS_2D_USE_IFs.f90 b/Source/USE_IFs/MATERIAL_PROPS_2D_USE_IFs.f90 index 69a593a4..1264ffcf 100644 --- a/Source/USE_IFs/MATERIAL_PROPS_2D_USE_IFs.f90 +++ b/Source/USE_IFs/MATERIAL_PROPS_2D_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATERIAL_PROPS_2D_USE_IFs diff --git a/Source/USE_IFs/MATERIAL_PROPS_3D_USE_IFs.f90 b/Source/USE_IFs/MATERIAL_PROPS_3D_USE_IFs.f90 index ab33d733..b337e9bf 100644 --- a/Source/USE_IFs/MATERIAL_PROPS_3D_USE_IFs.f90 +++ b/Source/USE_IFs/MATERIAL_PROPS_3D_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATERIAL_PROPS_3D_USE_IFs diff --git a/Source/USE_IFs/MATGET_USE_IFs.f90 b/Source/USE_IFs/MATGET_USE_IFs.f90 index 2c164100..5e985460 100644 --- a/Source/USE_IFs/MATGET_USE_IFs.f90 +++ b/Source/USE_IFs/MATGET_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATGET_USE_IFs diff --git a/Source/USE_IFs/MATL_TRANSFORM_MATRIX_USE_IFs.f90 b/Source/USE_IFs/MATL_TRANSFORM_MATRIX_USE_IFs.f90 index 5fc8c1f8..3f04c2f3 100644 --- a/Source/USE_IFs/MATL_TRANSFORM_MATRIX_USE_IFs.f90 +++ b/Source/USE_IFs/MATL_TRANSFORM_MATRIX_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATL_TRANSFORM_MATRIX_USE_IFs diff --git a/Source/USE_IFs/MATMULT_FFF_T_USE_IFs.f90 b/Source/USE_IFs/MATMULT_FFF_T_USE_IFs.f90 index 54982882..774ddec0 100644 --- a/Source/USE_IFs/MATMULT_FFF_T_USE_IFs.f90 +++ b/Source/USE_IFs/MATMULT_FFF_T_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_FFF_T_USE_IFs diff --git a/Source/USE_IFs/MATMULT_FFF_USE_IFs.f90 b/Source/USE_IFs/MATMULT_FFF_USE_IFs.f90 index e76c382b..c21db698 100644 --- a/Source/USE_IFs/MATMULT_FFF_USE_IFs.f90 +++ b/Source/USE_IFs/MATMULT_FFF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_FFF_USE_IFs diff --git a/Source/USE_IFs/MATMULT_SFF_USE_IFs.f90 b/Source/USE_IFs/MATMULT_SFF_USE_IFs.f90 index 79f035e7..2a1cceb9 100644 --- a/Source/USE_IFs/MATMULT_SFF_USE_IFs.f90 +++ b/Source/USE_IFs/MATMULT_SFF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_SFF_USE_IFs diff --git a/Source/USE_IFs/MATMULT_SFS_NTERM_USE_IFs.f90 b/Source/USE_IFs/MATMULT_SFS_NTERM_USE_IFs.f90 index 184734da..e4307245 100644 --- a/Source/USE_IFs/MATMULT_SFS_NTERM_USE_IFs.f90 +++ b/Source/USE_IFs/MATMULT_SFS_NTERM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_SFS_NTERM_USE_IFs diff --git a/Source/USE_IFs/MATMULT_SFS_USE_IFs.f90 b/Source/USE_IFs/MATMULT_SFS_USE_IFs.f90 index f3961026..fefea353 100644 --- a/Source/USE_IFs/MATMULT_SFS_USE_IFs.f90 +++ b/Source/USE_IFs/MATMULT_SFS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_SFS_USE_IFs diff --git a/Source/USE_IFs/MATMULT_SSS_NTERM_USE_IFs.f90 b/Source/USE_IFs/MATMULT_SSS_NTERM_USE_IFs.f90 index 33395c30..d81b0f08 100644 --- a/Source/USE_IFs/MATMULT_SSS_NTERM_USE_IFs.f90 +++ b/Source/USE_IFs/MATMULT_SSS_NTERM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_SSS_NTERM_USE_IFs diff --git a/Source/USE_IFs/MATMULT_SSS_USE_IFs.f90 b/Source/USE_IFs/MATMULT_SSS_USE_IFs.f90 index 32bb2a29..b4b574bc 100644 --- a/Source/USE_IFs/MATMULT_SSS_USE_IFs.f90 +++ b/Source/USE_IFs/MATMULT_SSS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATMULT_SSS_USE_IFs diff --git a/Source/USE_IFs/MATPUT_USE_IFs.f90 b/Source/USE_IFs/MATPUT_USE_IFs.f90 index c5a66302..c5dd88dc 100644 --- a/Source/USE_IFs/MATPUT_USE_IFs.f90 +++ b/Source/USE_IFs/MATPUT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATPUT_USE_IFs diff --git a/Source/USE_IFs/MATTRNSP_SS_USE_IFs.f90 b/Source/USE_IFs/MATTRNSP_SS_USE_IFs.f90 index a18e552f..f42468ce 100644 --- a/Source/USE_IFs/MATTRNSP_SS_USE_IFs.f90 +++ b/Source/USE_IFs/MATTRNSP_SS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MATTRNSP_SS_USE_IFs diff --git a/Source/USE_IFs/MAXREQ_OGEL_USE_IFs.f90 b/Source/USE_IFs/MAXREQ_OGEL_USE_IFs.f90 index 675e710f..43c5c39d 100644 --- a/Source/USE_IFs/MAXREQ_OGEL_USE_IFs.f90 +++ b/Source/USE_IFs/MAXREQ_OGEL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MAXREQ_OGEL_USE_IFs diff --git a/Source/USE_IFs/MERGE_COL_VECS_USE_IFs.f90 b/Source/USE_IFs/MERGE_COL_VECS_USE_IFs.f90 index a0754ac8..d98b6df3 100644 --- a/Source/USE_IFs/MERGE_COL_VECS_USE_IFs.f90 +++ b/Source/USE_IFs/MERGE_COL_VECS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_COL_VECS_USE_IFs diff --git a/Source/USE_IFs/MERGE_KXX_USE_IFs.f90 b/Source/USE_IFs/MERGE_KXX_USE_IFs.f90 index 8c63bcd2..57932529 100644 --- a/Source/USE_IFs/MERGE_KXX_USE_IFs.f90 +++ b/Source/USE_IFs/MERGE_KXX_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_KXX_USE_IFs diff --git a/Source/USE_IFs/MERGE_LTM_USE_IFs.f90 b/Source/USE_IFs/MERGE_LTM_USE_IFs.f90 index dc6a1aef..62b50998 100644 --- a/Source/USE_IFs/MERGE_LTM_USE_IFs.f90 +++ b/Source/USE_IFs/MERGE_LTM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_LTM_USE_IFs diff --git a/Source/USE_IFs/MERGE_MAT_COLS_SSS_USE_IFs.f90 b/Source/USE_IFs/MERGE_MAT_COLS_SSS_USE_IFs.f90 index 4ad30a52..a392e719 100644 --- a/Source/USE_IFs/MERGE_MAT_COLS_SSS_USE_IFs.f90 +++ b/Source/USE_IFs/MERGE_MAT_COLS_SSS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_MAT_COLS_SSS_USE_IFs diff --git a/Source/USE_IFs/MERGE_MAT_ROWS_SSS_USE_IFs.f90 b/Source/USE_IFs/MERGE_MAT_ROWS_SSS_USE_IFs.f90 index 37508e7e..4cada740 100644 --- a/Source/USE_IFs/MERGE_MAT_ROWS_SSS_USE_IFs.f90 +++ b/Source/USE_IFs/MERGE_MAT_ROWS_SSS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_MAT_ROWS_SSS_USE_IFs diff --git a/Source/USE_IFs/MERGE_MXX_USE_IFs.f90 b/Source/USE_IFs/MERGE_MXX_USE_IFs.f90 index 72d17f02..6430f5f1 100644 --- a/Source/USE_IFs/MERGE_MXX_USE_IFs.f90 +++ b/Source/USE_IFs/MERGE_MXX_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_MXX_USE_IFs diff --git a/Source/USE_IFs/MERGE_PHIXA_USE_IFs.f90 b/Source/USE_IFs/MERGE_PHIXA_USE_IFs.f90 index a6009ea7..02c67d8f 100644 --- a/Source/USE_IFs/MERGE_PHIXA_USE_IFs.f90 +++ b/Source/USE_IFs/MERGE_PHIXA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MERGE_PHIXA_USE_IFs diff --git a/Source/USE_IFs/MGGC_MASS_MATRIX_USE_IFs.f90 b/Source/USE_IFs/MGGC_MASS_MATRIX_USE_IFs.f90 index ca5d27de..00fb64df 100644 --- a/Source/USE_IFs/MGGC_MASS_MATRIX_USE_IFs.f90 +++ b/Source/USE_IFs/MGGC_MASS_MATRIX_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MGGC_MASS_MATRIX_USE_IFs diff --git a/Source/USE_IFs/MGGS_MASS_MATRIX_USE_IFs.f90 b/Source/USE_IFs/MGGS_MASS_MATRIX_USE_IFs.f90 index e5263cc9..bbba6490 100644 --- a/Source/USE_IFs/MGGS_MASS_MATRIX_USE_IFs.f90 +++ b/Source/USE_IFs/MGGS_MASS_MATRIX_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MGGS_MASS_MATRIX_USE_IFs diff --git a/Source/USE_IFs/MIN4SH_USE_IFs.f90 b/Source/USE_IFs/MIN4SH_USE_IFs.f90 index 094bf193..1e77223c 100644 --- a/Source/USE_IFs/MIN4SH_USE_IFs.f90 +++ b/Source/USE_IFs/MIN4SH_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MIN4SH_USE_IFs diff --git a/Source/USE_IFs/MKCARD_USE_IFs.f90 b/Source/USE_IFs/MKCARD_USE_IFs.f90 index 98794966..9e17d6cc 100644 --- a/Source/USE_IFs/MKCARD_USE_IFs.f90 +++ b/Source/USE_IFs/MKCARD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MKCARD_USE_IFs diff --git a/Source/USE_IFs/MKJCARD_08_USE_IFs.f90 b/Source/USE_IFs/MKJCARD_08_USE_IFs.f90 index e40dbc8c..9997be1d 100644 --- a/Source/USE_IFs/MKJCARD_08_USE_IFs.f90 +++ b/Source/USE_IFs/MKJCARD_08_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MKJCARD_08_USE_IFs diff --git a/Source/USE_IFs/MKJCARD_USE_IFs.f90 b/Source/USE_IFs/MKJCARD_USE_IFs.f90 index 13935fc2..430f3fac 100644 --- a/Source/USE_IFs/MKJCARD_USE_IFs.f90 +++ b/Source/USE_IFs/MKJCARD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MKJCARD_USE_IFs diff --git a/Source/USE_IFs/MPC_PROC_USE_IFs.f90 b/Source/USE_IFs/MPC_PROC_USE_IFs.f90 index b3f4f92a..059e8633 100644 --- a/Source/USE_IFs/MPC_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/MPC_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MPC_PROC_USE_IFs diff --git a/Source/USE_IFs/MYSTRAN_FILES_USE_IFs.f90 b/Source/USE_IFs/MYSTRAN_FILES_USE_IFs.f90 index fed4bc2e..29992a4d 100644 --- a/Source/USE_IFs/MYSTRAN_FILES_USE_IFs.f90 +++ b/Source/USE_IFs/MYSTRAN_FILES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MYSTRAN_FILES_USE_IFs diff --git a/Source/USE_IFs/MYSTRAN_USE_IFs.f90 b/Source/USE_IFs/MYSTRAN_USE_IFs.f90 index 37263006..808dae01 100644 --- a/Source/USE_IFs/MYSTRAN_USE_IFs.f90 +++ b/Source/USE_IFs/MYSTRAN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE MYSTRAN_USE_IFs diff --git a/Source/USE_IFs/NET_CG_LOADS_LTM_USE_IFs.f90 b/Source/USE_IFs/NET_CG_LOADS_LTM_USE_IFs.f90 index b99c7add..5f9a5dc9 100644 --- a/Source/USE_IFs/NET_CG_LOADS_LTM_USE_IFs.f90 +++ b/Source/USE_IFs/NET_CG_LOADS_LTM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE NET_CG_LOADS_LTM_USE_IFs diff --git a/Source/USE_IFs/NEXTC0_USE_IFs.f90 b/Source/USE_IFs/NEXTC0_USE_IFs.f90 index b1126ffb..f2a91d95 100644 --- a/Source/USE_IFs/NEXTC0_USE_IFs.f90 +++ b/Source/USE_IFs/NEXTC0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE NEXTC0_USE_IFs diff --git a/Source/USE_IFs/NEXTC20_USE_IFs.f90 b/Source/USE_IFs/NEXTC20_USE_IFs.f90 index c03ba0d1..f10f8a20 100644 --- a/Source/USE_IFs/NEXTC20_USE_IFs.f90 +++ b/Source/USE_IFs/NEXTC20_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE NEXTC20_USE_IFs diff --git a/Source/USE_IFs/NEXTC2_USE_IFs.f90 b/Source/USE_IFs/NEXTC2_USE_IFs.f90 index 1f5c9bb1..02723fa7 100644 --- a/Source/USE_IFs/NEXTC2_USE_IFs.f90 +++ b/Source/USE_IFs/NEXTC2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE NEXTC2_USE_IFs diff --git a/Source/USE_IFs/NEXTC_USE_IFs.f90 b/Source/USE_IFs/NEXTC_USE_IFs.f90 index e14343b6..9fc7f707 100644 --- a/Source/USE_IFs/NEXTC_USE_IFs.f90 +++ b/Source/USE_IFs/NEXTC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE NEXTC_USE_IFs diff --git a/Source/USE_IFs/OFP1_USE_IFs.f90 b/Source/USE_IFs/OFP1_USE_IFs.f90 index c615e7af..b2e9ccb1 100644 --- a/Source/USE_IFs/OFP1_USE_IFs.f90 +++ b/Source/USE_IFs/OFP1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP1_USE_IFs diff --git a/Source/USE_IFs/OFP2_USE_IFs.f90 b/Source/USE_IFs/OFP2_USE_IFs.f90 index f964ba40..19c18624 100644 --- a/Source/USE_IFs/OFP2_USE_IFs.f90 +++ b/Source/USE_IFs/OFP2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP2_USE_IFs diff --git a/Source/USE_IFs/OFP3_ELFE_1D_USE_IFs.f90 b/Source/USE_IFs/OFP3_ELFE_1D_USE_IFs.f90 index c4def85c..7299a5f1 100644 --- a/Source/USE_IFs/OFP3_ELFE_1D_USE_IFs.f90 +++ b/Source/USE_IFs/OFP3_ELFE_1D_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + ! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_ELFE_1D_USE_IFs diff --git a/Source/USE_IFs/OFP3_ELFE_2D_USE_IFs.f90 b/Source/USE_IFs/OFP3_ELFE_2D_USE_IFs.f90 index f825f2ec..45cc289b 100644 --- a/Source/USE_IFs/OFP3_ELFE_2D_USE_IFs.f90 +++ b/Source/USE_IFs/OFP3_ELFE_2D_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_ELFE_2D_USE_IFs diff --git a/Source/USE_IFs/OFP3_ELFN_USE_IFs.f90 b/Source/USE_IFs/OFP3_ELFN_USE_IFs.f90 index 13041ec3..40a28195 100644 --- a/Source/USE_IFs/OFP3_ELFN_USE_IFs.f90 +++ b/Source/USE_IFs/OFP3_ELFN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_ELFN_USE_IFs diff --git a/Source/USE_IFs/OFP3_STRE_NO_PCOMP_USE_IFs.f90 b/Source/USE_IFs/OFP3_STRE_NO_PCOMP_USE_IFs.f90 index a3a7d3e8..012b9e19 100644 --- a/Source/USE_IFs/OFP3_STRE_NO_PCOMP_USE_IFs.f90 +++ b/Source/USE_IFs/OFP3_STRE_NO_PCOMP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_STRE_NO_PCOMP_USE_IFs diff --git a/Source/USE_IFs/OFP3_STRE_PCOMP_USE_IFs.f90 b/Source/USE_IFs/OFP3_STRE_PCOMP_USE_IFs.f90 index fcd48d50..67701190 100644 --- a/Source/USE_IFs/OFP3_STRE_PCOMP_USE_IFs.f90 +++ b/Source/USE_IFs/OFP3_STRE_PCOMP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_STRE_PCOMP_USE_IFs diff --git a/Source/USE_IFs/OFP3_STRN_NO_PCOMP_USE_IFs.f90 b/Source/USE_IFs/OFP3_STRN_NO_PCOMP_USE_IFs.f90 index c1a6f05f..7ae44f43 100644 --- a/Source/USE_IFs/OFP3_STRN_NO_PCOMP_USE_IFs.f90 +++ b/Source/USE_IFs/OFP3_STRN_NO_PCOMP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_STRN_NO_PCOMP_USE_IFs diff --git a/Source/USE_IFs/OFP3_STRN_PCOMP_USE_IFs.f90 b/Source/USE_IFs/OFP3_STRN_PCOMP_USE_IFs.f90 index 2ba62c83..e0d0f62a 100644 --- a/Source/USE_IFs/OFP3_STRN_PCOMP_USE_IFs.f90 +++ b/Source/USE_IFs/OFP3_STRN_PCOMP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_STRN_PCOMP_USE_IFs diff --git a/Source/USE_IFs/OFP3_USE_IFs.f90 b/Source/USE_IFs/OFP3_USE_IFs.f90 index 0c595af6..0a0c2971 100644 --- a/Source/USE_IFs/OFP3_USE_IFs.f90 +++ b/Source/USE_IFs/OFP3_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OFP3_USE_IFs diff --git a/Source/USE_IFs/ONE_D_STRAIN_OUTPUTS_USE_IFs.f90 b/Source/USE_IFs/ONE_D_STRAIN_OUTPUTS_USE_IFs.f90 index f3f2266e..6b33bc49 100644 --- a/Source/USE_IFs/ONE_D_STRAIN_OUTPUTS_USE_IFs.f90 +++ b/Source/USE_IFs/ONE_D_STRAIN_OUTPUTS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ONE_D_STRAIN_OUTPUTS_USE_IFs diff --git a/Source/USE_IFs/ONE_D_STRESS_OUTPUTS_USE_IFs.f90 b/Source/USE_IFs/ONE_D_STRESS_OUTPUTS_USE_IFs.f90 index ab8f0bf5..97da60db 100644 --- a/Source/USE_IFs/ONE_D_STRESS_OUTPUTS_USE_IFs.f90 +++ b/Source/USE_IFs/ONE_D_STRESS_OUTPUTS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ONE_D_STRESS_OUTPUTS_USE_IFs diff --git a/Source/USE_IFs/OPEN_OUTFILES_USE_IFs.f90 b/Source/USE_IFs/OPEN_OUTFILES_USE_IFs.f90 index 17bad533..7fa36dbf 100644 --- a/Source/USE_IFs/OPEN_OUTFILES_USE_IFs.f90 +++ b/Source/USE_IFs/OPEN_OUTFILES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OPEN_OUTFILES_USE_IFs diff --git a/Source/USE_IFs/OPNERR_USE_IFs.f90 b/Source/USE_IFs/OPNERR_USE_IFs.f90 index ac186427..aba2a6f7 100644 --- a/Source/USE_IFs/OPNERR_USE_IFs.f90 +++ b/Source/USE_IFs/OPNERR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OPNERR_USE_IFs diff --git a/Source/USE_IFs/ORDER_GAUSS_USE_IFs.f90 b/Source/USE_IFs/ORDER_GAUSS_USE_IFs.f90 index 628c39b4..468aa75a 100644 --- a/Source/USE_IFs/ORDER_GAUSS_USE_IFs.f90 +++ b/Source/USE_IFs/ORDER_GAUSS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ORDER_GAUSS_USE_IFs diff --git a/Source/USE_IFs/ORDER_TETRA_USE_IFs.f90 b/Source/USE_IFs/ORDER_TETRA_USE_IFs.f90 index 220156ce..f326ebe9 100644 --- a/Source/USE_IFs/ORDER_TETRA_USE_IFs.f90 +++ b/Source/USE_IFs/ORDER_TETRA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ORDER_TETRA_USE_IFs diff --git a/Source/USE_IFs/ORDER_TRIA_USE_IFs.f90 b/Source/USE_IFs/ORDER_TRIA_USE_IFs.f90 index 5a2ffafb..6c045543 100644 --- a/Source/USE_IFs/ORDER_TRIA_USE_IFs.f90 +++ b/Source/USE_IFs/ORDER_TRIA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ORDER_TRIA_USE_IFs diff --git a/Source/USE_IFs/OU4_PARTVEC_PROC_USE_IFs.f90 b/Source/USE_IFs/OU4_PARTVEC_PROC_USE_IFs.f90 index b7921d9d..a292379f 100644 --- a/Source/USE_IFs/OU4_PARTVEC_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/OU4_PARTVEC_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OU4_PARTVEC_PROC_USE_IFs diff --git a/Source/USE_IFs/OURDAT_USE_IFs.f90 b/Source/USE_IFs/OURDAT_USE_IFs.f90 index 5c869852..f1c53c83 100644 --- a/Source/USE_IFs/OURDAT_USE_IFs.f90 +++ b/Source/USE_IFs/OURDAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OURDAT_USE_IFs diff --git a/Source/USE_IFs/OURTIM_USE_IFs.f90 b/Source/USE_IFs/OURTIM_USE_IFs.f90 index 15ce57ce..b5134efd 100644 --- a/Source/USE_IFs/OURTIM_USE_IFs.f90 +++ b/Source/USE_IFs/OURTIM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OURTIM_USE_IFs diff --git a/Source/USE_IFs/OUTA_HERE_USE_IFs.f90 b/Source/USE_IFs/OUTA_HERE_USE_IFs.f90 index 92954411..a04c04e1 100644 --- a/Source/USE_IFs/OUTA_HERE_USE_IFs.f90 +++ b/Source/USE_IFs/OUTA_HERE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OUTA_HERE_USE_IFs diff --git a/Source/USE_IFs/OUTPUT4_MATRIX_MSGS_USE_IFs.f90 b/Source/USE_IFs/OUTPUT4_MATRIX_MSGS_USE_IFs.f90 index 30d6113b..c847d5c1 100644 --- a/Source/USE_IFs/OUTPUT4_MATRIX_MSGS_USE_IFs.f90 +++ b/Source/USE_IFs/OUTPUT4_MATRIX_MSGS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OUTPUT4_MATRIX_MSGS_USE_IFs diff --git a/Source/USE_IFs/OUTPUT4_PROC_USE_IFs.f90 b/Source/USE_IFs/OUTPUT4_PROC_USE_IFs.f90 index 5adfc6e6..c49c0de2 100644 --- a/Source/USE_IFs/OUTPUT4_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/OUTPUT4_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE OUTPUT4_PROC_USE_IFs diff --git a/Source/USE_IFs/PARAM_CORDS_ACT_CORDS_USE_IFs.f90 b/Source/USE_IFs/PARAM_CORDS_ACT_CORDS_USE_IFs.f90 index 007a0615..8f5feded 100644 --- a/Source/USE_IFs/PARAM_CORDS_ACT_CORDS_USE_IFs.f90 +++ b/Source/USE_IFs/PARAM_CORDS_ACT_CORDS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PARAM_CORDS_ACT_CORDS_USE_IFs diff --git a/Source/USE_IFs/PARSE_CHAR_STRING_USE_IFs.f90 b/Source/USE_IFs/PARSE_CHAR_STRING_USE_IFs.f90 index cb66c26e..320b434b 100644 --- a/Source/USE_IFs/PARSE_CHAR_STRING_USE_IFs.f90 +++ b/Source/USE_IFs/PARSE_CHAR_STRING_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PARSE_CHAR_STRING_USE_IFs diff --git a/Source/USE_IFs/PARTITION_FF_USE_IFs.f90 b/Source/USE_IFs/PARTITION_FF_USE_IFs.f90 index d41f1a9e..338a12a3 100644 --- a/Source/USE_IFs/PARTITION_FF_USE_IFs.f90 +++ b/Source/USE_IFs/PARTITION_FF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PARTITION_FF_USE_IFs diff --git a/Source/USE_IFs/PARTITION_SS_NTERM_USE_IFs.f90 b/Source/USE_IFs/PARTITION_SS_NTERM_USE_IFs.f90 index 09b58eb7..ae26e8f2 100644 --- a/Source/USE_IFs/PARTITION_SS_NTERM_USE_IFs.f90 +++ b/Source/USE_IFs/PARTITION_SS_NTERM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PARTITION_SS_NTERM_USE_IFs diff --git a/Source/USE_IFs/PARTITION_SS_USE_IFs.f90 b/Source/USE_IFs/PARTITION_SS_USE_IFs.f90 index 95e3d6b0..9ee8f8d7 100644 --- a/Source/USE_IFs/PARTITION_SS_USE_IFs.f90 +++ b/Source/USE_IFs/PARTITION_SS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PARTITION_SS_USE_IFs diff --git a/Source/USE_IFs/PARTITION_VEC_USE_IFs.f90 b/Source/USE_IFs/PARTITION_VEC_USE_IFs.f90 index 1ad2855f..633bee40 100644 --- a/Source/USE_IFs/PARTITION_VEC_USE_IFs.f90 +++ b/Source/USE_IFs/PARTITION_VEC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PARTITION_VEC_USE_IFs diff --git a/Source/USE_IFs/PENTA_USE_IFs.f90 b/Source/USE_IFs/PENTA_USE_IFs.f90 index b3ace1ae..328350c3 100644 --- a/Source/USE_IFs/PENTA_USE_IFs.f90 +++ b/Source/USE_IFs/PENTA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PENTA_USE_IFs diff --git a/Source/USE_IFs/PINFLG_USE_IFs.f90 b/Source/USE_IFs/PINFLG_USE_IFs.f90 index 85bf8578..8eeb46ad 100644 --- a/Source/USE_IFs/PINFLG_USE_IFs.f90 +++ b/Source/USE_IFs/PINFLG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PINFLG_USE_IFs diff --git a/Source/USE_IFs/PLANE_COORD_TRANS_21_USE_IFs.f90 b/Source/USE_IFs/PLANE_COORD_TRANS_21_USE_IFs.f90 index b0c53216..aaf412e7 100644 --- a/Source/USE_IFs/PLANE_COORD_TRANS_21_USE_IFs.f90 +++ b/Source/USE_IFs/PLANE_COORD_TRANS_21_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PLANE_COORD_TRANS_21_USE_IFs diff --git a/Source/USE_IFs/POLYNOM_FIT_STRE_STRN_USE_IFs.f90 b/Source/USE_IFs/POLYNOM_FIT_STRE_STRN_USE_IFs.f90 index dbdd840a..a7c52710 100644 --- a/Source/USE_IFs/POLYNOM_FIT_STRE_STRN_USE_IFs.f90 +++ b/Source/USE_IFs/POLYNOM_FIT_STRE_STRN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE POLYNOM_FIT_STRE_STRN_USE_IFs diff --git a/Source/USE_IFs/POLY_FAILURE_INDEX_USE_IFs.f90 b/Source/USE_IFs/POLY_FAILURE_INDEX_USE_IFs.f90 index f443a60f..56a8b65a 100644 --- a/Source/USE_IFs/POLY_FAILURE_INDEX_USE_IFs.f90 +++ b/Source/USE_IFs/POLY_FAILURE_INDEX_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE POLY_FAILURE_INDEX_USE_IFs diff --git a/Source/USE_IFs/PRESSURE_DATA_PROC_USE_IFs.f90 b/Source/USE_IFs/PRESSURE_DATA_PROC_USE_IFs.f90 index 5f9a01f7..12424dda 100644 --- a/Source/USE_IFs/PRESSURE_DATA_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/PRESSURE_DATA_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PRESSURE_DATA_PROC_USE_IFs diff --git a/Source/USE_IFs/PRINCIPAL_2D_USE_IFs.f90 b/Source/USE_IFs/PRINCIPAL_2D_USE_IFs.f90 index 53ce93ae..053309cb 100644 --- a/Source/USE_IFs/PRINCIPAL_2D_USE_IFs.f90 +++ b/Source/USE_IFs/PRINCIPAL_2D_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PRINCIPAL_2D_USE_IFs diff --git a/Source/USE_IFs/PRINCIPAL_3D_USE_IFs.f90 b/Source/USE_IFs/PRINCIPAL_3D_USE_IFs.f90 index 3b1a6bc3..d4337375 100644 --- a/Source/USE_IFs/PRINCIPAL_3D_USE_IFs.f90 +++ b/Source/USE_IFs/PRINCIPAL_3D_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PRINCIPAL_3D_USE_IFs diff --git a/Source/USE_IFs/PRINT_CONSTANTS_1_USE_IFs.f90 b/Source/USE_IFs/PRINT_CONSTANTS_1_USE_IFs.f90 index 1119a888..29d16d38 100644 --- a/Source/USE_IFs/PRINT_CONSTANTS_1_USE_IFs.f90 +++ b/Source/USE_IFs/PRINT_CONSTANTS_1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PRINT_CONSTANTS_1_USE_IFs diff --git a/Source/USE_IFs/PRINT_ORDER_USE_IFs.f90 b/Source/USE_IFs/PRINT_ORDER_USE_IFs.f90 index 07e32770..967655ba 100644 --- a/Source/USE_IFs/PRINT_ORDER_USE_IFs.f90 +++ b/Source/USE_IFs/PRINT_ORDER_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PRINT_ORDER_USE_IFs diff --git a/Source/USE_IFs/PROCESS_INCLUDE_FILES_USE_IFs.f90 b/Source/USE_IFs/PROCESS_INCLUDE_FILES_USE_IFs.f90 index 142e63a0..d21cb132 100644 --- a/Source/USE_IFs/PROCESS_INCLUDE_FILES_USE_IFs.f90 +++ b/Source/USE_IFs/PROCESS_INCLUDE_FILES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PROCESS_INCLUDE_FILES_USE_IFs diff --git a/Source/USE_IFs/PROJ_VEC_ONTO_PLANE_USE_IFs.f90 b/Source/USE_IFs/PROJ_VEC_ONTO_PLANE_USE_IFs.f90 index a057c588..b65128a6 100644 --- a/Source/USE_IFs/PROJ_VEC_ONTO_PLANE_USE_IFs.f90 +++ b/Source/USE_IFs/PROJ_VEC_ONTO_PLANE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PROJ_VEC_ONTO_PLANE_USE_IFs diff --git a/Source/USE_IFs/PRT_MATS_ON_RESTART_USE_IFs.f90 b/Source/USE_IFs/PRT_MATS_ON_RESTART_USE_IFs.f90 index 91df1e93..a6f75a54 100644 --- a/Source/USE_IFs/PRT_MATS_ON_RESTART_USE_IFs.f90 +++ b/Source/USE_IFs/PRT_MATS_ON_RESTART_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE PRT_MATS_ON_RESTART_USE_IFs diff --git a/Source/USE_IFs/QDEL1_USE_IFs.f90 b/Source/USE_IFs/QDEL1_USE_IFs.f90 index bab8705e..4e584ae9 100644 --- a/Source/USE_IFs/QDEL1_USE_IFs.f90 +++ b/Source/USE_IFs/QDEL1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE QDEL1_USE_IFs diff --git a/Source/USE_IFs/QMEM1_USE_IFs.f90 b/Source/USE_IFs/QMEM1_USE_IFs.f90 index 27056704..2dffe0e1 100644 --- a/Source/USE_IFs/QMEM1_USE_IFs.f90 +++ b/Source/USE_IFs/QMEM1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE QMEM1_USE_IFs diff --git a/Source/USE_IFs/QPLT1_USE_IFs.f90 b/Source/USE_IFs/QPLT1_USE_IFs.f90 index 0f4dd583..0b5f625a 100644 --- a/Source/USE_IFs/QPLT1_USE_IFs.f90 +++ b/Source/USE_IFs/QPLT1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE QPLT1_USE_IFs diff --git a/Source/USE_IFs/QPLT2_USE_IFs.f90 b/Source/USE_IFs/QPLT2_USE_IFs.f90 index d843dc81..a9450346 100644 --- a/Source/USE_IFs/QPLT2_USE_IFs.f90 +++ b/Source/USE_IFs/QPLT2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE QPLT2_USE_IFs diff --git a/Source/USE_IFs/QPLT3_USE_IFs.f90 b/Source/USE_IFs/QPLT3_USE_IFs.f90 index 71d792ab..6236ea4a 100644 --- a/Source/USE_IFs/QPLT3_USE_IFs.f90 +++ b/Source/USE_IFs/QPLT3_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE QPLT3_USE_IFs diff --git a/Source/USE_IFs/QSHEAR_USE_IFs.f90 b/Source/USE_IFs/QSHEAR_USE_IFs.f90 index e31b61a8..2c8b45f6 100644 --- a/Source/USE_IFs/QSHEAR_USE_IFs.f90 +++ b/Source/USE_IFs/QSHEAR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE QSHEAR_USE_IFs diff --git a/Source/USE_IFs/R8FLD_USE_IFs.f90 b/Source/USE_IFs/R8FLD_USE_IFs.f90 index cb40b3f1..34848dd2 100644 --- a/Source/USE_IFs/R8FLD_USE_IFs.f90 +++ b/Source/USE_IFs/R8FLD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE R8FLD_USE_IFs diff --git a/Source/USE_IFs/RBE2_PROC_USE_IFs.f90 b/Source/USE_IFs/RBE2_PROC_USE_IFs.f90 index 26f289b4..ad62b3e0 100644 --- a/Source/USE_IFs/RBE2_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/RBE2_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RBE2_PROC_USE_IFs diff --git a/Source/USE_IFs/RBE3_PROC_USE_IFs.f90 b/Source/USE_IFs/RBE3_PROC_USE_IFs.f90 index d8e07df6..0b81d105 100644 --- a/Source/USE_IFs/RBE3_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/RBE3_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RBE3_PROC_USE_IFs diff --git a/Source/USE_IFs/RB_DISP_MATRIX_PROC_USE_IFs.f90 b/Source/USE_IFs/RB_DISP_MATRIX_PROC_USE_IFs.f90 index 509d0b50..b938889f 100644 --- a/Source/USE_IFs/RB_DISP_MATRIX_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/RB_DISP_MATRIX_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RB_DISP_MATRIX_PROC_USE_IFs diff --git a/Source/USE_IFs/RDOF_USE_IFs.f90 b/Source/USE_IFs/RDOF_USE_IFs.f90 index 80b02480..32aeab74 100644 --- a/Source/USE_IFs/RDOF_USE_IFs.f90 +++ b/Source/USE_IFs/RDOF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RDOF_USE_IFs diff --git a/Source/USE_IFs/READERR_USE_IFs.f90 b/Source/USE_IFs/READERR_USE_IFs.f90 index ff97a206..31cfbe73 100644 --- a/Source/USE_IFs/READERR_USE_IFs.f90 +++ b/Source/USE_IFs/READERR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READERR_USE_IFs diff --git a/Source/USE_IFs/READ_CHK_USE_IFs.f90 b/Source/USE_IFs/READ_CHK_USE_IFs.f90 index 6f779629..d3a42db7 100644 --- a/Source/USE_IFs/READ_CHK_USE_IFs.f90 +++ b/Source/USE_IFs/READ_CHK_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_CHK_USE_IFs diff --git a/Source/USE_IFs/READ_DOF_TABLES_USE_IFs.f90 b/Source/USE_IFs/READ_DOF_TABLES_USE_IFs.f90 index 96fdc3fa..d8c5af13 100644 --- a/Source/USE_IFs/READ_DOF_TABLES_USE_IFs.f90 +++ b/Source/USE_IFs/READ_DOF_TABLES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_DOF_TABLES_USE_IFs diff --git a/Source/USE_IFs/READ_IN4_FULL_MAT_USE_IFs.f90 b/Source/USE_IFs/READ_IN4_FULL_MAT_USE_IFs.f90 index 89949256..4bed323a 100644 --- a/Source/USE_IFs/READ_IN4_FULL_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/READ_IN4_FULL_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_IN4_FULL_MAT_USE_IFs diff --git a/Source/USE_IFs/READ_INCLUDE_FILNAM_USE_IFs.f90 b/Source/USE_IFs/READ_INCLUDE_FILNAM_USE_IFs.f90 index a6c50c5c..585b0acf 100644 --- a/Source/USE_IFs/READ_INCLUDE_FILNAM_USE_IFs.f90 +++ b/Source/USE_IFs/READ_INCLUDE_FILNAM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_INCLUDE_FILNAM_USE_IFs diff --git a/Source/USE_IFs/READ_INI_USE_IFs.f90 b/Source/USE_IFs/READ_INI_USE_IFs.f90 index 8b91904c..aee73d62 100644 --- a/Source/USE_IFs/READ_INI_USE_IFs.f90 +++ b/Source/USE_IFs/READ_INI_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_INI_USE_IFs diff --git a/Source/USE_IFs/READ_INPUT_FILE_NAME_USE_IFs.f90 b/Source/USE_IFs/READ_INPUT_FILE_NAME_USE_IFs.f90 index 2c19228e..1af7af46 100644 --- a/Source/USE_IFs/READ_INPUT_FILE_NAME_USE_IFs.f90 +++ b/Source/USE_IFs/READ_INPUT_FILE_NAME_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_INPUT_FILE_NAME_USE_IFs diff --git a/Source/USE_IFs/READ_L1A_USE_IFs.f90 b/Source/USE_IFs/READ_L1A_USE_IFs.f90 index 399ea94b..e0f9019d 100644 --- a/Source/USE_IFs/READ_L1A_USE_IFs.f90 +++ b/Source/USE_IFs/READ_L1A_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_L1A_USE_IFs diff --git a/Source/USE_IFs/READ_L1M_USE_IFs.f90 b/Source/USE_IFs/READ_L1M_USE_IFs.f90 index d801e7d8..6f67839b 100644 --- a/Source/USE_IFs/READ_L1M_USE_IFs.f90 +++ b/Source/USE_IFs/READ_L1M_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_L1M_USE_IFs diff --git a/Source/USE_IFs/READ_L1Z_USE_IFs.f90 b/Source/USE_IFs/READ_L1Z_USE_IFs.f90 index d9280058..c214be3c 100644 --- a/Source/USE_IFs/READ_L1Z_USE_IFs.f90 +++ b/Source/USE_IFs/READ_L1Z_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_L1Z_USE_IFs diff --git a/Source/USE_IFs/READ_MATRIX_1_USE_IFs.f90 b/Source/USE_IFs/READ_MATRIX_1_USE_IFs.f90 index 19f2247e..d16c0679 100644 --- a/Source/USE_IFs/READ_MATRIX_1_USE_IFs.f90 +++ b/Source/USE_IFs/READ_MATRIX_1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_MATRIX_1_USE_IFs diff --git a/Source/USE_IFs/READ_MATRIX_2_USE_IFs.f90 b/Source/USE_IFs/READ_MATRIX_2_USE_IFs.f90 index b4e67061..ed17e030 100644 --- a/Source/USE_IFs/READ_MATRIX_2_USE_IFs.f90 +++ b/Source/USE_IFs/READ_MATRIX_2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_MATRIX_2_USE_IFs diff --git a/Source/USE_IFs/READ_XTIME_USE_IFs.f90 b/Source/USE_IFs/READ_XTIME_USE_IFs.f90 index 5c07df56..3119d733 100644 --- a/Source/USE_IFs/READ_XTIME_USE_IFs.f90 +++ b/Source/USE_IFs/READ_XTIME_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE READ_XTIME_USE_IFs diff --git a/Source/USE_IFs/REAL_DATA_TO_C8FLD_USE_IFs.f90 b/Source/USE_IFs/REAL_DATA_TO_C8FLD_USE_IFs.f90 index 0ac36fe2..5b527f31 100644 --- a/Source/USE_IFs/REAL_DATA_TO_C8FLD_USE_IFs.f90 +++ b/Source/USE_IFs/REAL_DATA_TO_C8FLD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REAL_DATA_TO_C8FLD_USE_IFs diff --git a/Source/USE_IFs/REDUCE_A_LR_USE_IFs.f90 b/Source/USE_IFs/REDUCE_A_LR_USE_IFs.f90 index 4b21c6ce..cb2680c2 100644 --- a/Source/USE_IFs/REDUCE_A_LR_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_A_LR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_A_LR_USE_IFs diff --git a/Source/USE_IFs/REDUCE_F_AO_USE_IFs.f90 b/Source/USE_IFs/REDUCE_F_AO_USE_IFs.f90 index 4e75138b..a8dd069c 100644 --- a/Source/USE_IFs/REDUCE_F_AO_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_F_AO_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_F_AO_USE_IFs diff --git a/Source/USE_IFs/REDUCE_G_NM_USE_IFs.f90 b/Source/USE_IFs/REDUCE_G_NM_USE_IFs.f90 index 23bc5228..070918d6 100644 --- a/Source/USE_IFs/REDUCE_G_NM_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_G_NM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_G_NM_USE_IFs diff --git a/Source/USE_IFs/REDUCE_KAAD_TO_KLLD_USE_IFs.f90 b/Source/USE_IFs/REDUCE_KAAD_TO_KLLD_USE_IFs.f90 index 11e597ae..569bff0f 100644 --- a/Source/USE_IFs/REDUCE_KAAD_TO_KLLD_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_KAAD_TO_KLLD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KAAD_TO_KLLD_USE_IFs diff --git a/Source/USE_IFs/REDUCE_KAA_TO_KLL_USE_IFs.f90 b/Source/USE_IFs/REDUCE_KAA_TO_KLL_USE_IFs.f90 index dd0c6a8f..3c189fcc 100644 --- a/Source/USE_IFs/REDUCE_KAA_TO_KLL_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_KAA_TO_KLL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KAA_TO_KLL_USE_IFs diff --git a/Source/USE_IFs/REDUCE_KFFD_TO_KAAD_USE_IFs.f90 b/Source/USE_IFs/REDUCE_KFFD_TO_KAAD_USE_IFs.f90 index a8254756..0b807840 100644 --- a/Source/USE_IFs/REDUCE_KFFD_TO_KAAD_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_KFFD_TO_KAAD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KFFD_TO_KAAD_USE_IFs diff --git a/Source/USE_IFs/REDUCE_KFF_TO_KAA_USE_IFs.f90 b/Source/USE_IFs/REDUCE_KFF_TO_KAA_USE_IFs.f90 index d1324e5f..ce54e6d3 100644 --- a/Source/USE_IFs/REDUCE_KFF_TO_KAA_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_KFF_TO_KAA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KFF_TO_KAA_USE_IFs diff --git a/Source/USE_IFs/REDUCE_KGG_TO_KNN_USE_IFs.f90 b/Source/USE_IFs/REDUCE_KGG_TO_KNN_USE_IFs.f90 index bdb27b30..6f80eb09 100644 --- a/Source/USE_IFs/REDUCE_KGG_TO_KNN_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_KGG_TO_KNN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KGG_TO_KNN_USE_IFs diff --git a/Source/USE_IFs/REDUCE_KNND_TO_KFFD_USE_IFs.f90 b/Source/USE_IFs/REDUCE_KNND_TO_KFFD_USE_IFs.f90 index 4abaf0b8..d54454d1 100644 --- a/Source/USE_IFs/REDUCE_KNND_TO_KFFD_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_KNND_TO_KFFD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KNND_TO_KFFD_USE_IFs diff --git a/Source/USE_IFs/REDUCE_KNN_TO_KFF_USE_IFs.f90 b/Source/USE_IFs/REDUCE_KNN_TO_KFF_USE_IFs.f90 index 4c15602e..0a868593 100644 --- a/Source/USE_IFs/REDUCE_KNN_TO_KFF_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_KNN_TO_KFF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_KNN_TO_KFF_USE_IFs diff --git a/Source/USE_IFs/REDUCE_MAA_TO_MLL_USE_IFs.f90 b/Source/USE_IFs/REDUCE_MAA_TO_MLL_USE_IFs.f90 index e5b930c6..dc62fc54 100644 --- a/Source/USE_IFs/REDUCE_MAA_TO_MLL_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_MAA_TO_MLL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_MAA_TO_MLL_USE_IFs diff --git a/Source/USE_IFs/REDUCE_MFF_TO_MAA_USE_IFs.f90 b/Source/USE_IFs/REDUCE_MFF_TO_MAA_USE_IFs.f90 index 882ca57a..ffa5b634 100644 --- a/Source/USE_IFs/REDUCE_MFF_TO_MAA_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_MFF_TO_MAA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_MFF_TO_MAA_USE_IFs diff --git a/Source/USE_IFs/REDUCE_MGG_TO_MNN_USE_IFs.f90 b/Source/USE_IFs/REDUCE_MGG_TO_MNN_USE_IFs.f90 index cf5cd1c3..e7d490ca 100644 --- a/Source/USE_IFs/REDUCE_MGG_TO_MNN_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_MGG_TO_MNN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_MGG_TO_MNN_USE_IFs diff --git a/Source/USE_IFs/REDUCE_MNN_TO_MFF_USE_IFs.f90 b/Source/USE_IFs/REDUCE_MNN_TO_MFF_USE_IFs.f90 index e0314bdb..6a23dd13 100644 --- a/Source/USE_IFs/REDUCE_MNN_TO_MFF_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_MNN_TO_MFF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_MNN_TO_MFF_USE_IFs diff --git a/Source/USE_IFs/REDUCE_N_FS_USE_IFs.f90 b/Source/USE_IFs/REDUCE_N_FS_USE_IFs.f90 index c37a6461..c959fb54 100644 --- a/Source/USE_IFs/REDUCE_N_FS_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_N_FS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_N_FS_USE_IFs diff --git a/Source/USE_IFs/REDUCE_PA_TO_PL_USE_IFs.f90 b/Source/USE_IFs/REDUCE_PA_TO_PL_USE_IFs.f90 index 82b3d735..557de765 100644 --- a/Source/USE_IFs/REDUCE_PA_TO_PL_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_PA_TO_PL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_PA_TO_PL_USE_IFs diff --git a/Source/USE_IFs/REDUCE_PF_TO_PA_USE_IFs.f90 b/Source/USE_IFs/REDUCE_PF_TO_PA_USE_IFs.f90 index 1db021b7..3f34ea07 100644 --- a/Source/USE_IFs/REDUCE_PF_TO_PA_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_PF_TO_PA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_PF_TO_PA_USE_IFs diff --git a/Source/USE_IFs/REDUCE_PG_TO_PN_USE_IFs.f90 b/Source/USE_IFs/REDUCE_PG_TO_PN_USE_IFs.f90 index 705c863a..6e85d064 100644 --- a/Source/USE_IFs/REDUCE_PG_TO_PN_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_PG_TO_PN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_PG_TO_PN_USE_IFs diff --git a/Source/USE_IFs/REDUCE_PN_TO_PF_USE_IFs.f90 b/Source/USE_IFs/REDUCE_PN_TO_PF_USE_IFs.f90 index e21ba2cb..bac8986d 100644 --- a/Source/USE_IFs/REDUCE_PN_TO_PF_USE_IFs.f90 +++ b/Source/USE_IFs/REDUCE_PN_TO_PF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REDUCE_PN_TO_PF_USE_IFs diff --git a/Source/USE_IFs/RENORM_ON_MASS_USE_IFs.f90 b/Source/USE_IFs/RENORM_ON_MASS_USE_IFs.f90 index b4c44d98..a58e9ad7 100644 --- a/Source/USE_IFs/RENORM_ON_MASS_USE_IFs.f90 +++ b/Source/USE_IFs/RENORM_ON_MASS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RENORM_ON_MASS_USE_IFs diff --git a/Source/USE_IFs/RENORM_USE_IFs.f90 b/Source/USE_IFs/RENORM_USE_IFs.f90 index 6b79cf2a..6fcf2f35 100644 --- a/Source/USE_IFs/RENORM_USE_IFs.f90 +++ b/Source/USE_IFs/RENORM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RENORM_USE_IFs diff --git a/Source/USE_IFs/REPLACE_TABS_W_BLANKS_USE_IFs.f90 b/Source/USE_IFs/REPLACE_TABS_W_BLANKS_USE_IFs.f90 index c1e0b562..ac7aab1d 100644 --- a/Source/USE_IFs/REPLACE_TABS_W_BLANKS_USE_IFs.f90 +++ b/Source/USE_IFs/REPLACE_TABS_W_BLANKS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE REPLACE_TABS_W_BLANKS_USE_IFs diff --git a/Source/USE_IFs/RESTART_DATA_FOR_L3_USE_IFs.f90 b/Source/USE_IFs/RESTART_DATA_FOR_L3_USE_IFs.f90 index 297fc95f..fa2c2854 100644 --- a/Source/USE_IFs/RESTART_DATA_FOR_L3_USE_IFs.f90 +++ b/Source/USE_IFs/RESTART_DATA_FOR_L3_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RESTART_DATA_FOR_L3_USE_IFs diff --git a/Source/USE_IFs/RFORCE_PROC_USE_IFs.f90 b/Source/USE_IFs/RFORCE_PROC_USE_IFs.f90 index db8e6179..f14e0800 100644 --- a/Source/USE_IFs/RFORCE_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/RFORCE_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RFORCE_PROC_USE_IFs diff --git a/Source/USE_IFs/RIGID_BODY_DISP_MAT_USE_IFs.f90 b/Source/USE_IFs/RIGID_BODY_DISP_MAT_USE_IFs.f90 index d9a8d943..7d0f59c1 100644 --- a/Source/USE_IFs/RIGID_BODY_DISP_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/RIGID_BODY_DISP_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RIGID_BODY_DISP_MAT_USE_IFs diff --git a/Source/USE_IFs/RIGID_ELEM_PROC_USE_IFs.f90 b/Source/USE_IFs/RIGID_ELEM_PROC_USE_IFs.f90 index 3f10a6c0..c537cb79 100644 --- a/Source/USE_IFs/RIGID_ELEM_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/RIGID_ELEM_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RIGID_ELEM_PROC_USE_IFs diff --git a/Source/USE_IFs/ROD1_USE_IFs.f90 b/Source/USE_IFs/ROD1_USE_IFs.f90 index 58043ee5..77d51685 100644 --- a/Source/USE_IFs/ROD1_USE_IFs.f90 +++ b/Source/USE_IFs/ROD1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ROD1_USE_IFs diff --git a/Source/USE_IFs/ROD_MARGIN_USE_IFs.f90 b/Source/USE_IFs/ROD_MARGIN_USE_IFs.f90 index 9268193a..fce86703 100644 --- a/Source/USE_IFs/ROD_MARGIN_USE_IFs.f90 +++ b/Source/USE_IFs/ROD_MARGIN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ROD_MARGIN_USE_IFs diff --git a/Source/USE_IFs/ROT_AXES_MATL_TO_LOC_USE_IFs.f90 b/Source/USE_IFs/ROT_AXES_MATL_TO_LOC_USE_IFs.f90 index dba7e187..e9704ad9 100644 --- a/Source/USE_IFs/ROT_AXES_MATL_TO_LOC_USE_IFs.f90 +++ b/Source/USE_IFs/ROT_AXES_MATL_TO_LOC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ROT_AXES_MATL_TO_LOC_USE_IFs diff --git a/Source/USE_IFs/ROT_COMP_ELEM_AXES_USE_IFs.f90 b/Source/USE_IFs/ROT_COMP_ELEM_AXES_USE_IFs.f90 index 2cb31b1e..b2d05213 100644 --- a/Source/USE_IFs/ROT_COMP_ELEM_AXES_USE_IFs.f90 +++ b/Source/USE_IFs/ROT_COMP_ELEM_AXES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ROT_COMP_ELEM_AXES_USE_IFs diff --git a/Source/USE_IFs/ROW_AT_COLJ_BEGEND_USE_IFs.f90 b/Source/USE_IFs/ROW_AT_COLJ_BEGEND_USE_IFs.f90 index 4f1fa683..34a41de5 100644 --- a/Source/USE_IFs/ROW_AT_COLJ_BEGEND_USE_IFs.f90 +++ b/Source/USE_IFs/ROW_AT_COLJ_BEGEND_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE ROW_AT_COLJ_BEGEND_USE_IFs diff --git a/Source/USE_IFs/RSPLINE_PROC_USE_IFs.f90 b/Source/USE_IFs/RSPLINE_PROC_USE_IFs.f90 index 26870ccc..2333fc66 100644 --- a/Source/USE_IFs/RSPLINE_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/RSPLINE_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RSPLINE_PROC_USE_IFs diff --git a/Source/USE_IFs/RW_INCLUDE_FILES_USE_IFs.f90 b/Source/USE_IFs/RW_INCLUDE_FILES_USE_IFs.f90 index 081fca13..206c9c17 100644 --- a/Source/USE_IFs/RW_INCLUDE_FILES_USE_IFs.f90 +++ b/Source/USE_IFs/RW_INCLUDE_FILES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE RW_INCLUDE_FILES_USE_IFs diff --git a/Source/USE_IFs/SEQ_PROC_USE_IFs.f90 b/Source/USE_IFs/SEQ_PROC_USE_IFs.f90 index 2d64f89d..2c7b00a4 100644 --- a/Source/USE_IFs/SEQ_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/SEQ_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SEQ_PROC_USE_IFs diff --git a/Source/USE_IFs/SET_FILE_CLOSE_STAT_USE_IFs.f90 b/Source/USE_IFs/SET_FILE_CLOSE_STAT_USE_IFs.f90 index 51ce82ed..93f36591 100644 --- a/Source/USE_IFs/SET_FILE_CLOSE_STAT_USE_IFs.f90 +++ b/Source/USE_IFs/SET_FILE_CLOSE_STAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SET_FILE_CLOSE_STAT_USE_IFs diff --git a/Source/USE_IFs/SET_SPARSE_MAT_SYM_USE_IFs.f90 b/Source/USE_IFs/SET_SPARSE_MAT_SYM_USE_IFs.f90 index 4cbf4a42..43fbdda9 100644 --- a/Source/USE_IFs/SET_SPARSE_MAT_SYM_USE_IFs.f90 +++ b/Source/USE_IFs/SET_SPARSE_MAT_SYM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SET_SPARSE_MAT_SYM_USE_IFs diff --git a/Source/USE_IFs/SHELL_ABD_MATRICES_USE_IFs.f90 b/Source/USE_IFs/SHELL_ABD_MATRICES_USE_IFs.f90 index 560a5545..89f1d8d2 100644 --- a/Source/USE_IFs/SHELL_ABD_MATRICES_USE_IFs.f90 +++ b/Source/USE_IFs/SHELL_ABD_MATRICES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHELL_ABD_MATRICES_USE_IFs diff --git a/Source/USE_IFs/SHELL_ENGR_FORCE_OGEL_USE_IFs.f90 b/Source/USE_IFs/SHELL_ENGR_FORCE_OGEL_USE_IFs.f90 index 0d11b5ea..29dd5e82 100644 --- a/Source/USE_IFs/SHELL_ENGR_FORCE_OGEL_USE_IFs.f90 +++ b/Source/USE_IFs/SHELL_ENGR_FORCE_OGEL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHELL_ENGR_FORCE_OGEL_USE_IFs diff --git a/Source/USE_IFs/SHELL_STRAIN_OUTPUTS_USE_IFs.f90 b/Source/USE_IFs/SHELL_STRAIN_OUTPUTS_USE_IFs.f90 index 3adbf850..e7ac3fda 100644 --- a/Source/USE_IFs/SHELL_STRAIN_OUTPUTS_USE_IFs.f90 +++ b/Source/USE_IFs/SHELL_STRAIN_OUTPUTS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHELL_STRAIN_OUTPUTS_USE_IFs diff --git a/Source/USE_IFs/SHELL_STRESS_OUTPUTS_USE_IFs.f90 b/Source/USE_IFs/SHELL_STRESS_OUTPUTS_USE_IFs.f90 index 1fa47452..977da287 100644 --- a/Source/USE_IFs/SHELL_STRESS_OUTPUTS_USE_IFs.f90 +++ b/Source/USE_IFs/SHELL_STRESS_OUTPUTS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHELL_STRESS_OUTPUTS_USE_IFs diff --git a/Source/USE_IFs/SHP2DQ_USE_IFs.f90 b/Source/USE_IFs/SHP2DQ_USE_IFs.f90 index 5b5cf28e..2bf679d6 100644 --- a/Source/USE_IFs/SHP2DQ_USE_IFs.f90 +++ b/Source/USE_IFs/SHP2DQ_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHP2DQ_USE_IFs diff --git a/Source/USE_IFs/SHP3DH_USE_IFs.f90 b/Source/USE_IFs/SHP3DH_USE_IFs.f90 index 7931b1c5..0a6b0fcf 100644 --- a/Source/USE_IFs/SHP3DH_USE_IFs.f90 +++ b/Source/USE_IFs/SHP3DH_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHP3DH_USE_IFs diff --git a/Source/USE_IFs/SHP3DP_USE_IFs.f90 b/Source/USE_IFs/SHP3DP_USE_IFs.f90 index e166b0d9..1606808b 100644 --- a/Source/USE_IFs/SHP3DP_USE_IFs.f90 +++ b/Source/USE_IFs/SHP3DP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHP3DP_USE_IFs diff --git a/Source/USE_IFs/SHP3DT_USE_IFs.f90 b/Source/USE_IFs/SHP3DT_USE_IFs.f90 index f06d7087..cb919523 100644 --- a/Source/USE_IFs/SHP3DT_USE_IFs.f90 +++ b/Source/USE_IFs/SHP3DT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SHP3DT_USE_IFs diff --git a/Source/USE_IFs/SLOAD_PROC_USE_IFs.f90 b/Source/USE_IFs/SLOAD_PROC_USE_IFs.f90 index e5a2920c..d0b22890 100644 --- a/Source/USE_IFs/SLOAD_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/SLOAD_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SLOAD_PROC_USE_IFs diff --git a/Source/USE_IFs/SOLID_STRAIN_OUTPUTS_USE_IFs.f90 b/Source/USE_IFs/SOLID_STRAIN_OUTPUTS_USE_IFs.f90 index bedbb042..04a307c2 100644 --- a/Source/USE_IFs/SOLID_STRAIN_OUTPUTS_USE_IFs.f90 +++ b/Source/USE_IFs/SOLID_STRAIN_OUTPUTS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLID_STRAIN_OUTPUTS_USE_IFs diff --git a/Source/USE_IFs/SOLID_STRESS_OUTPUTS_USE_IFs.f90 b/Source/USE_IFs/SOLID_STRESS_OUTPUTS_USE_IFs.f90 index 406897ce..3cb1bf8e 100644 --- a/Source/USE_IFs/SOLID_STRESS_OUTPUTS_USE_IFs.f90 +++ b/Source/USE_IFs/SOLID_STRESS_OUTPUTS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLID_STRESS_OUTPUTS_USE_IFs diff --git a/Source/USE_IFs/SOLVE_DLR_USE_IFs.f90 b/Source/USE_IFs/SOLVE_DLR_USE_IFs.f90 index 5bec5c3a..27e930d8 100644 --- a/Source/USE_IFs/SOLVE_DLR_USE_IFs.f90 +++ b/Source/USE_IFs/SOLVE_DLR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLVE_DLR_USE_IFs diff --git a/Source/USE_IFs/SOLVE_GMN_USE_IFs.f90 b/Source/USE_IFs/SOLVE_GMN_USE_IFs.f90 index 1ec5f91b..6203f5bb 100644 --- a/Source/USE_IFs/SOLVE_GMN_USE_IFs.f90 +++ b/Source/USE_IFs/SOLVE_GMN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLVE_GMN_USE_IFs diff --git a/Source/USE_IFs/SOLVE_GOA_USE_IFs.f90 b/Source/USE_IFs/SOLVE_GOA_USE_IFs.f90 index 5878613b..d1346eab 100644 --- a/Source/USE_IFs/SOLVE_GOA_USE_IFs.f90 +++ b/Source/USE_IFs/SOLVE_GOA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLVE_GOA_USE_IFs diff --git a/Source/USE_IFs/SOLVE_PHIZL1_USE_IFs.f90 b/Source/USE_IFs/SOLVE_PHIZL1_USE_IFs.f90 index 326cad62..4b866d8c 100644 --- a/Source/USE_IFs/SOLVE_PHIZL1_USE_IFs.f90 +++ b/Source/USE_IFs/SOLVE_PHIZL1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLVE_PHIZL1_USE_IFs diff --git a/Source/USE_IFs/SOLVE_SHELL_ALP_USE_IFs.f90 b/Source/USE_IFs/SOLVE_SHELL_ALP_USE_IFs.f90 index c45ad3bf..d8d46c6a 100644 --- a/Source/USE_IFs/SOLVE_SHELL_ALP_USE_IFs.f90 +++ b/Source/USE_IFs/SOLVE_SHELL_ALP_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLVE_SHELL_ALP_USE_IFs diff --git a/Source/USE_IFs/SOLVE_UO0_USE_IFs.f90 b/Source/USE_IFs/SOLVE_UO0_USE_IFs.f90 index 01c67ab6..09a125c6 100644 --- a/Source/USE_IFs/SOLVE_UO0_USE_IFs.f90 +++ b/Source/USE_IFs/SOLVE_UO0_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SOLVE_UO0_USE_IFs diff --git a/Source/USE_IFs/SORTLEN_USE_IFs.f90 b/Source/USE_IFs/SORTLEN_USE_IFs.f90 index aee1e862..fdd36c61 100644 --- a/Source/USE_IFs/SORTLEN_USE_IFs.f90 +++ b/Source/USE_IFs/SORTLEN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORTLEN_USE_IFs diff --git a/Source/USE_IFs/SORT_GRID_RGRID_USE_IFs.f90 b/Source/USE_IFs/SORT_GRID_RGRID_USE_IFs.f90 index 4f19b20b..4cd80922 100644 --- a/Source/USE_IFs/SORT_GRID_RGRID_USE_IFs.f90 +++ b/Source/USE_IFs/SORT_GRID_RGRID_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_GRID_RGRID_USE_IFs diff --git a/Source/USE_IFs/SORT_INT1_REAL1_USE_IFs.f90 b/Source/USE_IFs/SORT_INT1_REAL1_USE_IFs.f90 index e73cfc56..61072ac7 100644 --- a/Source/USE_IFs/SORT_INT1_REAL1_USE_IFs.f90 +++ b/Source/USE_IFs/SORT_INT1_REAL1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT1_REAL1_USE_IFs diff --git a/Source/USE_IFs/SORT_INT1_REAL3_USE_IFs.f90 b/Source/USE_IFs/SORT_INT1_REAL3_USE_IFs.f90 index 81e76407..1b28d4b1 100644 --- a/Source/USE_IFs/SORT_INT1_REAL3_USE_IFs.f90 +++ b/Source/USE_IFs/SORT_INT1_REAL3_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT1_REAL3_USE_IFs diff --git a/Source/USE_IFs/SORT_INT1_USE_IFs.f90 b/Source/USE_IFs/SORT_INT1_USE_IFs.f90 index 64c87acb..799eedc9 100644 --- a/Source/USE_IFs/SORT_INT1_USE_IFs.f90 +++ b/Source/USE_IFs/SORT_INT1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT1_USE_IFs diff --git a/Source/USE_IFs/SORT_INT2_REAL1_USE_IFs.f90 b/Source/USE_IFs/SORT_INT2_REAL1_USE_IFs.f90 index f8b6300c..66b9a6ef 100644 --- a/Source/USE_IFs/SORT_INT2_REAL1_USE_IFs.f90 +++ b/Source/USE_IFs/SORT_INT2_REAL1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT2_REAL1_USE_IFs diff --git a/Source/USE_IFs/SORT_INT2_USE_IFs.f90 b/Source/USE_IFs/SORT_INT2_USE_IFs.f90 index 0ee48bc1..37974898 100644 --- a/Source/USE_IFs/SORT_INT2_USE_IFs.f90 +++ b/Source/USE_IFs/SORT_INT2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT2_USE_IFs diff --git a/Source/USE_IFs/SORT_INT3_CHAR2_USE_IFs.f90 b/Source/USE_IFs/SORT_INT3_CHAR2_USE_IFs.f90 index 3c2aff5b..5379f973 100644 --- a/Source/USE_IFs/SORT_INT3_CHAR2_USE_IFs.f90 +++ b/Source/USE_IFs/SORT_INT3_CHAR2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT3_CHAR2_USE_IFs diff --git a/Source/USE_IFs/SORT_INT3_USE_IFs.f90 b/Source/USE_IFs/SORT_INT3_USE_IFs.f90 index f4129640..2e3328f9 100644 --- a/Source/USE_IFs/SORT_INT3_USE_IFs.f90 +++ b/Source/USE_IFs/SORT_INT3_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_INT3_USE_IFs diff --git a/Source/USE_IFs/SORT_REAL1_INT1_USE_IFs.f90 b/Source/USE_IFs/SORT_REAL1_INT1_USE_IFs.f90 index fe8cf922..707ed23e 100644 --- a/Source/USE_IFs/SORT_REAL1_INT1_USE_IFs.f90 +++ b/Source/USE_IFs/SORT_REAL1_INT1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_REAL1_INT1_USE_IFs diff --git a/Source/USE_IFs/SORT_TDOF_USE_IFs.f90 b/Source/USE_IFs/SORT_TDOF_USE_IFs.f90 index 189544b7..e1995056 100644 --- a/Source/USE_IFs/SORT_TDOF_USE_IFs.f90 +++ b/Source/USE_IFs/SORT_TDOF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SORT_TDOF_USE_IFs diff --git a/Source/USE_IFs/SPARSE_CRS_SPARSE_CCS_USE_IFs.f90 b/Source/USE_IFs/SPARSE_CRS_SPARSE_CCS_USE_IFs.f90 index d1bb45a2..ed05374c 100644 --- a/Source/USE_IFs/SPARSE_CRS_SPARSE_CCS_USE_IFs.f90 +++ b/Source/USE_IFs/SPARSE_CRS_SPARSE_CCS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_CRS_SPARSE_CCS_USE_IFs diff --git a/Source/USE_IFs/SPARSE_CRS_TERM_COUNT_USE_IFs.f90 b/Source/USE_IFs/SPARSE_CRS_TERM_COUNT_USE_IFs.f90 index b4cc8f01..536123cb 100644 --- a/Source/USE_IFs/SPARSE_CRS_TERM_COUNT_USE_IFs.f90 +++ b/Source/USE_IFs/SPARSE_CRS_TERM_COUNT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_CRS_TERM_COUNT_USE_IFs diff --git a/Source/USE_IFs/SPARSE_CRS_TO_FULL_USE_IFs.f90 b/Source/USE_IFs/SPARSE_CRS_TO_FULL_USE_IFs.f90 index bf521c6e..c70567f8 100644 --- a/Source/USE_IFs/SPARSE_CRS_TO_FULL_USE_IFs.f90 +++ b/Source/USE_IFs/SPARSE_CRS_TO_FULL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_CRS_TO_FULL_USE_IFs diff --git a/Source/USE_IFs/SPARSE_KGGD_USE_IFs.f90 b/Source/USE_IFs/SPARSE_KGGD_USE_IFs.f90 index aceed630..2e3d0a5c 100644 --- a/Source/USE_IFs/SPARSE_KGGD_USE_IFs.f90 +++ b/Source/USE_IFs/SPARSE_KGGD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_KGGD_USE_IFs diff --git a/Source/USE_IFs/SPARSE_KGG_USE_IFs.f90 b/Source/USE_IFs/SPARSE_KGG_USE_IFs.f90 index 407c3cfa..eea3873a 100644 --- a/Source/USE_IFs/SPARSE_KGG_USE_IFs.f90 +++ b/Source/USE_IFs/SPARSE_KGG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_KGG_USE_IFs diff --git a/Source/USE_IFs/SPARSE_MAT_DIAG_ZEROS_USE_IFs.f90 b/Source/USE_IFs/SPARSE_MAT_DIAG_ZEROS_USE_IFs.f90 index 4c58d091..0de47b5c 100644 --- a/Source/USE_IFs/SPARSE_MAT_DIAG_ZEROS_USE_IFs.f90 +++ b/Source/USE_IFs/SPARSE_MAT_DIAG_ZEROS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_MAT_DIAG_ZEROS_USE_IFs diff --git a/Source/USE_IFs/SPARSE_MGG_USE_IFs.f90 b/Source/USE_IFs/SPARSE_MGG_USE_IFs.f90 index eddffe2d..82d36bc5 100644 --- a/Source/USE_IFs/SPARSE_MGG_USE_IFs.f90 +++ b/Source/USE_IFs/SPARSE_MGG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_MGG_USE_IFs diff --git a/Source/USE_IFs/SPARSE_PG_USE_IFs.f90 b/Source/USE_IFs/SPARSE_PG_USE_IFs.f90 index cf628b35..b09953b9 100644 --- a/Source/USE_IFs/SPARSE_PG_USE_IFs.f90 +++ b/Source/USE_IFs/SPARSE_PG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_PG_USE_IFs diff --git a/Source/USE_IFs/SPARSE_RMG_USE_IFs.f90 b/Source/USE_IFs/SPARSE_RMG_USE_IFs.f90 index af42d53d..b9cefc6d 100644 --- a/Source/USE_IFs/SPARSE_RMG_USE_IFs.f90 +++ b/Source/USE_IFs/SPARSE_RMG_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SPARSE_RMG_USE_IFs diff --git a/Source/USE_IFs/STIFF_MAT_EQUIL_CHK_USE_IFs.f90 b/Source/USE_IFs/STIFF_MAT_EQUIL_CHK_USE_IFs.f90 index 9c8aecf7..28a9b08f 100644 --- a/Source/USE_IFs/STIFF_MAT_EQUIL_CHK_USE_IFs.f90 +++ b/Source/USE_IFs/STIFF_MAT_EQUIL_CHK_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE STIFF_MAT_EQUIL_CHK_USE_IFs diff --git a/Source/USE_IFs/STMERR_USE_IFs.f90 b/Source/USE_IFs/STMERR_USE_IFs.f90 index 1d80a34c..19600e5a 100644 --- a/Source/USE_IFs/STMERR_USE_IFs.f90 +++ b/Source/USE_IFs/STMERR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE STMERR_USE_IFs diff --git a/Source/USE_IFs/STOKEN_USE_IFs.f90 b/Source/USE_IFs/STOKEN_USE_IFs.f90 index d2e05c62..11cab3c7 100644 --- a/Source/USE_IFs/STOKEN_USE_IFs.f90 +++ b/Source/USE_IFs/STOKEN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE STOKEN_USE_IFs diff --git a/Source/USE_IFs/STR_TENSOR_TRANSFORM_USE_IFs.f90 b/Source/USE_IFs/STR_TENSOR_TRANSFORM_USE_IFs.f90 index 2bb4928e..bdbf6eb1 100644 --- a/Source/USE_IFs/STR_TENSOR_TRANSFORM_USE_IFs.f90 +++ b/Source/USE_IFs/STR_TENSOR_TRANSFORM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE STR_TENSOR_TRANSFORM_USE_IFs diff --git a/Source/USE_IFs/SUBCASE_PROC_USE_IFs.f90 b/Source/USE_IFs/SUBCASE_PROC_USE_IFs.f90 index 19c90af2..08d12d6f 100644 --- a/Source/USE_IFs/SUBCASE_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/SUBCASE_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SUBCASE_PROC_USE_IFs diff --git a/Source/USE_IFs/SURFACE_FIT_USE_IFs.f90 b/Source/USE_IFs/SURFACE_FIT_USE_IFs.f90 index b09e3570..7cdd2a4c 100644 --- a/Source/USE_IFs/SURFACE_FIT_USE_IFs.f90 +++ b/Source/USE_IFs/SURFACE_FIT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SURFACE_FIT_USE_IFs diff --git a/Source/USE_IFs/SUSER1_USE_IFs.f90 b/Source/USE_IFs/SUSER1_USE_IFs.f90 index 1b31001e..d0ae8a16 100644 --- a/Source/USE_IFs/SUSER1_USE_IFs.f90 +++ b/Source/USE_IFs/SUSER1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SUSER1_USE_IFs diff --git a/Source/USE_IFs/SYM_MAT_DECOMP_LAPACK_USE_IFs.f90 b/Source/USE_IFs/SYM_MAT_DECOMP_LAPACK_USE_IFs.f90 index e9079f74..96390177 100644 --- a/Source/USE_IFs/SYM_MAT_DECOMP_LAPACK_USE_IFs.f90 +++ b/Source/USE_IFs/SYM_MAT_DECOMP_LAPACK_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SYM_MAT_DECOMP_LAPACK_USE_IFs diff --git a/Source/USE_IFs/SYM_MAT_DECOMP_SUPRLU_USE_IFs.f90 b/Source/USE_IFs/SYM_MAT_DECOMP_SUPRLU_USE_IFs.f90 index fa890fa4..4ce2ad72 100644 --- a/Source/USE_IFs/SYM_MAT_DECOMP_SUPRLU_USE_IFs.f90 +++ b/Source/USE_IFs/SYM_MAT_DECOMP_SUPRLU_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE SYM_MAT_DECOMP_SUPRLU_USE_IFs @@ -34,5 +34,5 @@ MODULE SYM_MAT_DECOMP_SUPRLU_USE_IFs USE GET_GRID_AND_COMP_Interface USE COUNTER_INIT_Interface USE COUNTER_PROGRESS_Interface - + END MODULE SYM_MAT_DECOMP_SUPRLU_USE_IFs diff --git a/Source/USE_IFs/TDOF_COL_NUM_USE_IFs.f90 b/Source/USE_IFs/TDOF_COL_NUM_USE_IFs.f90 index d62a9bc5..71d938e7 100644 --- a/Source/USE_IFs/TDOF_COL_NUM_USE_IFs.f90 +++ b/Source/USE_IFs/TDOF_COL_NUM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TDOF_COL_NUM_USE_IFs diff --git a/Source/USE_IFs/TDOF_PROC_USE_IFs.f90 b/Source/USE_IFs/TDOF_PROC_USE_IFs.f90 index 91a3bfe4..2b4aa73f 100644 --- a/Source/USE_IFs/TDOF_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/TDOF_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TDOF_PROC_USE_IFs diff --git a/Source/USE_IFs/TEMPERATURE_DATA_PROC_USE_IFs.f90 b/Source/USE_IFs/TEMPERATURE_DATA_PROC_USE_IFs.f90 index 26022c1e..6972b210 100644 --- a/Source/USE_IFs/TEMPERATURE_DATA_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/TEMPERATURE_DATA_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TEMPERATURE_DATA_PROC_USE_IFs diff --git a/Source/USE_IFs/TETRA_USE_IFs.f90 b/Source/USE_IFs/TETRA_USE_IFs.f90 index 17514c00..cc6ad354 100644 --- a/Source/USE_IFs/TETRA_USE_IFs.f90 +++ b/Source/USE_IFs/TETRA_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TETRA_USE_IFs diff --git a/Source/USE_IFs/TIME_INIT_USE_IFs.f90 b/Source/USE_IFs/TIME_INIT_USE_IFs.f90 index 444654a1..6a93b7f1 100644 --- a/Source/USE_IFs/TIME_INIT_USE_IFs.f90 +++ b/Source/USE_IFs/TIME_INIT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TIME_INIT_USE_IFs diff --git a/Source/USE_IFs/TMEM1_USE_IFs.f90 b/Source/USE_IFs/TMEM1_USE_IFs.f90 index 5a606685..2e39fe10 100644 --- a/Source/USE_IFs/TMEM1_USE_IFs.f90 +++ b/Source/USE_IFs/TMEM1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TMEM1_USE_IFs diff --git a/Source/USE_IFs/TOKCHK_USE_IFs.f90 b/Source/USE_IFs/TOKCHK_USE_IFs.f90 index b16b841c..68c142bc 100644 --- a/Source/USE_IFs/TOKCHK_USE_IFs.f90 +++ b/Source/USE_IFs/TOKCHK_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TOKCHK_USE_IFs diff --git a/Source/USE_IFs/TPLT1_USE_IFs.f90 b/Source/USE_IFs/TPLT1_USE_IFs.f90 index 999428ad..758b1eaa 100644 --- a/Source/USE_IFs/TPLT1_USE_IFs.f90 +++ b/Source/USE_IFs/TPLT1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TPLT1_USE_IFs diff --git a/Source/USE_IFs/TPLT2_USE_IFs.f90 b/Source/USE_IFs/TPLT2_USE_IFs.f90 index 6e6c3320..d6bf8da4 100644 --- a/Source/USE_IFs/TPLT2_USE_IFs.f90 +++ b/Source/USE_IFs/TPLT2_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TPLT2_USE_IFs diff --git a/Source/USE_IFs/TRANSFORM_NODE_FORCES_USE_IFs.f90 b/Source/USE_IFs/TRANSFORM_NODE_FORCES_USE_IFs.f90 index cc29e5e8..7fa77f26 100644 --- a/Source/USE_IFs/TRANSFORM_NODE_FORCES_USE_IFs.f90 +++ b/Source/USE_IFs/TRANSFORM_NODE_FORCES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TRANSFORM_NODE_FORCES_USE_IFs diff --git a/Source/USE_IFs/TREL1_USE_IFs.f90 b/Source/USE_IFs/TREL1_USE_IFs.f90 index 9e8c2582..8ba1cfcb 100644 --- a/Source/USE_IFs/TREL1_USE_IFs.f90 +++ b/Source/USE_IFs/TREL1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TREL1_USE_IFs diff --git a/Source/USE_IFs/TSET_PROC_FOR_MPCS_USE_IFs.f90 b/Source/USE_IFs/TSET_PROC_FOR_MPCS_USE_IFs.f90 index 9fa4b559..93aba9ac 100644 --- a/Source/USE_IFs/TSET_PROC_FOR_MPCS_USE_IFs.f90 +++ b/Source/USE_IFs/TSET_PROC_FOR_MPCS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TSET_PROC_FOR_MPCS_USE_IFs diff --git a/Source/USE_IFs/TSET_PROC_FOR_OMITS_USE_IFs.f90 b/Source/USE_IFs/TSET_PROC_FOR_OMITS_USE_IFs.f90 index c063e3ab..2c15f322 100644 --- a/Source/USE_IFs/TSET_PROC_FOR_OMITS_USE_IFs.f90 +++ b/Source/USE_IFs/TSET_PROC_FOR_OMITS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TSET_PROC_FOR_OMITS_USE_IFs diff --git a/Source/USE_IFs/TSET_PROC_FOR_RIGELS_USE_IFs.f90 b/Source/USE_IFs/TSET_PROC_FOR_RIGELS_USE_IFs.f90 index a2b9822b..69e09345 100644 --- a/Source/USE_IFs/TSET_PROC_FOR_RIGELS_USE_IFs.f90 +++ b/Source/USE_IFs/TSET_PROC_FOR_RIGELS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TSET_PROC_FOR_RIGELS_USE_IFs diff --git a/Source/USE_IFs/TSET_PROC_FOR_SPCS_USE_IFs.f90 b/Source/USE_IFs/TSET_PROC_FOR_SPCS_USE_IFs.f90 index 8008d6dd..a4f8c7b9 100644 --- a/Source/USE_IFs/TSET_PROC_FOR_SPCS_USE_IFs.f90 +++ b/Source/USE_IFs/TSET_PROC_FOR_SPCS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TSET_PROC_FOR_SPCS_USE_IFs diff --git a/Source/USE_IFs/TSET_PROC_FOR_SUPORTS_USE_IFs.f90 b/Source/USE_IFs/TSET_PROC_FOR_SUPORTS_USE_IFs.f90 index 9f9e6098..7843c04b 100644 --- a/Source/USE_IFs/TSET_PROC_FOR_SUPORTS_USE_IFs.f90 +++ b/Source/USE_IFs/TSET_PROC_FOR_SUPORTS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TSET_PROC_FOR_SUPORTS_USE_IFs diff --git a/Source/USE_IFs/TSET_PROC_USE_IFs.f90 b/Source/USE_IFs/TSET_PROC_USE_IFs.f90 index 4cf6588b..0e7ef737 100644 --- a/Source/USE_IFs/TSET_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/TSET_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE TSET_PROC_USE_IFs diff --git a/Source/USE_IFs/USERIN_USE_IFs.f90 b/Source/USE_IFs/USERIN_USE_IFs.f90 index ec95efce..f41bc40e 100644 --- a/Source/USE_IFs/USERIN_USE_IFs.f90 +++ b/Source/USE_IFs/USERIN_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE USERIN_USE_IFs diff --git a/Source/USE_IFs/USET_PROC_USE_IFs.f90 b/Source/USE_IFs/USET_PROC_USE_IFs.f90 index e9f1891d..9ca0984d 100644 --- a/Source/USE_IFs/USET_PROC_USE_IFs.f90 +++ b/Source/USE_IFs/USET_PROC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE USET_PROC_USE_IFs diff --git a/Source/USE_IFs/VECINORM_USE_IFs.f90 b/Source/USE_IFs/VECINORM_USE_IFs.f90 index 6a23da30..3f8475a2 100644 --- a/Source/USE_IFs/VECINORM_USE_IFs.f90 +++ b/Source/USE_IFs/VECINORM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE VECINORM_USE_IFs diff --git a/Source/USE_IFs/VECTOR_NORM_USE_IFs.f90 b/Source/USE_IFs/VECTOR_NORM_USE_IFs.f90 index 51bd009b..c2d94c16 100644 --- a/Source/USE_IFs/VECTOR_NORM_USE_IFs.f90 +++ b/Source/USE_IFs/VECTOR_NORM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE VECTOR_NORM_USE_IFs diff --git a/Source/USE_IFs/WRITE_ALLOC_MEM_TABLE_USE_IFs.f90 b/Source/USE_IFs/WRITE_ALLOC_MEM_TABLE_USE_IFs.f90 index bb33b370..653a598a 100644 --- a/Source/USE_IFs/WRITE_ALLOC_MEM_TABLE_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_ALLOC_MEM_TABLE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ALLOC_MEM_TABLE_USE_IFs diff --git a/Source/USE_IFs/WRITE_BAR_USE_IFs.f90 b/Source/USE_IFs/WRITE_BAR_USE_IFs.f90 index 44014e34..5ea2a6b6 100644 --- a/Source/USE_IFs/WRITE_BAR_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_BAR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_BAR_USE_IFs diff --git a/Source/USE_IFs/WRITE_DOF_TABLES_USE_IFs.f90 b/Source/USE_IFs/WRITE_DOF_TABLES_USE_IFs.f90 index 2597a83f..08293800 100644 --- a/Source/USE_IFs/WRITE_DOF_TABLES_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_DOF_TABLES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_DOF_TABLES_USE_IFs diff --git a/Source/USE_IFs/WRITE_EDAT_USE_IFs.f90 b/Source/USE_IFs/WRITE_EDAT_USE_IFs.f90 index 1ac112e2..5429f5ee 100644 --- a/Source/USE_IFs/WRITE_EDAT_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_EDAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_EDAT_USE_IFs diff --git a/Source/USE_IFs/WRITE_ELEM_ENGR_FORCE_USE_IFs.f90 b/Source/USE_IFs/WRITE_ELEM_ENGR_FORCE_USE_IFs.f90 index e4f0a90f..4235f488 100644 --- a/Source/USE_IFs/WRITE_ELEM_ENGR_FORCE_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_ELEM_ENGR_FORCE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ELEM_ENGR_FORCE_USE_IFs diff --git a/Source/USE_IFs/WRITE_ELEM_NODE_FORCE_USE_IFs.f90 b/Source/USE_IFs/WRITE_ELEM_NODE_FORCE_USE_IFs.f90 index f9f403e6..1e8d6322 100644 --- a/Source/USE_IFs/WRITE_ELEM_NODE_FORCE_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_ELEM_NODE_FORCE_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ELEM_NODE_FORCE_USE_IFs diff --git a/Source/USE_IFs/WRITE_ELEM_STRAINS_USE_IFs.f90 b/Source/USE_IFs/WRITE_ELEM_STRAINS_USE_IFs.f90 index be604a94..b7aa4f88 100644 --- a/Source/USE_IFs/WRITE_ELEM_STRAINS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_ELEM_STRAINS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ELEM_STRAINS_USE_IFs diff --git a/Source/USE_IFs/WRITE_ELEM_STRESSES_USE_IFs.f90 b/Source/USE_IFs/WRITE_ELEM_STRESSES_USE_IFs.f90 index 11dd8494..8cd81820 100644 --- a/Source/USE_IFs/WRITE_ELEM_STRESSES_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_ELEM_STRESSES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ELEM_STRESSES_USE_IFs diff --git a/Source/USE_IFs/WRITE_ELM_OT4_USE_IFs.f90 b/Source/USE_IFs/WRITE_ELM_OT4_USE_IFs.f90 index 53c5b9a4..bafe852a 100644 --- a/Source/USE_IFs/WRITE_ELM_OT4_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_ELM_OT4_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ELM_OT4_USE_IFs diff --git a/Source/USE_IFs/WRITE_ENF_TO_L1O_USE_IFs.f90 b/Source/USE_IFs/WRITE_ENF_TO_L1O_USE_IFs.f90 index b24ea4be..908dddeb 100644 --- a/Source/USE_IFs/WRITE_ENF_TO_L1O_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_ENF_TO_L1O_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ENF_TO_L1O_USE_IFs diff --git a/Source/USE_IFs/WRITE_FEMAP_ELFO_VECS_USE_IFs.f90 b/Source/USE_IFs/WRITE_FEMAP_ELFO_VECS_USE_IFs.f90 index dae33333..b46d3381 100644 --- a/Source/USE_IFs/WRITE_FEMAP_ELFO_VECS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_FEMAP_ELFO_VECS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_FEMAP_ELFO_VECS_USE_IFs diff --git a/Source/USE_IFs/WRITE_FEMAP_GRID_VECS_USE_IFs.f90 b/Source/USE_IFs/WRITE_FEMAP_GRID_VECS_USE_IFs.f90 index 55103481..1e4d089c 100644 --- a/Source/USE_IFs/WRITE_FEMAP_GRID_VECS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_FEMAP_GRID_VECS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_FEMAP_GRID_VECS_USE_IFs diff --git a/Source/USE_IFs/WRITE_FEMAP_STRE_VECS_USE_IFs.f90 b/Source/USE_IFs/WRITE_FEMAP_STRE_VECS_USE_IFs.f90 index 54057c33..0f7498cf 100644 --- a/Source/USE_IFs/WRITE_FEMAP_STRE_VECS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_FEMAP_STRE_VECS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_FEMAP_STRE_VECS_USE_IFs diff --git a/Source/USE_IFs/WRITE_FEMAP_STRN_VECS_USE_IFs.f90 b/Source/USE_IFs/WRITE_FEMAP_STRN_VECS_USE_IFs.f90 index 0606e131..cd5c17a2 100644 --- a/Source/USE_IFs/WRITE_FEMAP_STRN_VECS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_FEMAP_STRN_VECS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_FEMAP_STRN_VECS_USE_IFs diff --git a/Source/USE_IFs/WRITE_FIJFIL_USE_IFs.f90 b/Source/USE_IFs/WRITE_FIJFIL_USE_IFs.f90 index db6ba69c..29caed4f 100644 --- a/Source/USE_IFs/WRITE_FIJFIL_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_FIJFIL_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_FIJFIL_USE_IFs diff --git a/Source/USE_IFs/WRITE_FILNAM_USE_IFs.f90 b/Source/USE_IFs/WRITE_FILNAM_USE_IFs.f90 index 78986128..f20a9cad 100644 --- a/Source/USE_IFs/WRITE_FILNAM_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_FILNAM_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_FILNAM_USE_IFs diff --git a/Source/USE_IFs/WRITE_GRD_OT4_USE_IFs.f90 b/Source/USE_IFs/WRITE_GRD_OT4_USE_IFs.f90 index c6711a3c..9af5eaa4 100644 --- a/Source/USE_IFs/WRITE_GRD_OT4_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_GRD_OT4_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_GRD_OT4_USE_IFs diff --git a/Source/USE_IFs/WRITE_GRD_PCH_OUTPUTS_USE_IFs.f90 b/Source/USE_IFs/WRITE_GRD_PCH_OUTPUTS_USE_IFs.f90 index ef80a537..d844ba5d 100644 --- a/Source/USE_IFs/WRITE_GRD_PCH_OUTPUTS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_GRD_PCH_OUTPUTS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_GRD_PCH_OUTPUTS_USE_IFs diff --git a/Source/USE_IFs/WRITE_GRD_PRT_OUTPUTS_USE_IFs.f90 b/Source/USE_IFs/WRITE_GRD_PRT_OUTPUTS_USE_IFs.f90 index 9382274b..62e4a9ea 100644 --- a/Source/USE_IFs/WRITE_GRD_PRT_OUTPUTS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_GRD_PRT_OUTPUTS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_GRD_PRT_OUTPUTS_USE_IFs diff --git a/Source/USE_IFs/WRITE_GRID_COORDS_USE_IFs.f90 b/Source/USE_IFs/WRITE_GRID_COORDS_USE_IFs.f90 index b44535f0..adc5a613 100644 --- a/Source/USE_IFs/WRITE_GRID_COORDS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_GRID_COORDS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_GRID_COORDS_USE_IFs diff --git a/Source/USE_IFs/WRITE_INTEGER_VEC_USE_IFs.f90 b/Source/USE_IFs/WRITE_INTEGER_VEC_USE_IFs.f90 index d3fdf81e..99a348b9 100644 --- a/Source/USE_IFs/WRITE_INTEGER_VEC_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_INTEGER_VEC_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_INTEGER_VEC_USE_IFs diff --git a/Source/USE_IFs/WRITE_L1A_USE_IFs.f90 b/Source/USE_IFs/WRITE_L1A_USE_IFs.f90 index ea746f44..4a787193 100644 --- a/Source/USE_IFs/WRITE_L1A_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_L1A_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_L1A_USE_IFs diff --git a/Source/USE_IFs/WRITE_L1M_USE_IFs.f90 b/Source/USE_IFs/WRITE_L1M_USE_IFs.f90 index 0cc9af16..6f33041a 100644 --- a/Source/USE_IFs/WRITE_L1M_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_L1M_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_L1M_USE_IFs diff --git a/Source/USE_IFs/WRITE_L1Z_USE_IFs.f90 b/Source/USE_IFs/WRITE_L1Z_USE_IFs.f90 index 406d304f..296f29c9 100644 --- a/Source/USE_IFs/WRITE_L1Z_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_L1Z_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_L1Z_USE_IFs diff --git a/Source/USE_IFs/WRITE_MATRIX_1_USE_IFs.f90 b/Source/USE_IFs/WRITE_MATRIX_1_USE_IFs.f90 index a65348c9..7a29fd02 100644 --- a/Source/USE_IFs/WRITE_MATRIX_1_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_MATRIX_1_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_MATRIX_1_USE_IFs diff --git a/Source/USE_IFs/WRITE_MATRIX_BY_COLS_USE_IFs.f90 b/Source/USE_IFs/WRITE_MATRIX_BY_COLS_USE_IFs.f90 index 51fa212c..3efec1a4 100644 --- a/Source/USE_IFs/WRITE_MATRIX_BY_COLS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_MATRIX_BY_COLS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_MATRIX_BY_COLS_USE_IFs diff --git a/Source/USE_IFs/WRITE_MATRIX_BY_ROWS_USE_IFs.f90 b/Source/USE_IFs/WRITE_MATRIX_BY_ROWS_USE_IFs.f90 index 4784172f..04f8baca 100644 --- a/Source/USE_IFs/WRITE_MATRIX_BY_ROWS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_MATRIX_BY_ROWS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_MATRIX_BY_ROWS_USE_IFs diff --git a/Source/USE_IFs/WRITE_MEFFMASS_USE_IFs.f90 b/Source/USE_IFs/WRITE_MEFFMASS_USE_IFs.f90 index 7d647a6d..9933e06d 100644 --- a/Source/USE_IFs/WRITE_MEFFMASS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_MEFFMASS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_MEFFMASS_USE_IFs diff --git a/Source/USE_IFs/WRITE_MPFACTOR_USE_IFs.f90 b/Source/USE_IFs/WRITE_MPFACTOR_USE_IFs.f90 index e0e4fa82..f486d108 100644 --- a/Source/USE_IFs/WRITE_MPFACTOR_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_MPFACTOR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_MPFACTOR_USE_IFs diff --git a/Source/USE_IFs/WRITE_OU4_FULL_MAT_USE_IFs.f90 b/Source/USE_IFs/WRITE_OU4_FULL_MAT_USE_IFs.f90 index df00710e..226fa4e1 100644 --- a/Source/USE_IFs/WRITE_OU4_FULL_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_OU4_FULL_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_OU4_FULL_MAT_USE_IFs diff --git a/Source/USE_IFs/WRITE_OU4_SPARSE_MAT_USE_IFs.f90 b/Source/USE_IFs/WRITE_OU4_SPARSE_MAT_USE_IFs.f90 index ec2445f3..14d1f080 100644 --- a/Source/USE_IFs/WRITE_OU4_SPARSE_MAT_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_OU4_SPARSE_MAT_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_OU4_SPARSE_MAT_USE_IFs diff --git a/Source/USE_IFs/WRITE_PARTNd_MAT_HDRS_USE_IFs.f90 b/Source/USE_IFs/WRITE_PARTNd_MAT_HDRS_USE_IFs.f90 index 278672a3..0ed9357f 100644 --- a/Source/USE_IFs/WRITE_PARTNd_MAT_HDRS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_PARTNd_MAT_HDRS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_PARTNd_MAT_HDRS_USE_IFs diff --git a/Source/USE_IFs/WRITE_PCOMP_EQUIV_USE_IFs.f90 b/Source/USE_IFs/WRITE_PCOMP_EQUIV_USE_IFs.f90 index 2ceee2f0..ed6ce474 100644 --- a/Source/USE_IFs/WRITE_PCOMP_EQUIV_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_PCOMP_EQUIV_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_PCOMP_EQUIV_USE_IFs diff --git a/Source/USE_IFs/WRITE_PLY_STRAINS_USE_IFs.f90 b/Source/USE_IFs/WRITE_PLY_STRAINS_USE_IFs.f90 index 8e9afc01..f6701519 100644 --- a/Source/USE_IFs/WRITE_PLY_STRAINS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_PLY_STRAINS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_PLY_STRAINS_USE_IFs diff --git a/Source/USE_IFs/WRITE_PLY_STRESSES_USE_IFs.f90 b/Source/USE_IFs/WRITE_PLY_STRESSES_USE_IFs.f90 index 397a355a..b8c0ce76 100644 --- a/Source/USE_IFs/WRITE_PLY_STRESSES_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_PLY_STRESSES_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_PLY_STRESSES_USE_IFs diff --git a/Source/USE_IFs/WRITE_ROD_USE_IFs.f90 b/Source/USE_IFs/WRITE_ROD_USE_IFs.f90 index 648a4932..25cd8cef 100644 --- a/Source/USE_IFs/WRITE_ROD_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_ROD_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_ROD_USE_IFs diff --git a/Source/USE_IFs/WRITE_SPARSE_CRS_USE_IFs.f90 b/Source/USE_IFs/WRITE_SPARSE_CRS_USE_IFs.f90 index 9052ea94..dc00de2e 100644 --- a/Source/USE_IFs/WRITE_SPARSE_CRS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_SPARSE_CRS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_SPARSE_CRS_USE_IFs diff --git a/Source/USE_IFs/WRITE_TDOF_USE_IFs.f90 b/Source/USE_IFs/WRITE_TDOF_USE_IFs.f90 index ffda13ae..48667b52 100644 --- a/Source/USE_IFs/WRITE_TDOF_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_TDOF_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_TDOF_USE_IFs diff --git a/Source/USE_IFs/WRITE_TSET_USE_IFs.f90 b/Source/USE_IFs/WRITE_TSET_USE_IFs.f90 index 909c1f98..d6d0b219 100644 --- a/Source/USE_IFs/WRITE_TSET_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_TSET_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_TSET_USE_IFs diff --git a/Source/USE_IFs/WRITE_USERIN_BD_CARDS_USE_IFs.f90 b/Source/USE_IFs/WRITE_USERIN_BD_CARDS_USE_IFs.f90 index 743b0fdb..f581ff41 100644 --- a/Source/USE_IFs/WRITE_USERIN_BD_CARDS_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_USERIN_BD_CARDS_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_USERIN_BD_CARDS_USE_IFs diff --git a/Source/USE_IFs/WRITE_USETSTR_USE_IFs.f90 b/Source/USE_IFs/WRITE_USETSTR_USE_IFs.f90 index 736da205..b17ea177 100644 --- a/Source/USE_IFs/WRITE_USETSTR_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_USETSTR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_USETSTR_USE_IFs diff --git a/Source/USE_IFs/WRITE_USET_USE_IFs.f90 b/Source/USE_IFs/WRITE_USET_USE_IFs.f90 index 089c25b9..4e785d00 100644 --- a/Source/USE_IFs/WRITE_USET_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_USET_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_USET_USE_IFs diff --git a/Source/USE_IFs/WRITE_VECTOR_USE_IFs.f90 b/Source/USE_IFs/WRITE_VECTOR_USE_IFs.f90 index b9a11c04..7391ac01 100644 --- a/Source/USE_IFs/WRITE_VECTOR_USE_IFs.f90 +++ b/Source/USE_IFs/WRITE_VECTOR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRITE_VECTOR_USE_IFs diff --git a/Source/USE_IFs/WRT_REAL_TO_CHAR_VAR_USE_IFs.f90 b/Source/USE_IFs/WRT_REAL_TO_CHAR_VAR_USE_IFs.f90 index a8a3f3ad..fff620c8 100644 --- a/Source/USE_IFs/WRT_REAL_TO_CHAR_VAR_USE_IFs.f90 +++ b/Source/USE_IFs/WRT_REAL_TO_CHAR_VAR_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE WRT_REAL_TO_CHAR_VAR_USE_IFs diff --git a/Source/USE_IFs/YS_ARRAY_USE_IFs.f90 b/Source/USE_IFs/YS_ARRAY_USE_IFs.f90 index 09fbc553..ff4cb32b 100644 --- a/Source/USE_IFs/YS_ARRAY_USE_IFs.f90 +++ b/Source/USE_IFs/YS_ARRAY_USE_IFs.f90 @@ -1,27 +1,27 @@ -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. MODULE YS_ARRAY_USE_IFs diff --git a/Source/UTIL/ALLOCATED_MEMORY.f90 b/Source/UTIL/ALLOCATED_MEMORY.f90 index af11bc85..d9f13108 100644 --- a/Source/UTIL/ALLOCATED_MEMORY.f90 +++ b/Source/UTIL/ALLOCATED_MEMORY.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATED_MEMORY ( ARRAY_NAME, MB_ALLOCATED, WHAT, WRITE_TABLE, CURRENT_MB_ALLOCATED, CALLING_SUBR ) @@ -70,7 +70,7 @@ SUBROUTINE ALLOCATED_MEMORY ( ARRAY_NAME, MB_ALLOCATED, WHAT, WRITE_TABLE, CURRE WRITE(ERR,971) SUBR_NAME, WHAT WRITE(ERR,971) SUBR_NAME, WHAT CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF ! Initialize outputs @@ -141,7 +141,7 @@ SUBROUTINE ALLOCATED_MEMORY ( ARRAY_NAME, MB_ALLOCATED, WHAT, WRITE_TABLE, CURRE 971 FORMAT(' *ERROR 971: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' INPUT ARG "WHAT" MUST BE EITHER "ALLOC" OR "DEALLOC" BUT IS = "',A,'"') -99887 FORMAT(' In ALLOCATED_MEMORY: I, ARRAY_NAME, LEN(ARRAY_NAME) = ',I4,'"',A31,'"',I4) +99887 FORMAT(' In ALLOCATED_MEMORY: I, ARRAY_NAME, LEN(ARRAY_NAME) = ',I4,'"',A31,'"',I4) ! ********************************************************************************************************************************** diff --git a/Source/UTIL/ALLOCATE_CB_ELM_OTM.f90 b/Source/UTIL/ALLOCATE_CB_ELM_OTM.f90 index 2c2420e7..39d4f94c 100644 --- a/Source/UTIL/ALLOCATE_CB_ELM_OTM.f90 +++ b/Source/UTIL/ALLOCATE_CB_ELM_OTM.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_CB_ELM_OTM ( NAME_IN ) @@ -54,10 +54,10 @@ SUBROUTINE ALLOCATE_CB_ELM_OTM ( NAME_IN ) CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Array name of the matrix to be allocated CHARACTER(LEN(NAME_IN)) :: NAME ! Name for output error purposes - INTEGER(LONG) :: ELOUT_ELFE ! If > 0, there are ELFORCE(ENGR) requests for some elems - INTEGER(LONG) :: ELOUT_ELFN ! If > 0, there are ELFORCE(NODE) requests for some elems - INTEGER(LONG) :: ELOUT_STRE ! If > 0, there are STRESS requests for some elems - INTEGER(LONG) :: ELOUT_STRN ! If > 0, there are STRAIN requests for some elems + INTEGER(LONG) :: ELOUT_ELFE ! If > 0, there are ELFORCE(ENGR) requests for some elems + INTEGER(LONG) :: ELOUT_ELFN ! If > 0, there are ELFORCE(NODE) requests for some elems + INTEGER(LONG) :: ELOUT_STRE ! If > 0, there are STRESS requests for some elems + INTEGER(LONG) :: ELOUT_STRN ! If > 0, there are STRAIN requests for some elems INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator @@ -80,7 +80,7 @@ SUBROUTINE ALLOCATE_CB_ELM_OTM ( NAME_IN ) JERR = 0 ! ---------------------------------------------------------------------------------------------------------------------------------- - IF (NAME_IN == 'OTM_ELFE') THEN ! Determine size of OTM_ELFE and allocate it and TXT_ELFE + IF (NAME_IN == 'OTM_ELFE') THEN ! Determine size of OTM_ELFE and allocate it and TXT_ELFE NROWS_MAT = 0 NROWS_TXT = 0 @@ -95,7 +95,7 @@ SUBROUTINE ALLOCATE_CB_ELM_OTM ( NAME_IN ) ELOUT_ELFE = IAND(ELOUT(J,1),IBIT(ELOUT_ELFE_BIT)) IF (ELOUT_ELFE > 0) THEN NROWS_MAT = NROWS_MAT + 1 - NROWS_TXT = NROWS_TXT + 1 + OTMSKIP + NROWS_TXT = NROWS_TXT + 1 + OTMSKIP ENDIF ENDIF @@ -104,7 +104,7 @@ SUBROUTINE ALLOCATE_CB_ELM_OTM ( NAME_IN ) ELOUT_ELFE = IAND(ELOUT(J,1),IBIT(ELOUT_ELFE_BIT)) IF (ELOUT_ELFE > 0) THEN NROWS_MAT = NROWS_MAT + 6 - NROWS_TXT = NROWS_TXT + 6 + OTMSKIP + NROWS_TXT = NROWS_TXT + 6 + OTMSKIP ENDIF ENDIF @@ -113,7 +113,7 @@ SUBROUTINE ALLOCATE_CB_ELM_OTM ( NAME_IN ) ELOUT_ELFE = IAND(ELOUT(J,1),IBIT(ELOUT_ELFE_BIT)) IF (ELOUT_ELFE > 0) THEN NROWS_MAT = NROWS_MAT + 2 - NROWS_TXT = NROWS_TXT + 2 + OTMSKIP + NROWS_TXT = NROWS_TXT + 2 + OTMSKIP ENDIF ENDIF @@ -151,7 +151,7 @@ SUBROUTINE ALLOCATE_CB_ELM_OTM ( NAME_IN ) ENDDO ENDDO - + NROWS_OTM_ELFE = NROWS_MAT NROWS_TXT_ELFE = NROWS_TXT NCOLS = NUM_CB_DOFS @@ -222,7 +222,7 @@ SUBROUTINE ALLOCATE_CB_ELM_OTM ( NAME_IN ) NROWS_OTM_ELFN = NROWS_MAT NROWS_TXT_ELFN = NROWS_TXT NCOLS = NUM_CB_DOFS - + NAME = 'OTM_ELFN' IF (ALLOCATED(OTM_ELFN)) THEN WRITE(ERR,990) SUBR_NAME, NAME @@ -306,7 +306,7 @@ SUBROUTINE ALLOCATE_CB_ELM_OTM ( NAME_IN ) ELSE IF ((TYPE(1:4) == 'HEXA') .OR. (TYPE(1:5) == 'PENTA') .OR. (TYPE(1:5) == 'TETRA')) THEN NROWS_MAT = NROWS_MAT + 6 NROWS_TXT = NROWS_TXT + 6 + OTMSKIP - ENDIF + ENDIF ENDIF ENDIF ENDDO @@ -314,7 +314,7 @@ SUBROUTINE ALLOCATE_CB_ELM_OTM ( NAME_IN ) NROWS_OTM_STRE = NROWS_MAT NROWS_TXT_STRE = NROWS_TXT NCOLS = NUM_CB_DOFS - + NAME = 'OTM_STRE' IF (ALLOCATED(OTM_STRE)) THEN WRITE(ERR,990) SUBR_NAME, NAME @@ -389,7 +389,7 @@ SUBROUTINE ALLOCATE_CB_ELM_OTM ( NAME_IN ) ELSE IF ((TYPE(1:4) == 'HEXA') .OR. (TYPE(1:5) == 'PENTA') .OR. (TYPE(1:5) == 'TETRA')) THEN NROWS_MAT = NROWS_MAT + 6 NROWS_TXT = NROWS_TXT + 6 + OTMSKIP - ENDIF + ENDIF ENDIF ENDIF ENDDO @@ -397,7 +397,7 @@ SUBROUTINE ALLOCATE_CB_ELM_OTM ( NAME_IN ) NROWS_OTM_STRN = NROWS_MAT NROWS_TXT_STRN = NROWS_TXT NCOLS = NUM_CB_DOFS - + NAME = 'OTM_STRN' IF (ALLOCATED(OTM_STRN)) THEN WRITE(ERR,990) SUBR_NAME, NAME @@ -447,13 +447,13 @@ SUBROUTINE ALLOCATE_CB_ELM_OTM ( NAME_IN ) ! --------------------------------------------------------------------------------------------------------------------------------- ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME_IN + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME_IN WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME_IN FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF - + ! --------------------------------------------------------------------------------------------------------------------------------- ! Quit if there were errors diff --git a/Source/UTIL/ALLOCATE_CB_GRD_OTM.f90 b/Source/UTIL/ALLOCATE_CB_GRD_OTM.f90 index 3244bdab..0d9e476a 100644 --- a/Source/UTIL/ALLOCATE_CB_GRD_OTM.f90 +++ b/Source/UTIL/ALLOCATE_CB_GRD_OTM.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_CB_GRD_OTM ( NAME_IN ) @@ -325,13 +325,13 @@ SUBROUTINE ALLOCATE_CB_GRD_OTM ( NAME_IN ) ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME_IN + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME_IN WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME_IN FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN diff --git a/Source/UTIL/ALLOCATE_COL_VEC.f90 b/Source/UTIL/ALLOCATE_COL_VEC.f90 index b1696350..714dab99 100644 --- a/Source/UTIL/ALLOCATE_COL_VEC.f90 +++ b/Source/UTIL/ALLOCATE_COL_VEC.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_COL_VEC ( NAME, NROWS, CALLING_SUBR ) - + ! Allocate arrays for 1-D column vectors - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE OUTPUT4_MATRICES, ONLY : OU4_MAT_COL_GRD_COMP, OU4_MAT_ROW_GRD_COMP @@ -45,14 +45,14 @@ SUBROUTINE ALLOCATE_COL_VEC ( NAME, NROWS, CALLING_SUBR ) USE ALLOCATE_COL_VEC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_COL_VEC' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this one CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows for matrix NAME INTEGER(LONG), PARAMETER :: NCOLS = 1 ! Number of cols in array - INTEGER(LONG) :: I,J ! DO loop indices + INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator @@ -917,13 +917,13 @@ SUBROUTINE ALLOCATE_COL_VEC ( NAME, NROWS, CALLING_SUBR ) ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -953,5 +953,5 @@ SUBROUTINE ALLOCATE_COL_VEC ( NAME, NROWS, CALLING_SUBR ) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_COL_VEC diff --git a/Source/UTIL/ALLOCATE_DOF_TABLES.f90 b/Source/UTIL/ALLOCATE_DOF_TABLES.f90 index 87f00816..e35e0c11 100644 --- a/Source/UTIL/ALLOCATE_DOF_TABLES.f90 +++ b/Source/UTIL/ALLOCATE_DOF_TABLES.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_DOF_TABLES ( NAME, CALLING_SUBR ) - + ! Allocate arrays for MYSTRAN DOF tables - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, SIX, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -35,22 +35,22 @@ SUBROUTINE ALLOCATE_DOF_TABLES ( NAME, CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE DOF_TABLES, ONLY : TDOF, TDOF_ROW_START, TDOFI, TSET, USET - + USE ALLOCATE_DOF_TABLES_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_DOF_TABLES' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator INTEGER(LONG) :: NROWS ! Number of rows in array INTEGER(LONG) :: NCOLS ! Number of cols in array - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -203,13 +203,13 @@ SUBROUTINE ALLOCATE_DOF_TABLES ( NAME, CALLING_SUBR ) ELSE - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -237,5 +237,5 @@ SUBROUTINE ALLOCATE_DOF_TABLES ( NAME, CALLING_SUBR ) ! ********************************************************************************************************************************** - - END SUBROUTINE ALLOCATE_DOF_TABLES + + END SUBROUTINE ALLOCATE_DOF_TABLES diff --git a/Source/UTIL/ALLOCATE_EIGEN1_MAT.f90 b/Source/UTIL/ALLOCATE_EIGEN1_MAT.f90 index 9eea3e77..b545588a 100644 --- a/Source/UTIL/ALLOCATE_EIGEN1_MAT.f90 +++ b/Source/UTIL/ALLOCATE_EIGEN1_MAT.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_EIGEN1_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) - + ! Allocate arrays for use in eigenvalue extraction - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFA, TOT_MB_MEM_ALLOC @@ -35,22 +35,22 @@ SUBROUTINE ALLOCATE_EIGEN1_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE EIGEN_MATRICES_1 , ONLY : EIGEN_VAL, EIGEN_VEC, GEN_MASS, MODE_NUM, MEFFMASS, MPFACTOR_N6, MPFACTOR_NR - + USE ALLOCATE_EIGEN1_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_EIGEN1_MAT' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows to allocate to matrix NAME INTEGER(LONG), INTENT(IN) :: NCOLS ! Number of cols to allocate to matrix NAME INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -234,13 +234,13 @@ SUBROUTINE ALLOCATE_EIGEN1_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -267,5 +267,5 @@ SUBROUTINE ALLOCATE_EIGEN1_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) 1699 FORMAT(' THE SUBR IN WHICH THESE ERRORS WERE FOUND (',A,') WAS CALLED BY SUBR ',A) ! ********************************************************************************************************************************** - - END SUBROUTINE ALLOCATE_EIGEN1_MAT + + END SUBROUTINE ALLOCATE_EIGEN1_MAT diff --git a/Source/UTIL/ALLOCATE_FULL_MAT.f90 b/Source/UTIL/ALLOCATE_FULL_MAT.f90 index e4eb85e1..530fc3d9 100644 --- a/Source/UTIL/ALLOCATE_FULL_MAT.f90 +++ b/Source/UTIL/ALLOCATE_FULL_MAT.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_FULL_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) - + ! Allocates 2D full arrays (see comments in module FULL_MATRICES) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -44,18 +44,18 @@ SUBROUTINE ALLOCATE_FULL_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) USE ALLOCATE_FULL_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_FULL_MAT' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG), INTENT(IN) :: NROWS ! Nunber of rows in array NAME being allocated INTEGER(LONG), INTENT(IN) :: NCOLS ! Nunber of cols in array NAME being allocated INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -975,13 +975,13 @@ SUBROUTINE ALLOCATE_FULL_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -1010,5 +1010,5 @@ SUBROUTINE ALLOCATE_FULL_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) 1699 FORMAT(' THE SUBR IN WHICH THESE ERRORS WERE FOUND (',A,') WAS CALLED BY SUBR ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_FULL_MAT diff --git a/Source/UTIL/ALLOCATE_IN4_FILES.f90 b/Source/UTIL/ALLOCATE_IN4_FILES.f90 index 3b6a3a8b..0bbd57ea 100644 --- a/Source/UTIL/ALLOCATE_IN4_FILES.f90 +++ b/Source/UTIL/ALLOCATE_IN4_FILES.f90 @@ -1,49 +1,49 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_IN4_FILES ( NAME_IN, NROWS, NCOLS, CALLING_SUBR ) - + ! Allocate arrays for IN4 files (USERIN elements) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN4FIL, IN4FIL_NUM, LNUM_IN4_FILES, WRT_ERR - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE INPUTT4_MATRICES, ONLY : IN4_COL_MAP, IN4_MAT - + USE ALLOCATE_IN4_FILES_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_IN4_FILES' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Array name (used for output error message) CHARACTER(LEN=LEN(NAME_IN)) :: NAME ! Specific array name used for output error message - + INTEGER(LONG), INTENT(IN) :: NROWS ! Nunber of rows in array NAME_IN being allocated INTEGER(LONG), INTENT(IN) :: NCOLS ! Nunber of cols in array NAME_IN being allocated INTEGER(LONG) :: I,J ! DO loop indices @@ -56,7 +56,7 @@ SUBROUTINE ALLOCATE_IN4_FILES ( NAME_IN, NROWS, NCOLS, CALLING_SUBR ) ! ALLOCATED_ARRAY_MEM) REAL(DOUBLE) :: MB_ALLOCATED ! Megabytes of mmemory allocated for the arrays to put into array ! ALLOCATED_ARRAY_MEM when subr ALLOCATED_MEMORY is called - + REAL(DOUBLE) :: RNCOLS ! Real value of NCOLS REAL(DOUBLE) :: RNROWS ! Real value of NROWS @@ -168,13 +168,13 @@ SUBROUTINE ALLOCATE_IN4_FILES ( NAME_IN, NROWS, NCOLS, CALLING_SUBR ) ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME_IN + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME_IN WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME_IN FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -200,5 +200,5 @@ SUBROUTINE ALLOCATE_IN4_FILES ( NAME_IN, NROWS, NCOLS, CALLING_SUBR ) 1699 FORMAT(' THE SUBR IN WHICH THESE ERRORS WERE FOUND (',A,') WAS CALLED BY SUBR ',A) ! ********************************************************************************************************************************** - - END SUBROUTINE ALLOCATE_IN4_FILES + + END SUBROUTINE ALLOCATE_IN4_FILES diff --git a/Source/UTIL/ALLOCATE_LAPACK_MAT.f90 b/Source/UTIL/ALLOCATE_LAPACK_MAT.f90 index 8ffb8afe..fd79255f 100644 --- a/Source/UTIL/ALLOCATE_LAPACK_MAT.f90 +++ b/Source/UTIL/ALLOCATE_LAPACK_MAT.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_LAPACK_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) @@ -53,7 +53,7 @@ SUBROUTINE ALLOCATE_LAPACK_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -354,13 +354,13 @@ SUBROUTINE ALLOCATE_LAPACK_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) ELSE - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN diff --git a/Source/UTIL/ALLOCATE_MISC_MAT.f90 b/Source/UTIL/ALLOCATE_MISC_MAT.f90 index 6cfb8ff5..52af91fd 100644 --- a/Source/UTIL/ALLOCATE_MISC_MAT.f90 +++ b/Source/UTIL/ALLOCATE_MISC_MAT.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_MISC_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) - + ! Allocate some miscellaneous arrays - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFA, TOT_MB_MEM_ALLOC @@ -35,22 +35,22 @@ SUBROUTINE ALLOCATE_MISC_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE MISC_MATRICES, ONLY : UG_T123_MAT - + USE ALLOCATE_MISC_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_MISC_MAT' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows to allocate to matrix NAME INTEGER(LONG), INTENT(IN) :: NCOLS ! Number of cols to allocate to matrix NAME INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -96,13 +96,13 @@ SUBROUTINE ALLOCATE_MISC_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -131,5 +131,5 @@ SUBROUTINE ALLOCATE_MISC_MAT ( NAME, NROWS, NCOLS, CALLING_SUBR ) ! ********************************************************************************************************************************** - - END SUBROUTINE ALLOCATE_MISC_MAT + + END SUBROUTINE ALLOCATE_MISC_MAT diff --git a/Source/UTIL/ALLOCATE_MODEL_STUF.f90 b/Source/UTIL/ALLOCATE_MODEL_STUF.f90 index b9e11643..e1962c2d 100644 --- a/Source/UTIL/ALLOCATE_MODEL_STUF.f90 +++ b/Source/UTIL/ALLOCATE_MODEL_STUF.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) - + ! Allocates arrays defined in module MODEL_STUF (see comments there for definition of these matrices) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, TWO, THREE, SIX, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE SCONTR, ONLY : LBAROFF, LBUSHOFF, LCMASS, LCONM2, LCORD, LEDAT, LELE, LFORCE, LGRAV, LGRID, & LIND_GRDS_MPCS, LLOADC, LLOADR, LMATANGLE, LMATL, LMPC, LMPCADDC, LMPCADDR, LPBAR, LPBEAM,& LPBUSH, LPCOMP, LPCOMP_PLIES, LPDAT, LPELAS, LPLATEOFF, LPLATETHICK, LPLOAD, LPMASS, & @@ -64,11 +64,11 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) USE MODEL_STUF, ONLY : SNORM, RSNORM, GRID_SNORM USE MODEL_STUF, ONLY : MATL, RMATL, PBAR, RPBAR, PBEAM, RPBEAM, PBUSH, RPBUSH, PCOMP, RPCOMP, PELAS, RPELAS, & PROD, RPROD, PSHEAR, RPSHEAR, PSHEL, RPSHEL, PSOLID, PUSER1, RPUSER1, PUSERIN, & - USERIN_ACT_COMPS, USERIN_ACT_GRIDS, USERIN_MAT_NAMES + USERIN_ACT_COMPS, USERIN_ACT_GRIDS, USERIN_MAT_NAMES USE MODEL_STUF, ONLY : MPC_SIDS, MPCSIDS, MPCADD_SIDS USE MODEL_STUF, ONLY : SPC_SIDS, SPC1_SIDS, SPCSIDS, SPCADD_SIDS USE MODEL_STUF, ONLY : ALL_SETS_ARRAY, ONE_SET_ARRAY, SETS_IDS, SC_ACCE, SC_DISP, SC_ELFN, SC_ELFE, SC_GPFO, & - SC_MPCF, SC_OLOA, SC_SPCF, SC_STRE, SC_STRN, LOAD_SIDS, LOAD_FACS + SC_MPCF, SC_OLOA, SC_SPCF, SC_STRE, SC_STRN, LOAD_SIDS, LOAD_FACS USE MODEL_STUF, ONLY : ELDT, ELOUT, GROUT, OELOUT, OGROUT, LABEL, SCNUM, STITLE, SUBLOD, TITLE USE MODEL_STUF, ONLY : SYS_LOAD USE MODEL_STUF, ONLY : CETEMP, CETEMP_ERR, CGTEMP, CGTEMP_ERR, ETEMP, ETEMP_INIT, GTEMP, GTEMP_INIT, TDATA, TPNT @@ -80,19 +80,19 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) USE ALLOCATE_MODEL_STUF_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_MODEL_STUF' CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Name of group of arrays to allocate CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(31*BYTE) :: NAME ! Specific array name used for output error message - + INTEGER(LONG) :: I,J,K ! DO loop indices INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator INTEGER(LONG) :: NCOLS ! Number of cols allocated INTEGER(LONG) :: NROWS ! Number of rows allocated - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM) @@ -547,7 +547,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) CALL ALLOCATED_MEMORY ( NAME, MB_ALLOCATED, 'ALLOC', 'Y', CUR_MB_ALLOCATED, SUBR_NAME ) DO I=1,LSUB SUBLOD(I,1) = 0 - SUBLOD(I,2) = 0 + SUBLOD(I,2) = 0 ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -857,7 +857,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO I=1,LMPCADDR DO J=1,LMPCADDC MPCADD_SIDS(I,J) = 0 - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -1013,7 +1013,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO I=1,LSPCADDR DO J=1,LSPCADDC SPCADD_SIDS(I,J) = 0 - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -2582,7 +2582,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO I=1,LGRID DO J=1,NTSUB GTEMP(I,J) = GTEMP_INIT - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -2610,7 +2610,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO I=1,LGRID DO J=1,NTSUB CGTEMP(I,J) = CGTEMP_ERR - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -2638,7 +2638,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO I=1,LELE DO J=1,NTSUB ETEMP(I,J) = ETEMP_INIT - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -2666,7 +2666,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO I=1,LELE DO J=1,NTSUB CETEMP(I,J) = CETEMP_ERR - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -2694,8 +2694,8 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO I=1,LELE DO J=1,NTSUB TPNT(I,J) = 0 - ENDDO - ENDDO + ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -2746,8 +2746,8 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO I=1,LELE DO J=1,LSUB PPNT(I,J) = 0 - ENDDO - ENDDO + ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -2804,7 +2804,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME_IN == 'PLOAD4_3D_DATA') THEN ! Allocate arrays for PLOAD4_3D_DATA + ELSE IF (NAME_IN == 'PLOAD4_3D_DATA') THEN ! Allocate arrays for PLOAD4_3D_DATA NAME = 'PLOAD4_3D_DATA' IF (ALLOCATED(PLOAD4_3D_DATA)) THEN @@ -2876,7 +2876,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO K=1,MAX_STRESS_POINTS+1 BE1(I,J,K) = ZERO ENDDO - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -2904,7 +2904,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO K=1,MAX_STRESS_POINTS+1 BE2(I,J,K) = ZERO ENDDO - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -2932,7 +2932,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO K=1,MAX_STRESS_POINTS+1 BE3(I,J,K) = ZERO ENDDO - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3007,7 +3007,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,LSUB DT(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3033,7 +3033,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,MELDOF KE(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3059,7 +3059,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,MELDOF KEG(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3085,7 +3085,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,MELDOF KED(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3111,7 +3111,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,MELDOF KEM(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3137,7 +3137,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,MELDOF ME(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3163,7 +3163,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,3 OFFDIS(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3189,7 +3189,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,3 OFFDIS_O(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3215,7 +3215,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,3 OFFDIS_B(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3241,7 +3241,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,3 OFFDIS_G(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3265,7 +3265,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) CALL ALLOCATED_MEMORY ( NAME, MB_ALLOCATED, 'ALLOC', 'Y', CUR_MB_ALLOCATED, SUBR_NAME ) DO I=1,MOFFSET OFFSET(I)(1:) = 'N' - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3363,7 +3363,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,LSUB PPE(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3389,7 +3389,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,LSUB PRESS(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3415,7 +3415,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,LSUB PTE(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3442,7 +3442,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO K=1,MAX_STRESS_POINTS+1 SE1(I,J,K) = ZERO ENDDO - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3470,7 +3470,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO K=1,MAX_STRESS_POINTS+1 SE2(I,J,K) = ZERO ENDDO - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3498,7 +3498,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO K=1,MAX_STRESS_POINTS+1 SE3(I,J,K) = ZERO ENDDO - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3526,7 +3526,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO K=1,MAX_STRESS_POINTS+1 STE1(I,J,K) = ZERO ENDDO - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3554,7 +3554,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO K=1,MAX_STRESS_POINTS+1 STE2(I,J,K) = ZERO ENDDO - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3582,7 +3582,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO K=1,MAX_STRESS_POINTS+1 STE3(I,J,K) = ZERO ENDDO - ENDDO + ENDDO ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3705,7 +3705,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,3 XEB(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3731,7 +3731,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,3 XEL(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3757,7 +3757,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) DO J=1,2 XGL(I,J) = ZERO ENDDO - ENDDO + ENDDO ELSE WRITE(ERR,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR WRITE(F06,991) MB_ALLOCATED, NAME,SUBR_NAME, IERR @@ -3848,7 +3848,7 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME_IN + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME_IN WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME_IN FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 @@ -3880,5 +3880,5 @@ SUBROUTINE ALLOCATE_MODEL_STUF ( NAME_IN, CALLING_SUBR ) 1699 FORMAT(' THE SUBR IN WHICH THESE ERRORS WERE FOUND (',A,') WAS CALLED BY SUBR ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_MODEL_STUF diff --git a/Source/UTIL/ALLOCATE_NL_PARAMS.f90 b/Source/UTIL/ALLOCATE_NL_PARAMS.f90 index bdccaf40..87dd9d52 100644 --- a/Source/UTIL/ALLOCATE_NL_PARAMS.f90 +++ b/Source/UTIL/ALLOCATE_NL_PARAMS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE ALLOCATE_NL_PARAMS ( CALLING_SUBR ) - +! End MIT license text. + + SUBROUTINE ALLOCATE_NL_PARAMS ( CALLING_SUBR ) + ! Allocate arrays for nonlinear params - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LSUB, TOT_MB_MEM_ALLOC @@ -35,16 +35,16 @@ SUBROUTINE ALLOCATE_NL_PARAMS ( CALLING_SUBR ) USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE DEBUG_PARAMETERS, ONLY : DEBUG USE NONLINEAR_PARAMS, ONLY : NL_SID - + USE ALLOCATE_NL_PARAMS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_NL_PARAMS' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - - INTEGER(LONG) :: I ! DO loop index + + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator INTEGER(LONG) :: NROWS ! Number of rows in array @@ -114,5 +114,5 @@ SUBROUTINE ALLOCATE_NL_PARAMS ( CALLING_SUBR ) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_NL_PARAMS diff --git a/Source/UTIL/ALLOCATE_RBGLOBAL.f90 b/Source/UTIL/ALLOCATE_RBGLOBAL.f90 index 6cfe1465..f1035d1e 100644 --- a/Source/UTIL/ALLOCATE_RBGLOBAL.f90 +++ b/Source/UTIL/ALLOCATE_RBGLOBAL.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_RBGLOBAL ( SET, CALLING_SUBR ) - + ! Allocate arrays for rigid body displ matrices (except RBM0 used in Craig-Bampton analyses). RBGLOBAL matrices are used in -! stiffness matrix equilibrium checks. The TR6 matrices are used in transforming some Craig-Bampton matrices - +! stiffness matrix equilibrium checks. The TR6 matrices are used in transforming some Craig-Bampton matrices + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : NDOFG, NDOFN, NDOFF, NDOFA, NDOFL, NDOFR, BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : NDOFG, NDOFN, NDOFF, NDOFA, NDOFL, NDOFR, BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE RIGID_BODY_DISP_MATS, ONLY : RBGLOBAL_GSET, RBGLOBAL_NSET, RBGLOBAL_FSET, RBGLOBAL_ASET, RBGLOBAL_LSET, & @@ -41,13 +41,13 @@ SUBROUTINE ALLOCATE_RBGLOBAL ( SET, CALLING_SUBR ) USE ALLOCATE_RBGLOBAL_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_RBGLOBAL' CHARACTER(LEN=*), INTENT(IN) :: SET ! Set name of the displ matrix CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(14*BYTE) :: NAME ! Specific array name used for output error message - - INTEGER(LONG) :: I,J ! DO loop indices + + INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator INTEGER(LONG) :: NROWS ! Number of rows in array @@ -272,7 +272,7 @@ SUBROUTINE ALLOCATE_RBGLOBAL ( SET, CALLING_SUBR ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -301,5 +301,5 @@ SUBROUTINE ALLOCATE_RBGLOBAL ( SET, CALLING_SUBR ) 1699 FORMAT(' THE SUBR IN WHICH THESE ERRORS WERE FOUND (',A,') WAS CALLED BY SUBR ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_RBGLOBAL diff --git a/Source/UTIL/ALLOCATE_SCR_CCS_MAT.f90 b/Source/UTIL/ALLOCATE_SCR_CCS_MAT.f90 index 7099a2df..a4e04009 100644 --- a/Source/UTIL/ALLOCATE_SCR_CCS_MAT.f90 +++ b/Source/UTIL/ALLOCATE_SCR_CCS_MAT.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_SCR_CCS_MAT ( NAME, NCOLS, NTERMS, CALLING_SUBR ) - + ! Allocate scratch matrices in sparse, compressed column storage (CCS), format. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -39,15 +39,15 @@ SUBROUTINE ALLOCATE_SCR_CCS_MAT ( NAME, NCOLS, NTERMS, CALLING_SUBR ) USE ALLOCATE_SCR_CCS_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_SCR_CCS_MAT' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(6*BYTE) :: NAMEO ! Array name (used for output error message) - + INTEGER(LONG), INTENT(IN) :: NCOLS ! Number of cols for matrix CCSi INTEGER(LONG), INTENT(IN) :: NTERMS ! Number of nonzero terms that will be in matrix CCSi - INTEGER(LONG) :: I ! DO loop index + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator @@ -256,13 +256,13 @@ SUBROUTINE ALLOCATE_SCR_CCS_MAT ( NAME, NCOLS, NTERMS, CALLING_SUBR ) ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -293,5 +293,5 @@ SUBROUTINE ALLOCATE_SCR_CCS_MAT ( NAME, NCOLS, NTERMS, CALLING_SUBR ) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_SCR_CCS_MAT diff --git a/Source/UTIL/ALLOCATE_SCR_CRS_MAT.f90 b/Source/UTIL/ALLOCATE_SCR_CRS_MAT.f90 index 954dcaeb..f4473eca 100644 --- a/Source/UTIL/ALLOCATE_SCR_CRS_MAT.f90 +++ b/Source/UTIL/ALLOCATE_SCR_CRS_MAT.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_SCR_CRS_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) - + ! Allocate scratch matrices in sparse, compressed row storage (CRS), format. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -39,15 +39,15 @@ SUBROUTINE ALLOCATE_SCR_CRS_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) USE ALLOCATE_SCR_CRS_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_SCR_CRS_MAT' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(6*BYTE) :: NAMEO ! Array name (used for output error message) - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows for matrix CRSi INTEGER(LONG), INTENT(IN) :: NTERMS ! Number of nonzero terms that will be in matrix CRSi - INTEGER(LONG) :: I ! DO loop index + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator @@ -256,13 +256,13 @@ SUBROUTINE ALLOCATE_SCR_CRS_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -292,7 +292,7 @@ SUBROUTINE ALLOCATE_SCR_CRS_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) 1699 FORMAT(' THE SUBR IN WHICH THESE ERRORS WERE FOUND (',A,') WAS CALLED BY SUBR ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_SCR_CRS_MAT diff --git a/Source/UTIL/ALLOCATE_SPARSE_ALG.f90 b/Source/UTIL/ALLOCATE_SPARSE_ALG.f90 index 6c0c1b8d..ef486f44 100644 --- a/Source/UTIL/ALLOCATE_SPARSE_ALG.f90 +++ b/Source/UTIL/ALLOCATE_SPARSE_ALG.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_SPARSE_ALG ( NAME, NROW1, NROW2, CALLING_SUBR ) - + ! Allocate some ancillary arrays for use in the MYSTRAN sparse matrix (add, multiply, partitition, merge) routines - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC @@ -35,15 +35,15 @@ SUBROUTINE ALLOCATE_SPARSE_ALG ( NAME, NROW1, NROW2, CALLING_SUBR ) USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE SPARSE_ALG_ARRAYS, ONLY : ALG, AROW, J_AROW, LOGICAL_VEC, REAL_VEC - + USE ALLOCATE_SPARSE_ALG_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_SPARSE_ALG' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG), INTENT(IN) :: NROW1 ! Number of rows, or starting row num, to allocate to matrix NAME INTEGER(LONG), INTENT(IN) :: NROW2 ! End row number in allocation INTEGER(LONG) :: I ! DO loop index @@ -52,7 +52,7 @@ SUBROUTINE ALLOCATE_SPARSE_ALG ( NAME, NROW1, NROW2, CALLING_SUBR ) INTEGER(LONG) :: NROWS ! Number of rows in array INTEGER(LONG), PARAMETER :: NCOLS = 1 ! Number of cols in array - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -184,13 +184,13 @@ SUBROUTINE ALLOCATE_SPARSE_ALG ( NAME, NROW1, NROW2, CALLING_SUBR ) ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -220,5 +220,5 @@ SUBROUTINE ALLOCATE_SPARSE_ALG ( NAME, NROW1, NROW2, CALLING_SUBR ) ! ********************************************************************************************************************************** - - END SUBROUTINE ALLOCATE_SPARSE_ALG + + END SUBROUTINE ALLOCATE_SPARSE_ALG diff --git a/Source/UTIL/ALLOCATE_SPARSE_MAT.f90 b/Source/UTIL/ALLOCATE_SPARSE_MAT.f90 index 8fd2727d..602df071 100644 --- a/Source/UTIL/ALLOCATE_SPARSE_MAT.f90 +++ b/Source/UTIL/ALLOCATE_SPARSE_MAT.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) - + ! Allocate arrays for MYSTRAN sparse matrices - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONEPP6 USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR @@ -85,17 +85,17 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) USE ALLOCATE_SPARSE_MAT_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ALLOCATE_SPARSE_MAT' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Array name of the matrix to be allocated in sparse format CHARACTER(6*BYTE) :: NAME1 ! Array name (used for output error message) CHARACTER(6*BYTE) :: NAME2 ! Array name (used for output error message) - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows for matrix NAME INTEGER(LONG), INTENT(IN) :: NTERMS ! Number of nonzero terms that will be in matrix NAME - INTEGER(LONG) :: I ! DO loop index + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator @@ -122,7 +122,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) !xx WRITE(SC1, * ) ENDIF ENDIF - ENDIF + ENDIF IF ((NAME == 'KFF') .OR. (NAME == 'MFF') .OR. (NAME == 'PF')) THEN IF (ALLOCATED(I_KNN)) THEN @@ -130,7 +130,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) !xx WRITE(SC1, * ) ENDIF ENDIF - ENDIF + ENDIF IF ((NAME == 'KAA') .OR. (NAME == 'MAA') .OR. (NAME == 'PA')) THEN IF (ALLOCATED(I_KFF)) THEN @@ -138,7 +138,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) !xx WRITE(SC1, * ) ENDIF ENDIF - ENDIF + ENDIF IF ((NAME == 'KLL') .OR. (NAME == 'MLL') .OR. (NAME == 'PL')) THEN IF (ALLOCATED(I_KAA)) THEN @@ -146,7 +146,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) !xx WRITE(SC1, * ) ENDIF ENDIF - ENDIF + ENDIF ! ********************************************************************************************************************************** ! G-set arrays @@ -1874,7 +1874,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ENDIF ELSE IF (NAME == 'KFS') THEN ! Allocate arrays for KFS - + NAME1 = 'I_KFS' IF (ALLOCATED(I_KFS)) THEN WRITE(ERR,990) SUBR_NAME, NAME1 @@ -5107,7 +5107,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'MPF0 ') THEN ! Allocate arrays for MPF0 + ELSE IF (NAME == 'MPF0 ') THEN ! Allocate arrays for MPF0 NAME1 = 'I_MPF0 ' IF (ALLOCATED(I_MPF0 )) THEN @@ -5833,7 +5833,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'CG_LTM ') THEN ! Allocate arrays for CG_LTM + ELSE IF (NAME == 'CG_LTM ') THEN ! Allocate arrays for CG_LTM NAME1 = 'I_CG_LTM ' IF (ALLOCATED(I_CG_LTM )) THEN @@ -5895,7 +5895,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'PHIZL ') THEN ! Allocate arrays for PHIZL + ELSE IF (NAME == 'PHIZL ') THEN ! Allocate arrays for PHIZL NAME1 = 'I_PHIZL ' IF (ALLOCATED(I_PHIZL )) THEN @@ -5957,7 +5957,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'PHIZL1 ') THEN ! Allocate arrays for PHIZL1 + ELSE IF (NAME == 'PHIZL1 ') THEN ! Allocate arrays for PHIZL1 NAME1 = 'I_PHIZL1 ' IF (ALLOCATED(I_PHIZL1 )) THEN @@ -6019,7 +6019,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'PHIZL1t ') THEN ! Allocate arrays for PHIZL1t + ELSE IF (NAME == 'PHIZL1t ') THEN ! Allocate arrays for PHIZL1t NAME1 = 'I_PHIZL1t ' IF (ALLOCATED(I_PHIZL1t )) THEN @@ -6081,7 +6081,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'PHIZL2 ') THEN ! Allocate arrays for PHIZL2 + ELSE IF (NAME == 'PHIZL2 ') THEN ! Allocate arrays for PHIZL2 NAME1 = 'I_PHIZL2 ' IF (ALLOCATED(I_PHIZL2 )) THEN @@ -6143,7 +6143,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'IF_LTM ') THEN ! Allocate arrays for IF_LTM + ELSE IF (NAME == 'IF_LTM ') THEN ! Allocate arrays for IF_LTM NAME1 = 'I_IF_LTM ' IF (ALLOCATED(I_IF_LTM )) THEN @@ -6577,7 +6577,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'KXX ') THEN ! Allocate arrays for KXX + ELSE IF (NAME == 'KXX ') THEN ! Allocate arrays for KXX NAME1 = 'I_KXX ' IF (ALLOCATED(I_KXX )) THEN @@ -6639,7 +6639,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'LTM ') THEN ! Allocate arrays for LTM + ELSE IF (NAME == 'LTM ') THEN ! Allocate arrays for LTM NAME1 = 'I_LTM ' IF (ALLOCATED(I_LTM )) THEN @@ -6701,7 +6701,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'MRN ') THEN ! Allocate arrays for MRN + ELSE IF (NAME == 'MRN ') THEN ! Allocate arrays for MRN NAME1 = 'I_MRN ' IF (ALLOCATED(I_MRN )) THEN @@ -6887,7 +6887,7 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ENDIF ENDIF - ELSE IF (NAME == 'MXX ') THEN ! Allocate arrays for MXX + ELSE IF (NAME == 'MXX ') THEN ! Allocate arrays for MXX NAME1 = 'I_MXX ' IF (ALLOCATED(I_MXX )) THEN @@ -7014,14 +7014,14 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) ! ********************************************************************************************************************************** ELSE ! NAME not recognized, so coding error - WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME + WRITE(ERR,915) SUBR_NAME, 'ALLOCATED', NAME WRITE(F06,915) SUBR_NAME, 'ALLOCATED', NAME FATAL_ERR = FATAL_ERR + JERR JERR = JERR + 1 ENDIF !WRITE(SC1,*) CR13 - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -7056,5 +7056,5 @@ SUBROUTINE ALLOCATE_SPARSE_MAT ( NAME, NROWS, NTERMS, CALLING_SUBR ) 22345 FORMAT(7X,'Equate ',A5,' with ',I8,' terms',A) ! ********************************************************************************************************************************** - + END SUBROUTINE ALLOCATE_SPARSE_MAT diff --git a/Source/UTIL/ARRAY_SIZE_ERROR_1.f90 b/Source/UTIL/ARRAY_SIZE_ERROR_1.f90 index 7b814cb5..d2a5166e 100644 --- a/Source/UTIL/ARRAY_SIZE_ERROR_1.f90 +++ b/Source/UTIL/ARRAY_SIZE_ERROR_1.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - - SUBROUTINE ARRAY_SIZE_ERROR_1 ( INP_SUBR_NAME, NTERM_VAL, MATIN_NAME ) - -! Print error and quit when a subr tries to exceed allocated number of terms when storing/retrieving terms in an array + +! End MIT license text. + + SUBROUTINE ARRAY_SIZE_ERROR_1 ( INP_SUBR_NAME, NTERM_VAL, MATIN_NAME ) + +! Print error and quit when a subr tries to exceed allocated number of terms when storing/retrieving terms in an array USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC - + USE ARRAY_SIZE_ERROR_1_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'ARRAY_SIZE_ERROR_1' CHARACTER(LEN=*), INTENT(IN) :: INP_SUBR_NAME ! Subroutine in which the error was detected CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of matrix (for output message purposes) @@ -51,7 +51,7 @@ SUBROUTINE ARRAY_SIZE_ERROR_1 ( INP_SUBR_NAME, NTERM_VAL, MATIN_NAME ) WRITE(F06,937) INP_SUBR_NAME, NTERM_VAL, MATIN_NAME FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (attempt to exceed allocated array size), so quit - + RETURN @@ -59,7 +59,7 @@ SUBROUTINE ARRAY_SIZE_ERROR_1 ( INP_SUBR_NAME, NTERM_VAL, MATIN_NAME ) ! ********************************************************************************************************************************** 937 FORMAT(' *ERROR 937: PROGRAMMING ERROR IN SUBROUTINE ',A & ,/,14X,' ATTEMPT TO EXCEED ALLOCATED ARRAY SIZE = ',I12 & - ,/,14X,' WHILE STORING OR RETRIEVING TERMS IN ARRAY(S) = ',A) + ,/,14X,' WHILE STORING OR RETRIEVING TERMS IN ARRAY(S) = ',A) ! ********************************************************************************************************************************** diff --git a/Source/UTIL/AUTOSPC_SUMMARY_MSGS.f90 b/Source/UTIL/AUTOSPC_SUMMARY_MSGS.f90 index 53e34f40..a687e7c7 100644 --- a/Source/UTIL/AUTOSPC_SUMMARY_MSGS.f90 +++ b/Source/UTIL/AUTOSPC_SUMMARY_MSGS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE AUTOSPC_SUMMARY_MSGS ( ASPC_SUM_MSG1, ASPC_SUM_MSG2, ASPC_SUM_MSG3, WRT_AUTOSPC_RAT, NUM_ASPC_BY_COMP ) diff --git a/Source/UTIL/BAILOUT_CHECK.f90 b/Source/UTIL/BAILOUT_CHECK.f90 index f470dc83..b2304de7 100644 --- a/Source/UTIL/BAILOUT_CHECK.f90 +++ b/Source/UTIL/BAILOUT_CHECK.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + FUNCTION BAILOUT_CHECK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, NTERMS, I_MATIN, MATIN, PRT_ERRS, FACTOR_DIAG ) ! Performs two checks on the factorization of a matrix stored in Compressed Row Storage (CRS) format: @@ -38,9 +38,9 @@ FUNCTION BAILOUT_CHECK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, NTERMS, I_M USE SCONTR, ONLY : BLNK_SUB_NAM, LINKNO USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : EPSIL, MAXRATIO - USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM + USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM USE LINK_MESSAGE_Interface - + IMPLICIT NONE LOGICAL :: BAILOUT_CHECK @@ -61,9 +61,9 @@ FUNCTION BAILOUT_CHECK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, NTERMS, I_M INTEGER(LONG), INTENT(IN) :: I_MATIN(NROWS+1) ! Indicators of number of nonzero terms in rows of matrix MATIN INTEGER(LONG) :: COMPV ! Component number (1-6) of a grid DOF INTEGER(LONG) :: GRIDV ! Grid number - INTEGER(LONG) :: I ! DO loop index + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IIMAX ! Row/Col in MATIN where max diagonal term occurs - + REAL(DOUBLE) , INTENT(IN) :: MATIN(NTERMS) ! Matrix values REAL(DOUBLE) :: MATIN_DIAG(NROWS) ! Diagonal terms from MATIN matrix REAL(DOUBLE) , INTENT(IN) :: FACTOR_DIAG(NROWS)! The diagonal of the factor @@ -76,7 +76,7 @@ FUNCTION BAILOUT_CHECK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, NTERMS, I_M ! ********************************************************************************************************************************** EPS1 = EPSIL(1) - + ! Calculate and print ratios of diag to factor diag (if they are zero or negative or > MAXRATIO). CALL LINK_MESSAGE('CALC MAX RATIO OF MATRIX DIAGONAL TO FACTOR DIAGONAL') @@ -108,9 +108,9 @@ FUNCTION BAILOUT_CHECK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, NTERMS, I_M WRITE(ERR,982) MATIN_NAME, FAC_DIAG WRITE(F06,982) MATIN_NAME, FAC_DIAG IF ((GRIDV > 0) .AND. (COMPV > 0)) THEN - WRITE(ERR,9811) GRIDV, COMPV, CALLING_SUBR + WRITE(ERR,9811) GRIDV, COMPV, CALLING_SUBR WRITE(F06,9811) GRIDV, COMPV, CALLING_SUBR - ELSE + ELSE WRITE(ERR,9812) I, CALLING_SUBR WRITE(F06,9812) I, CALLING_SUBR ENDIF @@ -124,9 +124,9 @@ FUNCTION BAILOUT_CHECK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, NTERMS, I_M WRITE(ERR,983) MATIN_NAME, RATIO, MAXRATIO WRITE(F06,983) MATIN_NAME, RATIO, MAXRATIO IF ((GRIDV > 0) .AND. (COMPV > 0)) THEN - WRITE(ERR,9811) GRIDV, COMPV, CALLING_SUBR + WRITE(ERR,9811) GRIDV, COMPV, CALLING_SUBR WRITE(F06,9811) GRIDV, COMPV, CALLING_SUBR - ELSE + ELSE WRITE(ERR,9812) I, CALLING_SUBR WRITE(F06,9812) I, CALLING_SUBR ENDIF @@ -140,7 +140,7 @@ FUNCTION BAILOUT_CHECK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, NTERMS, I_M ENDIF CALL COUNTER_PROGRESS(I) ENDDO - WRITE(SC1,*) CR13 + WRITE(SC1,*) CR13 IF (NONPOS_DEF == 'N') THEN @@ -148,9 +148,9 @@ FUNCTION BAILOUT_CHECK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, NTERMS, I_M WRITE(F06,984) MATIN_NAME, MAXIMAX_RATIO CALL GET_GRID_AND_COMP ( MATIN_SET, IIMAX, GRIDV, COMPV ) IF ((GRIDV > 0) .AND. (COMPV > 0)) THEN - WRITE(ERR,9811) GRIDV, COMPV, CALLING_SUBR + WRITE(ERR,9811) GRIDV, COMPV, CALLING_SUBR WRITE(F06,9811) GRIDV, COMPV, CALLING_SUBR - ELSE + ELSE WRITE(ERR,9812) IIMAX, CALLING_SUBR WRITE(F06,9812) IIMAX, CALLING_SUBR ENDIF diff --git a/Source/UTIL/BANDGEN_LAPACK_DGB.f90 b/Source/UTIL/BANDGEN_LAPACK_DGB.f90 index d23064cc..ff42730a 100644 --- a/Source/UTIL/BANDGEN_LAPACK_DGB.f90 +++ b/Source/UTIL/BANDGEN_LAPACK_DGB.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BANDGEN_LAPACK_DGB ( MATIN_NAME, N, KD, NTERM_MATIN, I_MATIN, J_MATIN, MATIN, MATOUT, CALLING_SUBR ) @@ -46,10 +46,10 @@ SUBROUTINE BANDGEN_LAPACK_DGB ( MATIN_NAME, N, KD, NTERM_MATIN, I_MATIN, J_MATIN CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Name of subr calling this one CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of matrix input - INTEGER(LONG) :: ROW_NO,COL_NO ! Row and col no's of terms in banded matrix MATOUT + INTEGER(LONG) :: ROW_NO,COL_NO ! Row and col no's of terms in banded matrix MATOUT INTEGER(LONG), INTENT(IN) :: N ! Number of cols (or rows) of symmetric matrix MATIN - INTEGER(LONG), INTENT(IN) :: NTERM_MATIN ! No. of terms in sparse matrix + INTEGER(LONG), INTENT(IN) :: NTERM_MATIN ! No. of terms in sparse matrix INTEGER(LONG), INTENT(IN) :: I_MATIN(N+1) ! Array of row no's for terms in matrix MATIN INTEGER(LONG), INTENT(IN) :: J_MATIN(NTERM_MATIN) ! Array of col no's for terms in matrix MATIN INTEGER(LONG), INTENT(IN) :: KD ! Number of sub (or super) diagonals in matrix MATIN. @@ -95,7 +95,7 @@ SUBROUTINE BANDGEN_LAPACK_DGB ( MATIN_NAME, N, KD, NTERM_MATIN, I_MATIN, J_MATIN CALL OUTA_HERE ( 'Y' ) ENDIF MATOUT(ROW_NO,COL_NO) = MATIN(K) - ENDDO + ENDDO CALL COUNTER_PROGRESS(I) ENDDO WRITE(SC1,*) CR13 diff --git a/Source/UTIL/BANDGEN_LAPACK_DPB.f90 b/Source/UTIL/BANDGEN_LAPACK_DPB.f90 index 62892a63..e876ed20 100644 --- a/Source/UTIL/BANDGEN_LAPACK_DPB.f90 +++ b/Source/UTIL/BANDGEN_LAPACK_DPB.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BANDGEN_LAPACK_DPB ( MATIN_NAME, N, KD, NTERM_MATIN, I_MATIN, J_MATIN, MATIN, MATOUT, CALLING_SUBR ) @@ -45,10 +45,10 @@ SUBROUTINE BANDGEN_LAPACK_DPB ( MATIN_NAME, N, KD, NTERM_MATIN, I_MATIN, J_MATIN CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Name of subr calling this one CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of matrix input - INTEGER(LONG) :: ROW_NO,COL_NO ! Row and col no's of terms in banded matrix MATOUT + INTEGER(LONG) :: ROW_NO,COL_NO ! Row and col no's of terms in banded matrix MATOUT INTEGER(LONG), INTENT(IN) :: N ! Number of cols (or rows) of symmetric matrix MATIN - INTEGER(LONG), INTENT(IN) :: NTERM_MATIN ! No. of terms in sparse matrix + INTEGER(LONG), INTENT(IN) :: NTERM_MATIN ! No. of terms in sparse matrix INTEGER(LONG), INTENT(IN) :: I_MATIN(N+1) ! Array of row no's for terms in matrix MATIN INTEGER(LONG), INTENT(IN) :: J_MATIN(NTERM_MATIN) ! Array of col no's for terms in matrix MATIN INTEGER(LONG), INTENT(IN) :: KD ! Number of sub (or super) diagonals in matrix MATIN. @@ -58,7 +58,7 @@ SUBROUTINE BANDGEN_LAPACK_DPB ( MATIN_NAME, N, KD, NTERM_MATIN, I_MATIN, J_MATIN INTEGER(LONG) :: K ! Counter INTEGER(LONG) :: NUM_TERMS_ROW_I ! Number of terms in MATIN matrix in row I - + REAL(DOUBLE) , INTENT(IN) :: MATIN(NTERM_MATIN) ! Array of terms in sparse matrix MATIN REAL(DOUBLE) , INTENT(INOUT) :: MATOUT(KD+1,N) ! Array of terms in band matrix MATOUT diff --git a/Source/UTIL/BANDSIZ.f90 b/Source/UTIL/BANDSIZ.f90 index 85dcb2b5..3fc1a926 100644 --- a/Source/UTIL/BANDSIZ.f90 +++ b/Source/UTIL/BANDSIZ.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE BANDSIZ ( N, NTERM_MATIN, I_MATIN, J_MATIN, KD ) @@ -41,14 +41,14 @@ SUBROUTINE BANDSIZ ( N, NTERM_MATIN, I_MATIN, J_MATIN, KD ) CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'BANDSIZ' INTEGER(LONG), INTENT(IN) :: N ! Col or row size of matrix MATIN (no. of A-set DOF's) - INTEGER(LONG), INTENT(IN) :: NTERM_MATIN ! No. of terms in sparse matrix + INTEGER(LONG), INTENT(IN) :: NTERM_MATIN ! No. of terms in sparse matrix INTEGER(LONG), INTENT(IN) :: I_MATIN(N+1) ! Array of row no's for terms in matrix MATIN INTEGER(LONG), INTENT(IN) :: J_MATIN(NTERM_MATIN) ! Array of col no's for terms in matrix MATIN INTEGER(LONG), INTENT(OUT) :: KD ! Number of sub (or super) diagonals in matrix MATIN. ! The total band width of MATIN is 2*KD + 1. However, the upper ! or lower triangle can be stored in an array of size KD+1 x N - INTEGER(LONG) :: I,J ! DO loop index - INTEGER(LONG) :: K ! Counter + INTEGER(LONG) :: I,J ! DO loop index + INTEGER(LONG) :: K ! Counter INTEGER(LONG) :: KD_TEMP ! Temporary value of in calculation of KD INTEGER(LONG) :: NUM_TERMS_ROW_I ! Number of terms in MATIN matrix in row I @@ -71,11 +71,11 @@ SUBROUTINE BANDSIZ ( N, NTERM_MATIN, I_MATIN, J_MATIN, KD ) FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ENDIF - KD_TEMP = J_MATIN(K) - I - IF (KD_TEMP > KD) THEN + KD_TEMP = J_MATIN(K) - I + IF (KD_TEMP > KD) THEN KD = KD_TEMP ENDIF - ENDDO + ENDDO ENDDO @@ -91,4 +91,4 @@ SUBROUTINE BANDSIZ ( N, NTERM_MATIN, I_MATIN, J_MATIN, KD ) ! ********************************************************************************************************************************** - END SUBROUTINE BANDSIZ \ No newline at end of file + END SUBROUTINE BANDSIZ diff --git a/Source/UTIL/CALC_TDOF_ROW_START.f90 b/Source/UTIL/CALC_TDOF_ROW_START.f90 index e407a80f..0fb31476 100644 --- a/Source/UTIL/CALC_TDOF_ROW_START.f90 +++ b/Source/UTIL/CALC_TDOF_ROW_START.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CALC_TDOF_ROW_START ( PRTDEB ) - + ! Calculates the row number in array TDOF where a grid (or SPOINT) DOF data is to begin USE PENTIUM_II_KIND, ONLY : LONG diff --git a/Source/UTIL/CALC_VEC_SORT_ORDER.f90 b/Source/UTIL/CALC_VEC_SORT_ORDER.f90 index ce9266e1..89918914 100644 --- a/Source/UTIL/CALC_VEC_SORT_ORDER.f90 +++ b/Source/UTIL/CALC_VEC_SORT_ORDER.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE CALC_VEC_SORT_ORDER ( VEC, SORT_ORDER, SORT_INDICES ) ! Determines the order of the 3 components of a vector if they were arranged from lowest value to largest value. The values are not -! actually sorted. +! actually sorted. USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR diff --git a/Source/UTIL/CARD_FLDS_NOT_BLANK.f90 b/Source/UTIL/CARD_FLDS_NOT_BLANK.f90 index d83be514..774bc627 100644 --- a/Source/UTIL/CARD_FLDS_NOT_BLANK.f90 +++ b/Source/UTIL/CARD_FLDS_NOT_BLANK.f90 @@ -1,50 +1,50 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CARD_FLDS_NOT_BLANK ( JCARD, FLD2, FLD3, FLD4, FLD5, FLD6, FLD7, FLD8, FLD9 ) - + ! Prepares message when some fields of a Bulk data card that should be blank, aren't - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, JCARD_LEN, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN - + USE CARD_FLDS_NOT_BLANK_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)) :: SUBR_NAME = 'CARD_FLDS_NOT_BLANK' CHARACTER(LEN=JCARD_LEN), INTENT(IN):: JCARD(10) ! The 10 fields of 8 characters making up CARD - CHARACTER( 1*BYTE) :: COMMENT ! 'Y' or 'N' depending on whether non-blank fields are a comment + CHARACTER( 1*BYTE) :: COMMENT ! 'Y' or 'N' depending on whether non-blank fields are a comment CHARACTER( 8*BYTE) :: MSSG8 ! Message with all fields that are not blank that should be blank CHARACTER( 1*BYTE) :: MSSG1 ! Message that has the field number in it - - INTEGER(LONG), INTENT(IN) :: FLD2 ! Refers to field 2 of a B.D. card. If /= 0, then check this field + + INTEGER(LONG), INTENT(IN) :: FLD2 ! Refers to field 2 of a B.D. card. If /= 0, then check this field INTEGER(LONG), INTENT(IN) :: FLD3 ! Refers to field 3 of a B.D. card. If /= 0, then check this field INTEGER(LONG), INTENT(IN) :: FLD4 ! Refers to field 4 of a B.D. card. If /= 0, then check this field INTEGER(LONG), INTENT(IN) :: FLD5 ! Refers to field 5 of a B.D. card. If /= 0, then check this field @@ -55,7 +55,7 @@ SUBROUTINE CARD_FLDS_NOT_BLANK ( JCARD, FLD2, FLD3, FLD4, FLD5, FLD6, FLD7, FLD8 INTEGER(LONG) :: ALL_FLDS(2:9) ! Array of the FLDi (2 through 9) INTEGER(LONG) :: I,J ! Do loop indices - + ! ********************************************************************************************************************************** @@ -123,17 +123,17 @@ SUBROUTINE CARD_FLDS_NOT_BLANK ( JCARD, FLD2, FLD3, FLD4, FLD5, FLD6, FLD7, FLD8 IF ((JCARD(8)(1:) /= ' ') .AND. (FLD8 == 8)) THEN MSSG1 = '8' MSSG8 = MSSG8(1:6) // MSSG1(1:1) // MSSG8(8:8) - ENDIF + ENDIF IF ((JCARD(9)(1:) /= ' ') .AND. (FLD9 == 9)) THEN MSSG1 = '9' MSSG8 = MSSG8(1:7) // MSSG1(1:1) ENDIF - IF (MSSG8 /= ' ') THEN + IF (MSSG8 /= ' ') THEN WARN_ERR = WARN_ERR+1 - WRITE(ERR,1726) MSSG8 + WRITE(ERR,1726) MSSG8 IF (SUPWARN == 'N') THEN WRITE(F06,1726) MSSG8 - ENDIF + ENDIF ENDIF ENDIF @@ -144,7 +144,7 @@ SUBROUTINE CARD_FLDS_NOT_BLANK ( JCARD, FLD2, FLD3, FLD4, FLD5, FLD6, FLD7, FLD8 ! ********************************************************************************************************************************** 1726 FORMAT(' *WARNING : FIELD(s) ',A8,' ON PREVIOUS ENTRY SHOULD BE BLANK AND ARE IGNORED') - + ! ********************************************************************************************************************************** - + END SUBROUTINE CARD_FLDS_NOT_BLANK diff --git a/Source/UTIL/CHECK_MAT_INVERSE.f90 b/Source/UTIL/CHECK_MAT_INVERSE.f90 index 315cd62e..62e4ad5c 100644 --- a/Source/UTIL/CHECK_MAT_INVERSE.f90 +++ b/Source/UTIL/CHECK_MAT_INVERSE.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE CHECK_MAT_INVERSE ( MAT_NAME, A, AI, NSIZE ) diff --git a/Source/UTIL/CHK_ARRAY_ALLOC_STAT.f90 b/Source/UTIL/CHK_ARRAY_ALLOC_STAT.f90 index 48feef43..8b6c84c2 100644 --- a/Source/UTIL/CHK_ARRAY_ALLOC_STAT.f90 +++ b/Source/UTIL/CHK_ARRAY_ALLOC_STAT.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE CHK_ARRAY_ALLOC_STAT diff --git a/Source/UTIL/CHK_OGEL_ZEROS.f90 b/Source/UTIL/CHK_OGEL_ZEROS.f90 index 57658d93..be0b53c9 100644 --- a/Source/UTIL/CHK_OGEL_ZEROS.f90 +++ b/Source/UTIL/CHK_OGEL_ZEROS.f90 @@ -1,32 +1,32 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CHK_OGEL_ZEROS ( NUM ) - -! If a value in OGEL is -0.0, change it to +0.0 + +! If a value in OGEL is -0.0, change it to +0.0 USE PENTIUM_II_KIND, ONLY : LONG USE SCONTR, ONLY : MOGEL @@ -34,10 +34,10 @@ SUBROUTINE CHK_OGEL_ZEROS ( NUM ) USE LINK9_STUFF, ONLY : OGEL IMPLICIT NONE - + INTEGER(LONG) :: I, J ! DO loop indices INTEGER(LONG), INTENT(IN) :: NUM ! The number of rows in OGEL to check - + ! ********************************************************************************************************************************* DO I=1,NUM diff --git a/Source/UTIL/CLOSE_LIJFILES.f90 b/Source/UTIL/CLOSE_LIJFILES.f90 index e29b2918..f0107a15 100644 --- a/Source/UTIL/CLOSE_LIJFILES.f90 +++ b/Source/UTIL/CLOSE_LIJFILES.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CLOSE_LIJFILES ( CLOSE_STAT ) - + ! Closes Lij unformatted files - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, RESTART USE IOUNT1, ONLY : MOU4, WRT_ERR, ERR, F06, & @@ -59,7 +59,7 @@ SUBROUTINE CLOSE_LIJFILES ( CLOSE_STAT ) USE CLOSE_LIJFILES_USE_IFs IMPLICIT NONE - + LOGICAL :: LEXIST ! Result from INQUIRE regarding whether a file exists LOGICAL :: LOPND ! Result from INQUIRE regarding whether a file is open @@ -68,7 +68,7 @@ SUBROUTINE CLOSE_LIJFILES ( CLOSE_STAT ) INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening/reading a file - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN ! ********************************************************************************************************************************** OUNT(1) = ERR @@ -423,9 +423,9 @@ SUBROUTINE CLOSE_LIJFILES ( CLOSE_STAT ) ,/,14X,' INTENT(IN) ARG CLOSE_STAT MUST BE "DELETE" OR "FILE_STAT" BUT IS "',A,'"') ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE CLOSE_THIS_FILE ( UNT, FILNAM, STATUS ) diff --git a/Source/UTIL/CLOSE_OUTFILES.f90 b/Source/UTIL/CLOSE_OUTFILES.f90 index 0ddd53cf..818509fb 100644 --- a/Source/UTIL/CLOSE_OUTFILES.f90 +++ b/Source/UTIL/CLOSE_OUTFILES.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - - SUBROUTINE CLOSE_OUTFILES ( BUG_CLOSE_STAT, ERR_CLOSE_STAT, OP2_CLOSE_STAT, PCH_CLOSE_STAT ) - + +! End MIT license text. + + SUBROUTINE CLOSE_OUTFILES ( BUG_CLOSE_STAT, ERR_CLOSE_STAT, OP2_CLOSE_STAT, PCH_CLOSE_STAT ) + ! Closes BUGFIL, ERRFIL, F06FIL - + USE PENTIUM_II_KIND, ONLY : BYTE USE IOUNT1, ONLY : BUG , ERR , F06 , OP2 , PCH ,SC1, & BUGFIL, ERRFIL, F06FIL, OP2FIL, PCHFIL diff --git a/Source/UTIL/CNT_NONZ_IN_FULL_MAT.f90 b/Source/UTIL/CNT_NONZ_IN_FULL_MAT.f90 index aad19997..a55f9e5b 100644 --- a/Source/UTIL/CNT_NONZ_IN_FULL_MAT.f90 +++ b/Source/UTIL/CNT_NONZ_IN_FULL_MAT.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CNT_NONZ_IN_FULL_MAT ( MATIN_NAME, MATIN, NROWS, NCOLS, SYM, NTERM_NONZERO, SMALL ) - + ! Counts the number of significant (abs val larger than variable SMALL) numbers that are in a portion of full matrix: ! If SYM = 'N' then all terms in MATIN are used in the count ! If SYM = 'Y' then only terms in MATIN upper triangle are used in the count @@ -35,12 +35,12 @@ SUBROUTINE CNT_NONZ_IN_FULL_MAT ( MATIN_NAME, MATIN, NROWS, NCOLS, SYM, NTERM_NO USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : EPSIL, SUPINFO, TINY - USE DEBUG_PARAMETERS, ONLY : DEBUG + USE DEBUG_PARAMETERS, ONLY : DEBUG USE CNT_NONZ_IN_FULL_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CNT_NONZ_IN_FULL_MAT' CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of the matrix CHARACTER(LEN=*), INTENT(IN) :: SYM ! See above ('ALL' or 'UTR') @@ -51,7 +51,7 @@ SUBROUTINE CNT_NONZ_IN_FULL_MAT ( MATIN_NAME, MATIN, NROWS, NCOLS, SYM, NTERM_NO INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: JSTART ! A computed DO loop index - + REAL(DOUBLE) , INTENT(IN) :: MATIN(NROWS,NCOLS)! Input full matrix REAL(DOUBLE) , INTENT(OUT) :: SMALL ! Filter for small terms diff --git a/Source/UTIL/COND_NUM.f90 b/Source/UTIL/COND_NUM.f90 index 1dc7089e..7702d745 100644 --- a/Source/UTIL/COND_NUM.f90 +++ b/Source/UTIL/COND_NUM.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE COND_NUM ( MATIN_NAME, N, KD, K_INORM, MATIN_FAC, RCOND ) @@ -51,16 +51,16 @@ SUBROUTINE COND_NUM ( MATIN_NAME, N, KD, K_INORM, MATIN_FAC, RCOND ) INTEGER(LONG), INTENT(IN) :: N ! No. cols in array MATIN_FAC INTEGER(LONG), INTENT(IN) :: KD ! No. of superdiagonals of KAA INTEGER(LONG) :: IWORK(N) ! Workspace array - INTEGER(LONG) :: INFO = 0 ! Output from subr DPBCON, which calc's RCOND + INTEGER(LONG) :: INFO = 0 ! Output from subr DPBCON, which calc's RCOND ! = 0: successful exit ! < 0: if INFO = -i, the i-th arg had an illegal value - REAL(DOUBLE), INTENT(IN) :: K_INORM ! The infinity-norm of the matrix whose name is MATIN_NAME + REAL(DOUBLE), INTENT(IN) :: K_INORM ! The infinity-norm of the matrix whose name is MATIN_NAME REAL(DOUBLE), INTENT(IN) :: MATIN_FAC(KD+1,N) ! The upper triangular factor of the matrix whose name is MATIN_NAME REAL(DOUBLE), INTENT(OUT) :: RCOND ! The recip of the condition number of matrix whose name is MATIN_NAME - REAL(DOUBLE) :: WORK(3*N) ! Workspace array + REAL(DOUBLE) :: WORK(3*N) ! Workspace array @@ -99,4 +99,4 @@ SUBROUTINE COND_NUM ( MATIN_NAME, N, KD, K_INORM, MATIN_FAC, RCOND ) ! ********************************************************************************************************************************** - END SUBROUTINE COND_NUM \ No newline at end of file + END SUBROUTINE COND_NUM diff --git a/Source/UTIL/CONVERT_INT_TO_CHAR.f90 b/Source/UTIL/CONVERT_INT_TO_CHAR.f90 index ad97681a..baaa713c 100644 --- a/Source/UTIL/CONVERT_INT_TO_CHAR.f90 +++ b/Source/UTIL/CONVERT_INT_TO_CHAR.f90 @@ -1,48 +1,48 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CONVERT_INT_TO_CHAR ( INT_NUM, CHAR_VALUE ) - + ! Convert an integer 1, 2, 3, 4, 5 or 6 to character '1', '2' ... '6' - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC - + USE CONVERT_INT_TO_CHAR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CONVERT_INT_TO_CHAR' CHARACTER(1*BYTE), INTENT(OUT) :: CHAR_VALUE ! If INT_NUM = 1, then CHAR_VALUE = '1', etc - + INTEGER(LONG), INTENT(IN) :: INT_NUM ! Integer 1, 2, 3, 4, 5 O5 6 - + ! ********************************************************************************************************************************** @@ -60,7 +60,7 @@ SUBROUTINE CONVERT_INT_TO_CHAR ( INT_NUM, CHAR_VALUE ) ENDIF ! Convert the integer to character - + IF (INT_NUM == 1) THEN CHAR_VALUE = '1' ELSE IF (INT_NUM == 2) THEN @@ -74,14 +74,14 @@ SUBROUTINE CONVERT_INT_TO_CHAR ( INT_NUM, CHAR_VALUE ) ELSE IF (INT_NUM == 6) THEN CHAR_VALUE = '6' ENDIF - + RETURN ! ********************************************************************************************************************************** 935 FORMAT(' *ERROR 935: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' ILLEGAL INTEGER VALUE = ',I8,' INPUT. VALUE MUST BE AN INTEGER IN THE RANGE 1-6') + ,/,14X,' ILLEGAL INTEGER VALUE = ',I8,' INPUT. VALUE MUST BE AN INTEGER IN THE RANGE 1-6') ! ********************************************************************************************************************************** diff --git a/Source/UTIL/CONVERT_VEC_COORD_SYS.f90 b/Source/UTIL/CONVERT_VEC_COORD_SYS.f90 index d09711e7..637c4e05 100644 --- a/Source/UTIL/CONVERT_VEC_COORD_SYS.f90 +++ b/Source/UTIL/CONVERT_VEC_COORD_SYS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE CONVERT_VEC_COORD_SYS ( MESSAG, INPUT_VEC, OUTPUT_VEC, NCID ) @@ -107,7 +107,7 @@ SUBROUTINE CONVERT_VEC_COORD_SYS ( MESSAG, INPUT_VEC, OUTPUT_VEC, NCID ) ENDDO CALL GEN_T0L ( GRID_ID_ROW_NUM, JCORD, THETAD, PHID, T_0_GCID ) - + CALL MATMULT_FFF ( T_0_GCID, INPUT_GVEC_T, 3, 3, 1, OUTPUT_GVEC_T ) CALL MATMULT_FFF ( T_0_GCID, INPUT_GVEC_R, 3, 3, 1, OUTPUT_GVEC_R ) @@ -135,7 +135,7 @@ SUBROUTINE CONVERT_VEC_COORD_SYS ( MESSAG, INPUT_VEC, OUTPUT_VEC, NCID ) ! Transform OUTPUT_VEC to NCID if it is not basic IF (NCID /= 0) THEN - + CORD_FND = 'N' j_do_2: DO J=1,NCORD IF (NCID == CORD(J,2)) THEN @@ -163,7 +163,7 @@ SUBROUTINE CONVERT_VEC_COORD_SYS ( MESSAG, INPUT_VEC, OUTPUT_VEC, NCID ) ENDDO CALL GEN_T0L ( GRID_ID_ROW_NUM, JCORD, THETAD, PHID, T_0_NCID ) - + CALL MATMULT_FFF_T ( T_0_NCID, OUTPUT_GVEC_T, 3, 3, 1, DUM_GVEC_T ) CALL MATMULT_FFF_T ( T_0_NCID, OUTPUT_GVEC_R, 3, 3, 1, DUM_GVEC_R ) diff --git a/Source/UTIL/COUNTER_INIT.f90 b/Source/UTIL/COUNTER_INIT.f90 index 531c6b35..4573db21 100644 --- a/Source/UTIL/COUNTER_INIT.f90 +++ b/Source/UTIL/COUNTER_INIT.f90 @@ -1,27 +1,27 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - + ! End MIT license text. ! This subroutine inits a counter so you can use COUNTER_PROGRESS. @@ -37,8 +37,8 @@ SUBROUTINE COUNTER_INIT(PREFIX, TOTAL) USE SCONTR, ONLY : COUNTER_VALUE, COUNTER_PERC, COUNTER_TOTAL, & COUNTER_STARTED, COUNTER_PREFIX, FATAL_ERR, COUNTER_FMT USE IOUNT1, ONLY : ERR, F06 - USE PARAMS, ONLY : NOCOUNTS - + USE PARAMS, ONLY : NOCOUNTS + USE COUNTER_INIT_USE_IFs IMPLICIT NONE @@ -63,7 +63,7 @@ SUBROUTINE COUNTER_INIT(PREFIX, TOTAL) COUNTER_VALUE = 0 COUNTER_PERC = 0 COUNTER_TOTAL = TOTAL - + ALLOCATE(CHARACTER(LEN(PREFIX)) :: COUNTER_PREFIX) ! Set the timestamp and the prefix diff --git a/Source/UTIL/CROSS.f90 b/Source/UTIL/CROSS.f90 index 2390bc69..6217b4cb 100644 --- a/Source/UTIL/CROSS.f90 +++ b/Source/UTIL/CROSS.f90 @@ -1,41 +1,41 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CROSS ( A, B, C ) - + ! Cross product of 3x1 vectors: C = A (x) B - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + USE CROSS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CROSS' @@ -43,14 +43,14 @@ SUBROUTINE CROSS ( A, B, C ) REAL(DOUBLE), INTENT(IN) :: A(3) ! Components of input vector A REAL(DOUBLE), INTENT(IN) :: B(3) ! Components of input vector B REAL(DOUBLE), INTENT(OUT) :: C(3) ! Components of output vector C - + ! ********************************************************************************************************************************** C(1) = A(2)*B(3) - A(3)*B(2) C(2) = A(3)*B(1) - A(1)*B(3) C(3) = A(1)*B(2) - A(2)*B(1) - + RETURN diff --git a/Source/UTIL/CRS_NONSYM_TO_CRS_SYM.f90 b/Source/UTIL/CRS_NONSYM_TO_CRS_SYM.f90 index f52d50dc..433267fa 100644 --- a/Source/UTIL/CRS_NONSYM_TO_CRS_SYM.f90 +++ b/Source/UTIL/CRS_NONSYM_TO_CRS_SYM.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CRS_NONSYM_TO_CRS_SYM ( NAME_A, NROW_A, NTERM_A, I_A, J_A, A, NAME_B, NTERM_B, I_B, J_B, B ) ! Transforms a square symmetric input matrix, A, that is stored in non-symmetric sparse CRS form (i.e. all nonzero terms stored) @@ -56,15 +56,15 @@ SUBROUTINE CRS_NONSYM_TO_CRS_SYM ( NAME_A, NROW_A, NTERM_A, I_A, J_A, A, NAME_B, USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + USE CRS_NONSYM_TO_CRS_SYM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CRS_NONSYM_TO_CRS_SYM' CHARACTER(LEN=*), INTENT(IN) :: NAME_A ! Name of input matrix CHARACTER(LEN=*), INTENT(IN) :: NAME_B ! Name of output matrix - + INTEGER(LONG), INTENT(IN) :: NROW_A ! Number of rows in input matrix, A INTEGER(LONG), INTENT(IN) :: NTERM_A ! Number of nonzero terms in input matrix, A INTEGER(LONG), INTENT(IN) :: NTERM_B ! Number of nonzero terms in output matrix, B @@ -106,19 +106,19 @@ SUBROUTINE CRS_NONSYM_TO_CRS_SYM ( NAME_A, NROW_A, NTERM_A, I_A, J_A, A, NAME_B, DO K=KBEG_A,KEND_A IF (J_A(K) >= I) THEN ! This is a term from A that is on, or above, the diagonal KTERM_B = KTERM_B + 1 ! Increment the counter for the total number of terms in output matrix B - IF (KTERM_B > NTERM_B) CALL ARRAY_SIZE_ERROR_1( SUBR_NAME, NTERM_B, NAME_B ) + IF (KTERM_B > NTERM_B) CALL ARRAY_SIZE_ERROR_1( SUBR_NAME, NTERM_B, NAME_B ) I_B(I+1) = I_B(I+1) + 1 ! Increment I_B(I+1) for the number of terms in row I of B J_B(KTERM_B) = J_A(K) ! Set column number for the term to go into B B(KTERM_B) = A(K) ! Set value for the term to go into B ENDIF ENDDO KBEG_A = KEND_A + 1 - ENDDO - + ENDDO + RETURN ! ********************************************************************************************************************************** - - END SUBROUTINE CRS_NONSYM_TO_CRS_SYM \ No newline at end of file + + END SUBROUTINE CRS_NONSYM_TO_CRS_SYM diff --git a/Source/UTIL/CRS_SYM_TO_CRS_NONSYM.f90 b/Source/UTIL/CRS_SYM_TO_CRS_NONSYM.f90 index 50732742..c6d9e204 100644 --- a/Source/UTIL/CRS_SYM_TO_CRS_NONSYM.f90 +++ b/Source/UTIL/CRS_SYM_TO_CRS_NONSYM.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE CRS_SYM_TO_CRS_NONSYM ( NAME_A, NROW_A, NTERM_A, I_A, J_A, A, NAME_B, NTERM_B, I_B, J_B, B, WRT_SCREEN ) ! Transforms a square symmetric input matrix, A, that is stored in symmetric sparse CRS form (i.e. only nonzero terms on and above @@ -56,17 +56,17 @@ SUBROUTINE CRS_SYM_TO_CRS_NONSYM ( NAME_A, NROW_A, NTERM_A, I_A, J_A, A, NAME_B, USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + USE CRS_SYM_TO_CRS_NONSYM_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'CRS_SYM_TO_CRS_NONSYM' CHARACTER(LEN=*), INTENT(IN) :: NAME_A ! Name of input matrix CHARACTER(LEN=*), INTENT(IN) :: NAME_B ! Name of output matrix CHARACTER(LEN=*), INTENT(IN) :: WRT_SCREEN ! If 'Y' then write msgs to screen - + INTEGER(LONG), INTENT(IN) :: NROW_A ! Number of rows in input matrix, A INTEGER(LONG), INTENT(IN) :: NTERM_A ! Number of nonzero terms in input matrix, A INTEGER(LONG), INTENT(IN) :: NTERM_B ! Number of nonzero terms in output matrix, B @@ -126,7 +126,7 @@ SUBROUTINE CRS_SYM_TO_CRS_NONSYM ( NAME_A, NROW_A, NTERM_A, I_A, J_A, A, NAME_B, I_B(I+1) = I_B(I) - A_NTERM_ROW_I = I_A(I+1) - I_A(I) ! Number of terms in matrix A in row I + A_NTERM_ROW_I = I_A(I+1) - I_A(I) ! Number of terms in matrix A in row I A_ROW_END = A_ROW_BEG + A_NTERM_ROW_I - 1 ! A_ROW_BEG to A_ROW_END is range of indices of terms in A for row I of A DO J=1,A_ROW_BEG-1 ! 1st, look for terms that would be in this row, but are not, due to sym @@ -150,7 +150,7 @@ SUBROUTINE CRS_SYM_TO_CRS_NONSYM ( NAME_A, NROW_A, NTERM_A, I_A, J_A, A, NAME_B, CALL COUNTER_PROGRESS(I) ENDDO i_do WRITE(SC1,*) CR13 - + RETURN diff --git a/Source/UTIL/DATA_SET_NAME_ERROR.f90 b/Source/UTIL/DATA_SET_NAME_ERROR.f90 index 19711566..0da7dcec 100644 --- a/Source/UTIL/DATA_SET_NAME_ERROR.f90 +++ b/Source/UTIL/DATA_SET_NAME_ERROR.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DATA_SET_NAME_ERROR ( DATA_NAME_ShouldBe, FILNAM, DATA_NAME_Is ) @@ -76,7 +76,7 @@ SUBROUTINE DATA_SET_NAME_ERROR ( DATA_NAME_ShouldBe, FILNAM, DATA_NAME_Is ) CALL OUTA_HERE ( 'Y' ) WRITE(F06,9002) DATA_NAME_Is - + ! ********************************************************************************************************************************** 9001 FORMAT(' *ERROR 900: SHOULD BE READING DATA SET: "',A,'" FROM FILE:') @@ -84,4 +84,4 @@ SUBROUTINE DATA_SET_NAME_ERROR ( DATA_NAME_ShouldBe, FILNAM, DATA_NAME_Is ) ! ********************************************************************************************************************************** - END SUBROUTINE DATA_SET_NAME_ERROR \ No newline at end of file + END SUBROUTINE DATA_SET_NAME_ERROR diff --git a/Source/UTIL/DATA_SET_SIZE_ERROR.f90 b/Source/UTIL/DATA_SET_SIZE_ERROR.f90 index b90eecfb..933cadb8 100644 --- a/Source/UTIL/DATA_SET_SIZE_ERROR.f90 +++ b/Source/UTIL/DATA_SET_SIZE_ERROR.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DATA_SET_SIZE_ERROR ( FILNAM, DATA_SET_NAME, DATA_NAME, INT1, INT2 ) @@ -66,7 +66,7 @@ SUBROUTINE DATA_SET_SIZE_ERROR ( FILNAM, DATA_SET_NAME, DATA_NAME, INT1, INT2 ) WRITE(F06,925) FILNAM(1:IEND1), DATA_SET_NAME(1:IEND2), DATA_NAME, INT1, INT2 FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - + ! ********************************************************************************************************************************** 925 FORMAT(' *ERROR 925: ERROR READING FILE: ' & ,/,15X,A & @@ -76,4 +76,4 @@ SUBROUTINE DATA_SET_SIZE_ERROR ( FILNAM, DATA_SET_NAME, DATA_NAME, INT1, INT2 ) ! ********************************************************************************************************************************** - END SUBROUTINE DATA_SET_SIZE_ERROR \ No newline at end of file + END SUBROUTINE DATA_SET_SIZE_ERROR diff --git a/Source/UTIL/DEALLOCATE_CB_ELM_OTM.f90 b/Source/UTIL/DEALLOCATE_CB_ELM_OTM.f90 index 8289ea05..e6ea4954 100644 --- a/Source/UTIL/DEALLOCATE_CB_ELM_OTM.f90 +++ b/Source/UTIL/DEALLOCATE_CB_ELM_OTM.f90 @@ -1,52 +1,52 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_CB_ELM_OTM ( NAME ) - + ! Deallocates memory from the elem related OTM (Output Transformation Matrices) used in Craig-Bampton model generation - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO - USE OUTPUT4_MATRICES + USE OUTPUT4_MATRICES USE DEALLOCATE_CB_ELM_OTM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_CB_ELM_OTM' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -97,7 +97,7 @@ SUBROUTINE DEALLOCATE_CB_ELM_OTM ( NAME ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -118,5 +118,5 @@ SUBROUTINE DEALLOCATE_CB_ELM_OTM ( NAME ) ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_CB_ELM_OTM diff --git a/Source/UTIL/DEALLOCATE_CB_GRD_OTM.f90 b/Source/UTIL/DEALLOCATE_CB_GRD_OTM.f90 index 4e409dd1..ce68f3c2 100644 --- a/Source/UTIL/DEALLOCATE_CB_GRD_OTM.f90 +++ b/Source/UTIL/DEALLOCATE_CB_GRD_OTM.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_CB_GRD_OTM ( NAME ) - + ! Deallocates memory from the grid related OTM (Output Transformation Matrices) used in Craig-Bampton model generation - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC @@ -39,14 +39,14 @@ SUBROUTINE DEALLOCATE_CB_GRD_OTM ( NAME ) USE DEALLOCATE_CB_GRD_OTM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_CB_GRD_OTM' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -108,7 +108,7 @@ SUBROUTINE DEALLOCATE_CB_GRD_OTM ( NAME ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -129,5 +129,5 @@ SUBROUTINE DEALLOCATE_CB_GRD_OTM ( NAME ) ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_CB_GRD_OTM diff --git a/Source/UTIL/DEALLOCATE_COL_VEC.f90 b/Source/UTIL/DEALLOCATE_COL_VEC.f90 index d5080556..3447f287 100644 --- a/Source/UTIL/DEALLOCATE_COL_VEC.f90 +++ b/Source/UTIL/DEALLOCATE_COL_VEC.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_COL_VEC ( NAME ) - + ! Deallocate arrays for 1-D column vectors - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC @@ -45,14 +45,14 @@ SUBROUTINE DEALLOCATE_COL_VEC ( NAME ) USE DEALLOCATE_COL_VEC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_COL_VEC' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -510,7 +510,7 @@ SUBROUTINE DEALLOCATE_COL_VEC ( NAME ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -530,5 +530,5 @@ SUBROUTINE DEALLOCATE_COL_VEC ( NAME ) 992 FORMAT(' *ERROR 992: CANNOT DEALLOCATE MEMORY FROM ARRAY ',A,' IN SUBROUTINE ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_COL_VEC diff --git a/Source/UTIL/DEALLOCATE_DOF_TABLES.f90 b/Source/UTIL/DEALLOCATE_DOF_TABLES.f90 index 0a65f1e7..8fc2e822 100644 --- a/Source/UTIL/DEALLOCATE_DOF_TABLES.f90 +++ b/Source/UTIL/DEALLOCATE_DOF_TABLES.f90 @@ -1,52 +1,52 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_DOF_TABLES ( NAME ) - + ! DEallocate arrays used for MYSTRAN DOF tables - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO USE DOF_TABLES, ONLY : TDOFI, TDOF_ROW_START, TDOF, TSET - + USE DEALLOCATE_DOF_TABLES_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_DOF_TABLES' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -75,7 +75,7 @@ SUBROUTINE DEALLOCATE_DOF_TABLES ( NAME ) DEALLOCATE (TDOF,STAT=IERR) IF (IERR /= 0) THEN WRITE(ERR,992) NAME,SUBR_NAME - WRITE(F06,992) NAME,SUBR_NAME + WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF ENDIF @@ -86,7 +86,7 @@ SUBROUTINE DEALLOCATE_DOF_TABLES ( NAME ) DEALLOCATE (TDOF_ROW_START,STAT=IERR) IF (IERR /= 0) THEN WRITE(ERR,992) NAME,SUBR_NAME - WRITE(F06,992) NAME,SUBR_NAME + WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF ENDIF @@ -98,7 +98,7 @@ SUBROUTINE DEALLOCATE_DOF_TABLES ( NAME ) DEALLOCATE (TDOFI,STAT=IERR) IF (IERR /= 0) THEN WRITE(ERR,992) NAME,SUBR_NAME - WRITE(F06,992) NAME,SUBR_NAME + WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF ENDIF @@ -111,7 +111,7 @@ SUBROUTINE DEALLOCATE_DOF_TABLES ( NAME ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -132,5 +132,5 @@ SUBROUTINE DEALLOCATE_DOF_TABLES ( NAME ) ! ********************************************************************************************************************************** - - END SUBROUTINE DEALLOCATE_DOF_TABLES + + END SUBROUTINE DEALLOCATE_DOF_TABLES diff --git a/Source/UTIL/DEALLOCATE_EIGEN1_MAT.f90 b/Source/UTIL/DEALLOCATE_EIGEN1_MAT.f90 index 891a3059..942005c1 100644 --- a/Source/UTIL/DEALLOCATE_EIGEN1_MAT.f90 +++ b/Source/UTIL/DEALLOCATE_EIGEN1_MAT.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_EIGEN1_MAT ( NAME ) - + ! Deallocate arrays in used in eigenvalue extraction - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -35,18 +35,18 @@ SUBROUTINE DEALLOCATE_EIGEN1_MAT ( NAME ) USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO USE EIGEN_MATRICES_1 , ONLY : EIGEN_VAL, EIGEN_VEC, GEN_MASS, MODE_NUM, MEFFMASS, MPFACTOR_N6, MPFACTOR_NR - + USE DEALLOCATE_EIGEN1_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_EIGEN1_MAT' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -65,7 +65,7 @@ SUBROUTINE DEALLOCATE_EIGEN1_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'EIGEN_VEC') THEN ! Deallocate arrays for EIGEN_VEC @@ -76,7 +76,7 @@ SUBROUTINE DEALLOCATE_EIGEN1_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'GEN_MASS') THEN ! Deallocate arrays for GEN_MASS @@ -87,7 +87,7 @@ SUBROUTINE DEALLOCATE_EIGEN1_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'MODE_NUM') THEN ! Deallocate arrays for MODE_NUM @@ -98,7 +98,7 @@ SUBROUTINE DEALLOCATE_EIGEN1_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'MEFFMASS') THEN ! Deallocate arrays for MEFFMASS @@ -109,7 +109,7 @@ SUBROUTINE DEALLOCATE_EIGEN1_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'MPFACTOR_N6') THEN ! Deallocate arrays for MPFACTOR @@ -120,7 +120,7 @@ SUBROUTINE DEALLOCATE_EIGEN1_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'MPFACTOR_NR') THEN ! Deallocate arrays for MPFACTOR @@ -131,7 +131,7 @@ SUBROUTINE DEALLOCATE_EIGEN1_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE ! NAME not recognized, so coding error @@ -141,7 +141,7 @@ SUBROUTINE DEALLOCATE_EIGEN1_MAT ( NAME ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -162,5 +162,5 @@ SUBROUTINE DEALLOCATE_EIGEN1_MAT ( NAME ) ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_EIGEN1_MAT diff --git a/Source/UTIL/DEALLOCATE_FULL_MAT.f90 b/Source/UTIL/DEALLOCATE_FULL_MAT.f90 index cb31bd2e..f1736edf 100644 --- a/Source/UTIL/DEALLOCATE_FULL_MAT.f90 +++ b/Source/UTIL/DEALLOCATE_FULL_MAT.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) - + ! Deallocates 2D full arrays (see comments in module FULL_MATRICES) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO @@ -39,19 +39,19 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) KAA_FULL, KAO_FULL, KOO_FULL, MAA_FULL, MAO_FULL, MOO_FULL, PA_FULL, PO_FULL, & PFYS_FULL, QSYS_FULL, KFSe_FULL, & RMM_FULL, GMN_FULL, GMNt_FULL, GOA_FULL, GOAt_FULL,HMN_FULL, PHIZG_FULL, & - DUM1, DUM2, DUM3 + DUM1, DUM2, DUM3 USE DEALLOCATE_FULL_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_FULL_MAT' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -73,7 +73,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'KNM_FULL') THEN ! Deallocate array KNM_FULL IF (ALLOCATED(KNM_FULL)) THEN @@ -84,7 +84,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'KMM_FULL') THEN ! Deallocate array KMM_FULL IF (ALLOCATED(KMM_FULL)) THEN @@ -95,7 +95,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'MNN_FULL') THEN ! Deallocate array MNN_FULL IF (ALLOCATED(MNN_FULL)) THEN @@ -106,7 +106,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'MNM_FULL') THEN ! Deallocate array MNM_FULL IF (ALLOCATED(MNM_FULL)) THEN @@ -117,7 +117,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'MMM_FULL') THEN ! Deallocate array MMM_FULL IF (ALLOCATED(MMM_FULL)) THEN @@ -128,7 +128,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'PN_FULL') THEN ! Deallocate array PN_FULL IF (ALLOCATED(PN_FULL)) THEN @@ -139,7 +139,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'PM_FULL') THEN ! Deallocate array PM_FULL IF (ALLOCATED(PM_FULL)) THEN @@ -150,7 +150,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'KFF_FULL') THEN ! Deallocate array KFF_FULL IF (ALLOCATED(KFF_FULL)) THEN @@ -161,7 +161,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'KFS_FULL') THEN ! Deallocate array KFS_FULL IF (ALLOCATED(KFS_FULL)) THEN @@ -172,7 +172,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'KFSe_FULL') THEN ! Deallocate array KFSe_FULL IF (ALLOCATED(KFSe_FULL)) THEN @@ -183,7 +183,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'KSS_FULL') THEN ! Deallocate array KSS_FULL IF (ALLOCATED(KSS_FULL)) THEN @@ -194,7 +194,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'MFF_FULL') THEN ! Deallocate array MFF_FULL IF (ALLOCATED(MFF_FULL)) THEN @@ -205,7 +205,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'MFS_FULL') THEN ! Deallocate array MFS_FULL IF (ALLOCATED(MFS_FULL)) THEN @@ -216,7 +216,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'MSS_FULL') THEN ! Deallocate array MSS_FULL IF (ALLOCATED(MSS_FULL)) THEN @@ -227,7 +227,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'PF_FULL') THEN ! Deallocate array PF_FULL IF (ALLOCATED(PF_FULL)) THEN @@ -238,7 +238,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'PS_FULL') THEN ! Deallocate array PS_FULL IF (ALLOCATED(PS_FULL)) THEN @@ -249,7 +249,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'KAA_FULL') THEN ! Deallocate array KAA_FULL IF (ALLOCATED(KAA_FULL)) THEN @@ -260,7 +260,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'KAO_FULL') THEN ! Deallocate array KAO_FULL IF (ALLOCATED(KAO_FULL)) THEN @@ -271,7 +271,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'KOO_FULL') THEN ! Deallocate array KOO_FULL IF (ALLOCATED(KOO_FULL)) THEN @@ -282,7 +282,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'MAA_FULL') THEN ! Deallocate array MAA_FULL IF (ALLOCATED(MAA_FULL)) THEN @@ -293,7 +293,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'MAO_FULL') THEN ! Deallocate array MAO_FULL IF (ALLOCATED(MAO_FULL)) THEN @@ -304,7 +304,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'MOO_FULL') THEN ! Deallocate array MOO_FULL IF (ALLOCATED(MOO_FULL)) THEN @@ -315,7 +315,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'PA_FULL') THEN ! Deallocate array PA_FULL IF (ALLOCATED(PA_FULL)) THEN @@ -326,7 +326,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'PO_FULL') THEN ! Deallocate array PO_FULL IF (ALLOCATED(PO_FULL)) THEN @@ -337,7 +337,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'PFYS_FULL') THEN ! Deallocate array PFYS_FULL IF (ALLOCATED(PFYS_FULL)) THEN @@ -348,7 +348,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'QSYS_FULL') THEN ! Deallocate array QSYS_FULL IF (ALLOCATED(QSYS_FULL)) THEN @@ -359,7 +359,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'RMM_FULL') THEN ! Deallocate array RMM_FULL IF (ALLOCATED(RMM_FULL)) THEN @@ -447,7 +447,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'DUM2') THEN ! Deallocate array DUM2 IF (ALLOCATED(DUM2)) THEN @@ -458,7 +458,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME == 'DUM3') THEN ! Deallocate array DUM3 IF (ALLOCATED(DUM3)) THEN @@ -469,7 +469,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF ENDIF - + ELSE ! NAME not recognized, so prog error WRITE(ERR,915) SUBR_NAME, 'DEALLOCATED', NAME @@ -478,7 +478,7 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -499,5 +499,5 @@ SUBROUTINE DEALLOCATE_FULL_MAT ( NAME ) ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_FULL_MAT diff --git a/Source/UTIL/DEALLOCATE_IN4_FILES.f90 b/Source/UTIL/DEALLOCATE_IN4_FILES.f90 index 9935d7a7..8a7dcf72 100644 --- a/Source/UTIL/DEALLOCATE_IN4_FILES.f90 +++ b/Source/UTIL/DEALLOCATE_IN4_FILES.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_IN4_FILES ( NAME ) - + ! Deallocate arrays for IN4 files (USERIN elements) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, IN4FIL, IN4FIL_NUM, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, TOT_MB_MEM_ALLOC @@ -35,18 +35,18 @@ SUBROUTINE DEALLOCATE_IN4_FILES ( NAME ) USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO USE INPUTT4_MATRICES, ONLY : IN4_COL_MAP, IN4_MAT - + USE DEALLOCATE_IN4_FILES_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_IN4_FILES' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name (used for output error message) INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -106,5 +106,5 @@ SUBROUTINE DEALLOCATE_IN4_FILES ( NAME ) ! ********************************************************************************************************************************** - - END SUBROUTINE DEALLOCATE_IN4_FILES + + END SUBROUTINE DEALLOCATE_IN4_FILES diff --git a/Source/UTIL/DEALLOCATE_LAPACK_MAT.f90 b/Source/UTIL/DEALLOCATE_LAPACK_MAT.f90 index 4f81afc5..7f2383e9 100644 --- a/Source/UTIL/DEALLOCATE_LAPACK_MAT.f90 +++ b/Source/UTIL/DEALLOCATE_LAPACK_MAT.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) - +! End MIT license text. + + SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) + ! Deallocate matrices used in LAPACK band form USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -36,18 +36,18 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) USE CONSTANTS_1, ONLY : ZERO USE ARPACK_MATRICES_1 , ONLY : IWORK, RFAC, RESID, SELECT, VBAS, WORKD, WORKL USE LAPACK_DPB_MATRICES, ONLY : ABAND, BBAND, LAPACK_S, RES - + USE DEALLOCATE_LAPACK_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_LAPACK_MAT' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Name of matrix to be allocated - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -67,9 +67,9 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) WRITE(ERR,992) NAME,SUBR_NAME WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF - + ELSE IF (NAME == 'BBAND') THEN IF (ALLOCATED(BBAND)) THEN ! Deallocate array BBAND @@ -78,9 +78,9 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) WRITE(ERR,992) NAME,SUBR_NAME WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF - + ELSE IF (NAME == 'RES') THEN IF (ALLOCATED(RES)) THEN ! Deallocate array RES @@ -90,8 +90,8 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF - + ENDIF + ELSE IF (NAME == 'LAPACK_S') THEN IF (ALLOCATED(LAPACK_S)) THEN ! Deallocate array LAPACK_S @@ -101,8 +101,8 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF - + ENDIF + ! Deallock ARPACK matrices ELSE IF (NAME == 'IWORK') THEN ! Deallocate arrays for IWORK @@ -114,7 +114,7 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'RESID') THEN ! Deallocate arrays for RESID @@ -125,7 +125,7 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'RFAC') THEN ! Deallocate arrays for RFAC @@ -136,7 +136,7 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'SELECT') THEN ! Deallocate arrays for SELECT @@ -147,7 +147,7 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'VBAS') THEN ! Deallocate arrays for VBAS @@ -158,7 +158,7 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'WORKD') THEN ! Deallocate arrays for WORKD @@ -169,7 +169,7 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'WORKL') THEN ! Deallocate arrays for WORKL @@ -180,7 +180,7 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE ! NAME not recognized, so coding error @@ -190,7 +190,7 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -208,9 +208,9 @@ SUBROUTINE DEALLOCATE_LAPACK_MAT ( NAME ) ,/,14X,' NAME OF ARRAY TO BE ',A,' IS INCORRECT. INPUT NAME WAS ',A) 992 FORMAT(' *ERROR 992: CANNOT DEALLOCATE MEMORY FROM ARRAY ',A,' IN SUBROUTINE ',A) - + ! ********************************************************************************************************************************** - - END SUBROUTINE DEALLOCATE_LAPACK_MAT + + END SUBROUTINE DEALLOCATE_LAPACK_MAT diff --git a/Source/UTIL/DEALLOCATE_MISC_MAT.f90 b/Source/UTIL/DEALLOCATE_MISC_MAT.f90 index 7e6481ff..c8826aab 100644 --- a/Source/UTIL/DEALLOCATE_MISC_MAT.f90 +++ b/Source/UTIL/DEALLOCATE_MISC_MAT.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_MISC_MAT ( NAME ) - + ! Deallocate some miscellaneous arrays - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -35,18 +35,18 @@ SUBROUTINE DEALLOCATE_MISC_MAT ( NAME ) USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO USE MISC_MATRICES, ONLY : UG_T123_MAT - + USE DEALLOCATE_MISC_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_MISC_MAT' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -65,7 +65,7 @@ SUBROUTINE DEALLOCATE_MISC_MAT ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE ! NAME not recognized, so coding error @@ -75,7 +75,7 @@ SUBROUTINE DEALLOCATE_MISC_MAT ( NAME ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -96,5 +96,5 @@ SUBROUTINE DEALLOCATE_MISC_MAT ( NAME ) ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_MISC_MAT diff --git a/Source/UTIL/DEALLOCATE_MODEL_STUF.f90 b/Source/UTIL/DEALLOCATE_MODEL_STUF.f90 index dcbb58fd..68478e33 100644 --- a/Source/UTIL/DEALLOCATE_MODEL_STUF.f90 +++ b/Source/UTIL/DEALLOCATE_MODEL_STUF.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) - + ! DEallocates arrays defined in module MODEL_STUF (see comments there for definition of these matrices) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC @@ -50,11 +50,11 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) USE MODEL_STUF, ONLY : SNORM, RSNORM, GRID_SNORM USE MODEL_STUF, ONLY : MATL, RMATL, PBAR, RPBAR, PBEAM, RPBEAM, PBUSH, RPBUSH, PCOMP, RPCOMP, PELAS, RPELAS, & PROD, RPROD, PSHEAR, RPSHEAR, PSHEL, RPSHEL, PSOLID, PUSER1, RPUSER1, PUSERIN, & - USERIN_ACT_COMPS, USERIN_ACT_GRIDS, USERIN_MAT_NAMES - USE MODEL_STUF, ONLY : MPC_SIDS, MPCSIDS, MPCADD_SIDS - USE MODEL_STUF, ONLY : SPC_SIDS, SPC1_SIDS, SPCSIDS, SPCADD_SIDS + USERIN_ACT_COMPS, USERIN_ACT_GRIDS, USERIN_MAT_NAMES + USE MODEL_STUF, ONLY : MPC_SIDS, MPCSIDS, MPCADD_SIDS + USE MODEL_STUF, ONLY : SPC_SIDS, SPC1_SIDS, SPCSIDS, SPCADD_SIDS USE MODEL_STUF, ONLY : ALL_SETS_ARRAY, ONE_SET_ARRAY, SETS_IDS, SC_ACCE, SC_DISP, SC_ELFN, SC_ELFE, SC_GPFO, & - SC_MPCF, SC_OLOA, SC_SPCF, SC_STRE, SC_STRN, LOAD_SIDS, LOAD_FACS + SC_MPCF, SC_OLOA, SC_SPCF, SC_STRE, SC_STRN, LOAD_SIDS, LOAD_FACS USE MODEL_STUF, ONLY : ELDT, ELOUT, GROUT, OELOUT, OGROUT, LABEL, SCNUM, STITLE, SUBLOD, TITLE USE MODEL_STUF, ONLY : SYS_LOAD USE MODEL_STUF, ONLY : CETEMP, CETEMP_ERR, CGTEMP, CGTEMP_ERR, ETEMP, ETEMP_INIT, GTEMP, GTEMP_INIT, TDATA, TPNT @@ -70,11 +70,11 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_MODEL_STUF' CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Name of group of arrays to allocate CHARACTER(31*BYTE) :: NAME ! Specific array name used for output error message - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -443,7 +443,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME_IN == 'MPCSIDS') THEN ! Deallocate arrays for MPC set ID's used in 1 execution NAME = 'MPCSIDS' @@ -457,7 +457,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME_IN == 'MPCADD_SIDS') THEN ! Deallocate arrays for MPCADD set ID's NAME = 'MPCADD_SIDS' @@ -469,7 +469,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'RFORCE_SIDS') THEN ! Deallocate arrays for grav load set ID's @@ -513,7 +513,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + NAME = 'SPC1_SIDS' IF (ALLOCATED(SPC1_SIDS)) THEN DEALLOCATE (SPC1_SIDS,STAT=IERR) @@ -539,7 +539,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME_IN == 'SPCADD_SIDS') THEN ! Deallocate arrays for SPCADD set ID's NAME = 'SPCADD_SIDS' @@ -551,7 +551,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'ETYPE, EDAT, EPNT') THEN ! Deallocate arrays for ETYPE, EDAT, EPNT @@ -617,7 +617,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'RMATL' @@ -641,7 +641,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'RPBAR' @@ -665,7 +665,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'RPBEAM' @@ -689,7 +689,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'RPBUSH' @@ -713,7 +713,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'RPCOMP' @@ -737,7 +737,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'RPELAS' @@ -761,7 +761,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'RPROD' @@ -785,7 +785,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'RPSHEAR' @@ -809,7 +809,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'RPSHEL' @@ -833,7 +833,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'PUSER1' @@ -845,7 +845,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'RPUSER1' @@ -869,7 +869,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'USERIN_MAT_NAMES' @@ -881,7 +881,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'USERIN_ACT_GRDS, USERIN_ACT_COMPS') THEN @@ -895,7 +895,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'USERIN_ACT_GRIDS' @@ -907,7 +907,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'VVEC, OFFSETS, PLATE stuff') THEN! Deallocate arrays for bar v vectors and offsets @@ -1021,7 +1021,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'RCORD' @@ -1297,7 +1297,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'GTEMP') THEN ! Deallocate arrays for GTEMP @@ -1311,7 +1311,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'CGTEMP') THEN ! Deallocate arrays for CGTEMP @@ -1325,7 +1325,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'ETEMP') THEN ! Deallocate arrays for ETEMP @@ -1339,7 +1339,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'CETEMP') THEN ! Deallocate arrays for CETEMP @@ -1353,7 +1353,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'TPNT, TDATA') THEN ! Deallocate arrays for TPNT, TDATA @@ -1379,7 +1379,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'PPNT, PDATA, PTYPE') THEN ! Deallocate arrays for PPNT, PDATA @@ -1405,7 +1405,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF NAME = 'PTYPE' @@ -1417,7 +1417,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'PLOAD4_3D_DATA') THEN ! Deallocate arrays for PLOAD4_3D_DATA @@ -1431,7 +1431,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) WRITE(ERR,992) NAME, SUBR_NAME WRITE(F06,992) NAME, SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF ELSE IF (NAME_IN == 'SINGLE ELEMENT ARRAYS') THEN! Deallocate arrays for element subcase arrays @@ -1918,7 +1918,7 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -1936,5 +1936,5 @@ SUBROUTINE DEALLOCATE_MODEL_STUF ( NAME_IN ) 992 FORMAT(' *ERROR 992: CANNOT DEALLOCATE MEMORY FROM ARRAY ',A,' IN SUBROUTINE ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_MODEL_STUF diff --git a/Source/UTIL/DEALLOCATE_NL_PARAMS.f90 b/Source/UTIL/DEALLOCATE_NL_PARAMS.f90 index 626bbf29..86f5bdac 100644 --- a/Source/UTIL/DEALLOCATE_NL_PARAMS.f90 +++ b/Source/UTIL/DEALLOCATE_NL_PARAMS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_NL_PARAMS - + ! Deallocate arrays for nonlinear params - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LSUB, TOT_MB_MEM_ALLOC @@ -35,14 +35,14 @@ SUBROUTINE DEALLOCATE_NL_PARAMS USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO USE NONLINEAR_PARAMS, ONLY : NL_SID - + USE DEALLOCATE_NL_PARAMS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_NL_PARAMS' CHARACTER(24*BYTE) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator @@ -66,7 +66,7 @@ SUBROUTINE DEALLOCATE_NL_PARAMS WRITE(ERR,992) NAME,SUBR_NAME WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 - ENDIF + ENDIF ENDIF ! Quit if there were errors @@ -87,5 +87,5 @@ SUBROUTINE DEALLOCATE_NL_PARAMS ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_NL_PARAMS diff --git a/Source/UTIL/DEALLOCATE_RBGLOBAL.f90 b/Source/UTIL/DEALLOCATE_RBGLOBAL.f90 index a77d7fd6..7a9e4e32 100644 --- a/Source/UTIL/DEALLOCATE_RBGLOBAL.f90 +++ b/Source/UTIL/DEALLOCATE_RBGLOBAL.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_RBGLOBAL ( SET ) - + ! Deallocate arrays for rigid body displ matrices (except RBM0 used in Craig-Bampton analyses). RBGLOBAL matrices are used in -! stiffness matrix equilibrium checks. The TR6 matrices are used in transforming some Craig-Bampton matrices - +! stiffness matrix equilibrium checks. The TR6 matrices are used in transforming some Craig-Bampton matrices + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO @@ -41,15 +41,15 @@ SUBROUTINE DEALLOCATE_RBGLOBAL ( SET ) USE DEALLOCATE_RBGLOBAL_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_RBGLOBAL' CHARACTER(LEN=*), INTENT(IN) :: SET ! Set name of the displ matrix CHARACTER(13*BYTE) :: NAME ! Specific array name used for output error message - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -125,7 +125,7 @@ SUBROUTINE DEALLOCATE_RBGLOBAL ( SET ) ELSE IF (SET == 'R ') THEN ! Dellocate array for RBGLOBAL_GSET - NAME = 'TR6_CG' + NAME = 'TR6_CG' IF (ALLOCATED(TR6_CG)) THEN DEALLOCATE (TR6_CG,STAT=IERR) IF (IERR /= 0) THEN @@ -136,7 +136,7 @@ SUBROUTINE DEALLOCATE_RBGLOBAL ( SET ) ENDIF ENDIF - NAME = 'TR6_MEFM' + NAME = 'TR6_MEFM' IF (ALLOCATED(TR6_MEFM)) THEN DEALLOCATE (TR6_MEFM,STAT=IERR) IF (IERR /= 0) THEN @@ -147,7 +147,7 @@ SUBROUTINE DEALLOCATE_RBGLOBAL ( SET ) ENDIF ENDIF - NAME = 'TR6_0' + NAME = 'TR6_0' IF (ALLOCATED(TR6_0)) THEN DEALLOCATE (TR6_0,STAT=IERR) IF (IERR /= 0) THEN @@ -165,7 +165,7 @@ SUBROUTINE DEALLOCATE_RBGLOBAL ( SET ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -187,5 +187,5 @@ SUBROUTINE DEALLOCATE_RBGLOBAL ( SET ) ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_RBGLOBAL diff --git a/Source/UTIL/DEALLOCATE_SCR_MAT.f90 b/Source/UTIL/DEALLOCATE_SCR_MAT.f90 index 43209bae..5bc3dd90 100644 --- a/Source/UTIL/DEALLOCATE_SCR_MAT.f90 +++ b/Source/UTIL/DEALLOCATE_SCR_MAT.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) - + ! Deallocates sparse CRS or sparse CCS scratch matrices - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE SCRATCH_MATRICES , ONLY : I_CRS1, J_CRS1, CRS1, I_CRS2, J_CRS2, CRS2, I_CRS3, J_CRS3, CRS3, & @@ -39,15 +39,15 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) USE DEALLOCATE_SCR_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_SCR_MAT' CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Array name (used for output error message) CHARACTER(6*BYTE) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -70,7 +70,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + NAME = 'J_CRS1' IF (ALLOCATED(J_CRS1)) THEN DEALLOCATE (J_CRS1,STAT=IERR) @@ -82,7 +82,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + NAME = 'CRS1' IF (ALLOCATED(CRS1)) THEN DEALLOCATE (CRS1,STAT=IERR) @@ -94,7 +94,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME_IN == 'CRS2') THEN NAME = 'I_CRS2' @@ -108,7 +108,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + NAME = 'J_CRS2' IF (ALLOCATED(J_CRS2)) THEN DEALLOCATE (J_CRS2,STAT=IERR) @@ -120,7 +120,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + NAME = 'CRS2' IF (ALLOCATED(CRS2)) THEN DEALLOCATE (CRS2,STAT=IERR) @@ -132,7 +132,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME_IN == 'CRS3') THEN NAME = 'I_CRS3' @@ -146,7 +146,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + NAME = 'J_CRS3' IF (ALLOCATED(J_CRS3)) THEN DEALLOCATE (J_CRS3,STAT=IERR) @@ -158,7 +158,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + NAME = 'CRS3' IF (ALLOCATED(CRS3)) THEN DEALLOCATE (CRS3,STAT=IERR) @@ -170,7 +170,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME_IN == 'CCS1') THEN NAME = 'I_CCS1' @@ -184,7 +184,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + NAME = 'J_CCS1' IF (ALLOCATED(J_CCS1)) THEN DEALLOCATE (J_CCS1,STAT=IERR) @@ -196,7 +196,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + NAME = 'CCS1' IF (ALLOCATED(CCS1)) THEN DEALLOCATE (CCS1,STAT=IERR) @@ -208,7 +208,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME_IN == 'CCS2') THEN NAME = 'I_CCS2' @@ -222,7 +222,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + NAME = 'J_CCS2' IF (ALLOCATED(J_CCS2)) THEN DEALLOCATE (J_CCS2,STAT=IERR) @@ -234,7 +234,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + NAME = 'CCS2' IF (ALLOCATED(CCS2)) THEN DEALLOCATE (CCS2,STAT=IERR) @@ -246,7 +246,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + ELSE IF (NAME_IN == 'CCS3') THEN NAME = 'I_CCS3' @@ -260,7 +260,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + NAME = 'J_CCS3' IF (ALLOCATED(J_CCS3)) THEN DEALLOCATE (J_CCS3,STAT=IERR) @@ -272,7 +272,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + NAME = 'CCS3' IF (ALLOCATED(CCS3)) THEN DEALLOCATE (CCS3,STAT=IERR) @@ -284,7 +284,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF ENDIF - + ELSE ! NAME not recognized, so coding error WRITE(ERR,915) SUBR_NAME, 'DEALLOCATED', NAME_IN @@ -293,7 +293,7 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -310,5 +310,5 @@ SUBROUTINE DEALLOCATE_SCR_MAT ( NAME_IN ) 992 FORMAT(' *ERROR 992: CANNOT DEALLOCATE MEMORY FROM ARRAY ',A,' IN SUBROUTINE ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_SCR_MAT diff --git a/Source/UTIL/DEALLOCATE_SPARSE_ALG.f90 b/Source/UTIL/DEALLOCATE_SPARSE_ALG.f90 index fa5f3ad1..91419b67 100644 --- a/Source/UTIL/DEALLOCATE_SPARSE_ALG.f90 +++ b/Source/UTIL/DEALLOCATE_SPARSE_ALG.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_SPARSE_ALG ( NAME ) - + ! Deallocate some ancillary arrays for use in the MYSTRAN sparse matrix (add, multiply, partitition, merge) routines - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -35,18 +35,18 @@ SUBROUTINE DEALLOCATE_SPARSE_ALG ( NAME ) USE DEBUG_PARAMETERS, ONLY : DEBUG USE CONSTANTS_1, ONLY : ZERO USE SPARSE_ALG_ARRAYS, ONLY : ALG, AROW, J_AROW, LOGICAL_VEC, REAL_VEC - + USE DEALLOCATE_SPARSE_ALG_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_SPARSE_ALG' CHARACTER(LEN=*), INTENT(IN) :: NAME ! Array name of the matrix to be allocated in sparse format - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -65,7 +65,7 @@ SUBROUTINE DEALLOCATE_SPARSE_ALG ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'AROW') THEN ! Deallocate arrays for AROW @@ -76,7 +76,7 @@ SUBROUTINE DEALLOCATE_SPARSE_ALG ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'J_AROW') THEN ! Deallocate arrays for J_AROW @@ -87,7 +87,7 @@ SUBROUTINE DEALLOCATE_SPARSE_ALG ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'LOGICAL_VEC') THEN ! Deallocate arrays for LOGICAL_VEC @@ -98,7 +98,7 @@ SUBROUTINE DEALLOCATE_SPARSE_ALG ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE IF (NAME == 'REAL_VEC') THEN ! Deallocate arrays for REAL_VEC @@ -109,7 +109,7 @@ SUBROUTINE DEALLOCATE_SPARSE_ALG ( NAME ) WRITE(F06,992) NAME,SUBR_NAME JERR = JERR + 1 ENDIF - ENDIF + ENDIF ELSE ! NAME not recognized, so coding error @@ -119,7 +119,7 @@ SUBROUTINE DEALLOCATE_SPARSE_ALG ( NAME ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -140,5 +140,5 @@ SUBROUTINE DEALLOCATE_SPARSE_ALG ( NAME ) ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_SPARSE_ALG diff --git a/Source/UTIL/DEALLOCATE_SPARSE_MAT.f90 b/Source/UTIL/DEALLOCATE_SPARSE_MAT.f90 index 2841aed4..af32012a 100644 --- a/Source/UTIL/DEALLOCATE_SPARSE_MAT.f90 +++ b/Source/UTIL/DEALLOCATE_SPARSE_MAT.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) - + ! Deallocate arrays for MYSTRAN sparse matrices - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, TOT_MB_MEM_ALLOC USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS @@ -85,15 +85,15 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) USE DEALLOCATE_SPARSE_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'DEALLOCATE_SPARSE_MAT' CHARACTER(LEN=*), INTENT(IN) :: NAME_IN ! Array name (used for output error message) CHARACTER(6*BYTE) :: NAME ! Array name (used for output error message) - + INTEGER(LONG) :: IERR ! STAT from DEALLOCATE INTEGER(LONG) :: JERR ! Local error indicator - + REAL(DOUBLE) :: CUR_MB_ALLOCATED ! MB of memory that is currently allocated to ARRAY_NAME when subr ! ALLOCATED_MEMORY is called (before entering MB_ALLOCATED into array ! ALLOCATED_ARRAY_MEM @@ -2968,7 +2968,7 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) ENDIF ENDIF - ELSE IF (NAME_IN == 'MPF0 ') THEN ! Deallocate arrays for MPF0 + ELSE IF (NAME_IN == 'MPF0 ') THEN ! Deallocate arrays for MPF0 NAME = 'I_MPF0 ' IF (ALLOCATED(I_MPF0 )) THEN @@ -3348,7 +3348,7 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) ENDIF ENDIF - ELSE IF (NAME_IN == 'CG_LTM ') THEN ! Deallocate arrays for CG_LTM + ELSE IF (NAME_IN == 'CG_LTM ') THEN ! Deallocate arrays for CG_LTM NAME = 'I_CG_LTM ' IF (ALLOCATED(I_CG_LTM )) THEN @@ -3386,7 +3386,7 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) ENDIF ENDIF - ELSE IF (NAME_IN == 'PHIZL ') THEN ! Deallocate arrays for PHIZL + ELSE IF (NAME_IN == 'PHIZL ') THEN ! Deallocate arrays for PHIZL NAME = 'I_PHIZL ' IF (ALLOCATED(I_PHIZL )) THEN @@ -3424,7 +3424,7 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) ENDIF ENDIF - ELSE IF (NAME_IN == 'PHIZL1 ') THEN ! Deallocate arrays for PHIZL1 + ELSE IF (NAME_IN == 'PHIZL1 ') THEN ! Deallocate arrays for PHIZL1 NAME = 'I_PHIZL1 ' IF (ALLOCATED(I_PHIZL1 )) THEN @@ -3462,7 +3462,7 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) ENDIF ENDIF - ELSE IF (NAME_IN == 'PHIZL1t ') THEN ! Deallocate arrays for PHIZL1t + ELSE IF (NAME_IN == 'PHIZL1t ') THEN ! Deallocate arrays for PHIZL1t NAME = 'I_PHIZL1t ' IF (ALLOCATED(I_PHIZL1t )) THEN @@ -3500,7 +3500,7 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) ENDIF ENDIF - ELSE IF (NAME_IN == 'PHIZL2 ') THEN ! Deallocate arrays for PHIZL2 + ELSE IF (NAME_IN == 'PHIZL2 ') THEN ! Deallocate arrays for PHIZL2 NAME = 'I_PHIZL2 ' IF (ALLOCATED(I_PHIZL2 )) THEN @@ -3538,7 +3538,7 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) ENDIF ENDIF - ELSE IF (NAME_IN == 'IF_LTM ') THEN ! Deallocate arrays for IF_LTM + ELSE IF (NAME_IN == 'IF_LTM ') THEN ! Deallocate arrays for IF_LTM NAME = 'I_IF_LTM ' IF (ALLOCATED(I_IF_LTM )) THEN @@ -3804,7 +3804,7 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) ENDIF ENDIF - ELSE IF (NAME_IN == 'KXX ') THEN ! Deallocate arrays for KXX + ELSE IF (NAME_IN == 'KXX ') THEN ! Deallocate arrays for KXX NAME = 'I_KXX ' IF (ALLOCATED(I_KXX )) THEN @@ -3842,7 +3842,7 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) ENDIF ENDIF - ELSE IF (NAME_IN == 'LTM ') THEN ! Deallocate arrays for LTM + ELSE IF (NAME_IN == 'LTM ') THEN ! Deallocate arrays for LTM NAME = 'I_LTM ' IF (ALLOCATED(I_LTM )) THEN @@ -3880,7 +3880,7 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) ENDIF ENDIF - ELSE IF (NAME_IN == 'MRN ') THEN ! Deallocate arrays for MRN + ELSE IF (NAME_IN == 'MRN ') THEN ! Deallocate arrays for MRN NAME = 'I_MRN ' IF (ALLOCATED(I_MRN )) THEN @@ -3994,7 +3994,7 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) ENDIF ENDIF - ELSE IF (NAME_IN == 'MXX ') THEN ! Deallocate arrays for MXX + ELSE IF (NAME_IN == 'MXX ') THEN ! Deallocate arrays for MXX NAME = 'I_MXX ' IF (ALLOCATED(I_MXX )) THEN @@ -4080,7 +4080,7 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) JERR = JERR + 1 ENDIF - + ! Quit if there were errors IF (JERR /= 0) THEN @@ -4101,5 +4101,5 @@ SUBROUTINE DEALLOCATE_SPARSE_MAT ( NAME_IN ) ! ********************************************************************************************************************************** - + END SUBROUTINE DEALLOCATE_SPARSE_MAT diff --git a/Source/UTIL/FBS_LAPACK.f90 b/Source/UTIL/FBS_LAPACK.f90 index 85ad113e..1ae1f3ef 100644 --- a/Source/UTIL/FBS_LAPACK.f90 +++ b/Source/UTIL/FBS_LAPACK.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE FBS_LAPACK ( EQUED, NROWS, MATIN_SDIA, EQUIL_SCALE_FACS, INOUT_COL ) ! FBS_LAPACK performs the forward-backward substitution to get displacements after the stiffness matrix has been decomposed using @@ -37,7 +37,7 @@ SUBROUTINE FBS_LAPACK ( EQUED, NROWS, MATIN_SDIA, EQUIL_SCALE_FACS, INOUT_COL ) USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LINKNO - USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, STIME, TSEC + USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, STIME, TSEC USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : EPSERR, RCONDK USE LAPACK_DPB_MATRICES, ONLY : ABAND, LAPACK_S, RES @@ -46,14 +46,14 @@ SUBROUTINE FBS_LAPACK ( EQUED, NROWS, MATIN_SDIA, EQUIL_SCALE_FACS, INOUT_COL ) USE LAPACK_LIN_EQN_DPB USE SYM_MAT_DECOMP_LAPACK_USE_IFs - + USE FBS_LAPACK_USE_IFs ! Added 2019/07/14 IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'FBS_LAPACK' CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: CALLED_SUBR = ' ' ! Name of a called subr (for output error purposes) - CHARACTER( 1*BYTE), INTENT(IN) :: EQUED ! 'Y' if MATIN was equilibrated in subr EQUILIBRATE (called herein) + CHARACTER( 1*BYTE), INTENT(IN) :: EQUED ! 'Y' if MATIN was equilibrated in subr EQUILIBRATE (called herein) ! and the factorization (in DPBTRS) could not be completed. CHARACTER( 1*BYTE), PARAMETER :: UPLO = 'U' ! Indicates upper triang part of matrix is stored @@ -82,7 +82,7 @@ SUBROUTINE FBS_LAPACK ( EQUED, NROWS, MATIN_SDIA, EQUIL_SCALE_FACS, INOUT_COL ) IF (EQUED == 'Y') THEN DO I=1,NROWS INOUT_COL(I) = EQUIL_SCALE_FACS(I)*INOUT_COL(I) - ENDDO + ENDDO ENDIF ! Calculate the answer via forward/backward substitution. Subr DPBTRS returns the answer in the workspace (INOUT_COL) @@ -90,7 +90,7 @@ SUBROUTINE FBS_LAPACK ( EQUED, NROWS, MATIN_SDIA, EQUIL_SCALE_FACS, INOUT_COL ) CALL DPBTRS ( UPLO, NROWS, MATIN_SDIA, NUM_COLS, ABAND, MATIN_SDIA+1, INOUT_COL, NROWS, INFO, 'N' ) - CALLED_SUBR = 'DPBTRS' + CALLED_SUBR = 'DPBTRS' IF (INFO < 0) THEN ! LAPACK subr XERBLA should have reported error on an illegal argument WRITE(ERR,993) SUBR_NAME, CALLED_SUBR ! in calling a LAPACK subr, so we should not have gotten here WRITE(F06,993) SUBR_NAME, CALLED_SUBR @@ -103,7 +103,7 @@ SUBROUTINE FBS_LAPACK ( EQUED, NROWS, MATIN_SDIA, EQUIL_SCALE_FACS, INOUT_COL ) IF (EQUED == 'Y') THEN DO I=1,NROWS INOUT_COL(I) = EQUIL_SCALE_FACS(I)*INOUT_COL(I) - ENDDO + ENDDO ENDIF !*********************************************************************************************************************************** diff --git a/Source/UTIL/FBS_SUPRLU.f90 b/Source/UTIL/FBS_SUPRLU.f90 index 3480ea22..785f1cd2 100644 --- a/Source/UTIL/FBS_SUPRLU.f90 +++ b/Source/UTIL/FBS_SUPRLU.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE FBS_SUPRLU ( CALLING_SUBR, MATIN_NAME, NROWS, NTERMS, I_MATIN, J_MATIN, MATIN, ICOL, RHS_COL, INFO ) ! FBS_SUPRLU performs the forward-backward substitution to get displacements after the stiffness matrix has been decomposed using @@ -37,15 +37,15 @@ SUBROUTINE FBS_SUPRLU ( CALLING_SUBR, MATIN_NAME, NROWS, NTERMS, I_MATIN, J_MATI USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : CRS_CCS USE SCRATCH_MATRICES, ONLY : I_CCS1, J_CCS1, CCS1 USE SuperLU_STUF, ONLY : SLU_FACTORS USE FBS_SUPRLU_USE_IFs - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'FBS_SUPRLU' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! The subr that called this subr (used for output error purposes) CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of matrix to be decomposed @@ -80,8 +80,8 @@ SUBROUTINE FBS_SUPRLU ( CALLING_SUBR, MATIN_NAME, NROWS, NTERMS, I_MATIN, J_MATI ELSE - WRITE(ERR,933) SUBR_NAME, 'CRS_CCS' - WRITE(F06,933) SUBR_NAME, 'CRS_CCS' + WRITE(ERR,933) SUBR_NAME, 'CRS_CCS' + WRITE(F06,933) SUBR_NAME, 'CRS_CCS' FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) diff --git a/Source/UTIL/FILERR.f90 b/Source/UTIL/FILERR.f90 index f24073ec..06a5e606 100644 --- a/Source/UTIL/FILERR.f90 +++ b/Source/UTIL/FILERR.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE FILERR ( OUNT ) - + ! Writes message about file open errors and errors reading data - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -44,14 +44,14 @@ SUBROUTINE FILERR ( OUNT ) WRITE(OUNT(I),900) IF (OUNT(2) == OUNT(1)) EXIT ENDDO - + ! ********************************************************************************************************************************** 900 FORMAT(/,' PROCESSING TERMINATED DUE TO ABOVE FILE OPEN/READ ERRORS.') - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE FILERR diff --git a/Source/UTIL/FILE_CLOSE.f90 b/Source/UTIL/FILE_CLOSE.f90 index d0aca946..bc4f0d79 100644 --- a/Source/UTIL/FILE_CLOSE.f90 +++ b/Source/UTIL/FILE_CLOSE.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE FILE_CLOSE ( UNIT, FILNAM, CLOSE_STAT ) - + ! Closes files and writes message if the close fails - + USE PENTIUM_II_KIND, ONLY : LONG USE IOUNT1, ONLY : SC1 diff --git a/Source/UTIL/FILE_INQUIRE.f90 b/Source/UTIL/FILE_INQUIRE.f90 index 9c85a996..203efb77 100644 --- a/Source/UTIL/FILE_INQUIRE.f90 +++ b/Source/UTIL/FILE_INQUIRE.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE FILE_INQUIRE ( MESSAGE ) @@ -58,14 +58,14 @@ SUBROUTINE FILE_INQUIRE ( MESSAGE ) USE FILE_INQUIRE_USE_IFs IMPLICIT NONE - + LOGICAL :: LEXIST ! True if file exists LOGICAL :: LOPND ! True if file is opened CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'FILE_INQUIRE' CHARACTER(LEN=*), INTENT(IN) :: MESSAGE ! Message written when this subr is called CHARACTER( 3*BYTE) :: FIL(100) ! Descriptor of a MYSTRAN file - CHARACTER(FILE_NAM_MAXLEN*BYTE) :: FILNAM(100) ! Filename + CHARACTER(FILE_NAM_MAXLEN*BYTE) :: FILNAM(100) ! Filename CHARACTER(14*BYTE) :: ANSE ! Message set based on value of LEXIST CHARACTER(10*BYTE) :: ANSO ! Message set based on value of LOPND @@ -148,11 +148,11 @@ SUBROUTINE FILE_INQUIRE ( MESSAGE ) FIL( 72) = 'OP2' ; UNT( 72) = OP2 ; FILNAM( 71) = OP2FIL IF ( 72 > MAX_FIL) THEN - WRITE(ERR,944) SUBR_NAME, MAX_FIL - WRITE(F06,944) SUBR_NAME, MAX_FIL + WRITE(ERR,944) SUBR_NAME, MAX_FIL + WRITE(F06,944) SUBR_NAME, MAX_FIL FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF DO I=1,MOU4 FIL(MAX_FIL+I) = OU4_EXT(I); UNT(MAX_FIL+I) = OU4(I) ; FILNAM(MAX_FIL+I) = OU4FIL(I) @@ -162,10 +162,10 @@ SUBROUTINE FILE_INQUIRE ( MESSAGE ) ENDDO WRITE(ERR,1) - WRITE(ERR,2) MESSAGE + WRITE(ERR,2) MESSAGE WRITE(F06,1) - WRITE(F06,2) MESSAGE + WRITE(F06,2) MESSAGE DO I=2,MAX_FIL+MOU4+MOT4 ! Start at 2 since SC1 was 1 and we do not do INQUIRE on it IF (UNT(I) /= 0) THEN @@ -183,7 +183,7 @@ SUBROUTINE FILE_INQUIRE ( MESSAGE ) WRITE(ERR,2999) FIL(I), UNT(I), ANSE, ANSO, FILNAM(I) WRITE(F06,2999) FIL(I), UNT(I), ANSE, ANSO, FILNAM(I) ENDIF - ENDDO + ENDDO diff --git a/Source/UTIL/FILE_OPEN.f90 b/Source/UTIL/FILE_OPEN.f90 index b20424ef..106404f4 100644 --- a/Source/UTIL/FILE_OPEN.f90 +++ b/Source/UTIL/FILE_OPEN.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE FILE_OPEN (UNIT, FILNAM, OUNT, STATUS, MESSAG, RW_STIME, FORMAT, ACTION, POSITION, WRITE_L1A, WRITE_VER) ! Opens formatted files that have STIME for read or write. If open for read, check STIME. If open for write, write STIME @@ -99,7 +99,7 @@ SUBROUTINE FILE_OPEN (UNIT, FILNAM, OUNT, STATUS, MESSAG, RW_STIME, FORMAT, ACTI USE DEBUG_PARAMETERS USE MYSTRAN_Version, ONLY : MYSTRAN_VER_NUM, MYSTRAN_VER_MONTH, MYSTRAN_VER_DAY, MYSTRAN_VER_YEAR, MYSTRAN_AUTHOR, & MYSTRAN_COMMENT - + USE FILE_OPEN_USE_IFs IMPLICIT NONE @@ -114,12 +114,12 @@ SUBROUTINE FILE_OPEN (UNIT, FILNAM, OUNT, STATUS, MESSAG, RW_STIME, FORMAT, ACTI CHARACTER(LEN=*), INTENT(IN) :: RW_STIME ! Indicator of whether to read or write STIME CHARACTER(LEN=*), INTENT(IN) :: WRITE_L1A ! 'Y'/'N' Arg passed to subr OUTA_HERE CHARACTER(LEN=*), INTENT(IN) :: WRITE_VER ! 'Y'/'N' Arg to tell whether to write MYSTRAN version info - CHARACTER( 9*BYTE) :: NAM_ACT + CHARACTER( 9*BYTE) :: NAM_ACT CHARACTER(11*BYTE) :: NAM_FOR - CHARACTER( 6*BYTE) :: NAM_POS - CHARACTER( 7*BYTE) :: NAM_STA - CHARACTER(11*BYTE) :: NAM_RWS - + CHARACTER( 6*BYTE) :: NAM_POS + CHARACTER( 7*BYTE) :: NAM_STA + CHARACTER(11*BYTE) :: NAM_RWS + INTEGER(LONG), INTENT(IN) :: UNIT ! Unit number file is attached to INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to. Input to subr FILE_OPEN INTEGER(LONG) :: I ! DO loop index @@ -185,7 +185,7 @@ SUBROUTINE FILE_OPEN (UNIT, FILNAM, OUNT, STATUS, MESSAG, RW_STIME, FORMAT, ACTI ! ENDIF ! IF (OUNT(2) == OUNT(1)) EXIT ! ENDDO -! ENDIF +! ENDIF ! Check WRITE_L1A IF ((WRITE_L1A /= 'Y') .AND. (WRITE_L1A /= 'N'))THEN @@ -279,7 +279,7 @@ SUBROUTINE FILE_OPEN (UNIT, FILNAM, OUNT, STATUS, MESSAG, RW_STIME, FORMAT, ACTI CALL FILERR ( OUNT ) CALL OUTA_HERE ( 'Y' ) ENDIF - + RETURN @@ -292,9 +292,9 @@ SUBROUTINE FILE_OPEN (UNIT, FILNAM, OUNT, STATUS, MESSAG, RW_STIME, FORMAT, ACTI 118 FORMAT(/,1X,A,' Version',5(1X,A),/) ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE DEB_FILE_OPEN @@ -317,7 +317,7 @@ SUBROUTINE DEB_FILE_OPEN WRITE(F06,*) WRITE(F06,98799) - + WRITE(F06,*) ! ********************************************************************************************************************************** @@ -333,7 +333,7 @@ SUBROUTINE DEB_FILE_OPEN ! ********************************************************************************************************************************** - END SUBROUTINE DEB_FILE_OPEN + END SUBROUTINE DEB_FILE_OPEN END SUBROUTINE FILE_OPEN diff --git a/Source/UTIL/FULL_TO_SPARSE_CRS.f90 b/Source/UTIL/FULL_TO_SPARSE_CRS.f90 index 1dbcf10f..aa4a9d9e 100644 --- a/Source/UTIL/FULL_TO_SPARSE_CRS.f90 +++ b/Source/UTIL/FULL_TO_SPARSE_CRS.f90 @@ -1,50 +1,50 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE FULL_TO_SPARSE_CRS ( MATIN_NAME, N, M, MATIN_FULL, NTERM_ALLOC, SMALL, CALLING_SUBR, SYM_OUT, & I_MATOUT, J_MATOUT, MATOUT ) -! Converts matrices in full format to sparse (compressed row storage) format - +! Converts matrices in full format to sparse (compressed row storage) format + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE FULL_TO_SPARSE_CRS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'FULL_TO_SPARSE_CRS' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Name of subr that called this one CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of matrix CHARACTER(LEN=*), INTENT(IN) :: SYM_OUT ! 'Y' or 'N' symmetry indicator for output matrix. - + INTEGER(LONG), INTENT(IN) :: N ! Number of rows in input matrix, MATIN_FULL INTEGER(LONG), INTENT(IN) :: M ! Number of cols in input matrix, MATIN_FULL INTEGER(LONG), INTENT(IN) :: NTERM_ALLOC ! Number of nonzero terms allocated to MATOUT in calling subr @@ -116,5 +116,5 @@ SUBROUTINE FULL_TO_SPARSE_CRS ( MATIN_NAME, N, M, MATIN_FULL, NTERM_ALLOC, SMALL ,/,14X,' BY THE CALLING SUBR: ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE FULL_TO_SPARSE_CRS diff --git a/Source/UTIL/GEN_T0L.f90 b/Source/UTIL/GEN_T0L.f90 index 96d0d7e1..da7c17de 100644 --- a/Source/UTIL/GEN_T0L.f90 +++ b/Source/UTIL/GEN_T0L.f90 @@ -1,71 +1,71 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GEN_T0L (RGRID_ROW, ICORD, THETAD, PHID, T0L ) - + ! Generates 3x3 transformation matrix, T0L, to basic (0) coordinate system from another coordinate system (L) with internal coord ! system number ICORD at the grid whose RGRID data is at row RGRID_ROW in array RGRID. Thus, if U0 is a basic system vector ! and UL is a vector in coord system L, then: - + ! U0 = T0L*UL (1) - + ! In the RCORD database, we have transformations, T0P, that transform a vector to basic (0) from the principal ! directions (P) of some other coordinate system. If the local (L) system is rectangular then T0P is T0L and all we ! have to do is get T0P from RCORD. However, if the local system is cylindrical or spherical, then we have to also ! transform from the point at R, THETA, Z (cylindrical) or R, THETA, PHI (spherical) to the respective principal axes ! of that cylindrical or spherical system. Thus, we can write eqn (1) as: - -! U0 = T0P*UP (2) + +! U0 = T0P*UP (2) ! and ! UP = TPL*UL (3) - + ! Substituting (3) into (2) and comparing with (1) it is seen that: - -! T0L = T0P*TPL - + +! T0L = T0P*TPL + ! For a rectangular system, TPL is the identity matrix. - + ! For a cylindrical system TPL is the matrix in the relationship: - + ! |UPx| |cos(THETA) -sin(THETA) 0 ||Ur | ! |UPy| = |sin(THETA) cos(THETA) 0 ||Utheta| ! |UPz| | 0 0 1 ||Uz | - + ! where UPx, UPy, UPz are the displacements in the principal directiona of the cylindrical system and Ur, Utheta, Uz ! are the cylindrical system displacements at some cordinate location R, THETA, Z in the cylindrical system. - + ! For a spherical system TPL is the matrix in the relationship: - + ! |UPx| |sin(THETA)*cos(PHI) cos(THETA)*cos(PHI) -sin(PHI) ||Ur | ! |UPy| = |sin(THETA)*sin(PHI) cos(THETA)*sin(PHI) cos(PHI) ||Utheta| ! |UPz| | cos(THETA) -sin(THETA) 0 ||Uphi | - + ! where UPx, UPy, UPz are the displacements in the principal directions of the spherical system and Ur, Utheta, Uphi ! are the spherical system displacements at some coordinate location R, THETA, PHI in the spherical system. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE CONSTANTS_1, ONLY : ZERO, ONE, ONE80, PI USE IOUNT1, ONLY : WRT_ERR, f06 @@ -73,11 +73,11 @@ SUBROUTINE GEN_T0L (RGRID_ROW, ICORD, THETAD, PHID, T0L ) USE PARAMS, ONLY : EPSIL USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : RGRID, CORD, RCORD - + USE GEN_T0L_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GEN_T0L' INTEGER(LONG), INTENT(IN) :: RGRID_ROW ! Row number in array RGRID where the RGRID data is stored for the grid @@ -88,14 +88,14 @@ SUBROUTINE GEN_T0L (RGRID_ROW, ICORD, THETAD, PHID, T0L ) INTEGER(LONG), INTENT(IN) :: ICORD ! Internal coord ID for coord sys L INTEGER(LONG) :: I,J,K ! DO loop indices - - REAL(DOUBLE), INTENT(OUT) :: THETAD,PHID ! Azimuth and elevation angles (deg) for cylindrical/spherical coord sys + + REAL(DOUBLE), INTENT(OUT) :: THETAD,PHID ! Azimuth and elevation angles (deg) for cylindrical/spherical coord sys REAL(DOUBLE), INTENT(OUT) :: T0L(3,3) ! 3 x 3 coord transformation matrix described above REAL(DOUBLE) :: CT,ST,CP,SP ! SIN or COS of THETA or PHI REAL(DOUBLE) :: EPS1 ! EPSIL(1), a small number for comparison to zero REAL(DOUBLE) :: RAD ! Rad from origin of sph or cyl coord. sys. ICORD to grid point RGRID_ROW - REAL(DOUBLE) :: RADXY ! Radius for calculating azimuth angle - REAL(DOUBLE) :: RDEG ! Number of degrees in a radian + REAL(DOUBLE) :: RADXY ! Radius for calculating azimuth angle + REAL(DOUBLE) :: RDEG ! Number of degrees in a radian REAL(DOUBLE) :: THETA,PHI ! Radian values for THETAD, PHID REAL(DOUBLE) :: T0P(3,3) ! 3 x 3 transformation matrix described above REAL(DOUBLE) :: TPL(3,3) ! 3 x 3 transformation matrix described above @@ -113,7 +113,7 @@ SUBROUTINE GEN_T0L (RGRID_ROW, ICORD, THETAD, PHID, T0L ) THETAD = ZERO PHID = ZERO - + DO I=1,3 DO J=1,3 T0L(I,J) = ZERO @@ -124,10 +124,10 @@ SUBROUTINE GEN_T0L (RGRID_ROW, ICORD, THETAD, PHID, T0L ) ! and depends on the location of the grid at RGRID_ROW and the location of the origin of system ICORD (both locations in basic sys). ! The location of the grid at RGRID_ROW in basic is in RGRID(RGRID_ROW,1-3). The location of the origin of system ICORD in the basic ! system is in RCORD (first 3 words of the row ICORD). - + ! Set elements of T0P to the coord. sys. transf. matrix found. ! If rectangular, we are finished. - + EPS1 = EPSIL(1) RDEG = ONE80/PI @@ -136,7 +136,7 @@ SUBROUTINE GEN_T0L (RGRID_ROW, ICORD, THETAD, PHID, T0L ) K = 3 + 3*(I-1) + J T0P(I,J) = RCORD(ICORD,K) ENDDO - ENDDO + ENDDO ! If 11 or 21 then rectangular IF ((CORD(ICORD,1) == 11) .OR. (CORD(ICORD,1) == 21)) THEN DO I=1,3 @@ -144,32 +144,32 @@ SUBROUTINE GEN_T0L (RGRID_ROW, ICORD, THETAD, PHID, T0L ) T0L(I,J) = T0P(I,J) ENDDO ENDDO - + ELSE ! Not Rectangular - + ! Get relative coordinates of RGRID_ROW and origin of ICORD in basic coordinate system. - + XR0(1) = RGRID(RGRID_ROW,1) - RCORD(ICORD,1) XR0(2) = RGRID(RGRID_ROW,2) - RCORD(ICORD,2) XR0(3) = RGRID(RGRID_ROW,3) - RCORD(ICORD,3) - + ! Transform relative coords from basic to the local coordinate system. Relative coords (3 of them) in local system are in -! XRP. Relative coords in basic system are in XR0. The transformation is: XRP = T0P(transpose)*XR0. (Note: XR0 = T0P*XRP) - +! XRP. Relative coords in basic system are in XR0. The transformation is: XRP = T0P(transpose)*XR0. (Note: XR0 = T0P*XRP) + CALL MATMULT_FFF_T ( T0P, XR0, 3, 3, 1, XRP ) - + ! Initialize TPL - + DO I=1,3 DO J=1,3 TPL(I,J) = ZERO ENDDO ENDDO - + ! ********************************************************************************************************************************** ! Calculate T0L = T0P*TPL for cylindrical and spherical systems. Note that if the radius to the grid point (from the ! coord system) is zero, we define THETA = 0 - + IF (CORD(ICORD,1) == 22) THEN ! Cylindrical RAD = DSQRT(XRP(1)*XRP(1) + XRP(2)*XRP(2)) IF (DABS(RAD) < EPS1) THEN @@ -195,7 +195,7 @@ SUBROUTINE GEN_T0L (RGRID_ROW, ICORD, THETAD, PHID, T0L ) TPL(3,2) = ZERO TPL(3,3) = ONE CALL MATMULT_FFF ( T0P, TPL, 3, 3, 3, T0L ) - ENDIF + ENDIF ELSE IF (CORD(ICORD,1) == 23) THEN ! Spherical RAD = DSQRT(XRP(1)*XRP(1) + XRP(2)*XRP(2) + XRP(3)*XRP(3)) RADXY = DSQRT(XRP(1)*XRP(1) + XRP(2)*XRP(2)) @@ -230,11 +230,11 @@ SUBROUTINE GEN_T0L (RGRID_ROW, ICORD, THETAD, PHID, T0L ) TPL(3,2) = -ST TPL(3,3) = ZERO CALL MATMULT_FFF ( T0P, TPL, 3, 3, 3, T0L ) - ENDIF + ENDIF ENDIF - + ENDIF - + RETURN @@ -242,5 +242,5 @@ SUBROUTINE GEN_T0L (RGRID_ROW, ICORD, THETAD, PHID, T0L ) ! ********************************************************************************************************************************** ! ********************************************************************************************************************************** - + END SUBROUTINE GEN_T0L diff --git a/Source/UTIL/GET_ARRAY_ROW_NUM.f90 b/Source/UTIL/GET_ARRAY_ROW_NUM.f90 index a9a4e675..4b2f99fa 100644 --- a/Source/UTIL/GET_ARRAY_ROW_NUM.f90 +++ b/Source/UTIL/GET_ARRAY_ROW_NUM.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_ARRAY_ROW_NUM ( ARRAY_NAME, CALLING_SUBR, ASIZE, ARRAY, EXT_ID, ROW_NUM ) - + ! Searches integer array ARRAY to find an external (actual) ID (EXT_ID) in order to find the row number where it exists. ! If EXT_ID is not found, ROW_NUM is set to -1 to indicate an error. ARRAY must be sorted into numerical order @@ -37,20 +37,20 @@ SUBROUTINE GET_ARRAY_ROW_NUM ( ARRAY_NAME, CALLING_SUBR, ASIZE, ARRAY, EXT_ID, R ! The algorithm then iterates until EXT_ID = ARRAY(N) by modifying HI and LO as follows: ! (a) If EXT_ID < ARRAY(N) then HI is lowered to N and a new N is calculated from (1) and the procedure repeated ! (b) If EXT_ID > ARRAY(N) then LO is increased to N and a new N is calculated from (1) and the procedure repeated - -! TMP_N = (TMP_HI + TMP_LO + 1.D0)/2.D0 (2) - +! TMP_N = (TMP_HI + TMP_LO + 1.D0)/2.D0 (2) + + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, f06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ONE, TWO - + USE GET_ARRAY_ROW_NUM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GET_ARRAY_ROW_NUM' CHARACTER(LEN=*), INTENT(IN) :: ARRAY_NAME ! Name of array to be searched CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Name of subr that called this one @@ -63,7 +63,7 @@ SUBROUTINE GET_ARRAY_ROW_NUM ( ARRAY_NAME, CALLING_SUBR, ASIZE, ARRAY, EXT_ID, R INTEGER(LONG) :: LAST ! Previous value of N in the search INTEGER(LONG) :: N ! When the search is completed, N is the ROW_NUM we ara looking for - + INTEGER(LONG) :: TMP_N ! Real value of (DBL_HI + DBL_LO + 1.D0)/2.D0 INTEGER(LONG) :: TMP_HI ! Real value of HI INTEGER(LONG) :: TMP_LO ! Real value of LO @@ -102,7 +102,7 @@ SUBROUTINE GET_ARRAY_ROW_NUM ( ARRAY_NAME, CALLING_SUBR, ASIZE, ARRAY, EXT_ID, R ROW_NUM = -1 RETURN ENDIF - LAST = N + LAST = N IF (EXT_ID < ARRAY(N)) THEN HI = N TMP_HI = HI @@ -111,11 +111,11 @@ SUBROUTINE GET_ARRAY_ROW_NUM ( ARRAY_NAME, CALLING_SUBR, ASIZE, ARRAY, EXT_ID, R LO = N TMP_LO = LO CYCLE - ELSE IF (EXT_ID == ARRAY(N)) THEN + ELSE IF (EXT_ID == ARRAY(N)) THEN EXIT ENDIF - ENDDO - + ENDDO + ROW_NUM = N diff --git a/Source/UTIL/GET_CHAR_STRING_END.f90 b/Source/UTIL/GET_CHAR_STRING_END.f90 index 2ea3f4a2..33644f69 100644 --- a/Source/UTIL/GET_CHAR_STRING_END.f90 +++ b/Source/UTIL/GET_CHAR_STRING_END.f90 @@ -1,45 +1,45 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_CHAR_STRING_END ( CHAR_STRING, IEND ) - + ! Searches integer array ARRAY to find column where data ends (IEND) USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + USE GET_CHAR_STRING_END_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GET_CHAR_STRING_END' CHARACTER(LEN=*) , INTENT(IN) :: CHAR_STRING ! String to get ending of - INTEGER(LONG) , INTENT(OUT) :: IEND ! Col where CHAR_STRING stops having non blanks + INTEGER(LONG) , INTENT(OUT) :: IEND ! Col where CHAR_STRING stops having non blanks INTEGER(LONG) :: I ! DO loop index diff --git a/Source/UTIL/GET_FORMATTED_INTEGER.f90 b/Source/UTIL/GET_FORMATTED_INTEGER.f90 index 1921a16d..87795000 100644 --- a/Source/UTIL/GET_FORMATTED_INTEGER.f90 +++ b/Source/UTIL/GET_FORMATTED_INTEGER.f90 @@ -1,41 +1,41 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_FORMATTED_INTEGER ( INT, CHAR_INT, NUM_CHARS, NUM_DIGITS ) - + ! Converts an integer to a character value with comma format (e.g. 12345 becomes char value 12,345) and writes result to unit UNT USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE SCONTR, ONLY : BLNK_SUB_NAM - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE GET_FORMATTED_INTEGER_USE_IFs IMPLICIT NONE - + INTEGER(LONG), PARAMETER :: WORD_LEN = 13 ! Length of character string that INT will be entered into ! This allows for a number up to 9,999,999,999 @@ -58,7 +58,7 @@ SUBROUTINE GET_FORMATTED_INTEGER ( INT, CHAR_INT, NUM_CHARS, NUM_DIGITS ) TEMP_CHAR_INT(1:) = ' ' CHAR_INT(1:) = ' ' - IF (WORD_LEN == 13) THEN ! This code to make sure the format of the WRITE is same length as + IF (WORD_LEN == 13) THEN ! This code to make sure the format of the WRITE is same length as WRITE(TEMP_CHAR_INT,'(I13)') INT ! above declaratioin for INTEGER PARAMETER WORD_LEN ELSE CHAR_INT(1:) = '*' @@ -73,7 +73,7 @@ SUBROUTINE GET_FORMATTED_INTEGER ( INT, CHAR_INT, NUM_CHARS, NUM_DIGITS ) EXIT ENDIF ENDDO - + ! Move digits from TEMP_CHAR_INT to CHAR_INT inserting commas IF (NUM_DIGITS > 3) THEN @@ -112,10 +112,10 @@ SUBROUTINE GET_FORMATTED_INTEGER ( INT, CHAR_INT, NUM_CHARS, NUM_DIGITS ) !xx ENDIF !xx ENDDO !xx -!xx CHAR_INT(1:) = TEMP_CHAR_INT(1:) ! Reset CHR_FLD and return +!xx CHAR_INT(1:) = TEMP_CHAR_INT(1:) ! Reset CHR_FLD and return +!xx +!xx ENDIF !xx -!xx ENDIF -!xx !xxCount nonblank characters in CHAR_INT !xx !xx NUM_CHARS = WORD_LEN diff --git a/Source/UTIL/GET_GRID_AND_COMP.f90 b/Source/UTIL/GET_GRID_AND_COMP.f90 index 6848d871..f9fa0f50 100644 --- a/Source/UTIL/GET_GRID_AND_COMP.f90 +++ b/Source/UTIL/GET_GRID_AND_COMP.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE GET_GRID_AND_COMP ( X_SET, DOF_NUM, GRIDV, COMPV ) @@ -75,4 +75,4 @@ SUBROUTINE GET_GRID_AND_COMP ( X_SET, DOF_NUM, GRIDV, COMPV ) ! ********************************************************************************************************************************** - END SUBROUTINE GET_GRID_AND_COMP \ No newline at end of file + END SUBROUTINE GET_GRID_AND_COMP diff --git a/Source/UTIL/GET_GRID_NUM_COMPS.f90 b/Source/UTIL/GET_GRID_NUM_COMPS.f90 index 8077ae74..7fef6b85 100644 --- a/Source/UTIL/GET_GRID_NUM_COMPS.f90 +++ b/Source/UTIL/GET_GRID_NUM_COMPS.f90 @@ -1,30 +1,30 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - - + +! End MIT license text. + + SUBROUTINE GET_GRID_NUM_COMPS ( IGRID, NUM_COMPS, CALLING_SUBR ) ! Gets the number of components for a "grid" number from array GRID by testing GRID(IGRID,6) @@ -43,9 +43,9 @@ SUBROUTINE GET_GRID_NUM_COMPS ( IGRID, NUM_COMPS, CALLING_SUBR ) ! ********************************************************************************************************************************** NUM_COMPS = GRID(IGRID, 6) - + RETURN ! ********************************************************************************************************************************** - END SUBROUTINE GET_GRID_NUM_COMPS \ No newline at end of file + END SUBROUTINE GET_GRID_NUM_COMPS diff --git a/Source/UTIL/GET_I2_MAT_FROM_I_MAT.f90 b/Source/UTIL/GET_I2_MAT_FROM_I_MAT.f90 index 42a504d0..da1608f5 100644 --- a/Source/UTIL/GET_I2_MAT_FROM_I_MAT.f90 +++ b/Source/UTIL/GET_I2_MAT_FROM_I_MAT.f90 @@ -1,30 +1,30 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE GET_I2_MAT_FROM_I_MAT ( MAT_NAME, NROWS, NTERMS, I_MAT, I2_MAT ) +! End MIT license text. + + SUBROUTINE GET_I2_MAT_FROM_I_MAT ( MAT_NAME, NROWS, NTERMS, I_MAT, I2_MAT ) ! This subr does the inverse of subr GET_I_MAT_FROM_I2_MAT @@ -72,7 +72,7 @@ SUBROUTINE GET_I2_MAT_FROM_I_MAT ( MAT_NAME, NROWS, NTERMS, I_MAT, I2_MAT ) ENDIF - + RETURN ! ********************************************************************************************************************************** diff --git a/Source/UTIL/GET_I_MAT_FROM_I2_MAT.f90 b/Source/UTIL/GET_I_MAT_FROM_I2_MAT.f90 index 430fe6df..d1b3bc52 100644 --- a/Source/UTIL/GET_I_MAT_FROM_I2_MAT.f90 +++ b/Source/UTIL/GET_I_MAT_FROM_I2_MAT.f90 @@ -1,30 +1,30 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE GET_I_MAT_FROM_I2_MAT ( MAT_NAME, NROWS, NTERMS, I2_MAT, I_MAT ) +! End MIT license text. + + SUBROUTINE GET_I_MAT_FROM_I2_MAT ( MAT_NAME, NROWS, NTERMS, I2_MAT, I_MAT ) ! I_MAT is the sparse compressed row format for sparse array MAT. I2_MAT has a row number for each of the terms in sparse MAT. ! I2_MAT is generally used when some sparse matrices are written to a file since it then has a row, col, value for all terms in the @@ -102,7 +102,7 @@ SUBROUTINE GET_I_MAT_FROM_I2_MAT ( MAT_NAME, NROWS, NTERMS, I2_MAT, I_MAT ) ENDIF - + RETURN ! ********************************************************************************************************************************** diff --git a/Source/UTIL/GET_MACHINE_PARAMS.f90 b/Source/UTIL/GET_MACHINE_PARAMS.f90 index a0b1ace1..44864364 100644 --- a/Source/UTIL/GET_MACHINE_PARAMS.f90 +++ b/Source/UTIL/GET_MACHINE_PARAMS.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_MACHINE_PARAMS ! Use LAPACK function DLAMCH to get machine parameters for the users' computer @@ -37,11 +37,11 @@ SUBROUTINE GET_MACHINE_PARAMS MACH_SFMIN, MACH_T, MACH_LARGE_NUM USE DEBUG_PARAMETERS, ONLY : DEBUG USE LAPACK_BLAS_AUX - + USE GET_MACHINE_PARAMS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GET_MACHINE_PARAMS' @@ -56,11 +56,11 @@ SUBROUTINE GET_MACHINE_PARAMS MACH_SFMIN = DLAMCH ('S') MACH_BASE = DLAMCH ('B') MACH_PREC = DLAMCH ('P') - MACH_T = DLAMCH ('N') - MACH_RND = DLAMCH ('R') + MACH_T = DLAMCH ('N') + MACH_RND = DLAMCH ('R') MACH_EMIN = DLAMCH ('M') - MACH_RMIN = DLAMCH ('U') - MACH_EMAX = DLAMCH ('L') + MACH_RMIN = DLAMCH ('U') + MACH_EMAX = DLAMCH ('L') MACH_RMAX = DLAMCH ('O') MACH_LARGE_NUM = ONE/MACH_SFMIN diff --git a/Source/UTIL/GET_MATRIX_DIAG_STATS.f90 b/Source/UTIL/GET_MATRIX_DIAG_STATS.f90 index 3fbc3741..2156864c 100644 --- a/Source/UTIL/GET_MATRIX_DIAG_STATS.f90 +++ b/Source/UTIL/GET_MATRIX_DIAG_STATS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE GET_MATRIX_DIAG_STATS ( MAT_NAME, INPUT_SET, NROWS, NTERM, I_KIN, J_KIN, KIN, WRITE_WHAT, KIN_DIAG, & MAX_OA_DIAG_TERM ) @@ -156,7 +156,7 @@ SUBROUTINE GET_MATRIX_DIAG_STATS ( MAT_NAME, INPUT_SET, NROWS, NTERM, I_KIN, J_K ! Print diagonal terms (with ratio to max term), if requested IF ((WRITE_WHAT == 1) .OR. (WRITE_WHAT == 3)) THEN - + WRITE(F06,*) WRITE(F06,1001) MAT_NAME WRITE(F06,1002) @@ -179,7 +179,7 @@ SUBROUTINE GET_MATRIX_DIAG_STATS ( MAT_NAME, INPUT_SET, NROWS, NTERM, I_KIN, J_K ENDIF ENDDO WRITE(F06,*) - + ENDIF ! Determine statistics, if requested @@ -212,7 +212,7 @@ SUBROUTINE GET_MATRIX_DIAG_STATS ( MAT_NAME, INPUT_SET, NROWS, NTERM, I_KIN, J_K COMPS_TO_CHECK(I) = 1 ENDDO ENDIF - + K = 0 MAX_DIAG_TERM = -1.0D0 ! Determine max positive diagonal term for the COMPS_TO_CHECK KIN_ROW_MAX = 0 @@ -264,7 +264,7 @@ SUBROUTINE GET_MATRIX_DIAG_STATS ( MAT_NAME, INPUT_SET, NROWS, NTERM, I_KIN, J_K MINP_MAX_OA_RATIO = MINP_DIAG_TERM/MAX_OA_DIAG_TERM K = 0 - NUM_NEG_DIAG_TERMS = 0 ! Determine number of neg terms, null rows and negligible terms + NUM_NEG_DIAG_TERMS = 0 ! Determine number of neg terms, null rows and negligible terms NUM_NULL_ROWS = 0 NUM_SMALL_TERMS = 0 DO I=1,NDOFG @@ -404,7 +404,7 @@ SUBROUTINE GET_MATRIX_DIAG_STATS ( MAT_NAME, INPUT_SET, NROWS, NTERM, I_KIN, J_K 1010 FORMAT(' Num of null rows : ',I8) 1011 FORMAT(' Num of diag terms <',1ES9.2,'*(OA max)** : ',I8) - + 1012 FORMAT(' ** Ratio of diag term to OA max is less than AUOTSPC_RAT = ',1ES13.6,' (defined on PARAM AUTOSPC by user or as', & ' default value)',/,' (excluding null rows and negative terms)',/) diff --git a/Source/UTIL/GET_OU4_MAT_STATS.f90 b/Source/UTIL/GET_OU4_MAT_STATS.f90 index 80adf704..133239c1 100644 --- a/Source/UTIL/GET_OU4_MAT_STATS.f90 +++ b/Source/UTIL/GET_OU4_MAT_STATS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE GET_OU4_MAT_STATS ( MAT, NROWS, NCOLS, FORM, SYM ) diff --git a/Source/UTIL/GET_SPARSE_CRS_COL.f90 b/Source/UTIL/GET_SPARSE_CRS_COL.f90 index 5d8ca02c..2652152c 100644 --- a/Source/UTIL/GET_SPARSE_CRS_COL.f90 +++ b/Source/UTIL/GET_SPARSE_CRS_COL.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_SPARSE_CRS_COL ( MATIN_NAME, COL_NUM, NTERM, NROWS, NCOLS, I_MATIN, J_MATIN, MATIN, BETA, OUT_VEC, NULL_COL ) ! Gets col number COL_NUM from a matrix in sparse (compressed row storage) format described by I_MATIN, J_MATIN, MATIN ! arrays, multiplies it by BETA, and puts result into array OUT_VEC. Sets NULL_COL to 'Y' if result is null. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + USE GET_SPARSE_CRS_COL_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GET_SPARSE_CRS_COL' CHARACTER(LEN=*), INTENT(IN ) :: MATIN_NAME ! Name of input matrix to be partitioned CHARACTER(1*BYTE),INTENT(OUT) :: NULL_COL ! = 'Y' if OUT_VEC is null @@ -53,7 +53,7 @@ SUBROUTINE GET_SPARSE_CRS_COL ( MATIN_NAME, COL_NUM, NTERM, NROWS, NCOLS, I_MATI INTEGER(LONG) :: NUM_TERMS_IN_ROW ! No. terms in a row of MATIN. Each term will be checked to see if it ! belongs to col number COL_NUM - + REAL(DOUBLE) , INTENT(IN) :: MATIN(NTERM) ! Nonzero terms in matrix MATIN REAL(DOUBLE) , INTENT(IN) :: BETA ! Scalar multiplier for row from MATIN REAL(DOUBLE) , INTENT(OUT) :: OUT_VEC(NROWS) ! Output vector containing the terms from col COL_NUM of MATIN @@ -65,7 +65,7 @@ SUBROUTINE GET_SPARSE_CRS_COL ( MATIN_NAME, COL_NUM, NTERM, NROWS, NCOLS, I_MATI DO I=1,NROWS OUT_VEC(I) = ZERO - ENDDO + ENDDO ! Make sure COL_NUM is a col of MATIN @@ -80,7 +80,7 @@ SUBROUTINE GET_SPARSE_CRS_COL ( MATIN_NAME, COL_NUM, NTERM, NROWS, NCOLS, I_MATI DO J=1,NROWS OUT_VEC(J) = ZERO - ENDDO + ENDDO ! Load nonzero terms from col COL_NUM of MATIN into OUT_VEC @@ -90,7 +90,7 @@ SUBROUTINE GET_SPARSE_CRS_COL ( MATIN_NAME, COL_NUM, NTERM, NROWS, NCOLS, I_MATI NUM_TERMS_IN_ROW = I_MATIN(I+1) - I_MATIN(I) DO J=1,NUM_TERMS_IN_ROW ! Check each term to see if it is in col number COL_NUM K = K + 1 - IF (J_MATIN(K) == COL_NUM) THEN + IF (J_MATIN(K) == COL_NUM) THEN NULL_COL = 'N' OUT_VEC(I) = BETA*MATIN(K) ENDIF @@ -103,8 +103,8 @@ SUBROUTINE GET_SPARSE_CRS_COL ( MATIN_NAME, COL_NUM, NTERM, NROWS, NCOLS, I_MATI ! ********************************************************************************************************************************** 930 FORMAT(' *ERROR 930: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' ATTEMPT TO GET COL = ',I12,' FROM MATRIX ',A,' WHEN IT ONLY HAS COL NUMBERS 1 THRU ',I12) + ,/,14X,' ATTEMPT TO GET COL = ',I12,' FROM MATRIX ',A,' WHEN IT ONLY HAS COL NUMBERS 1 THRU ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE GET_SPARSE_CRS_COL diff --git a/Source/UTIL/GET_SPARSE_CRS_ROW.f90 b/Source/UTIL/GET_SPARSE_CRS_ROW.f90 index c8930060..8e52ae90 100644 --- a/Source/UTIL/GET_SPARSE_CRS_ROW.f90 +++ b/Source/UTIL/GET_SPARSE_CRS_ROW.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_SPARSE_CRS_ROW ( MATIN_NAME, ROW_NUM, NTERM, NROWS, NCOLS, I_MATIN, J_MATIN, MATIN, BETA, OUT_VEC, NULL_ROW ) ! Gets a row (ROW_NUM) from a matrix in sparse (compressed row storage) format described by I_MATIN, J_MATIN, MATIN ! arrays, multiplies it by BETA, and puts result into array OUT_VEC. Sets NULL_ROW to 'Y' if result is null. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + USE GET_SPARSE_CRS_ROW_USE_IFs - IMPLICIT NONE - + IMPLICIT NONE + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GET_SPARSE_CRS_ROW' CHARACTER(LEN=*), INTENT(IN ) :: MATIN_NAME ! Name of input matrix to be partitioned CHARACTER(LEN=*), INTENT(OUT) :: NULL_ROW ! = 'Y' if OUT_VEC is null @@ -52,7 +52,7 @@ SUBROUTINE GET_SPARSE_CRS_ROW ( MATIN_NAME, ROW_NUM, NTERM, NROWS, NCOLS, I_MATI INTEGER(LONG) :: J,K ! DO loop indices or counters INTEGER(LONG) :: NUM_TERMS_IN_ROW ! No. terms in row ROW_NUM of MATIN - + REAL(DOUBLE) , INTENT(IN) :: MATIN(NTERM) ! Nonzero terms in matrix MATIN REAL(DOUBLE) , INTENT(IN) :: BETA ! Scalar multiplier for row from MATIN REAL(DOUBLE) , INTENT(OUT) :: OUT_VEC(NCOLS) ! Output vector containing the terms from row ROW_NUM of MATIN @@ -64,7 +64,7 @@ SUBROUTINE GET_SPARSE_CRS_ROW ( MATIN_NAME, ROW_NUM, NTERM, NROWS, NCOLS, I_MATI DO J=1,NCOLS OUT_VEC(J) = ZERO - ENDDO + ENDDO ! Make sure ROW NUM is a row of MATIN @@ -82,21 +82,21 @@ SUBROUTINE GET_SPARSE_CRS_ROW ( MATIN_NAME, ROW_NUM, NTERM, NROWS, NCOLS, I_MATI IF (NUM_TERMS_IN_ROW == 0) THEN NULL_ROW = 'Y' ELSE - K = I_MATIN(ROW_NUM) + K = I_MATIN(ROW_NUM) DO J=1,NUM_TERMS_IN_ROW OUT_VEC(J_MATIN(K)) = BETA*MATIN(K) K = K + 1 ENDDO ENDIF - + RETURN ! ********************************************************************************************************************************** 929 FORMAT(' *ERROR 929: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' ATTEMPT TO GET ROW = ',I12,' FROM MATRIX ',A,' WHEN IT ONLY HAS ROW NUMBERS 1 THRU ',I12) + ,/,14X,' ATTEMPT TO GET ROW = ',I12,' FROM MATRIX ',A,' WHEN IT ONLY HAS ROW NUMBERS 1 THRU ',I12) ! ********************************************************************************************************************************** - + END SUBROUTINE GET_SPARSE_CRS_ROW diff --git a/Source/UTIL/GET_SPARSE_MAT_TERM.f90 b/Source/UTIL/GET_SPARSE_MAT_TERM.f90 index 87cf7820..2b68ab42 100644 --- a/Source/UTIL/GET_SPARSE_MAT_TERM.f90 +++ b/Source/UTIL/GET_SPARSE_MAT_TERM.f90 @@ -1,43 +1,43 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_SPARSE_MAT_TERM ( MATIN_NAME, I_MATIN, J_MATIN, MATIN, IROW, JCOL, N, NTERMS, MATIN_VAL ) - -! Given a row/col index, gets the real value from a sparse CRS matrix + +! Given a row/col index, gets the real value from a sparse CRS matrix USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ZERO + USE CONSTANTS_1, ONLY : ZERO USE GET_SPARSE_MAT_TERM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GET_SPARSE_MAT_TERM' CHARACTER(LEN=*), INTENT(IN ) :: MATIN_NAME ! Name of input matrix MATIN @@ -51,7 +51,7 @@ SUBROUTINE GET_SPARSE_MAT_TERM ( MATIN_NAME, I_MATIN, J_MATIN, MATIN, IROW, JCOL INTEGER(LONG) :: J ! DO loop index INTEGER(LONG) :: K ! Counter - + REAL(DOUBLE) , INTENT(IN) :: MATIN(NTERMS) ! Real vals in sparse matrix MATIN REAL(DOUBLE) , INTENT(OUT) :: MATIN_VAL @@ -94,7 +94,7 @@ SUBROUTINE GET_SPARSE_MAT_TERM ( MATIN_NAME, I_MATIN, J_MATIN, MATIN, IROW, JCOL ! ********************************************************************************************************************************** 929 FORMAT(' *ERROR 929: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' ATTEMPT TO GET ',A,' = ',I12,' FROM MATRIX ',A,' WHEN IT ONLY HAS ',A,' NUMBERS 1 THRU ',I12) + ,/,14X,' ATTEMPT TO GET ',A,' = ',I12,' FROM MATRIX ',A,' WHEN IT ONLY HAS ',A,' NUMBERS 1 THRU ',I12) ! ********************************************************************************************************************************** diff --git a/Source/UTIL/GET_UG_123_IN_GRD_ORD.f90 b/Source/UTIL/GET_UG_123_IN_GRD_ORD.f90 index 5608f9f1..2e8bdaeb 100644 --- a/Source/UTIL/GET_UG_123_IN_GRD_ORD.f90 +++ b/Source/UTIL/GET_UG_123_IN_GRD_ORD.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_UG_123_IN_GRD_ORD ( IERR ) - + ! Gets the 3 translation (T1, T2, T3) displ values fro the G-set displ vector (UG_COL) for 1 subcase and puts those values into an ! NGRID x 3 array where T1 is col1, T2 is col 2 and T3 is col3 @@ -34,24 +34,24 @@ SUBROUTINE GET_UG_123_IN_GRD_ORD ( IERR ) USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG, NGRID USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : GRID_ID - USE DOF_TABLES, ONLY : TDOFI + USE DOF_TABLES, ONLY : TDOFI USE COL_VECS, ONLY : UG_COL USE MISC_MATRICES, ONLY : UG_T123_MAT USE GET_UG_123_IN_GRD_ORD_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GET_UG_123_IN_GRD_ORD' INTEGER(LONG), INTENT(OUT) :: IERR ! Local error indicator - INTEGER(LONG) :: GRDS_GLOBAL(NGRID)! + INTEGER(LONG) :: GRDS_GLOBAL(NGRID)! INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IGRID ! Count of grids (1 to NGRID) INTEGER(LONG) :: IDOFG ! Count of G-set DOF's (1 to NDOFG) INTEGER(LONG) :: NUM_COMPS ! 6 if GRID_NUM is an physical grid, 1 if an SPOINT - + ! ********************************************************************************************************************************** IERR = 0 diff --git a/Source/UTIL/GET_VEC_MIN_MAX_ABS.f90 b/Source/UTIL/GET_VEC_MIN_MAX_ABS.f90 index dfd8fad4..3ae842e1 100644 --- a/Source/UTIL/GET_VEC_MIN_MAX_ABS.f90 +++ b/Source/UTIL/GET_VEC_MIN_MAX_ABS.f90 @@ -1,46 +1,46 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE GET_VEC_MIN_MAX_ABS ( NROWS, ID_LIST, VECTOR, VEC_MIN, VEC_MAX, VEC_ABS, ID_MIN, ID_MAX ) - + ! Gets the MIN, MAX and ABS values from a column vector and the grids associated with the MIN and MAX - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE MACHINE_PARAMS, ONLY : MACH_LARGE_NUM - + USE GET_VEC_MIN_MAX_ABS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'GET_VEC_MIN_MAX_ABS' - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in ID_LIST and VECTOR INTEGER(LONG), INTENT(IN) :: ID_LIST(NROWS) ! The ID (grid or elem) numbers corresponding to rows in VECTOR INTEGER(LONG), INTENT(OUT) :: ID_MAX ! ID where vector is max @@ -96,5 +96,5 @@ SUBROUTINE GET_VEC_MIN_MAX_ABS ( NROWS, ID_LIST, VECTOR, VEC_MIN, VEC_MAX, VEC_A ! ********************************************************************************************************************************** ! ********************************************************************************************************************************** - + END SUBROUTINE GET_VEC_MIN_MAX_ABS diff --git a/Source/UTIL/INVERT_FF_MAT.f90 b/Source/UTIL/INVERT_FF_MAT.f90 index 3b3b6e81..5051cab3 100644 --- a/Source/UTIL/INVERT_FF_MAT.f90 +++ b/Source/UTIL/INVERT_FF_MAT.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE INVERT_FF_MAT ( CALLING_SUBR, MAT_A_NAME, A, NROWS, INFO ) diff --git a/Source/UTIL/LINK_MESSAGE.f90 b/Source/UTIL/LINK_MESSAGE.f90 index 6e7cde79..c078b16a 100644 --- a/Source/UTIL/LINK_MESSAGE.f90 +++ b/Source/UTIL/LINK_MESSAGE.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE LINK_MESSAGE(MODNAM) - + USE IOUNT1, ONLY : SC1 USE SCONTR, ONLY : LINKNO USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC USE OURTIM_Interface - + IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: MODNAM ! Name to write to screen to describe module being run @@ -60,14 +60,14 @@ END SUBROUTINE LINK_MESSAGE SUBROUTINE LINK_MESSAGE_I(MODNAM, I) - + USE PENTIUM_II_KIND, ONLY : LONG USE IOUNT1, ONLY : SC1 USE SCONTR, ONLY : LINKNO USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC USE OURTIM_Interface - + IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: MODNAM ! Name to write to screen to describe module being run diff --git a/Source/UTIL/MATADD_FFF.f90 b/Source/UTIL/MATADD_FFF.f90 index d7cc528c..881ad6cd 100644 --- a/Source/UTIL/MATADD_FFF.f90 +++ b/Source/UTIL/MATADD_FFF.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATADD_FFF ( A, B, NROW, NCOL, ALPHA, BETA, ITRNSPB, C) - + ! Adds two matrices: A + B (if ITRNSPB = 0), or A + B' (if ITRNSPB = 1 and A and B are square). ! Returns result, matrix C. All matrices are in full format ! User must make certain that matrices A and B have the same number of rows and cols - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR @@ -37,11 +37,11 @@ SUBROUTINE MATADD_FFF ( A, B, NROW, NCOL, ALPHA, BETA, ITRNSPB, C) USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG USE PARAMS, ONLY : EPSIL - + USE MATADD_FFF_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MATADD_FFF' INTEGER(LONG), INTENT(IN) :: NROW ! Number of rows in matrces A, B, C @@ -49,14 +49,14 @@ SUBROUTINE MATADD_FFF ( A, B, NROW, NCOL, ALPHA, BETA, ITRNSPB, C) INTEGER(LONG), INTENT(IN) :: ITRNSPB ! Transpose indicator for matrix B INTEGER(LONG) :: I,J ! DO loop indices or counters - + REAL(DOUBLE) , INTENT(IN) :: A(NROW,NCOL) ! Input matrix A REAL(DOUBLE) , INTENT(IN) :: B(NROW,NCOL) ! Input matrix B REAL(DOUBLE) , INTENT(IN) :: ALPHA ! Scalar multiplier for matrix A REAL(DOUBLE) , INTENT(IN) :: BETA ! Scalar multiplier for matrix B REAL(DOUBLE) , INTENT(OUT) :: C(NROW,NCOL) ! Output matrix C - + ! ********************************************************************************************************************************** @@ -93,7 +93,7 @@ SUBROUTINE MATADD_FFF ( A, B, NROW, NCOL, ALPHA, BETA, ITRNSPB, C) DO I =1,NROW DO J = 1,NCOL C(I,J) = ALPHA*A(I,J) + BETA*B(I,J) - ENDDO + ENDDO ENDDO ELSE ! Add A, B' @@ -101,11 +101,11 @@ SUBROUTINE MATADD_FFF ( A, B, NROW, NCOL, ALPHA, BETA, ITRNSPB, C) DO I =1,NROW DO J = 1,NCOL C(I,J) = ALPHA*A(I,J) + BETA*B(J,I) - ENDDO + ENDDO ENDDO ENDIF - + diff --git a/Source/UTIL/MATADD_SSS.f90 b/Source/UTIL/MATADD_SSS.f90 index 2d8a7739..cb2adf1d 100644 --- a/Source/UTIL/MATADD_SSS.f90 +++ b/Source/UTIL/MATADD_SSS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATADD_SSS ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, A, ALPHA, & MAT_B_NAME, NTERM_B, I_B, J_B, B, BETA, & MAT_C_NAME, NTERM_C, I_C, J_C, C ) - + !/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ! Subroutine MATADD_SSS_NTERM must be run before this subroutine to calculate NTERM_C, an input to this subroutine, that is the ! number of nonzero terms in C. Then memory can be allocated to C before this subroutine is called @@ -47,11 +47,11 @@ SUBROUTINE MATADD_SSS ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, A, ALPHA, USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + USE MATADD_SSS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MATADD_SSS' CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B @@ -68,7 +68,7 @@ SUBROUTINE MATADD_SSS ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, A, ALPHA, INTEGER(LONG), INTENT(OUT) :: I_C(NROWS+1) ! I_C(I+1) - I_C(I) = no. terms in row I of matrix C INTEGER(LONG), INTENT(OUT) :: J_C(NTERM_C) ! Col no's for nonzero terms in matrix C - + REAL(DOUBLE) , INTENT(IN ) :: A(NTERM_A) ! Nonzero terms in matrix A REAL(DOUBLE) , INTENT(IN ) :: B(NTERM_B) ! Nonzero terms in matrix B REAL(DOUBLE) , INTENT(IN ) :: ALPHA ! Scalar multiplier for matrix A @@ -82,8 +82,8 @@ SUBROUTINE MATADD_SSS ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, A, ALPHA, INTEGER(LONG) :: COL_B INTEGER(LONG) :: CNT REAL(DOUBLE) :: V - - + + ! ********************************************************************************************************************************** @@ -94,9 +94,9 @@ SUBROUTINE MATADD_SSS ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, A, ALPHA, DO ROW=1,NROWS P_A = I_A(ROW) P_B = I_B(ROW) - + DO WHILE(P_A < I_A(ROW+1) .OR. P_B < I_B(ROW+1)) - + ! Sentinel when A's row is exhausted IF (P_A < I_A(ROW+1)) then COL_A = J_A(P_A) @@ -110,7 +110,7 @@ SUBROUTINE MATADD_SSS ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, A, ALPHA, COL_B = HUGE(0) ENDIF - + IF (COL_A < COL_B) THEN ! Only A has an entry in this column CNT = CNT + 1 C(CNT) = ALPHA * A(P_A) @@ -129,16 +129,16 @@ SUBROUTINE MATADD_SSS ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, A, ALPHA, P_A = P_A + 1 P_B = P_B + 1 ENDIF - + ENDDO - + I_C(ROW+1) = CNT + 1 - + ENDDO - + RETURN ! ********************************************************************************************************************************** diff --git a/Source/UTIL/MATADD_SSS_NTERM.f90 b/Source/UTIL/MATADD_SSS_NTERM.f90 index 75687e07..9cdc8d6d 100644 --- a/Source/UTIL/MATADD_SSS_NTERM.f90 +++ b/Source/UTIL/MATADD_SSS_NTERM.f90 @@ -1,32 +1,32 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATADD_SSS_NTERM ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, SYM_A, MAT_B_NAME, NTERM_B, I_B, J_B, SYM_B, & MAT_C_NAME, NTERM_C ) - + ! Setup routine for performing the sparse matrix add operation C = A + B where A, B and C are in stored in sparse CRS format. ! This subr must be run prior to the subr that actually does the add (MATADD_SSS) in order to calc NTERM_C, the number of terms that ! will be in C (so that memory could be allocated, prior to this MATADD_SSS, for arrays J_C and C) @@ -44,11 +44,11 @@ SUBROUTINE MATADD_SSS_NTERM ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, SYM_A, MAT_B USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE MATADD_SSS_NTERM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MATADD_SSS_NTERM' CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B @@ -76,7 +76,7 @@ SUBROUTINE MATADD_SSS_NTERM ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, SYM_A, MAT_B INTEGER(LONG) :: COL_B INTEGER(LONG) :: CNT - + ! ********************************************************************************************************************************** @@ -96,9 +96,9 @@ SUBROUTINE MATADD_SSS_NTERM ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, SYM_A, MAT_B DO ROW=1,NROWS P_A = I_A(ROW) P_B = I_B(ROW) - + DO WHILE(P_A < I_A(ROW+1) .OR. P_B < I_B(ROW+1)) - + ! Sentinel when A's row is exhausted IF (P_A < I_A(ROW+1)) then COL_A = J_A(P_A) @@ -112,7 +112,7 @@ SUBROUTINE MATADD_SSS_NTERM ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, SYM_A, MAT_B COL_B = HUGE(0) ENDIF - + IF (COL_A < COL_B) THEN ! Only A has an entry in this column CNT = CNT + 1 P_A = P_A + 1 @@ -124,16 +124,16 @@ SUBROUTINE MATADD_SSS_NTERM ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, SYM_A, MAT_B P_A = P_A + 1 P_B = P_B + 1 ENDIF - + ENDDO - + ENDDO NTERM_C = CNT - + RETURN ! ********************************************************************************************************************************** diff --git a/Source/UTIL/MATMULT_FFF.f90 b/Source/UTIL/MATMULT_FFF.f90 index 875ee982..e624a91f 100644 --- a/Source/UTIL/MATMULT_FFF.f90 +++ b/Source/UTIL/MATMULT_FFF.f90 @@ -1,56 +1,56 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATMULT_FFF ( A, B, NROWA, NCOLA, NCOLB, C ) - + ! Multiplies two matrices: A x B. Returns result, matrix C. All matrices are in full format ! NOTE: User is responsible for making sure that A and B are conformable - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + USE MATMULT_FFF_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MATMULT_FFF' INTEGER(LONG), INTENT(IN) :: NROWA ! No. rows in input matrix A - INTEGER(LONG), INTENT(IN) :: NCOLA ! No. cols in input matrix A - INTEGER(LONG), INTENT(IN) :: NCOLB ! No. cols in input matrix B + INTEGER(LONG), INTENT(IN) :: NCOLA ! No. cols in input matrix A + INTEGER(LONG), INTENT(IN) :: NCOLB ! No. cols in input matrix B INTEGER(LONG) :: I,J,K ! DO loop indices or counters - INTEGER(LONG) :: NROWB ! + INTEGER(LONG) :: NROWB ! + - REAL(DOUBLE) , INTENT(IN) :: A(NROWA,NCOLA) ! Input matrix A REAL(DOUBLE) , INTENT(IN) :: B(NCOLA,NCOLB) ! Input matrix B REAL(DOUBLE) , INTENT(OUT) :: C(NROWA,NCOLB) ! Output matrix C - + ! ********************************************************************************************************************************** @@ -72,8 +72,8 @@ SUBROUTINE MATMULT_FFF ( A, B, NROWA, NCOLA, NCOLB, C ) DO K = 1,NROWB C(I,J) = C(I,J) + A(I,K)*B(K,J) ENDDO - ENDDO - ENDDO + ENDDO + ENDDO diff --git a/Source/UTIL/MATMULT_FFF_T.f90 b/Source/UTIL/MATMULT_FFF_T.f90 index 02132706..0bea99ad 100644 --- a/Source/UTIL/MATMULT_FFF_T.f90 +++ b/Source/UTIL/MATMULT_FFF_T.f90 @@ -1,39 +1,39 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATMULT_FFF_T ( A, B, NROWA, NCOLA, NCOLB, C ) - + ! Multiplies two matrices: A' x B (A is transposed). Returns result, matrix C. All matrices are in full format ! NOTE: User is responsible for making sure that A(t) and B are conformable - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + USE MATMULT_FFF_T_USE_IFs IMPLICIT NONE @@ -42,17 +42,17 @@ SUBROUTINE MATMULT_FFF_T ( A, B, NROWA, NCOLA, NCOLB, C ) INTEGER(LONG), INTENT(IN) :: NROWA ! No. rows in input matrix A (NOT A') INTEGER(LONG), INTENT(IN) :: NCOLA ! No. cols in input matrix A (NOT A') - INTEGER(LONG), INTENT(IN) :: NCOLB ! No. cols in input matrix B + INTEGER(LONG), INTENT(IN) :: NCOLB ! No. cols in input matrix B INTEGER(LONG) :: I,J,K ! DO loop indices or counters - INTEGER(LONG) :: NROWB ! No. rows in input matrix B + INTEGER(LONG) :: NROWB ! No. rows in input matrix B INTEGER(LONG) :: NROWA_T ! No. rows in A' (ranspose) INTEGER(LONG) :: NCOLA_T ! No. cols in A' (ranspose) - + REAL(DOUBLE) , INTENT(IN) :: A(NROWA,NCOLA) ! Input matrix A REAL(DOUBLE) , INTENT(IN) :: B(NROWA,NCOLB) ! Input matrix B REAL(DOUBLE) , INTENT(OUT) :: C(NCOLA,NCOLB) ! Output matrix C - + ! ********************************************************************************************************************************** @@ -76,9 +76,9 @@ SUBROUTINE MATMULT_FFF_T ( A, B, NROWA, NCOLA, NCOLB, C ) DO K = 1,NROWB C(I,J) = C(I,J) + A(K,I)*B(K,J) ENDDO - ENDDO - ENDDO - + ENDDO + ENDDO + RETURN diff --git a/Source/UTIL/MATMULT_SFS.f90 b/Source/UTIL/MATMULT_SFS.f90 index 4c55ddc9..73815b88 100644 --- a/Source/UTIL/MATMULT_SFS.f90 +++ b/Source/UTIL/MATMULT_SFS.f90 @@ -1,32 +1,32 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATMULT_SFS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, MAT_B_NAME, NROW_B, NCOL_B, B, & AROW_MAX_TERMS, MAT_C_NAME, CONS, NTERM_C, I_C, J_C, C ) - + !/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ! Subroutine MATMULT_SFS_NTERM must be run before this subroutine to calculate NTERM_C, an input to this subroutine, that is the ! number of nonzero terms in C. Then memory can be allocated to C before this subroutine is called @@ -68,11 +68,11 @@ SUBROUTINE MATMULT_SFS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, MAT_B_ USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : EPSIL USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE MATMULT_SFS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MATMULT_SFS' CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B @@ -101,10 +101,10 @@ SUBROUTINE MATMULT_SFS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, MAT_B_ INTEGER(LONG) :: NHITS ! Number of "hits" of terms in a row of A existing where terms in ! a col of B exist when a row of A is multiplied by a col of B INTEGER(LONG) :: NTERM_AROW ! Number of nonzero terms in AROW (one row of A) - INTEGER(LONG) :: ROW_AT_COLJ_BEG(NROW_A)! jth term is row number in MATIN where col j nonzeros begin + INTEGER(LONG) :: ROW_AT_COLJ_BEG(NROW_A)! jth term is row number in MATIN where col j nonzeros begin INTEGER(LONG) :: ROW_AT_COLJ_END(NROW_A)! jth term is row number in MATIN where col j nonzeros end - + REAL(DOUBLE) , INTENT(IN ) :: CONS ! Constant multiplier in cons*A*B to get C REAL(DOUBLE) , INTENT(IN ) :: A(NTERM_A) ! Nonzero values in matrix A REAL(DOUBLE) , INTENT(IN ) :: B(NROW_B,NCOL_B) ! Real values in matrix B @@ -138,10 +138,10 @@ SUBROUTINE MATMULT_SFS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, MAT_B_ ! terms for the A matrix that are not explicitly in a. This is done by getting A terms in the column (above the ! diagonal of a row) as well as the explicit terms from A that are there from the diagonal out to the end of the row. The two ! arrays: ROW_AT_COLJ_BEG and ROW_AT_COLJ_END are used to aid in getting the terms in the column above the diagonal. -! ROW_AT_COLJ_BEG is an array that gives, for each col of A, the starting row number of nonzero terms in that column. +! ROW_AT_COLJ_BEG is an array that gives, for each col of A, the starting row number of nonzero terms in that column. ! ROW_AT_COLJ_END is an array that gives, for each col of A, the ending row number of nonzero terms in that column. ! The span: ROW_AT_COLJ_BEG to ROW_AT_COLJ_END is used when we search for terms in the columns. -! We only need ROW_AT_COLJ_BEG and ROW_AT_COLJ_END when A is input symmetric and MATOUT is not to be output as symmetric +! We only need ROW_AT_COLJ_BEG and ROW_AT_COLJ_END when A is input symmetric and MATOUT is not to be output as symmetric IF (SYM_A == 'Y') THEN @@ -160,14 +160,14 @@ SUBROUTINE MATMULT_SFS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, MAT_B_ i_do: DO I=1,NROW_A ! Matrix multiply loop. Range over the rows in A I_C(I+1) = I_C(I) ! End value in I_C for next this row is initially set at beginning value - A_NTERM_ROW_I = I_A(I+1) - I_A(I) ! Number of terms in matrix A in row I + A_NTERM_ROW_I = I_A(I+1) - I_A(I) ! Number of terms in matrix A in row I A_ROW_END = A_ROW_BEG + A_NTERM_ROW_I - 1 ! A_ROW_BEG to _END is the range of indices of terms in A for row I of A IF ((DEBUG(83) == 2) .OR. (DEBUG(83) == 3)) CALL MATMULT_SFS_DEB ( '2', ' ' ) DO K=1,AROW_MAX_TERMS ! Null J_AROW and AROW each time we begin a new row of A AROW(K) = ZERO J_AROW(K) = 0 - ENDDO + ENDDO NTERM_AROW = 0 ! Formulate J_AROW, AROW - a CRS representation of one row of A IF (SYM_A == 'Y') THEN ! 1st, look for terms that would be in this row, but are not, due to SYM @@ -181,7 +181,7 @@ SUBROUTINE MATMULT_SFS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, MAT_B_ IF ((K >= I_A(II)) .AND. (K < I_A(II+1))) THEN J_AROW(NTERM_AROW) = II IF ((DEBUG(83) == 2) .OR. (DEBUG(83) == 3)) CALL MATMULT_SFS_DEB ( '5', ' #2' ) - ENDIF + ENDIF ENDDO ENDIF ENDDO @@ -195,7 +195,7 @@ SUBROUTINE MATMULT_SFS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, MAT_B_ j_do: DO J=1,NCOL_B ! J loops over the number of columns in B -k_do: DO K=1,NTERM_AROW ! The following 2 loops produce the ij-th term of C +k_do: DO K=1,NTERM_AROW ! The following 2 loops produce the ij-th term of C A_COL_NUM = J_AROW(K) l_do: DO L=1,NROW_B IF (A_COL_NUM == L) THEN @@ -209,7 +209,7 @@ SUBROUTINE MATMULT_SFS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, MAT_B_ ENDDO k_do KTERM_C = KTERM_C + DELTA_KTERM_C ! Now update sparse CRS representation of C - IF (KTERM_C > NTERM_C) CALL ARRAY_SIZE_ERROR_1( SUBR_NAME, NTERM_C, MAT_C_NAME ) + IF (KTERM_C > NTERM_C) CALL ARRAY_SIZE_ERROR_1( SUBR_NAME, NTERM_C, MAT_C_NAME ) IF (NHITS > 0) THEN I_C(I+1) = I_C(I+1) + 1 J_C(KTERM_C) = J @@ -231,7 +231,7 @@ SUBROUTINE MATMULT_SFS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, MAT_B_ IF ((DEBUG(83) == 2) .OR. (DEBUG(83) == 3)) CALL MATMULT_SFS_DEB ( '9', ' ' ) - + RETURN ! ********************************************************************************************************************************** diff --git a/Source/UTIL/MATMULT_SFS_NTERM.f90 b/Source/UTIL/MATMULT_SFS_NTERM.f90 index 6bad0c08..02cad09e 100644 --- a/Source/UTIL/MATMULT_SFS_NTERM.f90 +++ b/Source/UTIL/MATMULT_SFS_NTERM.f90 @@ -1,32 +1,32 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATMULT_SFS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, MAT_B_NAME, NROW_B, NCOL_B, B, & AROW_MAX_TERMS, MAT_C_NAME, NTERM_C ) - + ! Setup routine for subr MATMULT_SFS (which performs the matrix operation C = cons*a*b with A and C in sparse format and B full ! Matrices A and C are stored in compressed row storage (CRS) format. In addition, if A is symmetric it can be stored with only the ! terms on, and above, the diagonal. @@ -54,11 +54,11 @@ SUBROUTINE MATMULT_SFS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, MAT USE PARAMS, ONLY : EPSIL USE SPARSE_ALG_ARRAYS, ONLY : J_AROW USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE MATMULT_SFS_NTERM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MATMULT_SFS_NTERM' CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B @@ -85,10 +85,10 @@ SUBROUTINE MATMULT_SFS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, MAT INTEGER(LONG) :: NHITS_TOT_FOR_ROW_OF_A ! Num of "hits" of terms in a col of A existing where terms in any ! row of B exist when a row of A is multiplied by al cols of B INTEGER(LONG) :: NTERM_AROW ! Number of nonzero terms in AROW (one row of A) - INTEGER(LONG) :: ROW_AT_COLJ_BEG(NROW_A)! jth term is row number in MATIN where col j nonzeros begin + INTEGER(LONG) :: ROW_AT_COLJ_BEG(NROW_A)! jth term is row number in MATIN where col j nonzeros begin INTEGER(LONG) :: ROW_AT_COLJ_END(NROW_A)! jth term is row number in MATIN where col j nonzeros end - + REAL(DOUBLE) , INTENT(IN ) :: B(NROW_B,NCOL_B) ! Real values in matrix B @@ -135,10 +135,10 @@ SUBROUTINE MATMULT_SFS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, MAT ! terms for the A matrix that are not explicitly in a. This is done by getting A terms in the column (above the ! diagonal of a row) as well as the explicit terms from A that are there from the diagonal out to the end of the row. The two ! arrays: ROW_AT_COLJ_BEG and ROW_AT_COLJ_END are used to aid in getting the terms in the column above the diagonal. -! ROW_AT_COLJ_BEG is an array that gives, for each col of A, the starting row number of nonzero terms in that column. +! ROW_AT_COLJ_BEG is an array that gives, for each col of A, the starting row number of nonzero terms in that column. ! ROW_AT_COLJ_END is an array that gives, for each col of A, the ending row number of nonzero terms in that column. ! The span: ROW_AT_COLJ_BEG to ROW_AT_COLJ_END is used when we search for terms in the columns. -! We only need ROW_AT_COLJ_BEG and ROW_AT_COLJ_END when A is input symmetric and MATOUT is not to be output as symmetric +! We only need ROW_AT_COLJ_BEG and ROW_AT_COLJ_END when A is input symmetric and MATOUT is not to be output as symmetric IF (SYM_A == 'Y') THEN @@ -152,7 +152,7 @@ SUBROUTINE MATMULT_SFS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, MAT NHITS = 0 NHITS_TOT_FOR_ROW_OF_A = 0 NTERM_C = 0 - A_ROW_BEG = 1 + A_ROW_BEG = 1 i_do: DO I=1,NROW_A A_NTERM_ROW_I = I_A(I+1) - I_A(I) @@ -161,7 +161,7 @@ SUBROUTINE MATMULT_SFS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, MAT DO K=1,AROW_MAX_TERMS ! Null J_AROW and AROW each time we begin a new row of A J_AROW(K) = 0 - ENDDO + ENDDO NTERM_AROW = 0 ! Formulate J_AROW, AROW - a CRS representation of one row of A IF (SYM_A == 'Y') THEN ! 1st, look for terms that would be in this row, but are not, due to SYM @@ -219,13 +219,13 @@ SUBROUTINE MATMULT_SFS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, MAT A_ROW_BEG = A_ROW_END + 1 ENDDO i_do - + IF ((DEBUG(83) == 1) .OR. (DEBUG(83) == 3)) CALL MATMULT_SFS_NTERM_DEB ( '9', ' ' ) CALL DEALLOCATE_SPARSE_ALG ( 'J_AROW' ) - + RETURN ! ********************************************************************************************************************************** @@ -277,7 +277,7 @@ SUBROUTINE MATMULT_SFS_NTERM_DEB ( WHICH, ALG ) ELSE IF (WHICH == '6') THEN - WRITE(F06,2061) ALG, K, I, J_A(K), NTERM_AROW, J_AROW(NTERM_AROW) + WRITE(F06,2061) ALG, K, I, J_A(K), NTERM_AROW, J_AROW(NTERM_AROW) ELSE IF (WHICH == '7') THEN diff --git a/Source/UTIL/MATMULT_SSS.f90 b/Source/UTIL/MATMULT_SSS.f90 index 8e27d1d2..8c52ed0f 100644 --- a/Source/UTIL/MATMULT_SSS.f90 +++ b/Source/UTIL/MATMULT_SSS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATMULT_SSS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, & MAT_B_NAME, NCOL_B, NTERM_B, SYM_B, J_B, I_B, B, AROW_MAX_TERMS, MAT_C_NAME, CONS, & NTERM_C, I_C, J_C, C ) - + !/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ! Subroutine MATMULT_SSS_NTERM must be run before this subroutine to calculate NTERM_C, an input to this subroutine, that is the ! number of nonzero terms in C. Then memory can be allocated to C before this subroutine is called @@ -82,11 +82,11 @@ SUBROUTINE MATMULT_SSS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE MATMULT_SSS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MATMULT_SSS' CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B @@ -122,10 +122,10 @@ SUBROUTINE MATMULT_SSS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, INTEGER(LONG) :: NHITS ! Number of "hits" of terms in a row of A existing where terms in a ! col of B exist when a row of A is multiplied by a col of B INTEGER(LONG) :: NTERM_AROW ! Number of nonzero terms in AROW (one row of A) - INTEGER(LONG) :: A_ROW_COLJ_BEG(NROW_A)! jth term is row number in array A where col j nonzeros begin + INTEGER(LONG) :: A_ROW_COLJ_BEG(NROW_A)! jth term is row number in array A where col j nonzeros begin INTEGER(LONG) :: A_ROW_COLJ_END(NROW_A)! jth term is row number in MATIN where col j nonzeros end - + REAL(DOUBLE) , INTENT(IN ) :: CONS ! Constant multiplier in cons*A*B to get C REAL(DOUBLE) , INTENT(IN ) :: A(NTERM_A) ! Nonzero values in matrix A REAL(DOUBLE) , INTENT(IN ) :: B(NTERM_B) ! Nonzero values in matrix B @@ -146,7 +146,7 @@ SUBROUTINE MATMULT_SSS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, WRITE(ERR,948) SUBR_NAME, MAT_B_NAME, SYM_B WRITE(F06,948) SUBR_NAME, MAT_B_NAME, SYM_B CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF ! Initialize outputs @@ -165,10 +165,10 @@ SUBROUTINE MATMULT_SSS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, ! terms for the A matrix that are not explicitly in A. This is done by getting A terms in the column (above the ! diagonal of a row) as well as the explicit terms from A that are there from the diagonal out to the end of the row. The two ! arrays: A_ROW_COLJ_BEG and A_ROW_COLJ_END are used to aid in getting the terms in the column above the diagonal. -! A_ROW_COLJ_BEG is an array that gives, for each col of A, the starting row number of nonzero terms in that column. +! A_ROW_COLJ_BEG is an array that gives, for each col of A, the starting row number of nonzero terms in that column. ! A_ROW_COLJ_END is an array that gives, for each col of A, the ending row number of nonzero terms in that column. ! The span: A_ROW_COLJ_BEG to A_ROW_COLJ_END is used when we search for terms in the columns. -! We only need A_ROW_COLJ_BEG and A_ROW_COLJ_END when A is input symmetric and MATOUT is not to be output as symmetric +! We only need A_ROW_COLJ_BEG and A_ROW_COLJ_END when A is input symmetric and MATOUT is not to be output as symmetric IF (SYM_A == 'Y') THEN ! The number of cols in A is NROW_A (due to SYM_A = 'Y') @@ -187,18 +187,18 @@ SUBROUTINE MATMULT_SSS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, i_do: DO I=1,NROW_A ! Matrix multiply loop. Range over the rows in A I_C(I+1) = I_C(I) ! End value in I_C for next this row is initially set at beginning value - A_NTERM_ROW_I = I_A(I+1) - I_A(I) ! Number of terms in matrix A in row I - IF (A_NTERM_ROW_I == 0) CYCLE i_do + A_NTERM_ROW_I = I_A(I+1) - I_A(I) ! Number of terms in matrix A in row I + IF (A_NTERM_ROW_I == 0) CYCLE i_do A_ROW_END = A_ROW_BEG + A_NTERM_ROW_I - 1 ! A_ROW_BEG to A_ROW_END is range of indices of terms in A for row I of A IF ((DEBUG(84) == 2) .OR. (DEBUG(84) == 3)) CALL MATMULT_SSS_DEB ( '2', ' ' ) DO K=1,AROW_MAX_TERMS ! Null J_AROW and AROW each time we begin a new row of A AROW(K) = ZERO J_AROW(K) = 0 - ENDDO + ENDDO ! Build AROW for one row of matrix A NTERM_AROW = 0 ! 1st, look for terms that would be in this row, but are not, due to SYM - IF (SYM_A == 'Y') THEN + IF (SYM_A == 'Y') THEN DO K=1,A_ROW_BEG-1 IF (J_A(K) == I) THEN NTERM_AROW = NTERM_AROW + 1 @@ -235,14 +235,14 @@ SUBROUTINE MATMULT_SSS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, IF (A_COL_NUM == B_ROW_NUM) THEN NHITS = NHITS + 1 DELTA_KTERM_C = 1 - CTEMP = CTEMP + CONS*AROW(K)*B(L) ! This is the nonzero ij-th term in matrix C. + CTEMP = CTEMP + CONS*AROW(K)*B(L) ! This is the nonzero ij-th term in matrix C. ENDIF ENDDO l_do ENDDO k_do B_COL_BEG = B_COL_END + 1 KTERM_C = KTERM_C + DELTA_KTERM_C ! Now update sparse CRS representation of C - IF (KTERM_C > NTERM_C) CALL ARRAY_SIZE_ERROR_1( SUBR_NAME, NTERM_C, MAT_C_NAME ) + IF (KTERM_C > NTERM_C) CALL ARRAY_SIZE_ERROR_1( SUBR_NAME, NTERM_C, MAT_C_NAME ) IF (NHITS > 0) THEN I_C(I+1) = I_C(I+1) + 1 J_C(KTERM_C) = J @@ -264,7 +264,7 @@ SUBROUTINE MATMULT_SSS ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, A, IF ((DEBUG(84) == 2) .OR. (DEBUG(84) == 3)) CALL MATMULT_SSS_DEB ( '9', ' ' ) - + RETURN ! ********************************************************************************************************************************** diff --git a/Source/UTIL/MATMULT_SSS_NTERM.f90 b/Source/UTIL/MATMULT_SSS_NTERM.f90 index 8fc46f44..ebbbc14b 100644 --- a/Source/UTIL/MATMULT_SSS_NTERM.f90 +++ b/Source/UTIL/MATMULT_SSS_NTERM.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATMULT_SSS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, & MAT_B_NAME, NCOL_B, NTERM_B, SYM_B, J_B, I_B, AROW_MAX_TERMS, MAT_C_NAME, NTERM_C ) @@ -63,11 +63,11 @@ SUBROUTINE MATMULT_SSS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, USE TIMDAT, ONLY : TSEC USE SPARSE_ALG_ARRAYS, ONLY : J_AROW USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE MATMULT_SSS_NTERM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MATMULT_SSS_NTERM' CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B @@ -85,7 +85,7 @@ SUBROUTINE MATMULT_SSS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, INTEGER(LONG), INTENT(IN ) :: I_B(NTERM_B) ! Row no's for nonzero terms in matrix B INTEGER(LONG), INTENT(OUT) :: AROW_MAX_TERMS ! Max number of terms in any row of A INTEGER(LONG), INTENT(OUT) :: NTERM_C ! Number of nonzero terms in output matrix C - INTEGER(LONG) :: A_ROW_COLJ_BEG(NROW_A) ! jth term is row number in A where col j nonzeros begin + INTEGER(LONG) :: A_ROW_COLJ_BEG(NROW_A) ! jth term is row number in A where col j nonzeros begin INTEGER(LONG) :: A_ROW_COLJ_END(NROW_A) ! jth term is row number in A where col j nonzeros end INTEGER(LONG) :: A_NTERM_ROW_I ! Number of terms in row I of matrix A INTEGER(LONG) :: A_COL_NUM ! A col number in matrix A @@ -104,7 +104,7 @@ SUBROUTINE MATMULT_SSS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, ! row of B exist when a row of A is multiplied by al cols of B INTEGER(LONG) :: NTERM_AROW ! Max number of nonzero terms in one row of A - + INTRINSIC :: MAX @@ -117,7 +117,7 @@ SUBROUTINE MATMULT_SSS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, WRITE(ERR,948) SUBR_NAME, MAT_B_NAME, SYM_B WRITE(F06,948) SUBR_NAME, MAT_B_NAME, SYM_B CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF ! Initialize outputs @@ -156,10 +156,10 @@ SUBROUTINE MATMULT_SSS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, ! terms for the A matrix that are not explicitly in A. This is done by getting A terms in the column (above the ! diagonal of a row) as well as the explicit terms from A that are there from the diagonal out to the end of the row. The two ! arrays: A_ROW_COLJ_BEG and A_ROW_COLJ_END are used to aid in getting the terms in the column above the diagonal. -! A_ROW_COLJ_BEG is an array that gives, for each col of A, the starting row number of nonzero terms in that column. +! A_ROW_COLJ_BEG is an array that gives, for each col of A, the starting row number of nonzero terms in that column. ! A_ROW_COLJ_END is an array that gives, for each col of A, the ending row number of nonzero terms in that column. ! The span: A_ROW_COLJ_BEG to A_ROW_COLJ_END is used when we search for terms in the columns. -! We only need A_ROW_COLJ_BEG and A_ROW_COLJ_END when A is input symmetric and MATOUT is not to be output as symmetric +! We only need A_ROW_COLJ_BEG and A_ROW_COLJ_END when A is input symmetric and MATOUT is not to be output as symmetric IF (SYM_A == 'Y') THEN @@ -172,17 +172,17 @@ SUBROUTINE MATMULT_SSS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, NHITS = 0 ! Initialize variables used in the matrix multiplication in the DO I loop NHITS_TOT_FOR_ROW_OF_A = 0 - A_ROW_BEG = 1 + A_ROW_BEG = 1 i_do: DO I=1,NROW_A ! Matrix multiply loop. Range over the rows in A A_NTERM_ROW_I = I_A(I+1) - I_A(I) ! Number of terms in matrix A in row I - IF (A_NTERM_ROW_I == 0) CYCLE i_do + IF (A_NTERM_ROW_I == 0) CYCLE i_do A_ROW_END = A_ROW_BEG + A_NTERM_ROW_I - 1 ! A_ROW_BEG to A_ROW_END is the range of indices of terms in A for row I IF ((DEBUG(84) == 1) .OR. (DEBUG(84) == 3)) CALL MATMULT_SSS_NTERM_DEB ( '2', ' ' ) DO K=1,AROW_MAX_TERMS ! Null J_AROW and AROW each time we begin a new row of A J_AROW(K) = 0 - ENDDO + ENDDO ! Formulate J_AROW NTERM_AROW = 0 ! 1st, look for terms that would be in this row, but are not, due to SYM IF (SYM_A == 'Y') THEN @@ -212,7 +212,7 @@ SUBROUTINE MATMULT_SSS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, IF (B_NTERM_COL_J == 0) CYCLE j_do B_COL_END = B_COL_BEG + B_NTERM_COL_J - 1 -k_do: DO K=1,NTERM_AROW ! The following 2 loops det the ij-th term of C +k_do: DO K=1,NTERM_AROW ! The following 2 loops det the ij-th term of C A_COL_NUM = J_AROW(K) l_do: DO L=B_COL_BEG,B_COL_END B_ROW_NUM = I_B(L) @@ -224,7 +224,7 @@ SUBROUTINE MATMULT_SSS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, ENDDO l_do ENDDO k_do B_COL_BEG = B_COL_END + 1 - + NTERM_C = NTERM_C + DELTA_NTERM_C IF ((DEBUG(84) == 1) .OR. (DEBUG(84) == 3)) CALL MATMULT_SSS_NTERM_DEB ( '7', ' ' ) DELTA_NTERM_C = 0 @@ -245,11 +245,11 @@ SUBROUTINE MATMULT_SSS_NTERM ( MAT_A_NAME, NROW_A, NTERM_A, SYM_A, I_A, J_A, ENDDO i_do IF ((DEBUG(84) == 1) .OR. (DEBUG(84) == 3)) CALL MATMULT_SSS_NTERM_DEB ( '9', ' ' ) - + CALL DEALLOCATE_SPARSE_ALG ( 'J_AROW' ) - + RETURN ! ********************************************************************************************************************************** @@ -304,7 +304,7 @@ SUBROUTINE MATMULT_SSS_NTERM_DEB ( WHICH, ALG ) ELSE IF (WHICH == '6') THEN - WRITE(F06,2061) ALG, K, I, J_A(K), NTERM_AROW, J_AROW(NTERM_AROW) + WRITE(F06,2061) ALG, K, I, J_A(K), NTERM_AROW, J_AROW(NTERM_AROW) ELSE IF (WHICH == '7') THEN diff --git a/Source/UTIL/MATTRNSP_SS.f90 b/Source/UTIL/MATTRNSP_SS.f90 index f8cc9d9e..a88ee9e4 100644 --- a/Source/UTIL/MATTRNSP_SS.f90 +++ b/Source/UTIL/MATTRNSP_SS.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MATTRNSP_SS ( NROWA, NCOLA, NTERM, MAT_A_NAME, I_A, J_A, A, MAT_AT_NAME, I_AT, J_AT, AT ) ! Transposes input matrix defined by arrays I_A, J_A, A (CRS sparse format) and puts result into output arrays -! I_AT, J_AT, AT (also in CRS sparse format) - +! I_AT, J_AT, AT (also in CRS sparse format) + ! Input matrix A is stored in compressed row storage (CRS) format using arrays I_A(NROWA+1), J_A(NTERM_A) A(NTERM_A) where NROWA ! is the number of rows in matrix A and NTERM_A are the number of nonzero terms in matrix A: @@ -55,15 +55,15 @@ SUBROUTINE MATTRNSP_SS ( NROWA, NCOLA, NTERM, MAT_A_NAME, I_A, J_A, A, MAT_AT_NA USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE MATTRNSP_SS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MATTRNSP_SS' CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix to be transposed CHARACTER(LEN=*), INTENT(IN) :: MAT_AT_NAME ! Name of matrix that is transposed - + INTEGER(LONG), INTENT(IN) :: NCOLA ! Number of cols in input matrix, A INTEGER(LONG), INTENT(IN) :: NROWA ! Number of rows in input matrix, A INTEGER(LONG), INTENT(IN) :: NTERM ! Number of nonzero terms in input matrix, A @@ -77,9 +77,9 @@ SUBROUTINE MATTRNSP_SS ( NROWA, NCOLA, NTERM, MAT_A_NAME, I_A, J_A, A, MAT_AT_NA REAL(DOUBLE) , INTENT(IN) :: A(NTERM) ! Real nonzero values in input matrix A REAL(DOUBLE) , INTENT(OUT) :: AT(NTERM) ! Real nonzero values in output matrix AT - + INTEGER(LONG) :: TMP, COL ! temp variables for storage in loops - INTEGER(LONG) :: CUMSUM ! cumulative sum + INTEGER(LONG) :: CUMSUM ! cumulative sum ! ********************************************************************************************************************************** @@ -165,7 +165,7 @@ SUBROUTINE MATTRNSP_SS_DEB ( WHICH, ALG ) WRITE(F06,1016) NROWA, NCOLA, NTERM WRITE(F06,*) - WRITE(F06,2800) + WRITE(F06,2800) WRITE(F06,*) WRITE(F06,3001) DO II=1,NROWA+1 @@ -180,7 +180,7 @@ SUBROUTINE MATTRNSP_SS_DEB ( WHICH, ALG ) ELSE IF (WHICH == '2') THEN - WRITE(F06,2800) + WRITE(F06,2800) WRITE(F06,3020) MAT_AT_NAME, NCOLA, NROWA, NTERM WRITE(F06,*) WRITE(F06,3021) diff --git a/Source/UTIL/MERGE_COL_VECS.f90 b/Source/UTIL/MERGE_COL_VECS.f90 index 7f9aeb46..73f9def0 100644 --- a/Source/UTIL/MERGE_COL_VECS.f90 +++ b/Source/UTIL/MERGE_COL_VECS.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MERGE_COL_VECS ( IN1_COL, IN1_NDOF, UIN1, IN2_COL, IN2_NDOF, UIN2 & ,OUT_COL, OUT_NDOF, UOUT ) @@ -32,18 +32,18 @@ SUBROUTINE MERGE_COL_VECS ( IN1_COL, IN1_NDOF, UIN1, IN2_COL, IN2_NDOF, UIN2 & ! If the 2 input vector displ sets being merged are not complementary to the output vector displ set, a coding error is given ! and processing is stopped. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DOF_TABLES, ONLY : TDOFI - + USE MERGE_COL_VECS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MERGE_COL_VECS' INTEGER(LONG), INTENT(IN ) :: IN1_COL ! Column number in TDOF, TDOFI for the displ set for input vector UIN1 @@ -61,8 +61,8 @@ SUBROUTINE MERGE_COL_VECS ( IN1_COL, IN1_NDOF, UIN1, IN2_COL, IN2_NDOF, UIN2 & REAL(DOUBLE) , INTENT(IN ) :: UIN1(IN1_NDOF) ! Input vector for IN1_COL displ set REAL(DOUBLE) , INTENT(IN ) :: UIN2(IN2_NDOF) ! Input vector for IN2_COL displ set REAL(DOUBLE) , INTENT(OUT) :: UOUT(OUT_NDOF) ! Output vector for OUT_COL displ set - - + + ! ********************************************************************************************************************************** @@ -75,17 +75,17 @@ SUBROUTINE MERGE_COL_VECS ( IN1_COL, IN1_NDOF, UIN1, IN2_COL, IN2_NDOF, UIN2 & ! Merge rows of UIN1 and UIN2 into UOUT DO I=1,NDOFG - + IN1_DOF = TDOFI(I,IN1_COL) IN2_DOF = TDOFI(I,IN2_COL) OUT_DOF = TDOFI(I,OUT_COL) IF ((IN1_DOF > IN1_NDOF) .OR. (IN2_DOF > IN2_NDOF) .OR. (OUT_DOF > OUT_NDOF)) THEN - WRITE(ERR,938) SUBR_NAME,IN1_DOF,IN1_NDOF,IN2_DOF,IN2_NDOF,OUT_DOF,OUT_NDOF - WRITE(F06,938) SUBR_NAME,IN1_DOF,IN1_NDOF,IN2_DOF,IN2_NDOF,OUT_DOF,OUT_NDOF + WRITE(ERR,938) SUBR_NAME,IN1_DOF,IN1_NDOF,IN2_DOF,IN2_NDOF,OUT_DOF,OUT_NDOF + WRITE(F06,938) SUBR_NAME,IN1_DOF,IN1_NDOF,IN2_DOF,IN2_NDOF,OUT_DOF,OUT_NDOF FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) ! Coding error (attempt to exceed allocated array size), so quit - ENDIF + ENDIF IF (OUT_DOF > 0) THEN IF (IN1_DOF > 0) THEN @@ -100,8 +100,8 @@ SUBROUTINE MERGE_COL_VECS ( IN1_COL, IN1_NDOF, UIN1, IN2_COL, IN2_NDOF, UIN2 & ENDIF ENDIF - ENDDO - + ENDDO + RETURN diff --git a/Source/UTIL/MERGE_MAT_COLS_SSS.f90 b/Source/UTIL/MERGE_MAT_COLS_SSS.f90 index 2a9ff8ec..95a02b4a 100644 --- a/Source/UTIL/MERGE_MAT_COLS_SSS.f90 +++ b/Source/UTIL/MERGE_MAT_COLS_SSS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE MERGE_MAT_COLS_SSS ( MAT_A_NAME, NTERM_A, I_A, J_A, A, SYM_A, NCOL_A, & MAT_B_NAME, NTERM_B, I_B, J_B, B, SYM_B, NROWS, & @@ -195,7 +195,7 @@ SUBROUTINE MERGE_MAT_COLS_SSS_DEB ( WHICH ) WRITE(F06,99885) J, L, K_C_BEG_ROW+J-1, J_C(K_C_BEG_ROW+J-1), C(K_C_BEG_ROW+J-1) ENDIF - IF (WHICH == '9') THEN + IF (WHICH == '9') THEN WRITE(F06,99890) ENDIF diff --git a/Source/UTIL/MERGE_MAT_ROWS_SSS.f90 b/Source/UTIL/MERGE_MAT_ROWS_SSS.f90 index 7de2f099..966dc6f5 100644 --- a/Source/UTIL/MERGE_MAT_ROWS_SSS.f90 +++ b/Source/UTIL/MERGE_MAT_ROWS_SSS.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE MERGE_MAT_ROWS_SSS ( MAT_A_NAME, NROW_A, NTERM_A, I_A, J_A, A, MERGE_VEC_VALS_A, & MAT_B_NAME, NROW_B, NTERM_B, I_B, J_B, B, MERGE_VEC_VALS_B, MERGE_VEC, & MAT_C_NAME, I_C, J_C, C ) - -! Merges rows of 2 sparse CRS matrices, which have the same number of cols, into a new sparse CRS matrix + +! Merges rows of 2 sparse CRS matrices, which have the same number of cols, into a new sparse CRS matrix USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 @@ -37,11 +37,11 @@ SUBROUTINE MERGE_MAT_ROWS_SSS ( MAT_A_NAME, NROW_A, NTERM_A, I_A, J_A, A, MERGE_ USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG USE SPARSE_ALG_ARRAYS, ONLY : LOGICAL_VEC, REAL_VEC - + USE MERGE_MAT_ROWS_SSS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'MERGE_MAT_ROWS_SSS' CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of matrix A CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of matrix B @@ -71,7 +71,7 @@ SUBROUTINE MERGE_MAT_ROWS_SSS ( MAT_A_NAME, NROW_A, NTERM_A, I_A, J_A, A, MERGE_ INTEGER(LONG) :: ROW_NUM_A ! Row number in matrix A INTEGER(LONG) :: ROW_NUM_B ! Row number in matrix B - + REAL(DOUBLE) , INTENT(IN ) :: A(NTERM_A) ! Nonzero terms in matrix A REAL(DOUBLE) , INTENT(IN ) :: B(NTERM_B) ! Nonzero terms in matrix B REAL(DOUBLE) , INTENT(OUT) :: C(NTERM_A+NTERM_B) ! Nonzero terms in matrix C @@ -114,7 +114,7 @@ SUBROUTINE MERGE_MAT_ROWS_SSS ( MAT_A_NAME, NROW_A, NTERM_A, I_A, J_A, A, MERGE_ ENDDO - + RETURN ! ********************************************************************************************************************************** diff --git a/Source/UTIL/OPEN_OUTFILES.f90 b/Source/UTIL/OPEN_OUTFILES.f90 index 707869e1..c7514dbc 100644 --- a/Source/UTIL/OPEN_OUTFILES.f90 +++ b/Source/UTIL/OPEN_OUTFILES.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE OPEN_OUTFILES ! Opens BUGFIL, ERRFIL, F06FIL and, after checking STIME, closes the file so it can be reopened with APPEND. -! This subr is intended for opening these files +! This subr is intended for opening these files USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUG , ERR , F06 , SC1, BUGOUT, FILE_NAM_MAXLEN, & @@ -69,7 +69,7 @@ SUBROUTINE OPEN_OUTFILES ! If there were any errors based on opening above files, quit. DO I=1,4 - IF (IERR(I) > 0) THEN + IF (IERR(I) > 0) THEN CALL FILERR ( OUNT ) QUIT = 'Y' ENDIF @@ -80,9 +80,9 @@ SUBROUTINE OPEN_OUTFILES ENDIF ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE OPENIT ( FILNAM, UNIT, UNIT_NAME, FILE_MSG, IERR0 ) diff --git a/Source/UTIL/OPNERR.f90 b/Source/UTIL/OPNERR.f90 index 2b3ab884..8445eafa 100644 --- a/Source/UTIL/OPNERR.f90 +++ b/Source/UTIL/OPNERR.f90 @@ -1,36 +1,36 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OPNERR ( IOCHK, FILNAM, OUNT ) - -! Prints error messages when IOSTAT is not zero on a file OPEN. - + +! Prints error messages when IOSTAT is not zero on a file OPEN. + USE PENTIUM_II_KIND, ONLY : LONG USE SCONTR, ONLY : FATAL_ERR, RESTART - + USE OPNERR_USE_IFs IMPLICIT NONE @@ -39,17 +39,17 @@ SUBROUTINE OPNERR ( IOCHK, FILNAM, OUNT ) LOGICAL :: FILE_OPENED ! True if FILNAM is open CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG), INTENT(IN) :: IOCHK ! IOSTAT error number when opening/reading a file INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to - + ! ********************************************************************************************************************************** ! IOCHK < 0 is due to EOF/EOR during open. IOCHK > 0 is due to error during open. - + INQUIRE (FILE=FILNAM,OPENED=FILE_OPENED) INQUIRE (FILE=FILNAM, EXIST=FILE_EXIST) DO I=1,2 @@ -85,7 +85,7 @@ SUBROUTINE OPNERR ( IOCHK, FILNAM, OUNT ) CALL WRITE_FILNAM ( FILNAM, OUNT(I), 15 ) WRITE(OUNT(I),9242) - ENDIF + ENDIF ENDIF @@ -96,7 +96,7 @@ SUBROUTINE OPNERR ( IOCHK, FILNAM, OUNT ) ENDDO FATAL_ERR = FATAL_ERR + 1 - + IF (FILE_OPENED) THEN CALL OUTA_HERE ( 'N' ) ENDIF @@ -106,7 +106,7 @@ SUBROUTINE OPNERR ( IOCHK, FILNAM, OUNT ) ! ********************************************************************************************************************************** 902 FORMAT(' *ERROR 902: EOF/EOR ENCOUNTERED WITH IOSTAT = ',I8,' OPENING FILE:') - + 903 FORMAT(' *ERROR 903: ERROR ENCOUNTERED WITH IOSTAT = ',I8,' OPENING FILE:') 9222 FORMAT(' THE FILE DOES NOT EXIST. THIS IS A PROGRAMMING ERROR.',/) @@ -119,5 +119,5 @@ SUBROUTINE OPNERR ( IOCHK, FILNAM, OUNT ) 9242 FORMAT(' THE FILE EXISTS AND IS NOT OPENED. THIS IS A PROGRAMMING ERROR.') ! ********************************************************************************************************************************** - + END SUBROUTINE OPNERR diff --git a/Source/UTIL/OURDAT.f90 b/Source/UTIL/OURDAT.f90 index 5987011e..413dba26 100644 --- a/Source/UTIL/OURDAT.f90 +++ b/Source/UTIL/OURDAT.f90 @@ -1,55 +1,55 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OURDAT - + ! Returns date info using Fortran DATE_AND_TIME intrinsic procedure - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE TIMDAT, ONLY : YEAR, MONTH, DAY - + USE OURDAT_USE_IFs IMPLICIT NONE - + CHARACTER( 8*BYTE) :: DATE ! Date returned from intrinsic function DATE_AND_TIME CHARACTER(10*BYTE) :: TIME ! Time returned from intrinsic function DATE_AND_TIME CHARACTER( 5*BYTE) :: ZONE ! Zone returned from intrinsic function DATE_AND_TIME - + INTEGER(LONG) :: VALUES(8) ! Contains year, month, day from intrinsic function DATE_AND_TIME - + INTRINSIC :: DATE_AND_TIME - + ! ********************************************************************************************************************************** CALL DATE_AND_TIME(DATE,TIME,ZONE,VALUES) YEAR = VALUES(1) MONTH = VALUES(2) DAY = VALUES(3) - + RETURN - + END SUBROUTINE OURDAT diff --git a/Source/UTIL/OURTIM.f90 b/Source/UTIL/OURTIM.f90 index 37351fb7..b80b3b62 100644 --- a/Source/UTIL/OURTIM.f90 +++ b/Source/UTIL/OURTIM.f90 @@ -1,73 +1,73 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OURTIM - + ! Returns time using Fortran DATE_AND_TIME intrinsic procedure - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC, DSEC USE OURTIM_USE_IFs IMPLICIT NONE - + CHARACTER( 8*BYTE) :: DATE ! Date returned from intrinsic function DATE_AND_TIME CHARACTER(10*BYTE) :: TIME ! Time returned from intrinsic function DATE_AND_TIME CHARACTER( 5*BYTE) :: ZONE ! Zone returned from intrinsic function DATE_AND_TIME - + INTEGER(LONG) :: OLD_HOUR ! Value of HOUR (module TIMDAT) when OURTIM was called INTEGER(LONG) :: OLD_MIN ! Value of MINUTE (module TIMDAT) when OURTIM was called INTEGER(LONG) :: OLD_SEC ! Value of SEC (module TIMDAT) when OURTIM was called INTEGER(LONG) :: OLD_SFRAC ! Value of SFRAC (module TIMDAT) when OURTIM was called INTEGER(LONG) :: VALUES(8) ! Contains year, month, day from intrinsic function DATE_AND_TIME - + INTRINSIC :: DATE_AND_TIME - + ! ********************************************************************************************************************************** OLD_HOUR = HOUR OLD_MIN = MINUTE OLD_SEC = SEC OLD_SFRAC = SFRAC - + CALL DATE_AND_TIME ( DATE, TIME, ZONE, VALUES ) - + HOUR = VALUES(5) MINUTE = VALUES(6) SEC = VALUES(7) SFRAC = VALUES(8) - + ! Reset OLD_HOUR for new day: - + IF (OLD_HOUR > HOUR) THEN OLD_HOUR = OLD_HOUR - 24 ENDIF - + ! Check for first pass thru OURTIM (HOUR is initialized to -100 in the MYSTRAN.for) and calc DSEC, TSEC (module TIMDAT) - + IF (OLD_HOUR == -100) THEN DSEC = 0.0 TSEC = 0.0 @@ -75,7 +75,7 @@ SUBROUTINE OURTIM DSEC = 3600*(HOUR-OLD_HOUR) + 60*(MINUTE-OLD_MIN)+(SEC-OLD_SEC) + .001*(SFRAC-OLD_SFRAC) TSEC = TSEC + DSEC ENDIF - + RETURN - + END SUBROUTINE OURTIM diff --git a/Source/UTIL/OUTA_HERE.f90 b/Source/UTIL/OUTA_HERE.f90 index 4d0fcbc8..540d3901 100644 --- a/Source/UTIL/OUTA_HERE.f90 +++ b/Source/UTIL/OUTA_HERE.f90 @@ -1,43 +1,43 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - SUBROUTINE OUTA_HERE ( WRITE_TO_L1A ) - +! End MIT license text. + + SUBROUTINE OUTA_HERE ( WRITE_TO_L1A ) + ! Routine called when MYSTRAN has to stop due to some error. Writes data to file LINK1A, writes error message and stops - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : BUGOUT, F06FIL, SC1, & BUGSTAT, BUGSTAT_OLD, ERRSTAT, ERRSTAT_OLD, & - OP2STAT, PCHSTAT, L1ASTAT + OP2STAT, PCHSTAT, L1ASTAT - USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LINKNO, WARN_ERR + USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, LINKNO, WARN_ERR USE TIMDAT, ONLY : TSEC USE PARAMS, ONLY : SUPWARN - + USE OUTA_HERE_USE_IFs IMPLICIT NONE @@ -116,5 +116,5 @@ SUBROUTINE OUTA_HERE ( WRITE_TO_L1A ) 9999 FORMAT(' Processing terminated. Check for error messages in output file:') ! ********************************************************************************************************************************** - + END SUBROUTINE OUTA_HERE diff --git a/Source/UTIL/OUTER_PRODUCT.f90 b/Source/UTIL/OUTER_PRODUCT.f90 index a4d14373..238cea69 100644 --- a/Source/UTIL/OUTER_PRODUCT.f90 +++ b/Source/UTIL/OUTER_PRODUCT.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OUTER_PRODUCT ( A, B, NA, NB, C ) - + ! Computes the outer product of two vectors: A and B. Returns result, matrix C. - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE IMPLICIT NONE @@ -35,18 +35,18 @@ SUBROUTINE OUTER_PRODUCT ( A, B, NA, NB, C ) INTEGER(LONG), INTENT(IN) :: NA ! No. elements in input vector A INTEGER(LONG), INTENT(IN) :: NB ! No. elements in input vector B INTEGER(LONG) :: I,J ! DO loop indices - + REAL(DOUBLE) , INTENT(IN) :: A(NA) ! Input vector A REAL(DOUBLE) , INTENT(IN) :: B(NB) ! Input vector B REAL(DOUBLE) , INTENT(OUT) :: C(NA,NB) ! Output matrix C - + ! ********************************************************************************************************************************* DO I =1,NA DO J = 1,NB C(I,J) = A(I)*B(J) - ENDDO - ENDDO + ENDDO + ENDDO ! ********************************************************************************************************************************** diff --git a/Source/UTIL/OUTPUT2_GEOM1_HELPER.f90 b/Source/UTIL/OUTPUT2_GEOM1_HELPER.f90 index 47f15eed..ade8a34d 100644 --- a/Source/UTIL/OUTPUT2_GEOM1_HELPER.f90 +++ b/Source/UTIL/OUTPUT2_GEOM1_HELPER.f90 @@ -23,7 +23,7 @@ SUBROUTINE WRITE_OP2_GEOM1_GRID(ITABLE, NGRID_ACTUAL, GRID_INDEX) ! if there are GRIDs NVALUES = NUM_WIDE * NGRID_ACTUAL - + DO J=1,NGRID_ACTUAL ! nid, cp, x, y, z, cd, ps, seid I = GRID_INDEX(J) @@ -51,7 +51,7 @@ SUBROUTINE WRITE_OP2_GEOM1_GRID(ITABLE, NGRID_ACTUAL, GRID_INDEX) (GRID_ID(GRID_INDEX(J)), GRID(GRID_INDEX(J),2), & REAL(RGRID(GRID_INDEX(J),1),4), REAL(RGRID(GRID_INDEX(J),2),4), REAL(RGRID(GRID_INDEX(J),3),4), & GRID(GRID_INDEX(J),3), GRID(GRID_INDEX(J),4), SEID, J=1,NGRID_ACTUAL) - + CALL WRITE_OP2_SUBTABLE_INCREMENT(ITABLE) ENDIF END SUBROUTINE WRITE_OP2_GEOM1_GRID @@ -88,23 +88,23 @@ SUBROUTINE WRITE_OP2_GEOM1_CORD(ITABLE) ! ! Each row of RCORD has: ! After Bulk Data has been read: - ! Col. 1: X coord of Pt A in RID coord system - ! Col. 2: Y coord of Pt A in RID coord system - ! Col. 3: Z coord of Pt A in RID coord system - ! Col. 4: X coord of Pt B in RID coord system - ! Col. 5: Y coord of Pt B in RID coord system - ! Col. 6: Z coord of Pt B in RID coord system - ! Col. 7: X coord of Pt C in RID coord system - ! Col. 8: Y coord of Pt C in RID coord system - ! Col. 9: Z coord of Pt C in RID coord system + ! Col. 1: X coord of Pt A in RID coord system + ! Col. 2: Y coord of Pt A in RID coord system + ! Col. 3: Z coord of Pt A in RID coord system + ! Col. 4: X coord of Pt B in RID coord system + ! Col. 5: Y coord of Pt B in RID coord system + ! Col. 6: Z coord of Pt B in RID coord system + ! Col. 7: X coord of Pt C in RID coord system + ! Col. 8: Y coord of Pt C in RID coord system + ! Col. 9: Z coord of Pt C in RID coord system ! Col. 10: 0. ! Col. 11: 0. ! Col. 12: 0. - ! + ! ! After subr CORD_PROC has run: ! Col. 1: Location of CID origin in basic coord sys X dir - ! Col. 2: Location of CID origin in basic coord sys Y dir - ! Col. 3: Location of CID origin in basic coord sys Z dir + ! Col. 2: Location of CID origin in basic coord sys Y dir + ! Col. 3: Location of CID origin in basic coord sys Z dir ! Col. 4: TN(1,1,M) for M = row no. in RCORD (internal coord. sys. ID = M) ] ! Col. 5: TN(1,2,M) for M = row no. in RCORD (internal coord. sys. ID = M) |- 1st row of TN in cols 4- 6 of RCORD ! Col. 6: TN(1,3,M) for M = row no. in RCORD (internal coord. sys. ID = M) ] @@ -134,7 +134,7 @@ SUBROUTINE WRITE_OP2_GEOM1_CORD(ITABLE) ! Col. 2: CID = Coord system ID ! Col. 3: RID = Reference coord system ID for this CORD2R,C,S ! ! identify the GRIDs vs. the SPOINTs - + DO I=1,NCORD IF (CORD(I,1) == 11) THEN NCORD1R = NCORD1R + 1 @@ -151,7 +151,7 @@ SUBROUTINE WRITE_OP2_GEOM1_CORD(ITABLE) CORD2R_INDEX(NCORD2R) = I ELSE IF (CORD(I,1) == 22) THEN NCORD2C = NCORD2C + 1 - CORD2C_INDEX(NCORD2C) = I + CORD2C_INDEX(NCORD2C) = I ELSE IF (CORD(I,1) == 23) THEN NCORD2S = NCORD2S + 1 CORD2S_INDEX(NCORD2S) = I @@ -251,16 +251,16 @@ SUBROUTINE WRITE_OP2_CORD2(ITABLE, NCORD2, CORD2_INDEX, RCS_INT, CODEA, CODEB, C ! ! Col. 2: CID = Coord system ID ! Col. 3: RID = Reference coord system ID for this CORD2R,C,S - ! Col. 1: X coord of Pt A in RID coord system - ! Col. 2: Y coord of Pt A in RID coord system - ! Col. 3: Z coord of Pt A in RID coord system - ! Col. 4: X coord of Pt B in RID coord system - ! Col. 5: Y coord of Pt B in RID coord system - ! Col. 6: Z coord of Pt B in RID coord system - ! Col. 7: X coord of Pt C in RID coord system - ! Col. 8: Y coord of Pt C in RID coord system + ! Col. 1: X coord of Pt A in RID coord system + ! Col. 2: Y coord of Pt A in RID coord system + ! Col. 3: Z coord of Pt A in RID coord system + ! Col. 4: X coord of Pt B in RID coord system + ! Col. 5: Y coord of Pt B in RID coord system + ! Col. 6: Z coord of Pt B in RID coord system + ! Col. 7: X coord of Pt C in RID coord system + ! Col. 8: Y coord of Pt C in RID coord system ! Col. 9: Z coord of Pt C in RID coord system - + !! TODO: we want this to be written before CORD_MAP or whatever is called... WRITE(OP2) CODEA, CODEB, CODEC, & (CORD(CORD2_INDEX(I),2), RCS_INT, COORD_INT, CORD(CORD2_INDEX(I),3), & diff --git a/Source/UTIL/OUTPUT2_GEOM2_HELPER.f90 b/Source/UTIL/OUTPUT2_GEOM2_HELPER.f90 index 70922be0..ee082d52 100644 --- a/Source/UTIL/OUTPUT2_GEOM2_HELPER.f90 +++ b/Source/UTIL/OUTPUT2_GEOM2_HELPER.f90 @@ -5,7 +5,7 @@ SUBROUTINE WRITE_OP2_GEOM2() ! USE PENTIUM_II_KIND, ONLY : LONG, BYTE USE IOUNT1, ONLY : ERR, OP2 - + ! GEOM2 - elements USE SCONTR, ONLY : NCTETRA4, NCTETRA10, NCPENTA6, NCPENTA15, NCHEXA8, NCHEXA20 USE SCONTR, ONLY : NCQUAD4, NCQUAD4K, NCSHEAR, NCTRIA3, NCTRIA3K @@ -36,13 +36,13 @@ SUBROUTINE WRITE_OP2_GEOM2() INTEGER(LONG) :: NCROD_ACTUAL = 0 INTEGER(LONG) :: NCONROD_ACTUAL = 0 INTEGER(LONG), DIMENSION(NCROD) :: CROD_INDEX, CONROD_INDEX - + !CHARACTER( 8*BYTE), ALLOCATABLE :: ETYPE(:) ! NELE x 1 array of elem types !CHARACTER( 1*BYTE), ALLOCATABLE :: EOFF(:) ! NELE x 1 array of 'Y' for elem offsets or 'N' if not !INTEGER(LONG) , ALLOCATABLE :: EDAT(:) ! NEDAT x 1 array of elem connection data !INTEGER(LONG) , ALLOCATABLE :: EPNT(:) ! NELE x 1 array of pointers to EDAT where data begins for an elem - + !DO I=1,NEDAT !ENDDO @@ -60,9 +60,9 @@ SUBROUTINE WRITE_OP2_GEOM2() IS_GEOM2 = .FALSE. IF (IS_GEOM2) THEN -! ALLOCATE ( CTETRA(NCTETRA,12) ) -! ALLOCATE ( CPENTA(NCPENTA,17) ) -! ALLOCATE ( CHEXA(NCHEXA,22) ) +! ALLOCATE ( CTETRA(NCTETRA,12) ) +! ALLOCATE ( CPENTA(NCPENTA,17) ) +! ALLOCATE ( CHEXA(NCHEXA,22) ) CALL GET_GEOM2(CELAS1, CELAS2, CELAS3, CELAS4, & CROD, & @@ -85,7 +85,7 @@ SUBROUTINE WRITE_OP2_GEOM2() !CALL WRITE_OP2_GEOM2_CTRIA3(ITABLE, CTRIA3) !CALL WRITE_OP2_GEOM2_CQUAD4(ITABLE, CQUAD4) !CALL WRITE_OP2_GEOM2_CTETRA(ITABLE, CTETRA, NCTETRA) - + ! CORD2S_INDEX(1000000) ! intentional crash CALL END_OP2_GEOM_TABLE(ITABLE) ! DEALLOCATE (CTETRA) @@ -152,7 +152,7 @@ SUBROUTINE GET_GEOM2(CELAS1, CELAS2, CELAS3, CELAS4, & ! INTEGER(LONG), INTENT(INOUT), DIMENSION(NCPENTA, 17) :: CPENTA ! INTEGER(LONG), INTENT(INOUT), DIMENSION(NCHEXA, 22) :: CHEXA INTEGER(LONG) :: IPROD - + 1 FORMAT(A) WRITE(ERR,1) "STARTING GET_GEOM2" FLUSH(ERR) @@ -200,7 +200,7 @@ SUBROUTINE GET_GEOM2(CELAS1, CELAS2, CELAS3, CELAS4, & FLUSH(ERR) ICELAS2 = ICELAS2 + 1 - ELSE IF (ETYPE(I)(1:5) .EQ. 'ELAS3') THEN + ELSE IF (ETYPE(I)(1:5) .EQ. 'ELAS3') THEN ! 4 fields DO J=1,4 CELAS3(ICELAS3, J) = EDAT(EPNTK-1+J) @@ -209,7 +209,7 @@ SUBROUTINE GET_GEOM2(CELAS1, CELAS2, CELAS3, CELAS4, & FLUSH(ERR) ICELAS3 = ICELAS3 + 1 - ELSE IF (ETYPE(I)(1:5) .EQ. 'ELAS4') THEN + ELSE IF (ETYPE(I)(1:5) .EQ. 'ELAS4') THEN ! 4 fields DO J=1,4 CELAS4(ICELAS4, J) = EDAT(EPNTK-1+J) @@ -218,7 +218,7 @@ SUBROUTINE GET_GEOM2(CELAS1, CELAS2, CELAS3, CELAS4, & FLUSH(ERR) ICELAS4 = ICELAS4 + 1 - ELSE IF (ETYPE(I)(1:3) .EQ. 'ROD') THEN + ELSE IF (ETYPE(I)(1:3) .EQ. 'ROD') THEN !WRITE(ERR,4) "CROD?", (EDAT(EPNTK-1+J), J=1,4) ! 4 fields CROD(ICROD, J) = EDAT(EPNTK) ! eid @@ -239,7 +239,7 @@ SUBROUTINE GET_GEOM2(CELAS1, CELAS2, CELAS3, CELAS4, & NCROD_ACTUAL = NCROD_ACTUAL + 1 WRITE(ERR,100) "CROD", "ICROD=",ICROD,"NCROD_ACTUAL=",NCROD_ACTUAL FLUSH(ERR) - CROD_INDEX(NCROD_ACTUAL) = ICROD + CROD_INDEX(NCROD_ACTUAL) = ICROD ELSE WRITE(ERR,4) "CONROD", (EDAT(EPNTK-1+J), J=1,4) FLUSH(ERR) @@ -250,9 +250,9 @@ SUBROUTINE GET_GEOM2(CELAS1, CELAS2, CELAS3, CELAS4, & CONROD_INDEX(NCONROD_ACTUAL) = ICROD ENDIF ICROD = ICROD + 1 - - ELSE IF (ETYPE(I)(1:5) .EQ. 'SHEAR') THEN + + ELSE IF (ETYPE(I)(1:5) .EQ. 'SHEAR') THEN ! 6 fields ICSHEAR = ICSHEAR + 1 DO J=1,6 @@ -260,7 +260,7 @@ SUBROUTINE GET_GEOM2(CELAS1, CELAS2, CELAS3, CELAS4, & ENDDO !WRITE(ERR,6) ETYPE(I)(1:5), (EDAT(EPNTK-1+J), J=1,6) -! ELSE IF (ETYPE(I)(1:5) .EQ. 'TETRA4') THEN +! ELSE IF (ETYPE(I)(1:5) .EQ. 'TETRA4') THEN ! ! 6 fields ! DO J=1,6 ! CTETRA(ICTETRA, J) = EDAT(EPNTK-1+J) @@ -275,7 +275,7 @@ SUBROUTINE GET_GEOM2(CELAS1, CELAS2, CELAS3, CELAS4, & ! DO J=1,12 ! CTETRA(ICTETRA, J) = EDAT(EPNTK-1+J) ! ENDDO -! WRITE(ERR,12) ETYPE(I)(1:5), (EDAT(EPNTK-1+J), J=1,12) +! WRITE(ERR,12) ETYPE(I)(1:5), (EDAT(EPNTK-1+J), J=1,12) ! ICTETRA = ICTETRA + 1 ENDIF !EPNT(I) @@ -315,7 +315,7 @@ SUBROUTINE WRITE_OP2_GEOM2_CROD(ITABLE, CROD, & IF (NCROD_ACTUAL > 0) THEN NUM_WIDE = 4 NVALUES = NUM_WIDE * NCROD_ACTUAL - + ! ROD 4 words: (all read by call to subr ELEPO from subr BD_ROD1) ! 1) Elem ID ! 2) Prop ID index @@ -407,7 +407,7 @@ SUBROUTINE WRITE_OP2_GEOM2_CELAS1(ITABLE, CELAS1) IF (NCELAS1 > 0) THEN NVALUES = NUM_WIDE * NCELAS1 WRITE(OP2) NVALUES + 3 - + ! ELAS1 6 words: (all read by call to subr ELEPO from subr BD_CELAS1) ! 1) Elem ID ! 2) Prop ID @@ -420,7 +420,7 @@ SUBROUTINE WRITE_OP2_GEOM2_CELAS1(ITABLE, CELAS1) CALL WRITE_OP2_SUBTABLE_INCREMENT(ITABLE) ENDIF END SUBROUTINE WRITE_OP2_GEOM2_CELAS1 - + !=================================================================================================================================== SUBROUTINE WRITE_OP2_GEOM2_CELAS2(ITABLE, CELAS2) ! writes the CELAS2 subtable @@ -441,7 +441,7 @@ SUBROUTINE WRITE_OP2_GEOM2_CELAS2(ITABLE, CELAS2) LOGICAL :: WRITE_ERR = .TRUE. IF (NCELAS2 > 0) THEN NVALUES = NUM_WIDE * NCELAS2 - + ! ELAS2 6 words: (all read by call to subr ELEPO from subr BD_CELAS2) ! 1) Elem ID ! 2) Prop ID which is set to -EID since real props are on the CELAS2 entry @@ -489,7 +489,7 @@ SUBROUTINE WRITE_OP2_GEOM2_CELAS3(ITABLE, CELAS3) IF (NCELAS3 > 0) THEN NVALUES = NUM_WIDE * NCELAS3 WRITE(OP2) NVALUES + 3 - + ! ELAS3 4 words: (all read by call to subr ELEPO from subr BD_CELAS3) ! 1) Elem ID ! 2) Prop ID @@ -517,7 +517,7 @@ SUBROUTINE WRITE_OP2_GEOM2_CELAS4(ITABLE, CELAS4) IF (NCELAS4 > 0) THEN NVALUES = NUM_WIDE * NCELAS4 WRITE(OP2) NVALUES + 3 - + ! ELAS4 4 words: (all read by call to subr ELEPO from subr BD_CELAS4) ! 1) Elem ID ! 2) Prop ID which is set to -EID since real props are on the CELAS2 entry @@ -564,18 +564,18 @@ SUBROUTINE WRITE_OP2_GEOM2_CTETRA(ITABLE, CTETRA, NCTETRA) IF (NCTETRA > 0) THEN NVALUES = NUM_WIDE * NCTETRA WRITE(OP2) NVALUES + 3 - + ! TETRA4 6 words: (read by 1 or more calls to subr ELEPO from subr BD_TETRA) ! 1) Elem ID ! 2) Prop ID ! 3) etc, Grids 1-4 - + ! TETRA10 2 words: (read by 1 or more calls to subr ELEPO from subr BD_TETRA) ! 1) Elem ID ! 2) Prop ID ! 3) etc, Grids 1-10 WRITE(OP2) 5508, 55, 217, ((CTETRA(I,J), J=1,12), I=1,NCTETRA) - !WRITE(OP2) 5508, 55, 217, & + !WRITE(OP2) 5508, 55, 217, & ! ((TETRA4(I,J), J=1,6), 0, 0, 0, 0, 0, 0, I=1,NCTETRA4), & ! ((TETRA10(I,J), J=1,12), I=1,NCTETRA10) CALL WRITE_OP2_SUBTABLE_INCREMENT(ITABLE) diff --git a/Source/UTIL/OUTPUT2_RESULT_TABLE.f90 b/Source/UTIL/OUTPUT2_RESULT_TABLE.f90 index da178e41..f156c214 100644 --- a/Source/UTIL/OUTPUT2_RESULT_TABLE.f90 +++ b/Source/UTIL/OUTPUT2_RESULT_TABLE.f90 @@ -11,7 +11,7 @@ SUBROUTINE WRITE_TABLE_HEADER(TABLE_NAME) INTEGER(LONG) :: MONTH, DAY, YEAR CHARACTER(LEN=10*BYTE) B(3) - CALL DATE_AND_TIME(B(1), B(2), B(3), DATE_TIME) + CALL DATE_AND_TIME(B(1), B(2), B(3), DATE_TIME) YEAR = DATE_TIME(1) MONTH = DATE_TIME(2) DAY = DATE_TIME(3) @@ -56,7 +56,7 @@ SUBROUTINE WRITE_TABLE_HEADER(TABLE_NAME) ! ] WRITE(OP2) 7 WRITE(OP2) 0, 1, MONTH, DAY, YEAR - 2000, 0, 1 - + !ITABLE = -3 !CALL WRITE_ITABLE(ITABLE) 9110 FORMAT(" *DEBUG: WRITE WRITE_TABLE_HEADER; TABLE_NAME=", A) diff --git a/Source/UTIL/OUTPUT2_WRITE_ELFORCE.f90 b/Source/UTIL/OUTPUT2_WRITE_ELFORCE.f90 index d5b9d873..b98156a9 100644 --- a/Source/UTIL/OUTPUT2_WRITE_ELFORCE.f90 +++ b/Source/UTIL/OUTPUT2_WRITE_ELFORCE.f90 @@ -26,7 +26,7 @@ SUBROUTINE SET_OEF_TABLE_NAME (ETYPE, TABLE_NAME, ITABLE) (ETYPE == 'BUSH ') .OR. (ETYPE == 'ROD ') .OR. & (ETYPE == 'TRIA3 ') .OR. (ETYPE == 'QUAD4 ') .OR. (ETYPE == 'QUAD8 ') .OR. (ETYPE == 'SHEAR ') .OR. & (ETYPE == 'HEXA8 ') .OR. (ETYPE == 'PENTA6 ') .OR. (ETYPE == 'TETRA4 ') .OR. & - (ETYPE == 'HEXA20 ') .OR. (ETYPE == 'PENTA15 ') .OR. (ETYPE == 'TETRA10 ')) THEN + (ETYPE == 'HEXA20 ') .OR. (ETYPE == 'PENTA15 ') .OR. (ETYPE == 'TETRA10 ')) THEN TABLE_NAME_NEW= "OEF1X " WRITE(ERR,3) "OEF1X found",ETYPE RETURN_FLAG = .FALSE. @@ -59,7 +59,7 @@ SUBROUTINE SET_OEF_TABLE_NAME (ETYPE, TABLE_NAME, ITABLE) ITABLE = -1 WRITE(ERR,2) "will create force table",TABLE_NAME,ITABLE ENDIF - + ! if we started/restarted, we need to write the TABLE_NAME IF (ITABLE == -1) THEN WRITE(ERR,2) "creating force table",TABLE_NAME,ITABLE @@ -96,14 +96,14 @@ SUBROUTINE WRITE_OEF3_STATIC(ITABLE, ISUBCASE, DEVICE_CODE, ANALYSIS_CODE, ELEM_ INTEGER(LONG), INTENT(IN) :: ISUBCASE ! the subcase ID INTEGER(LONG), INTENT(IN) :: DEVICE_CODE ! PLOT, PRINT, PUNCH flag INTEGER(LONG), INTENT(IN) :: ELEM_TYPE ! the element type ID - INTEGER(LONG), INTENT(IN) :: NUM_WIDE ! the number of words per element + INTEGER(LONG), INTENT(IN) :: NUM_WIDE ! the number of words per element CHARACTER(LEN=128), INTENT(IN) :: TITLE ! the model TITLE CHARACTER(LEN=128), INTENT(IN) :: SUBTITLE ! the subcase SUBTITLE CHARACTER(LEN=128), INTENT(IN) :: LABEL ! the subcase LABEL INTEGER(LONG), INTENT(IN) :: FIELD5_INT_MODE REAL(DOUBLE), INTENT(IN) :: FIELD6_EIGENVALUE INTEGER(LONG) :: FORMAT_CODE, ANALYSIS_CODE - + ! static is real FORMAT_CODE = 1 CALL WRITE_OEF3(ITABLE, ANALYSIS_CODE, ISUBCASE, DEVICE_CODE, FORMAT_CODE, ELEM_TYPE, NUM_WIDE, & @@ -130,7 +130,7 @@ SUBROUTINE WRITE_OEF3(ITABLE, ANALYSIS_CODE, ISUBCASE, DEVICE_CODE, FORMAT_CODE, INTEGER(LONG), INTENT(IN) :: DEVICE_CODE ! PLOT, PRINT, PUNCH flag INTEGER(LONG), INTENT(IN) :: ELEM_TYPE ! the element type ID INTEGER(LONG), INTENT(IN) :: FORMAT_CODE - INTEGER(LONG), INTENT(IN) :: NUM_WIDE ! the number of words per element + INTEGER(LONG), INTENT(IN) :: NUM_WIDE ! the number of words per element !INTEGER(LONG), INTENT(IN) :: STRESS_CODE ! flag for von_mises/max_shear/octehedral and fiber_distance/strain_curvature CHARACTER(LEN=128), INTENT(IN) :: TITLE ! the model TITLE @@ -164,13 +164,13 @@ SUBROUTINE WRITE_OEF3(ITABLE, ANALYSIS_CODE, ISUBCASE, DEVICE_CODE, FORMAT_CODE, WRITE(OP2) 146 ! force only TABLE_CODE = 4 - + ! ??? LOAD_SET = 1 - + ! we're not doing acoustic ACOUSTIC_FLAG = 0 - + ! not always 0 for stress, but for now THERMAL = 0 diff --git a/Source/UTIL/OUTPUT2_WRITE_STRESS.f90 b/Source/UTIL/OUTPUT2_WRITE_STRESS.f90 index 302497f1..42b3db0d 100644 --- a/Source/UTIL/OUTPUT2_WRITE_STRESS.f90 +++ b/Source/UTIL/OUTPUT2_WRITE_STRESS.f90 @@ -48,7 +48,7 @@ SUBROUTINE SET_OES_OST_TABLE_NAME (ETYPE, TABLE_NAME, ITABLE, TABLE_NAME_BAR, TA (ETYPE == 'BUSH ') .OR. (ETYPE == 'ROD ') .OR. & (ETYPE == 'TRIA3 ') .OR. (ETYPE == 'QUAD4 ') .OR. (ETYPE == 'SHEAR ') .OR. & (ETYPE == 'HEXA8 ') .OR. (ETYPE == 'PENTA6 ') .OR. (ETYPE == 'TETRA4 ') .OR. & - (ETYPE == 'HEXA20 ') .OR. (ETYPE == 'PENTA15 ') .OR. (ETYPE == 'TETRA10 ')) THEN + (ETYPE == 'HEXA20 ') .OR. (ETYPE == 'PENTA15 ') .OR. (ETYPE == 'TETRA10 ')) THEN TABLE_NAME_NEW= TABLE_NAME_SHELL_SOLID !"OES1X1 " WRITE(ERR,3) "OES1X1 found",ETYPE RETURN_FLAG = .FALSE. @@ -81,7 +81,7 @@ SUBROUTINE SET_OES_OST_TABLE_NAME (ETYPE, TABLE_NAME, ITABLE, TABLE_NAME_BAR, TA ITABLE = -1 WRITE(ERR,2) "will create stress table",TABLE_NAME,ITABLE ENDIF - + ! if we started/restarted, we need to write the TABLE_NAME IF (ITABLE == -1) THEN WRITE(ERR,2) "creating stress table",TABLE_NAME,ITABLE @@ -142,7 +142,7 @@ SUBROUTINE WRITE_OES3_STATIC(ITABLE, ISUBCASE, DEVICE_CODE, ELEM_TYPE, NUM_WIDE, INTEGER(LONG), INTENT(IN) :: ISUBCASE ! the subcase ID INTEGER(LONG), INTENT(IN) :: DEVICE_CODE ! PLOT, PRINT, PUNCH flag INTEGER(LONG), INTENT(IN) :: ELEM_TYPE ! the element type ID - INTEGER(LONG), INTENT(IN) :: NUM_WIDE ! the number of words per element + INTEGER(LONG), INTENT(IN) :: NUM_WIDE ! the number of words per element INTEGER(LONG), INTENT(IN) :: STRESS_CODE ! flag for von_mises/max_shear/octehedral and fiber_distance/strain_curvature CHARACTER(LEN=128), INTENT(IN) :: TITLE ! the model TITLE CHARACTER(LEN=128), INTENT(IN) :: SUBTITLE ! the subcase SUBTITLE @@ -152,7 +152,7 @@ SUBROUTINE WRITE_OES3_STATIC(ITABLE, ISUBCASE, DEVICE_CODE, ELEM_TYPE, NUM_WIDE, INTEGER(LONG) :: FORMAT_CODE, ANALYSIS_CODE ! we assumed static ANALYSIS_CODE = 1 - + ! LSDVMN !FIELD5 = 0 @@ -180,7 +180,7 @@ SUBROUTINE WRITE_OES3(ITABLE, ANALYSIS_CODE, ISUBCASE, DEVICE_CODE, FORMAT_CODE, INTEGER(LONG), INTENT(IN) :: DEVICE_CODE ! PLOT, PRINT, PUNCH flag INTEGER(LONG), INTENT(IN) :: ELEM_TYPE ! the element type ID INTEGER(LONG), INTENT(IN) :: FORMAT_CODE - INTEGER(LONG), INTENT(IN) :: NUM_WIDE ! the number of words per element + INTEGER(LONG), INTENT(IN) :: NUM_WIDE ! the number of words per element INTEGER(LONG), INTENT(IN) :: STRESS_CODE ! flag for von_mises/max_shear/octehedral and fiber_distance/strain_curvature CHARACTER(LEN=128), INTENT(IN) :: TITLE ! the model TITLE @@ -215,13 +215,13 @@ SUBROUTINE WRITE_OES3(ITABLE, ANALYSIS_CODE, ISUBCASE, DEVICE_CODE, FORMAT_CODE, WRITE(OP2) 146 ! stress/strain only TABLE_CODE = 5 - + ! ??? LOAD_SET = 1 - + ! we're not doing acoustic ACOUSTIC_FLAG = 0 - + ! not always 0 for stress, but for now THERMAL = 0 diff --git a/Source/UTIL/OUTPUT2_WRITE_TABLE.f90 b/Source/UTIL/OUTPUT2_WRITE_TABLE.f90 index eb7f5a23..d3ebe628 100644 --- a/Source/UTIL/OUTPUT2_WRITE_TABLE.f90 +++ b/Source/UTIL/OUTPUT2_WRITE_TABLE.f90 @@ -161,16 +161,16 @@ SUBROUTINE WRITE_OUG3(ITABLE, ISUBCASE, FORMAT_CODE, DEVICE_CODE, ANALYSIS_CODE, ! ABS_FREQ = SQRT(ABS(FIELD6)) / (2 * PI) ! FIELD7 = ABS_FREQ * 2 * PI FIELD7 = SQRT(ABS(FIELD6)) ! SQRT(ABS(EIGN)) - + !FIELD7 = MODE_CYCLE_FREQ ! float; radians ELSE IF(ANALYSIS_CODE == 7) THEN ! pre-buckling???? ! op2.lsdvmn = op2.add_data_parameter(data, 'lsdvmn', b'i', 5) !FIELD5 = 1 - + ! do nothing statement APPROACH_CODE = 0 - + ! TODO gotta figure out the appropriate value FIELD7 = 0.0 ELSE @@ -190,7 +190,7 @@ SUBROUTINE WRITE_OUG3(ITABLE, ISUBCASE, FORMAT_CODE, DEVICE_CODE, ANALYSIS_CODE, ! 0, 0, 0, 0, ! title, subtitle, label, ! ] -! WRITE(OP2) +! WRITE(OP2) WRITE(OP2) APPROACH_CODE, TABLE_CODE, 0, ISUBCASE, FIELD5, & REAL(FIELD6, 4), REAL(FIELD7, 4), & RANDOM_CODE, FORMAT_CODE, NUM_WIDE, & @@ -204,6 +204,6 @@ SUBROUTINE WRITE_OUG3(ITABLE, ISUBCASE, FORMAT_CODE, DEVICE_CODE, ANALYSIS_CODE, ! print *, "finished OUGV1 table=3" CALL WRITE_ITABLE(ITABLE) - + 100 FORMAT(" analysis_code=", i4, " is not supported...stopping") END SUBROUTINE WRITE_OUG3 diff --git a/Source/UTIL/OUTPUT4_MATRIX_MSGS.f90 b/Source/UTIL/OUTPUT4_MATRIX_MSGS.f90 index 778d9cb4..313d4bf3 100644 --- a/Source/UTIL/OUTPUT4_MATRIX_MSGS.f90 +++ b/Source/UTIL/OUTPUT4_MATRIX_MSGS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE OUTPUT4_MATRIX_MSGS ( OUNT ) @@ -40,12 +40,12 @@ SUBROUTINE OUTPUT4_MATRIX_MSGS ( OUNT ) IMPLICIT NONE CHARACTER(LEN(ALLOW_OU4_MYSTRAN_NAMES)) & - :: MYSTRAN_NAMES_I(NUM_OU4_VALID_NAMES) - ! OUTPUT4 matrix names written to one OU4 unit + :: MYSTRAN_NAMES_I(NUM_OU4_VALID_NAMES) + ! OUTPUT4 matrix names written to one OU4 unit CHARACTER(LEN(ALLOW_OU4_MYSTRAN_NAMES)) & - :: OUTPUT_NAMES_I(NUM_OU4_VALID_NAMES) - ! OUTPUT4 matrix names written to one OU4 unit + :: OUTPUT_NAMES_I(NUM_OU4_VALID_NAMES) + ! OUTPUT4 matrix names written to one OU4 unit INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN. INTEGER(LONG) :: I,J ! DO loop indices diff --git a/Source/UTIL/OUTPUT4_PROC.f90 b/Source/UTIL/OUTPUT4_PROC.f90 index 7074c069..812b9069 100644 --- a/Source/UTIL/OUTPUT4_PROC.f90 +++ b/Source/UTIL/OUTPUT4_PROC.f90 @@ -1,38 +1,38 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE OUTPUT4_PROC ( CALLING_SUBR ) - + ! Checks whether a matrix is requested for OUTPUT4 and, if so: ! - calls OU4_PARTVEC_PROC to calculate the row/col partitioning vectors (OU4_PARTVEC_ROW, OU4_PARTVEC_COL) ! - calls PARTITION_SS to do the actual partitioning ! - calls WRITE_OU4_SPARSE_MAT or WRITE_OU4_FULL_MAT to write the matrix to an unformatted disk file -! This subr does not process the grid and/or element related Output Transformation Matrices (OTM's). That is done in LINK9 +! This subr does not process the grid and/or element related Output Transformation Matrices (OTM's). That is done in LINK9 USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, MOU4, OU4, OU4_MSG, OU4FIL @@ -50,7 +50,7 @@ SUBROUTINE OUTPUT4_PROC ( CALLING_SUBR ) USE MODEL_STUF, ONLY : MCG USE PARAMS, ONLY : MPFOUT - USE EIGEN_MATRICES_1, ONLY : EIGEN_VAL, EIGEN_VEC, GEN_MASS, MEFFMASS, MPFACTOR_N6, MPFACTOR_NR + USE EIGEN_MATRICES_1, ONLY : EIGEN_VAL, EIGEN_VEC, GEN_MASS, MEFFMASS, MPFACTOR_N6, MPFACTOR_NR USE FULL_MATRICES, ONLY : DUM1, PHIZG_FULL @@ -81,7 +81,7 @@ SUBROUTINE OUTPUT4_PROC ( CALLING_SUBR ) OU4_PART_MAT_NAMES, OU4_PART_VEC_NAMES, RBM0, SUBR_WHEN_TO_WRITE_OU4_MATS USE TIMDAT, ONLY : TSEC - USE RIGID_BODY_DISP_MATS, ONLY : TR6_CG, TR6_0 + USE RIGID_BODY_DISP_MATS, ONLY : TR6_CG, TR6_0 USE EIGEN_MATRICES_1, ONLY : GEN_MASS, EIGEN_VAL, EIGEN_VEC, MEFFMASS, MPFACTOR_N6, MPFACTOR_NR USE SPARSE_MATRICES, ONLY : I_CG_LTM, J_CG_LTM, CG_LTM, I_DLR , J_DLR , DLR , & @@ -92,17 +92,17 @@ SUBROUTINE OUTPUT4_PROC ( CALLING_SUBR ) I_MLL , J_MLL , MLL , I_MRL , J_MRL , MRL , & I_MRN , J_MRN , MRN , I_MRR , J_MRR , MRR , & I_MRRcb , J_MRRcb , MRRcb , I_MXX , J_MXX , MXX , & - I_PHIXG , J_PHIXG , PHIXG + I_PHIXG , J_PHIXG , PHIXG USE SPARSE_MATRICES, ONLY : I_KAA, J_KAA, KAA, I_KGG, J_KGG, KGG, I_MAA, J_MAA, MAA, I_MGG, J_MGG, MGG, & I_PA , J_PA , PA , I_PG , J_PG , PG , I_PL , J_PL , PL USE FULL_MATRICES, ONLY : PHIZG_FULL - + USE OUTPUT4_PROC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'OUTPUT4_PROC' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this one @@ -116,14 +116,14 @@ SUBROUTINE OUTPUT4_PROC ( CALLING_SUBR ) INTEGER(LONG) :: AROW_MAX_TERMS ! Max number of terms in any row of partitioned matrix INTEGER(LONG) :: FORM ! Format of OUTPUT4 matrix INTEGER(LONG) :: I ! DO loop index - INTEGER(LONG) :: NCOLS_F ! Number of cols in the complete OUTPUT4 matrix - INTEGER(LONG) :: NROWS_F ! Number of cols in the complete OUTPUT4 matrix + INTEGER(LONG) :: NCOLS_F ! Number of cols in the complete OUTPUT4 matrix + INTEGER(LONG) :: NROWS_F ! Number of cols in the complete OUTPUT4 matrix INTEGER(LONG) :: NCOLS_P ! Number of cols in that will be in the OUTPUT4 matrix when partitioned INTEGER(LONG) :: NROWS_P ! Number of cols in that will be in the OUTPUT4 matrix when partitioned INTEGER(LONG) :: NTERM_CRS1 ! Number of terms in partitioned sparse matrix CRS1 INTEGER(LONG) :: VAL_C ! Non-zero vals in OU4_PARTVEC_ROWS INTEGER(LONG) :: VAL_R ! Non-zero vals in OU4_PARTVEC_COLS - INTEGER(LONG) :: UNT ! + INTEGER(LONG) :: UNT ! diff --git a/Source/UTIL/PARAM_CORDS_ACT_CORDS.f90 b/Source/UTIL/PARAM_CORDS_ACT_CORDS.f90 index a5b64f50..195d3a61 100644 --- a/Source/UTIL/PARAM_CORDS_ACT_CORDS.f90 +++ b/Source/UTIL/PARAM_CORDS_ACT_CORDS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE PARAM_CORDS_ACT_CORDS ( NROW, IORD, XEP, XEA ) @@ -59,15 +59,15 @@ SUBROUTINE PARAM_CORDS_ACT_CORDS ( NROW, IORD, XEP, XEA ) fatal_err = fatal_err + 1 call outa_here ( 'y' ) ENDIF - + RETURN ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## @@ -94,7 +94,7 @@ SUBROUTINE GET_QUAD_COORDS ! ********************************************************************************************************************************** -! The PSH_MAT columns are from subr SHP2DQ for each of the 4 XEP parametric coord points for the element. +! The PSH_MAT columns are from subr SHP2DQ for each of the 4 XEP parametric coord points for the element. ! We want the XEA orderd in the same fashion as the element node coords in XEL (namely 1-2-3-4 clockwise around the element). CALL SHP2DQ ( 1, 1, ELGP, SUBR_NAME, ' ', IORD, XEP(1,1), XEP(1,2), 'Y', PSH_MAT(:,1), DPSHG ) @@ -115,12 +115,12 @@ SUBROUTINE GET_QUAD_COORDS WRITE(BUG,*) ' Parametric and element local coords. (Pt no., parametric coords (XEP), actual coords (XEA)' WRITE(BUG,*) ' Pt No. Parametric Coords, XEP XEA, coords in local elem coord system' WRITE(BUG,*) ' XI ET X Y Z' - WRITE(BUG,1001) '1',(XEP(1,J),J=1,3) , (XEA(1,J),J=1,3) - WRITE(BUG,1001) '2',(XEP(2,J),J=1,3) , (XEA(2,J),J=1,3) - WRITE(BUG,1001) '3',(XEP(3,J),J=1,3) , (XEA(3,J),J=1,3) + WRITE(BUG,1001) '1',(XEP(1,J),J=1,3) , (XEA(1,J),J=1,3) + WRITE(BUG,1001) '2',(XEP(2,J),J=1,3) , (XEA(2,J),J=1,3) + WRITE(BUG,1001) '3',(XEP(3,J),J=1,3) , (XEA(3,J),J=1,3) WRITE(BUG,1001) '4',(XEP(4,J),J=1,3) , (XEA(4,J),J=1,3) WRITE(BUG,*) - ENDIF + ENDIF ! ********************************************************************************************************************************** 1001 FORMAT(8X,A,10X,2(1ES15.6),2X,3(1ES15.6)) diff --git a/Source/UTIL/PARSE_CHAR_STRING.f90 b/Source/UTIL/PARSE_CHAR_STRING.f90 index ccb9e721..9754b48a 100644 --- a/Source/UTIL/PARSE_CHAR_STRING.f90 +++ b/Source/UTIL/PARSE_CHAR_STRING.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE PARSE_CHAR_STRING ( CHAR_STRING, STRING_LEN, MAX_WORDS, MWLEN, NUM_WORDS, WORDS, IERR ) - + ! Parses a character string whose words are separated by blanks and/or commas into a 1-D array, WORDS, of the words in the string. ! For example, if CHAR_STRING is the string (without quotes): " SORT1 , REAL,PRINT ,, , QAZ VONMISES", then this subr ! parses CHAR_STRING into 5 words in the array WORDS: @@ -40,13 +40,13 @@ SUBROUTINE PARSE_CHAR_STRING ( CHAR_STRING, STRING_LEN, MAX_WORDS, MWLEN, NUM_WO USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, WARN_ERR USE TIMDAT, ONLY : TSEC - USE DEBUG_PARAMETERS + USE DEBUG_PARAMETERS USE PARSE_CHAR_STRING_USE_IFs IMPLICIT NONE - - INTEGER(LONG), PARAMETER :: MAX_LEN_BAD_WRD=150! + + INTEGER(LONG), PARAMETER :: MAX_LEN_BAD_WRD=150! INTEGER(LONG), INTENT(IN) :: MAX_WORDS ! Dim of WORDS (number of words in CHAR_STRING cannot exceed this) INTEGER(LONG), INTENT(IN) :: MWLEN ! Maximum length, in characters, of the entries in array WORDS @@ -64,7 +64,7 @@ SUBROUTINE PARSE_CHAR_STRING ( CHAR_STRING, STRING_LEN, MAX_WORDS, MWLEN, NUM_WO INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: WORD_LEN ! Length of one of the words in CHAR_STRING (must be <= MWLEN) - + ! ********************************************************************************************************************************** ! Initialize @@ -142,7 +142,7 @@ SUBROUTINE PARSE_CHAR_STRING ( CHAR_STRING, STRING_LEN, MAX_WORDS, MWLEN, NUM_WO ENDDO j_do ELSE EXIT one_wrd - ENDIF + ENDIF ENDIF ENDDO one_wrd @@ -160,14 +160,14 @@ SUBROUTINE PARSE_CHAR_STRING ( CHAR_STRING, STRING_LEN, MAX_WORDS, MWLEN, NUM_WO ENDIF - ENDDO nwrds + ENDDO nwrds IF (DEBUG(173) >= 1) CALL DEBUG_PARSE_CHR_STRNG ( 4, '173' ) IF (IERR > 0) THEN WRITE(F06,9998) NUM = MAX_WORDS - IF (NUM_WORDS <= MAX_WORDS) NUM = NUM_WORDS + IF (NUM_WORDS <= MAX_WORDS) NUM = NUM_WORDS DO I=1,NUM WRITE(F06,9999) I, WORDS(I) ENDDO @@ -182,9 +182,9 @@ SUBROUTINE PARSE_CHAR_STRING ( CHAR_STRING, STRING_LEN, MAX_WORDS, MWLEN, NUM_WO 9999 FORMAT(I16,2X,'"',A,'"') ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE PARSE_CHAR_STRING_MSG ( OPT, WORD ) @@ -200,7 +200,7 @@ SUBROUTINE PARSE_CHAR_STRING_MSG ( OPT, WORD ) IF (OPT == 1) THEN WRITE(ERR,961) MWLEN, WORD WRITE(F06,961) MWLEN, WORD - ELSE IF (OPT == 2) THEN + ELSE IF (OPT == 2) THEN WRITE(ERR,962) MAX_WORDS WRITE(F06,962) MAX_WORDS ENDIF @@ -218,7 +218,7 @@ END SUBROUTINE PARSE_CHAR_STRING_MSG SUBROUTINE DEBUG_PARSE_CHR_STRNG ( WHAT, DEB_NUM ) - CHARACTER( 3*BYTE) :: DEB_NUM ! + CHARACTER( 3*BYTE) :: DEB_NUM ! INTEGER(LONG) :: WHAT diff --git a/Source/UTIL/PARTITION_FF.f90 b/Source/UTIL/PARTITION_FF.f90 index f5d649c4..342212f1 100644 --- a/Source/UTIL/PARTITION_FF.f90 +++ b/Source/UTIL/PARTITION_FF.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE PARTITION_FF ( MAT_A_NAME, NROW_A, NCOL_A, A, ROW_PART_VEC, COL_PART_VEC, VAL_ROWS, VAL_COLS, & - MAT_B_NAME, NROW_B, NCOL_B, B ) - + MAT_B_NAME, NROW_B, NCOL_B, B ) + ! Partitions full matrix B from full matrix A. The input matrix, A, in full format represented by: - + ! A(i,j) is a real array of all terms (i=1 to NROW_A, j = 1 to NCOL_A) ! is partitioned using partitioning vectors: @@ -41,7 +41,7 @@ SUBROUTINE PARTITION_FF ( MAT_A_NAME, NROW_A, NCOL_A, A, ROW_PART_VEC, COL_PART_ ! The rows for which ROW_PART_VEC(i) = VAL_ROWS and the cols for which COL_PART_VEC(i) = VAL_COLS are the ones to be partitioned. ! The outout from this subr is array B in full CRS format: -! B(i,j) is a real array of all terms (i=1 to NROW_B, j = 1 to NCOL_B) in the partitioned matrix +! B(i,j) is a real array of all terms (i=1 to NROW_B, j = 1 to NCOL_B) in the partitioned matrix USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -50,11 +50,11 @@ SUBROUTINE PARTITION_FF ( MAT_A_NAME, NROW_A, NCOL_A, A, ROW_PART_VEC, COL_PART_ USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE PARTITION_FF_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'PARTITION_FF' CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of partitioned output matrix CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of input matrix to be partitioned @@ -62,13 +62,13 @@ SUBROUTINE PARTITION_FF ( MAT_A_NAME, NROW_A, NCOL_A, A, ROW_PART_VEC, COL_PART_ INTEGER(LONG) , INTENT(IN) :: NROW_A ! No. rows in A INTEGER(LONG) , INTENT(IN) :: COL_PART_VEC(NCOL_A) ! Col partitioning vector (1's and 2's) INTEGER(LONG) , INTENT(IN) :: ROW_PART_VEC(NROW_A) ! Row partitioning vector (1's and 2's) - INTEGER(LONG) , INTENT(IN) :: VAL_ROWS ! Value in ROW_PART_VEC to look for for partitioning rows + INTEGER(LONG) , INTENT(IN) :: VAL_ROWS ! Value in ROW_PART_VEC to look for for partitioning rows INTEGER(LONG) , INTENT(IN) :: VAL_COLS ! Value in COL_PART_VEC to look for for partitioning cols INTEGER(LONG) , INTENT(IN) :: NCOL_B ! No. cols in B INTEGER(LONG) , INTENT(IN) :: NROW_B ! No. rows in B - INTEGER(LONG) :: I,J ! DO loop indices + INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IB,JB ! Counters - + REAL(DOUBLE) , INTENT(IN ) :: A(NROW_A,NCOL_A) ! Input matrix REAL(DOUBLE) , INTENT(OUT) :: B(NROW_B,NCOL_B) ! Output matrix diff --git a/Source/UTIL/PARTITION_SS.f90 b/Source/UTIL/PARTITION_SS.f90 index 473194d9..039eb576 100644 --- a/Source/UTIL/PARTITION_SS.f90 +++ b/Source/UTIL/PARTITION_SS.f90 @@ -1,40 +1,40 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE PARTITION_SS ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A, A & , ROW_PART_VEC, COL_PART_VEC, VAL_ROWS, VAL_COLS, AROW_MAX_TERMS & - , MAT_B_NAME, NTERM_B, NROW_B, SYM_B, I_B, J_B, B ) - + , MAT_B_NAME, NTERM_B, NROW_B, SYM_B, I_B, J_B, B ) + !/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ! Subroutine PARTITION_SSS_NTERM must be run before this subroutine to calculate NTERM_B and AROW_MAX_TERMS inputs to this ! subroutine. Then memory can be allocated to C before this subroutine is called !/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ! Partitions matrices. An input matrix (A) in sparse CRS (compressed row storage) format represented by: - + ! I_A(i) integer array of indices that give the starting locations, in A, where each row begins ! J_A(i) integer array of col numbers of nonzero terms, and ! A(i) real array of nonzero terms (i=1 to NTERM_A) in the input matrix @@ -51,7 +51,7 @@ SUBROUTINE PARTITION_SS ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A, ! I_B(i) integer array of indices that give the starting locations, in B, where each row begins ! J_B(i) integer array of col numbers of nonzero terms, and -! B(i) real array of nonzero terms (i=1 to NTERM_B) in the partitioned matrix +! B(i) real array of nonzero terms (i=1 to NTERM_B) in the partitioned matrix ! This subr can handle sparse CRS input matrices which are stored as symmetric (i.e. only nonzero terms on and above the diagonal) ! as well as sparse CRS matrices in which all nonzero terms are stored. If the inpyt matrix is stored as symmetric then SYM_A = 'Y' @@ -67,11 +67,11 @@ SUBROUTINE PARTITION_SS ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A, USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE PARTITION_SS_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'PARTITION_SS' CHARACTER(LEN=*), INTENT(IN ) :: SYM_A ! 'Y' if input matrix is symmetric (and terms below diag @@ -94,7 +94,7 @@ SUBROUTINE PARTITION_SS ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A, INTEGER(LONG), INTENT(IN ) :: I_A(NROW_A+1) ! Starting locations in A for each row INTEGER(LONG), INTENT(IN ) :: J_A(NTERM_A) ! Col number for each A input matrix term INTEGER(LONG), INTENT(IN ) :: ROW_PART_VEC(NROW_A) ! Row partitioning vector (1's and 2's) - INTEGER(LONG), INTENT(IN ) :: VAL_ROWS ! Value in ROW_PART_VEC to look for for partitioning rows + INTEGER(LONG), INTENT(IN ) :: VAL_ROWS ! Value in ROW_PART_VEC to look for for partitioning rows INTEGER(LONG), INTENT(IN ) :: VAL_COLS ! Value in COL_PART_VEC to look for for partitioning cols INTEGER(LONG), INTENT(OUT) :: I_B(NROW_B+1) ! Starting locations in B for each row INTEGER(LONG), INTENT(OUT) :: J_B(NTERM_B) ! Col number for each B output matrix term @@ -102,11 +102,11 @@ SUBROUTINE PARTITION_SS ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A, INTEGER(LONG) :: B_COL_NUM_ARRAY(NCOL_A)! Col number for terms where COL_PART_VEC = VAL_COLS ! e.g., if COL_PART_VEC = 1 1 0 1 0 1 0 0, VAL_COLS = 1, ! then: B_COL_NUM_ARRAY = 1 2 0 3 0 4 0 0 -! It is a counter for the VAL_COLS terms in COL_PART_VEC - INTEGER(LONG) :: B_COL_NUM ! A col number value from B_COL_NUM_ARRAY - INTEGER(LONG) :: B_ROW_NUM_ARRAY(NROW_A)! Row number for terms where ROW_PART_VEC = VAL_ROWS - INTEGER(LONG) :: B_ROW_NUM ! A row number value from B_ROW_NUM_ARRAY - INTEGER(LONG) :: I,II,K,L ! DO loop indices or counters +! It is a counter for the VAL_COLS terms in COL_PART_VEC + INTEGER(LONG) :: B_COL_NUM ! A col number value from B_COL_NUM_ARRAY + INTEGER(LONG) :: B_ROW_NUM_ARRAY(NROW_A)! Row number for terms where ROW_PART_VEC = VAL_ROWS + INTEGER(LONG) :: B_ROW_NUM ! A row number value from B_ROW_NUM_ARRAY + INTEGER(LONG) :: I,II,K,L ! DO loop indices or counters INTEGER(LONG) :: I1,I2 ! DO loop range INTEGER(LONG) :: IERROR ! Error indicator INTEGER(LONG) :: J_AROW(AROW_MAX_TERMS) ! Col numbers of terms in real array AROW (see below) @@ -115,10 +115,10 @@ SUBROUTINE PARTITION_SS ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A, INTEGER(LONG) :: KTERM_B ! Counter for terms as they are put into B INTEGER(LONG) :: KTERM_AROW ! Count of number of terms in a row of A (need for SYM='Y' INTEGER(LONG) :: NCOL_B ! Number of columns in the output matrix - INTEGER(LONG) :: ROW_AT_COLJ_BEG(NCOL_A)! jth term is row number in A where col j nonzeros begin + INTEGER(LONG) :: ROW_AT_COLJ_BEG(NCOL_A)! jth term is row number in A where col j nonzeros begin INTEGER(LONG) :: ROW_AT_COLJ_END(NCOL_A)! jth term is row number in A where col j nonzeros end - + REAL(DOUBLE) , INTENT(IN ) :: A(NTERM_A) ! Input matrix nonzero terms REAL(DOUBLE) , INTENT(OUT) :: B(NTERM_B) ! Output matrix nonzero terms REAL(DOUBLE) :: AROW(AROW_MAX_TERMS) ! Array that will contain the nonzero terms from one row of A @@ -214,10 +214,10 @@ SUBROUTINE PARTITION_SS ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A, ! terms for the B partition that are not explicitly in A. This is done by getting A terms in the column (above the ! diagonal of a row) as well as the explicit terms from A that are there from the diagonal out to the end of the row. The two ! arrays: ROW_AT_COLJ_BEG and ROW_AT_COLJ_END are used to aid in getting the terms in the column above the diagonal. -! ROW_AT_COLJ_BEG is an array that gives, for each col of A, the starting row number of nonzero terms in that column. +! ROW_AT_COLJ_BEG is an array that gives, for each col of A, the starting row number of nonzero terms in that column. ! ROW_AT_COLJ_END is an array that gives, for each col of A, the ending row number of nonzero terms in that column. -! The span: ROW_AT_COLJ_BEG to ROW_AT_COLJ_END is used when we search for terms in the columns. -! We only need ROW_AT_COLJ_BEG and ROW_AT_COLJ_END when A is input symmetric and B is not to be output as symmetric +! The span: ROW_AT_COLJ_BEG to ROW_AT_COLJ_END is used when we search for terms in the columns. +! We only need ROW_AT_COLJ_BEG and ROW_AT_COLJ_END when A is input symmetric and B is not to be output as symmetric IF ((SYM_A == 'Y') .AND. (SYM_B == 'N')) THEN @@ -236,7 +236,7 @@ SUBROUTINE PARTITION_SS ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A, CALL COUNTER_INIT(COUNTER_TEMPLATE, NROW_A) i_do: DO I=1,NROW_A ! Matrix partition loop. Range over the rows in A - A_NTERM_ROW_I = I_A(I+1) - I_A(I) ! Number of terms in matrix A in row I + A_NTERM_ROW_I = I_A(I+1) - I_A(I) ! Number of terms in matrix A in row I KEND_A = KBEG_A + A_NTERM_ROW_I - 1 ! KBEG_A to KEND_A is range of indices of terms in A row I IF (ROW_PART_VEC(I) == VAL_ROWS) THEN @@ -251,7 +251,7 @@ SUBROUTINE PARTITION_SS ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A, AROW(K) = ZERO J_AROW(K) = 0 ALG(K)(1:) = ' ' - ENDDO + ENDDO J_AROW_NULL = 'Y' ! Nothing in J_AROW at this point KTERM_AROW = 0 @@ -259,7 +259,7 @@ SUBROUTINE PARTITION_SS ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A, ! Build AROW for one row of matrix A IF ((SYM_A == 'Y').AND.(SYM_B == 'N')) THEN ! 1st, if this SYM is true, get terms in col above the diag in row I - DO K=1,KBEG_A-1 + DO K=1,KBEG_A-1 IF (J_A(K) == I) THEN KTERM_AROW = KTERM_AROW + 1 AROW(KTERM_AROW) = A(K) @@ -305,22 +305,22 @@ SUBROUTINE PARTITION_SS ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A, IF ((DEBUG(86) == 1) .OR. (DEBUG(86) == 3)) CALL PARTITION_SS_DEB ( '5' ) ENDIF ENDIF - ENDDO + ENDDO ENDIF KBEG_A = KEND_A + 1 CALL COUNTER_PROGRESS(I) - + IF ((DEBUG(86) == 1) .OR. (DEBUG(86) == 3)) CALL PARTITION_SS_DEB ( '6' ) - + ENDDO i_do IF ((DEBUG(86) == 1) .OR. (DEBUG(86) == 3)) CALL PARTITION_SS_DEB ( '7' ) - + RETURN ! ********************************************************************************************************************************** @@ -456,7 +456,7 @@ SUBROUTINE PARTITION_SS_DEB ( WHICH ) ' J_AROW and AROW from column I of matrix A while working on row I of matrix A. These are the terms that would be below',/,& ' the diag in matrix A but are not explicitly in the array due to symmetry storage' ,//,& ' For each non null row of matrix A that is to be partitioned into matrix B, the following shows the development of arrays' ,/,& -' J_AROW and AROW and the terms that are partitioned into output matrix B') +' J_AROW and AROW and the terms that are partitioned into output matrix B') 1021 FORMAT(' ******************************************************************************************************************',& '*****************') diff --git a/Source/UTIL/PARTITION_SS_NTERM.f90 b/Source/UTIL/PARTITION_SS_NTERM.f90 index aac44d5e..02b52116 100644 --- a/Source/UTIL/PARTITION_SS_NTERM.f90 +++ b/Source/UTIL/PARTITION_SS_NTERM.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE PARTITION_SS_NTERM ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, J_A & , ROW_PART_VEC, COL_PART_VEC, VAL_ROWS, VAL_COLS, AROW_MAX_TERMS & - , MAT_B_NAME, NTERM_B, SYM_B ) - + , MAT_B_NAME, NTERM_B, SYM_B ) + ! Determines size of a partitioned matrix. An input matrix (MATIN) in sparse CRS (compressed row storage) format represented by: ! I_A(i) integer array of indices that give the starting locations, in MATIN, where each row begins @@ -59,13 +59,13 @@ SUBROUTINE PARTITION_SS_NTERM ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC, TSEC USE SPARSE_ALG_ARRAYS, ONLY : ALG, J_AROW USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE PARTITION_SS_NTERM_USE_IFs IMPLICIT NONE CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'PARTITION_SS_NTERM' CHARACTER(LEN=*), INTENT(IN ) :: SYM_A ! 'Y' if input matrix is symmetric (and terms below diag ! are not included in MATIN) @@ -78,7 +78,7 @@ SUBROUTINE PARTITION_SS_NTERM ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, INTEGER(LONG), INTENT(IN ) :: NTERM_A ! No. terms in MATIN INTEGER(LONG), INTENT(IN ) :: NROW_A ! No. rows in MATIN INTEGER(LONG), INTENT(IN ) :: NCOL_A ! No. cols in MATIN - INTEGER(LONG), INTENT(IN ) :: VAL_ROWS ! Value in ROW_PART_VEC to look for for partitioning rows + INTEGER(LONG), INTENT(IN ) :: VAL_ROWS ! Value in ROW_PART_VEC to look for for partitioning rows INTEGER(LONG), INTENT(IN ) :: VAL_COLS ! Value in COL_PART_VEC to look for for partitioning cols INTEGER(LONG), INTENT(IN ) :: I_A(NROW_A+1) ! Starting locations in MATIN for each row INTEGER(LONG), INTENT(IN ) :: J_A(NTERM_A) ! Col number for each MATIN input matrix term @@ -89,11 +89,11 @@ SUBROUTINE PARTITION_SS_NTERM ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, INTEGER(LONG) :: B_COL_NUM_ARRAY(NCOL_A)! Col number for terms where COL_PART_VEC = VAL_COLS ! e.g., if COL_PART_VEC = 1 1 0 1 0 1 0 0, VAL_COLS = 1, ! then: B_COL_NUM_ARRAY = 1 2 0 3 0 4 0 0 -! It is a counter for the VAL_COLS terms in COL_PART_VEC - INTEGER(LONG) :: B_COL_NUM ! A col number value from B_COL_NUM_ARRAY - INTEGER(LONG) :: B_ROW_NUM_ARRAY(NROW_A)! Row number for terms where ROW_PART_VEC = VAL_ROWS - INTEGER(LONG) :: B_ROW_NUM ! A row number value from B_ROW_NUM_ARRAY - INTEGER(LONG) :: I,II,K,L ! DO loop indices or counters +! It is a counter for the VAL_COLS terms in COL_PART_VEC + INTEGER(LONG) :: B_COL_NUM ! A col number value from B_COL_NUM_ARRAY + INTEGER(LONG) :: B_ROW_NUM_ARRAY(NROW_A)! Row number for terms where ROW_PART_VEC = VAL_ROWS + INTEGER(LONG) :: B_ROW_NUM ! A row number value from B_ROW_NUM_ARRAY + INTEGER(LONG) :: I,II,K,L ! DO loop indices or counters INTEGER(LONG) :: I1,I2 ! DO loop range INTEGER(LONG) :: IERROR ! Error indicator INTEGER(LONG) :: KBEG_MATIN ! Index into array I_A where a row of matrix A ends @@ -102,14 +102,14 @@ SUBROUTINE PARTITION_SS_NTERM ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, INTEGER(LONG) :: MATIN_NTERM_ROW_I ! Number of terms in MATIN row I INTEGER(LONG) :: NCOL_B ! Number of columns in the output matrix INTEGER(LONG) :: NROW_B ! No. rows in B - INTEGER(LONG) :: ROW_AT_COLJ_BEG(NCOL_A)! jth term is row number in MATIN where col j nonzeros begin + INTEGER(LONG) :: ROW_AT_COLJ_BEG(NCOL_A)! jth term is row number in MATIN where col j nonzeros begin INTEGER(LONG) :: ROW_AT_COLJ_END(NCOL_A)! jth term is row number in MATIN where col j nonzeros end CHARACTER(LEN=LEN(" Det. part. size of BBBB, row")) :: COUNTER_TEMPLATE INTRINSIC :: DABS - + ! ********************************************************************************************************************************** @@ -143,7 +143,7 @@ SUBROUTINE PARTITION_SS_NTERM ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, B_ROW_NUM_ARRAY(I) = K ENDIF ENDDO - NROW_B = K + NROW_B = K K = 0 DO I=1,NCOL_A @@ -194,10 +194,10 @@ SUBROUTINE PARTITION_SS_NTERM ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, ! terms for the MATOUT partition that are not explicitly in MATIN. This is done by getting MATIN terms in the column (above the ! diagonal of a row) as well as the explicit terms from MATIN that are there from the diagonal out to the end of the row. The two ! arrays: ROW_AT_COLJ_BEG and ROW_AT_COLJ_END are used to aid in getting the terms in the column above the diagonal. -! ROW_AT_COLJ_BEG is an array that gives, for each col of MATIN, the starting row number of nonzero terms in that column. +! ROW_AT_COLJ_BEG is an array that gives, for each col of MATIN, the starting row number of nonzero terms in that column. ! ROW_AT_COLJ_END is an array that gives, for each col of MATIN, the ending row number of nonzero terms in that column. ! The span: ROW_AT_COLJ_BEG to ROW_AT_COLJ_END is used when we search for terms in the columns. -! We only need ROW_AT_COLJ_BEG and ROW_AT_COLJ_END when MATIN is input symmetric and MATOUT is not to be output as symmetric +! We only need ROW_AT_COLJ_BEG and ROW_AT_COLJ_END when MATIN is input symmetric and MATOUT is not to be output as symmetric IF ((SYM_A == 'Y') .AND. (SYM_B == 'N')) THEN @@ -211,8 +211,8 @@ SUBROUTINE PARTITION_SS_NTERM ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, AROW_MAX_TERMS = 0 ! Find the max number of nonzero terms in any row of input matrix MATIN KBEG_MATIN = 1 DO I=1,NROW_A ! Matrix partition loop. Range over the rows in MATIN - KTERM_AROW = 0 - MATIN_NTERM_ROW_I = I_A(I+1) - I_A(I) ! Number of terms in matrix MATIN in row I + KTERM_AROW = 0 + MATIN_NTERM_ROW_I = I_A(I+1) - I_A(I) ! Number of terms in matrix MATIN in row I KEND_MATIN = KBEG_MATIN + MATIN_NTERM_ROW_I - 1 ! KBEG_MATIN to KEND_MATIN is range of indices of terms in MATIN row I IF (ROW_PART_VEC(I) == VAL_ROWS) THEN KTERM_AROW = 0 @@ -242,32 +242,32 @@ SUBROUTINE PARTITION_SS_NTERM ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, KBEG_MATIN = 1 L = 0 - + WRITE(COUNTER_TEMPLATE, 12345) MAT_B_NAME CALL COUNTER_INIT(COUNTER_TEMPLATE, NROW_A) i_do: DO I=1,NROW_A ! Matrix partition loop. Range over the rows in MATIN - MATIN_NTERM_ROW_I = I_A(I+1) - I_A(I) ! Number of terms in matrix MATIN in row I + MATIN_NTERM_ROW_I = I_A(I+1) - I_A(I) ! Number of terms in matrix MATIN in row I KEND_MATIN = KBEG_MATIN + MATIN_NTERM_ROW_I - 1 ! KBEG_MATIN to KEND_MATIN is range of indices of terms in MATIN row I IF (ROW_PART_VEC(I) == VAL_ROWS) THEN L = L + 1 - + B_ROW_NUM = B_ROW_NUM_ARRAY(I) DO K=1,AROW_MAX_TERMS ! Null J_AROW and AROW each time we begin a new row of A J_AROW(K) = 0 ALG(K)(1:) = ' ' - ENDDO + ENDDO J_AROW_NULL = 'Y' ! Nothing in J_AROW at this point KTERM_AROW = 0 IF ((SYM_A == 'Y') .AND. (SYM_B == 'N')) THEN ! 1st, if this SYM is true, count terms in col above the diag in row I - - DO K=1,KBEG_MATIN-1 ! Go through all terms in sparse MATIN from K=1 to where row I begins + + DO K=1,KBEG_MATIN-1 ! Go through all terms in sparse MATIN from K=1 to where row I begins IF (J_A(K) == I) THEN ! looking for terms whose column number is the row number I KTERM_AROW = KTERM_AROW + 1 I1 = ROW_AT_COLJ_BEG(I) @@ -307,7 +307,7 @@ SUBROUTINE PARTITION_SS_NTERM ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, IF ((DEBUG(86) == 2) .OR. (DEBUG(86) == 3)) CALL PARTITION_SS_NTERM_DEB ( '5' ) ENDIF ENDIF - ENDDO + ENDDO ENDIF @@ -323,9 +323,9 @@ SUBROUTINE PARTITION_SS_NTERM ( MAT_A_NAME, NTERM_A, NROW_A, NCOL_A, SYM_A, I_A, CALL DEALLOCATE_SPARSE_ALG ( 'ALG' ) CALL DEALLOCATE_SPARSE_ALG ( 'J_AROW' ) - - + + RETURN ! ********************************************************************************************************************************** @@ -355,8 +355,8 @@ SUBROUTINE PARTITION_SS_NTERM_DEB ( WHICH ) CHARACTER( 1*BYTE) :: WHICH ! Decides what to print out for this call to this subr - INTEGER(LONG) :: KK ! Local count - INTEGER(LONG) :: II ! Local DO loop variable + INTEGER(LONG) :: KK ! Local count + INTEGER(LONG) :: II ! Local DO loop variable ! ********************************************************************************************************************************** IF (WHICH == '1') THEN @@ -457,7 +457,7 @@ SUBROUTINE PARTITION_SS_NTERM_DEB ( WHICH ) ' J_AROW from column I of matrix A while working on row I of matrix A. These are the terms that would be below the diag',/,& ' in matrix A but are not explicitly in the array due to symmetry storage.' ,//,& ' For each non null row of matrix A that is to be partitioned into matrix B, the following shows the development of array' ,/,& -' J_AROW and the rows and columns where terms will be placed in the partitioned matrix (when subr PARTITION_SS is run)') +' J_AROW and the rows and columns where terms will be placed in the partitioned matrix (when subr PARTITION_SS is run)') 2021 FORMAT(1X,/' **************************************************************************************************************',& '*********************') diff --git a/Source/UTIL/PARTITION_VEC.f90 b/Source/UTIL/PARTITION_VEC.f90 index f2c14ecb..681bb374 100644 --- a/Source/UTIL/PARTITION_VEC.f90 +++ b/Source/UTIL/PARTITION_VEC.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE PARTITION_VEC ( NDOF_X, CSET_X, CSET_1, CSET_2, PART_VEC ) - + ! Creates a partitioning vector, PART_VEC, containing 1's and 2's in a vector for displ set CSET_X: ! The 1's are for the DOF's belonging to displ set CSET_1 (a subset of CSET_X) ! The 2's are for the DOF's belonging to displ set CSET_2 (the compliment of CSET_1 in CSET_X) @@ -35,11 +35,11 @@ SUBROUTINE PARTITION_VEC ( NDOF_X, CSET_X, CSET_1, CSET_2, PART_VEC ) USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFG USE TIMDAT, ONLY : TSEC USE DOF_TABLES, ONLY : TDOFI - + USE PARTITION_VEC_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'PARTITION_VEC' CHARACTER(LEN=*), INTENT(IN ) :: CSET_X ! Char description of displ set (e.g. 'A ' or 'SG') CHARACTER(LEN=*), INTENT(IN ) :: CSET_1 ! Char description of displ set (e.g. 'A ' or 'SG') @@ -103,4 +103,4 @@ SUBROUTINE PARTITION_VEC ( NDOF_X, CSET_X, CSET_1, CSET_2, PART_VEC ) ! ********************************************************************************************************************************** END SUBROUTINE PARTITION_VEC - + diff --git a/Source/UTIL/PLANE_COORD_TRANS_21.f90 b/Source/UTIL/PLANE_COORD_TRANS_21.f90 index a60ac3d3..86c14878 100644 --- a/Source/UTIL/PLANE_COORD_TRANS_21.f90 +++ b/Source/UTIL/PLANE_COORD_TRANS_21.f90 @@ -1,47 +1,47 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE PLANE_COORD_TRANS_21 ( THETA, T21, CALLING_SUBR ) - + ! Creates a coordinate transformation matrix for a plane rotation of a vector in coordinate system 1, through an angle THETA, to ! a vector in coordinate system 2 ! | U2 | | cos(THETA) sin(THETA) 0 | | U1 | ! | V2 | = | -sin(THETA) cos(THETA) 0 | | V1 | ! | W2 | | 0 0 1 | | W1 | - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ONE, ZERO - + USE PLANE_COORD_TRANS_21_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'PLANE_COORD_TRANS_21' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this one @@ -54,7 +54,7 @@ SUBROUTINE PLANE_COORD_TRANS_21 ( THETA, T21, CALLING_SUBR ) INTRINSIC :: DSIN, DCOS - + ! ********************************************************************************************************************************** ! Row 1 diff --git a/Source/UTIL/PROJ_VEC_ONTO_PLANE.f90 b/Source/UTIL/PROJ_VEC_ONTO_PLANE.f90 index 43c06cfe..2b0d3d60 100644 --- a/Source/UTIL/PROJ_VEC_ONTO_PLANE.f90 +++ b/Source/UTIL/PROJ_VEC_ONTO_PLANE.f90 @@ -1,48 +1,48 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE PROJ_VEC_ONTO_PLANE ( VEC_A, VEC_B, VEC_C ) - + ! Calcs the projection of a vector onto a plane given a normal to the plane (VEC_B) and the vector to be procected (VEC_A). -! Result is VEC_C +! Result is VEC_C USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC - + USE PROJ_VEC_ONTO_PLANE_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'PROJ_VEC_ONTO_PLANE' INTEGER(LONG) :: I ! DO loop index - + REAL(DOUBLE) , INTENT(IN) :: VEC_A(3) ! Vector to be projected REAL(DOUBLE) , INTENT(IN) :: VEC_B(3) ! Vector normal to the plane onto which VEC_A is to be projected REAL(DOUBLE) , INTENT(OUT) :: VEC_C(3) ! Vector projection of VEC_A onto plane to which VEC_B is normal diff --git a/Source/UTIL/PRT_MATS_ON_RESTART.f90 b/Source/UTIL/PRT_MATS_ON_RESTART.f90 index 8ba696a6..54948173 100644 --- a/Source/UTIL/PRT_MATS_ON_RESTART.f90 +++ b/Source/UTIL/PRT_MATS_ON_RESTART.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE PRT_MATS_ON_RESTART ! Upon user request (via Bulk Data PARAM PRTijk entries) writes matrices to F06 on a restart - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1 @@ -72,32 +72,32 @@ SUBROUTINE PRT_MATS_ON_RESTART I_QSYS, J_QSYS, QSYS,I_RMG , J_RMG , RMG - + USE PRT_MATS_ON_RESTART_USE_IFs IMPLICIT NONE - + LOGICAL :: FILE_EXIST ! Result from INQUIRE is true if a file exists CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'PRT_MATS_ON_RESTART' - CHARACTER( 1*BYTE) :: CLOSE_IT = 'Y' ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not - CHARACTER( 1*BYTE) :: NTERM_RD = 'Y' ! 'Y' or 'N' Input to subr READ_MATRIX_1 - CHARACTER( 1*BYTE) :: OPND = 'N' ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not - + CHARACTER( 1*BYTE) :: CLOSE_IT = 'Y' ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not + CHARACTER( 1*BYTE) :: NTERM_RD = 'Y' ! 'Y' or 'N' Input to subr READ_MATRIX_1 + CHARACTER( 1*BYTE) :: OPND = 'N' ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not + INTEGER(LONG) :: I,J ! DO loop indices INTEGER(LONG) :: IERROR ! Error count INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening/reading a file INTEGER(LONG) :: NTERM_KSF ! Number of nonzeros in sparse matrix KSF (= NTERM_KFS) INTEGER(LONG) :: NUM_SOLNS ! NSUB for statics, NVEC for eigenvalues, etc - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: REC_NO ! Record number when reading a file REAL(DOUBLE) :: KAA_DIAG(NDOFA) ! Diagonal of KAA REAL(DOUBLE) :: KGG_DIAG(NDOFG) ! Diagonal of KGG - REAL(DOUBLE) :: KLL_DIAG(NDOFL) ! Diagonal of KLL - REAL(DOUBLE) :: KRR_DIAG(NDOFR) ! Diagonal of KRR + REAL(DOUBLE) :: KLL_DIAG(NDOFL) ! Diagonal of KLL + REAL(DOUBLE) :: KRR_DIAG(NDOFR) ! Diagonal of KRR REAL(DOUBLE) :: KAA_MAX_DIAG ! Max diag term from KAA REAL(DOUBLE) :: KGG_MAX_DIAG ! Max diag term from KGG @@ -120,7 +120,7 @@ SUBROUTINE PRT_MATS_ON_RESTART OUNT(2) = F06 !xx WRITE(SC1, * ) ' ALLOCATE/DEALLOCATE SOME ARRAYS' -!xx WRITE(SC1, * ) ! Advance 1 line for screen messages +!xx WRITE(SC1, * ) ! Advance 1 line for screen messages ! ---------------------------------------------------------------------------------------------------------------------------------- ! Write PG load matrix @@ -189,7 +189,7 @@ SUBROUTINE PRT_MATS_ON_RESTART ENDIF ! ---------------------------------------------------------------------------------------------------------------------------------- -! Write RMG +! Write RMG IF (PRTRMG > 0) THEN INQUIRE ( FILE=LINK1J, EXIST=FILE_EXIST ) @@ -259,7 +259,7 @@ SUBROUTINE PRT_MATS_ON_RESTART ENDIF ! ---------------------------------------------------------------------------------------------------------------------------------- -! Write GMN +! Write GMN IF (PRTGMN > 0) THEN INQUIRE ( FILE=LINK2A, EXIST=FILE_EXIST ) @@ -348,7 +348,7 @@ SUBROUTINE PRT_MATS_ON_RESTART ENDIF ! ---------------------------------------------------------------------------------------------------------------------------------- -! Write GOA +! Write GOA IF (PRTGOA > 0) THEN INQUIRE ( FILE=LINK2E, EXIST=FILE_EXIST ) @@ -474,7 +474,7 @@ SUBROUTINE PRT_MATS_ON_RESTART CALL WRITE_SPARSE_CRS ( L2I_MSG, 'L ', 'L ', NTERM_MLL, NDOFL, I_MLL, J_MLL, MLL ) WRITE(SC1,12345,ADVANCE='NO') ' Deallocate MLL ', CR13 CALL DEALLOCATE_SPARSE_MAT ( 'MLL' ) - + WARN_ERR = WARN_ERR + 1 WRITE(ERR,101) L2I_MSG, LINK2I IF (SUPWARN == 'N') THEN @@ -484,7 +484,7 @@ SUBROUTINE PRT_MATS_ON_RESTART ENDIF ! ---------------------------------------------------------------------------------------------------------------------------------- -! Write HMN +! Write HMN IF (PRTHMN > 0) THEN INQUIRE ( FILE=LINK2J, EXIST=FILE_EXIST ) diff --git a/Source/UTIL/READERR.f90 b/Source/UTIL/READERR.f90 index 96517ee3..a5108e73 100644 --- a/Source/UTIL/READERR.f90 +++ b/Source/UTIL/READERR.f90 @@ -1,51 +1,51 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE READERR (IOCHK, FILNAM, MESSAG, REC_NO, OUNT ) - -! Writes message about errors encountered when reading files - + +! Writes message about errors encountered when reading files + USE PENTIUM_II_KIND, ONLY : LONG USE IOUNT1, ONLY : SC1 USE SCONTR, ONLY : FATAL_ERR - + USE READERR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Used for error messaging CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - + INTEGER(LONG), INTENT(IN) :: IOCHK ! IOSTAT error number when opening/reading a file INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to INTEGER(LONG), INTENT(IN) :: REC_NO ! Indicator of record number when error encountered reading file INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IEND ! End col for MESSAG - + ! ********************************************************************************************************************************** @@ -112,8 +112,8 @@ SUBROUTINE READERR (IOCHK, FILNAM, MESSAG, REC_NO, OUNT ) ENDDO - FATAL_ERR = FATAL_ERR + 1 - + FATAL_ERR = FATAL_ERR + 1 + RETURN @@ -130,5 +130,5 @@ SUBROUTINE READERR (IOCHK, FILNAM, MESSAG, REC_NO, OUNT ) 907 FORMAT(' *ERROR 907: ERR WITH IOSTAT = ',I8,' ENCOUNTERED READING FROM THE FOLLOWING FILE FOR DATA NAMED "',A,'"') ! ********************************************************************************************************************************** - + END SUBROUTINE READERR diff --git a/Source/UTIL/READ_CHK.f90 b/Source/UTIL/READ_CHK.f90 index 8f5c1b61..6b57092f 100644 --- a/Source/UTIL/READ_CHK.f90 +++ b/Source/UTIL/READ_CHK.f90 @@ -1,46 +1,46 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE READ_CHK (IOCHK, FILNAM, MESSAG, REC_NO, OUNT ) - + ! Checks status of a read and calls READERR and quits if it is not OK - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - + USE READ_CHK_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Used for error messaging CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - + INTEGER(LONG), INTENT(IN) :: IOCHK ! IOSTAT error number when opening/reading a file INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to INTEGER(LONG), INTENT(IN) :: REC_NO ! Indicator of record number when error encountered reading file - + ! ********************************************************************************************************************************** IF (IOCHK /= 0) THEN CALL READERR ( IOCHK, FILNAM, MESSAG, REC_NO, OUNT ) @@ -48,5 +48,5 @@ SUBROUTINE READ_CHK (IOCHK, FILNAM, MESSAG, REC_NO, OUNT ) ENDIF ! ********************************************************************************************************************************** - + END SUBROUTINE READ_CHK diff --git a/Source/UTIL/READ_DOF_TABLES.f90 b/Source/UTIL/READ_DOF_TABLES.f90 index 283de289..8178f0e1 100644 --- a/Source/UTIL/READ_DOF_TABLES.f90 +++ b/Source/UTIL/READ_DOF_TABLES.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE READ_DOF_TABLES @@ -45,7 +45,7 @@ SUBROUTINE READ_DOF_TABLES INTEGER(LONG) :: I,J ! DO loop indices or counters INTEGER(LONG) :: INT2 ! Integer value read from file INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening or reading a file - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: REC_NO ! Record number when reading a file @@ -78,8 +78,8 @@ SUBROUTINE READ_DOF_TABLES DO J=1,6 READ(L1C,IOSTAT=IOCHK) TSET(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, LINK1C, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO ! Read TDOFI array @@ -102,8 +102,8 @@ SUBROUTINE READ_DOF_TABLES DO J=1,MTDOF READ(L1C,IOSTAT=IOCHK) TDOFI(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, LINK1C, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO ! Read TDOF array @@ -126,8 +126,8 @@ SUBROUTINE READ_DOF_TABLES DO J=1,MTDOF READ(L1C,IOSTAT=IOCHK) TDOF(I,J) ; REC_NO = REC_NO + 1 CALL READ_CHK ( IOCHK, LINK1C, NAME_ShouldBe, REC_NO, OUNT ) - ENDDO - ENDDO + ENDDO + ENDDO CALL FILE_CLOSE ( L1C, LINK1C, 'KEEP' ) diff --git a/Source/UTIL/READ_IN4_FULL_MAT.f90 b/Source/UTIL/READ_IN4_FULL_MAT.f90 index 12d6cc90..d7b6247d 100644 --- a/Source/UTIL/READ_IN4_FULL_MAT.f90 +++ b/Source/UTIL/READ_IN4_FULL_MAT.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE READ_IN4_FULL_MAT ( ELEM_TYP, ELEM_ID, MAT_NAME_IN, NRI, NCI, UNT, FILNAM, MAT_FULL, IERRT, CALLING_SUBR ) @@ -47,12 +47,12 @@ SUBROUTINE READ_IN4_FULL_MAT ( ELEM_TYP, ELEM_ID, MAT_NAME_IN, NRI, NCI, UNT, FI CHARACTER(LEN=*), INTENT(IN) :: MAT_NAME_IN ! Name of matrix to read from UNT CHARACTER( 8*BYTE) :: MAT_NAME ! Name of matrix in file that is read - INTEGER(LONG), INTENT(IN) :: UNT ! I/O unit number from which to read MAT + INTEGER(LONG), INTENT(IN) :: UNT ! I/O unit number from which to read MAT INTEGER(LONG), INTENT(IN) :: ELEM_ID ! ID of element for which this subr was called INTEGER(LONG), INTENT(IN) :: NRI ! Number of rows expected in MAT_FULL INTEGER(LONG), INTENT(IN) :: NCI ! Number of cols expected in MAT INTEGER(LONG), INTENT(OUT) :: IERRT ! IERR1+IERR2 - INTEGER(LONG) :: FORM ! + INTEGER(LONG) :: FORM ! INTEGER(LONG) :: ICOL ! The column number being read in a record from FILNAM INTEGER(LONG) :: IERR1 ! Local error count INTEGER(LONG) :: IERR2 ! Local error count @@ -65,7 +65,7 @@ SUBROUTINE READ_IN4_FULL_MAT ( ELEM_TYP, ELEM_ID, MAT_NAME_IN, NRI, NCI, UNT, FI INTEGER(LONG) :: MAT_NUM ! Number of matrix read from file INTEGER(LONG) :: NC ! From matrix trailer. Should be NCOLS+1 INTEGER(LONG) :: PREC ! Matrix precision (2 indicates double precision) - INTEGER(LONG) :: REC_NUM ! + INTEGER(LONG) :: REC_NUM ! REAL(DOUBLE), ALLOCATABLE :: CCS1_COL(:) ! One column of MAT @@ -96,9 +96,9 @@ SUBROUTINE READ_IN4_FULL_MAT ( ELEM_TYP, ELEM_ID, MAT_NAME_IN, NRI, NCI, UNT, FI IF (PREC /= 2) THEN NUM_EMG_FATAL_ERRS = NUM_EMG_FATAL_ERRS + 1 FATAL_ERR = FATAL_ERR + 1 - WRITE(ERR,956) PREC, FILNAM + WRITE(ERR,956) PREC, FILNAM WRITE(F06,956) PREC, FILNAM - RETURN + RETURN ENDIF IF (IOCHK == 0) THEN ! No problems reading header, so proceed to read matrix values @@ -207,7 +207,7 @@ SUBROUTINE READ_IN4_FULL_MAT ( ELEM_TYP, ELEM_ID, MAT_NAME_IN, NRI, NCI, UNT, FI WRITE(ERR,950) MAT_NAME_IN, FILNAM, SUBR_NAME, CALLING_SUBR WRITE(F06,950) MAT_NAME_IN, FILNAM, SUBR_NAME, CALLING_SUBR CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF @@ -256,7 +256,7 @@ SUBROUTINE IN4_READ_ERR ( II ) MESSAGE = 'EOR/EOF READING MATRIX ' ELSE IF (II == 31) THEN MESSAGE = 'ERROR READING MATRIX TRAILER' - ELSE IF (II == 32) THEN + ELSE IF (II == 32) THEN MESSAGE = 'EOR/EOF READING MATRIX TRAILER' ENDIF diff --git a/Source/UTIL/READ_L1A.f90 b/Source/UTIL/READ_L1A.f90 index 9a926377..a01edfdb 100644 --- a/Source/UTIL/READ_L1A.f90 +++ b/Source/UTIL/READ_L1A.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE READ_L1A ( CLOSE_STAT ) - + ! Reads in data that is in formatted file LINK1A, which is read by all LINK's after LINK1, as they begin. This text file contains ! the names of files opened for a run, the "counter" info (e.g. NGRID, number of grids, etc), solution number, PARAM's - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : MOT4, MOU4, WRT_ERR @@ -88,7 +88,7 @@ SUBROUTINE READ_L1A ( CLOSE_STAT ) CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'READ_L1A' CHARACTER(LEN=*), INTENT(IN) :: CLOSE_STAT ! STATUS when closing file LINK1A CHARACTER(80*BYTE) :: MESSAG ! File description. Used for error messaging - + INTEGER(LONG), PARAMETER :: NUMIO = 304 ! Number of terms in IOCHKI array INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IOCHKI(NUMIO) ! Array of IOSTAT error numbers when opening/reading a file @@ -97,7 +97,7 @@ SUBROUTINE READ_L1A ( CLOSE_STAT ) INTEGER(LONG) :: REC_NO ! Indicator of record number when error encountered reading file INTEGER(LONG) :: XTIME ! Time stamp read from file LINK1A - + ! ********************************************************************************************************************************** @@ -105,12 +105,12 @@ SUBROUTINE READ_L1A ( CLOSE_STAT ) OUNT(1) = SC1 OUNT(2) = SC1 - -! Initialize terms - + +! Initialize terms + REC_NO = 0 JERR = 0 - + ! Open L1A file (file name read in calling routine) OPEN (L1A,FILE=LINK1A,STATUS='OLD',IOSTAT=IOCHKI(1),ACTION='READWRITE') @@ -119,10 +119,10 @@ SUBROUTINE READ_L1A ( CLOSE_STAT ) CALL FILERR ( OUNT ) CALL OUTA_HERE ( 'Y' ) ! Can't open file LINK1A, so quit ENDIF - + ! Read start time - + MESSAG = 'STIME' READ(L1A,110,IOSTAT=IOCHKI(1)) XTIME IF (IOCHKI(1) /= 0) THEN @@ -139,7 +139,7 @@ SUBROUTINE READ_L1A ( CLOSE_STAT ) STIME = XTIME ENDIF ENDIF - + ! Read LINK number that was executing when file LINK1A was written MESSAG = ' LINK number executing when file LINK1A was written' @@ -161,13 +161,13 @@ SUBROUTINE READ_L1A ( CLOSE_STAT ) ENDIF ! Read I/0 unit no's and names. First, null IOCHKI since it won't be checked until after all records, below, are read. - + DO I=1,NUMIO IOCHKI(I) = 0 ENDDO - + MESSAG = 'I/O UNITS AND FILE NAMES ' - + READ(L1A,140,IOSTAT=IOCHKI( 1)) SC1 READ(L1A,151,IOSTAT=IOCHKI( 3)) BUG,BUGSTAT,BUG_MSG,BUGFIL @@ -242,38 +242,38 @@ SUBROUTINE READ_L1A ( CLOSE_STAT ) READ(L1A,151,IOSTAT=IOCHKI( 72)) OP2,OP2STAT,OP2_MSG,OP2FIL IF ( 72 > MAX_FIL) THEN - WRITE(ERR,944) SUBR_NAME, MAX_FIL - WRITE(F06,944) SUBR_NAME, MAX_FIL + WRITE(ERR,944) SUBR_NAME, MAX_FIL + WRITE(F06,944) SUBR_NAME, MAX_FIL FATAL_ERR = FATAL_ERR + 1 CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF - DO I=1,MOU4 + DO I=1,MOU4 READ(L1A,151,IOSTAT=IOCHKI(71+I)) OU4(I),OU4STAT(I),OU4FIL(I) - ENDDO - DO I=1,MOT4 + ENDDO + DO I=1,MOT4 READ(L1A,151,IOSTAT=IOCHKI(71+MOU4+I)) OT4(I),OT4STAT(I),OT4FIL(I) - ENDDO + ENDDO DO I=1,71+MOT4+MOU4 IF (IOCHKI(I) /= 0) THEN REC_NO = I CALL READERR ( IOCHKI(1), LINK1A, MESSAG, REC_NO, OUNT ) JERR = JERR + 1 ENDIF - ENDDO + ENDDO ! Read counter info. First, null IOCHK since it won't be checked until after all records, below, are read - + DO I=1,NUMIO IOCHKI(I) = 0 ENDDO MESSAG = 'VARIABLES FROM MODULE SCONTR' - READ(L1A,160,IOSTAT=IOCHKI( 1)) LBAROFF ! 1 (From module SCONTR) - READ(L1A,160,IOSTAT=IOCHKI( 2)) LBUSHOFF ! 2 (From module SCONTR) - READ(L1A,160,IOSTAT=IOCHKI( 3)) LCMASS ! 3 (From module SCONTR) - READ(L1A,160,IOSTAT=IOCHKI( 4)) LCONM2 ! 4 (From module SCONTR) - READ(L1A,160,IOSTAT=IOCHKI( 5)) LCORD ! 5 (From module SCONTR) + READ(L1A,160,IOSTAT=IOCHKI( 1)) LBAROFF ! 1 (From module SCONTR) + READ(L1A,160,IOSTAT=IOCHKI( 2)) LBUSHOFF ! 2 (From module SCONTR) + READ(L1A,160,IOSTAT=IOCHKI( 3)) LCMASS ! 3 (From module SCONTR) + READ(L1A,160,IOSTAT=IOCHKI( 4)) LCONM2 ! 4 (From module SCONTR) + READ(L1A,160,IOSTAT=IOCHKI( 5)) LCORD ! 5 (From module SCONTR) READ(L1A,160,IOSTAT=IOCHKI( 6)) LDOFG ! 6 (From module SCONTR) READ(L1A,160,IOSTAT=IOCHKI( 7)) LEDAT ! 7 (From module SCONTR) READ(L1A,160,IOSTAT=IOCHKI( 8)) LELE ! 8 (From module SCONTR) @@ -580,8 +580,8 @@ SUBROUTINE READ_L1A ( CLOSE_STAT ) CALL READERR ( IOCHKI(I), LINK1A, MESSAG, REC_NO, OUNT ) JERR = JERR + 1 ENDIF - ENDDO - + ENDDO + ! Read PARAM's (some need to stay the same in a restart) MESSAG = 'PARAMS THAT NEED TO STAY SAME IN A RESTART' @@ -611,8 +611,8 @@ SUBROUTINE READ_L1A ( CLOSE_STAT ) CALL READERR ( IOCHKI(I), LINK1A, MESSAG, REC_NO, OUNT ) JERR = JERR + 1 ENDIF - ENDDO - + ENDDO + ! Read COMM MESSAG = 'COMM ' @@ -624,16 +624,16 @@ SUBROUTINE READ_L1A ( CLOSE_STAT ) ENDIF ! Finished reading L1A, so close: - + CALL FILE_CLOSE ( L1A, LINK1A, CLOSE_STAT ) - + ! Check JERR and stop if > 0 - + IF (JERR > 0) THEN WRITE(SC1,911) JERR, LINK1A CALL OUTA_HERE ( 'Y' ) ! Errors reading file LINK1A, so quit ENDIF - + RETURN @@ -658,10 +658,10 @@ SUBROUTINE READ_L1A ( CLOSE_STAT ) 193 FORMAT(1X,1ES14.6) 911 FORMAT(/,' PROCESSING TERMINATED DUE TO ABOVE ',I8,' ERRORS READING FILE ',/,A) - + 944 FORMAT(' *ERROR 944: PROGRAMMING ERROR IN SUBROUTINE ',A,/, & /,14X,'ATTEMPT TO EXCEED MAX_FIL = ',I4,' NUMBER OF FILES IN WRITING FILE STATUS') ! ********************************************************************************************************************************** - + END SUBROUTINE READ_L1A diff --git a/Source/UTIL/READ_L1M.f90 b/Source/UTIL/READ_L1M.f90 index c2b93d5a..fa470dee 100644 --- a/Source/UTIL/READ_L1M.f90 +++ b/Source/UTIL/READ_L1M.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE READ_L1M ( IERROR ) - + ! Reads eigenvalue extraction data from file LINK1M. The actual eigenvalue and eigenvector data is not on this file - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - + USE SCONTR, ONLY : LINKNO, NUM_EIGENS USE IOUNT1, ONLY : ERR, F06, L1M, L1M_MSG, L1MSTAT, LINK1M, SC1, WRT_ERR USE EIGEN_MATRICES_1 , ONLY : EIGEN_VAL, GEN_MASS, MODE_NUM @@ -40,9 +40,9 @@ SUBROUTINE READ_L1M ( IERROR ) USE READ_L1M_USE_IFs USE LINK_MESSAGE_Interface - + IMPLICIT NONE - + CHARACTER(24*BYTE) :: ENAME(20) ! Array of names of recirds read from file LINK1M INTEGER(LONG), INTENT(OUT) :: IERROR ! Error count @@ -50,14 +50,14 @@ SUBROUTINE READ_L1M ( IERROR ) INTEGER(LONG) :: IOCHK(20) ! IOSTAT error number when opening/reading a file INTEGER(LONG) :: OUNT(2) ! File units to write messages to INTEGER(LONG) :: REC_NO ! Indicator of record number when error encountered reading file - + ! ********************************************************************************************************************************** ! Initialize outputs IERROR = 0 ! Make units for writing errors the screen and output file - + OUNT(1) = ERR OUNT(2) = F06 @@ -129,5 +129,5 @@ SUBROUTINE READ_L1M ( IERROR ) CALL FILE_CLOSE ( L1M, LINK1M, 'KEEP' ) ! ********************************************************************************************************************************** - + END SUBROUTINE READ_L1M diff --git a/Source/UTIL/READ_L1Z.f90 b/Source/UTIL/READ_L1Z.f90 index 74100d64..19dab0c1 100644 --- a/Source/UTIL/READ_L1Z.f90 +++ b/Source/UTIL/READ_L1Z.f90 @@ -1,45 +1,45 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE READ_L1Z - + ! Reads in data from an unformatted file regarding the Exec and Case Control data, from a CHKPNT run, when a restart is made. ! Checks are made to ensure that nothing has changed that would violate the restart rules - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, L1Z, LINK1Z, L1Z_MSG USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NSUB, SOL_NAME USE TIMDAT, ONLY : STIME, TSEC USE MODEL_STUF, ONLY : CC_EIGR_SID, MPCSET, SPCSET, SUBLOD - + USE READ_L1Z_USE_IFs IMPLICIT NONE - + CHARACTER(LEN(BLNK_SUB_NAM)) :: SUBR_NAME = 'READ_L1Z' CHARACTER(LEN(SOL_NAME)) :: SOL_NAME_OLD ! SOL from original run that is being restarted @@ -47,13 +47,13 @@ SUBROUTINE READ_L1Z INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IERROR = 0 ! Local error count INTEGER(LONG) :: NSUB_OLD ! Number of subcases from original run that is being restarted - INTEGER(LONG) :: MPCSET_OLD ! - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: MPCSET_OLD ! + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: SPCSET_OLD ! SPC set ID from original run that is being restarted INTEGER(LONG) :: SUBLOD1_OLD ! Load set ID (for 1 subcase) from original run that is being restarted INTEGER(LONG) :: SUBLOD2_OLD ! Temp set ID (for 1 subcase) from original run that is being restarted - + ! ********************************************************************************************************************************** @@ -85,8 +85,8 @@ SUBROUTINE READ_L1Z IF (MPCSET /= MPCSET_OLD) THEN IERROR = IERROR + 1 FATAL_ERR = FATAL_ERR + 1 - WRITE (ERR,1828) MPCSET, MPCSET_OLD - WRITE (F06,1828) MPCSET, MPCSET_OLD + WRITE (ERR,1828) MPCSET, MPCSET_OLD + WRITE (F06,1828) MPCSET, MPCSET_OLD ENDIF READ(L1Z) SPCSET_OLD ! Must have the same SPC set in restart run as in original run @@ -106,7 +106,7 @@ SUBROUTINE READ_L1Z WRITE (ERR,1824) I WRITE (F06,1824) I ENDIF - ENDDO + ENDDO ENDIF READ(L1Z) CC_EIGR_SID_OLD ! Must have the same eigen set in restart run as in original run @@ -119,7 +119,7 @@ SUBROUTINE READ_L1Z IF (IERROR /= 0) THEN CALL OUTA_HERE ( 'Y' ) - ENDIF + ENDIF @@ -145,5 +145,5 @@ SUBROUTINE READ_L1Z ,/,14X,' HOWEVER, THIS RUN HAS MPC SET = ',I8,' WHILE THE ORIG RUN HAD MPC SET = ',I8) ! ********************************************************************************************************************************** - + END SUBROUTINE READ_L1Z diff --git a/Source/UTIL/READ_MATRIX_1.f90 b/Source/UTIL/READ_MATRIX_1.f90 index 7d64c29a..6b284a98 100644 --- a/Source/UTIL/READ_MATRIX_1.f90 +++ b/Source/UTIL/READ_MATRIX_1.f90 @@ -1,32 +1,32 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE READ_MATRIX_1 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME, NTERM, READ_NTERM, NROWS & , I_MATOUT, J_MATOUT, MATOUT ) - + ! Reads matrix data from an unformatted file into a sparse format described below. The format of the data in the file must be: ! If READ_NTERM = 'Y': @@ -44,8 +44,8 @@ SUBROUTINE READ_MATRIX_1 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME ! I_MATOUT(1 to NROWS+1) : i-th value is index in MATOUT where matrix row i begins ! J_MATOUT(1 to NTERM) : k-th value is the matrix col no. of the k-th term in array MATOUT -! MATOUT(1 to NTERM) : k-th value is the k-th nonzero value in the matrix - +! MATOUT(1 to NTERM) : k-th value is the k-th nonzero value in the matrix + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR @@ -57,17 +57,17 @@ SUBROUTINE READ_MATRIX_1 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME USE READ_MATRIX_1_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'READ_MATRIX_1' CHARACTER(LEN=*), INTENT(IN) :: CLOSE_IT ! ='Y'/'N' whether to close UNT or note CHARACTER(LEN=*), INTENT(IN) :: CLOSE_STAT ! What to do with file when it is closed CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN CHARACTER(LEN=*), INTENT(IN) :: READ_NTERM ! If 'Y', read NTERM from file before reading matrix CHARACTER(LEN=*), INTENT(IN) :: NAME ! Matrix name CHARACTER(LEN=*), INTENT(IN) :: OPND ! If 'Y', then do not open UNT, If 'N', open it - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in MATOUT INTEGER(LONG), INTENT(IN) :: NTERM ! Number of matrix terms that should be in FILNAM INTEGER(LONG), INTENT(IN) :: UNT ! Unit number of FILNAM @@ -81,17 +81,17 @@ SUBROUTINE READ_MATRIX_1 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME INTEGER(LONG) :: JCOL ! Col number for MATOUT INTEGER(LONG) :: KTERM ! Count of number of nonzero terms read from FILNAM INTEGER(LONG) :: NUM_TERMS ! Head rec read from files that denotes how many records in FILNAM - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: REC_NO ! Record number when reading FILNAM - + REAL(DOUBLE) , INTENT(OUT) :: MATOUT(NTERM) ! Real values for matrix MATOUT REAL(DOUBLE) :: RVAL ! Real values read from FILNAM CHARACTER(LEN=7+LEN(NAME)+LEN(": read row")) :: COUNTER_TEMPLATE - + INTRINSIC :: DABS - + ! ********************************************************************************************************************************** @@ -171,7 +171,7 @@ SUBROUTINE READ_MATRIX_1 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME ENDIF I_MATOUT(IROW+1) = I_MATOUT(IROW+1) + 1 KTERM = KTERM + 1 - J_MATOUT(KTERM) = JCOL + J_MATOUT(KTERM) = JCOL MATOUT(KTERM) = RVAL ENDDO k_do1 WRITE(SC1,*) CR13 @@ -234,11 +234,11 @@ SUBROUTINE READ_MATRIX_1 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME 12345 FORMAT(" ", A, ': read row') ! ********************************************************************************************************************************** - + ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE CHECK_SPARSE_CRS_I ( MAT_A_NAME, CALLING_SUBR, NROWS_A, NTERM_A, I_A, DEBUG_NUM ) @@ -267,7 +267,7 @@ SUBROUTINE CHECK_SPARSE_CRS_I ( MAT_A_NAME, CALLING_SUBR, NROWS_A, NTERM_A, I_A, DO I=1,NROWS_A NTERMS_A_ROW_I = I_A(I+1) - I_A(I) IF (NTERMS_A_ROW_I < 0) THEN ! Error. This indicates row I has < 0 number of terms in it. - NUM_ROW_ERRS = NUM_ROW_ERRS + 1 + NUM_ROW_ERRS = NUM_ROW_ERRS + 1 ELSE KTERM_A = KTERM_A + NTERMS_A_ROW_I ENDIF @@ -279,7 +279,7 @@ SUBROUTINE CHECK_SPARSE_CRS_I ( MAT_A_NAME, CALLING_SUBR, NROWS_A, NTERM_A, I_A, IF (DEBUG(DEBUG_NUM) >= 3) THEN QUIT = 'Y' ENDIF - ENDIF + ENDIF IF (KTERM_A /= NTERM_A) THEN WRITE(ERR,928) SUBR_NAME, MAT_A_NAME, MAT_A_NAME, NROWS_A, MAT_A_NAME, MAT_A_NAME, KTERM_A, NTERM_A, DEBUG_NUM, & @@ -289,7 +289,7 @@ SUBROUTINE CHECK_SPARSE_CRS_I ( MAT_A_NAME, CALLING_SUBR, NROWS_A, NTERM_A, I_A, IF (DEBUG(DEBUG_NUM) >= 3) THEN QUIT = 'Y' ENDIF - ENDIF + ENDIF IF (QUIT == 'Y') THEN CALL OUTA_HERE ( 'Y' ) diff --git a/Source/UTIL/READ_MATRIX_2.f90 b/Source/UTIL/READ_MATRIX_2.f90 index c6989b3f..eaecb3be 100644 --- a/Source/UTIL/READ_MATRIX_2.f90 +++ b/Source/UTIL/READ_MATRIX_2.f90 @@ -1,32 +1,32 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE READ_MATRIX_2 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME, NROWS, NTERMS, READ_NTERM & , I2_MATOUT, J_MATOUT, MATOUT ) - + ! Reads matrix data from an unformatted file into a sparse format described below The format of the data in the file must be: ! If READ_NTERM = 'Y': @@ -44,28 +44,28 @@ SUBROUTINE READ_MATRIX_2 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME ! I2_MATOUT(1 - NTERMS) : k-th value is the matrix row number of the k-th term in array MATOUT ! J_MATOUT(1 - NTERMS) : k-th value is the matrix col number of the k-th term in array MATOUT -! MATOUT(1 - NTERMS) : k-th value is the k-th nonzero value in the matrix +! MATOUT(1 - NTERMS) : k-th value is the k-th nonzero value in the matrix USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO - + USE READ_MATRIX_2_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'READ_MATRIX_2' CHARACTER(LEN=*), INTENT(IN) :: CLOSE_IT ! ='Y'/'N' whether to close UNT or note CHARACTER(LEN=*), INTENT(IN) :: CLOSE_STAT ! What to do with file when it is closed CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN CHARACTER(LEN=*), INTENT(IN) :: READ_NTERM ! If 'Y', read NTERM from file before reading matrix CHARACTER(LEN=*), INTENT(IN) :: NAME ! Matrix name CHARACTER(LEN=*), INTENT(IN) :: OPND ! If 'Y', then do not open UNT, If 'N', open it - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in the matrix INTEGER(LONG), INTENT(IN) :: NTERMS ! Number of matrix terms that should be in FILNAM INTEGER(LONG), INTENT(IN) :: UNT ! Unit number of FILNAM @@ -73,10 +73,10 @@ SUBROUTINE READ_MATRIX_2 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME INTEGER(LONG), INTENT(OUT) :: J_MATOUT(NTERMS) ! Col numbers for terms in matrix MATOUT INTEGER(LONG) :: IERROR = 0 ! Error count INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening a file - INTEGER(LONG) :: K ! DO loop index + INTEGER(LONG) :: K ! DO loop index INTEGER(LONG) :: NUM_TERMS ! Head rec read from files that denotes how many records in FILNAM INTEGER(LONG) :: OLD_ROW_NUM ! A variable used to tell when a new row of MATOUT is being read - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN INTEGER(LONG) :: REC_NO ! Record number when reading FILNAM @@ -85,7 +85,7 @@ SUBROUTINE READ_MATRIX_2 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME CHARACTER(LEN=7+LEN(NAME)+LEN(": read row")) :: COUNTER_TEMPLATE INTRINSIC DABS - + ! ********************************************************************************************************************************** @@ -145,7 +145,7 @@ SUBROUTINE READ_MATRIX_2 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME !CALL COUNTER_PROGRESS(I2_MATOUT(K)) ENDIF ENDDO - WRITE(SC1,*) CR13 + WRITE(SC1,*) CR13 IF (IERROR /= 0) THEN WRITE(ERR,9996) SUBR_NAME,IERROR @@ -171,5 +171,5 @@ SUBROUTINE READ_MATRIX_2 ( FILNAM, UNT, OPND, CLOSE_IT, CLOSE_STAT, MESSAG, NAME 12345 FORMAT(" ",A,': read row') ! ********************************************************************************************************************************** - + END SUBROUTINE READ_MATRIX_2 diff --git a/Source/UTIL/READ_XTIME.f90 b/Source/UTIL/READ_XTIME.f90 index 7c7f7cbb..4d315d2e 100644 --- a/Source/UTIL/READ_XTIME.f90 +++ b/Source/UTIL/READ_XTIME.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE READ_XTIME ( UNT, FILNAM, MESSAG, OUNT ) - + ! Reads STIME from an unformatted file and calls READERR if there is an error condition USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE READ_XTIME_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'READ_XTIME' CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Used for error messaging CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name @@ -46,7 +46,7 @@ SUBROUTINE READ_XTIME ( UNT, FILNAM, MESSAG, OUNT ) INTEGER(LONG) :: IOCHK ! IOSTAT error number when opening/reading a file INTEGER(LONG) :: XTIME ! Time stamp read from an unformatted file - + ! ********************************************************************************************************************************* diff --git a/Source/UTIL/REAL_DATA_TO_C8FLD.f90 b/Source/UTIL/REAL_DATA_TO_C8FLD.f90 index abe4702b..32363eb3 100644 --- a/Source/UTIL/REAL_DATA_TO_C8FLD.f90 +++ b/Source/UTIL/REAL_DATA_TO_C8FLD.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE REAL_DATA_TO_C8FLD ( REAL_INP, CHAR8_OUT ) @@ -44,7 +44,7 @@ SUBROUTINE REAL_DATA_TO_C8FLD ( REAL_INP, CHAR8_OUT ) IMPLICIT NONE CHARACTER( 8*BYTE), INTENT(OUT) :: CHAR8_OUT ! 8 character representation of REAL_INP - CHARACTER(11*BYTE) :: TEMP_CHAR ! Temporary char field to store REAL_INP in 1ES11.4 format + CHARACTER(11*BYTE) :: TEMP_CHAR ! Temporary char field to store REAL_INP in 1ES11.4 format INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IBEG,IEND ! Locations in char strings @@ -73,7 +73,7 @@ SUBROUTINE REAL_DATA_TO_C8FLD ( REAL_INP, CHAR8_OUT ) ENDIF CHAR8_OUT(IEND:IEND) = TEMP_CHAR(9:9) IEND=IEND-1 - + DO I=4,11 IBEG = IBEG+1 IF ((CHAR8_OUT(IBEG:IBEG) == '-') .OR. (CHAR8_OUT(IBEG:IBEG) == '+')) exit diff --git a/Source/UTIL/RESTART_DATA_FOR_L3.f90 b/Source/UTIL/RESTART_DATA_FOR_L3.f90 index a732ab27..55fddee3 100644 --- a/Source/UTIL/RESTART_DATA_FOR_L3.f90 +++ b/Source/UTIL/RESTART_DATA_FOR_L3.f90 @@ -1,57 +1,57 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE RESTART_DATA_FOR_L3 - -! Reads matrices needed when a restart is made in LINK3 + +! Reads matrices needed when a restart is made in LINK3 USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1, WRT_ERR USE IOUNT1, ONLY : L2G, LINK2G, L2G_MSG, L2GSTAT USE IOUNT1, ONLY : L2H, LINK2H, L2H_MSG, L2HSTAT USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, NDOFL, NTERM_KLL, NTERM_PL - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE SPARSE_MATRICES, ONLY : I_KLL , J_KLL , KLL ,I_PL , J_PL , PL USE RESTART_DATA_FOR_L3_USE_IFs IMPLICIT NONE - + LOGICAL :: FILE_EXIST ! Result from INQUIRE is true if a file exists CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'RESTART_DATA_FOR_L3' - CHARACTER( 1*BYTE) :: CLOSE_IT = 'Y' ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not - CHARACTER( 1*BYTE) :: NTERM_RD = 'Y' ! 'Y' or 'N' Input to subr READ_MATRIX_1 - CHARACTER( 1*BYTE) :: OPND = 'N' ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not + CHARACTER( 1*BYTE) :: CLOSE_IT = 'Y' ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to close a file or not + CHARACTER( 1*BYTE) :: NTERM_RD = 'Y' ! 'Y' or 'N' Input to subr READ_MATRIX_1 + CHARACTER( 1*BYTE) :: OPND = 'N' ! Input to subr READ_MATRIX_i. 'Y'/'N' whether to open a file or not INTEGER(LONG) :: IERR ! Local error count - + ! ********************************************************************************************************************************** diff --git a/Source/UTIL/RIGID_BODY_DISP_MAT.f90 b/Source/UTIL/RIGID_BODY_DISP_MAT.f90 index 90b0c363..3f0fac31 100644 --- a/Source/UTIL/RIGID_BODY_DISP_MAT.f90 +++ b/Source/UTIL/RIGID_BODY_DISP_MAT.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE RIGID_BODY_DISP_MAT ( GRD_COORDS, REF_COORDS, RB_DISP ) @@ -91,4 +91,4 @@ SUBROUTINE RIGID_BODY_DISP_MAT ( GRD_COORDS, REF_COORDS, RB_DISP ) ! ********************************************************************************************************************************** - END SUBROUTINE RIGID_BODY_DISP_MAT \ No newline at end of file + END SUBROUTINE RIGID_BODY_DISP_MAT diff --git a/Source/UTIL/ROW_AT_COLJ_BEGEND.f90 b/Source/UTIL/ROW_AT_COLJ_BEGEND.f90 index 4ccc31de..f10a2f68 100644 --- a/Source/UTIL/ROW_AT_COLJ_BEGEND.f90 +++ b/Source/UTIL/ROW_AT_COLJ_BEGEND.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE ROW_AT_COLJ_BEGEND ( NAME, NROWS, NCOLS, NTERM, I_A, J_A, ROW_AT_COLJ_BEG, ROW_AT_COLJ_END ) ! Creates arrays ROW_AT_COLJ_BEG and ROW_AT_COLJ_END which are: @@ -48,10 +48,10 @@ SUBROUTINE ROW_AT_COLJ_BEGEND ( NAME, NROWS, NCOLS, NTERM, I_A, J_A, ROW_AT_COLJ INTEGER(LONG), INTENT(IN ) :: NCOLS ! No. cols in MATIN INTEGER(LONG), INTENT(IN ) :: I_A(NROWS+1) ! I_A(i+1) - I_A(i) is no. terms in row i of matrix A INTEGER(LONG), INTENT(IN ) :: J_A(NTERM) ! Array of column numbers for matrix A - INTEGER(LONG), INTENT(OUT) :: ROW_AT_COLJ_BEG(NCOLS)! jth term is row number in MATIN where col j nonzeros begin + INTEGER(LONG), INTENT(OUT) :: ROW_AT_COLJ_BEG(NCOLS)! jth term is row number in MATIN where col j nonzeros begin INTEGER(LONG), INTENT(OUT) :: ROW_AT_COLJ_END(NCOLS)! jth term is row number in MATIN where col j nonzeros end INTEGER(LONG) :: COL_NUM ! A column number from J_MATIN - INTEGER(LONG) :: I,J,K ! DO loop indices or counters + INTEGER(LONG) :: I,J,K ! DO loop indices or counters INTEGER(LONG) :: NTERM_ROW_I ! Number of terms in matrix A row I @@ -97,7 +97,7 @@ SUBROUTINE ROW_AT_COLJ_BEGEND ( NAME, NROWS, NCOLS, NTERM, I_A, J_A, ROW_AT_COLJ ENDDO - + RETURN ! ********************************************************************************************************************************** diff --git a/Source/UTIL/SET_FILE_CLOSE_STAT.f90 b/Source/UTIL/SET_FILE_CLOSE_STAT.f90 index 98af534a..4cc73054 100644 --- a/Source/UTIL/SET_FILE_CLOSE_STAT.f90 +++ b/Source/UTIL/SET_FILE_CLOSE_STAT.f90 @@ -1,37 +1,37 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SET_FILE_CLOSE_STAT ( CLOSE_STAT ) - + ! This subr gets called by subrs LINK0 and READ_INI to set a common close status for all files. ! LINK0 does this if the run is check pointed -! READ_INI does this if the MYSTRAN.INI file sets a common close status (like KEEP) for ALLFILES +! READ_INI does this if the MYSTRAN.INI file sets a common close status (like KEEP) for ALLFILES USE PENTIUM_II_KIND, ONLY : BYTE, LONG - + USE IOUNT1, ONLY : WRT_ERR, ERRSTAT, SEQSTAT, SPCSTAT, L1ASTAT, & L1BSTAT, L1CSTAT, L1DSTAT, L1ESTAT, L1FSTAT, L1GSTAT, L1HSTAT, L1ISTAT, L1TSTAT, L1JSTAT, & L1KSTAT, L1LSTAT, L1MSTAT, L1NSTAT, L1OSTAT, L1PSTAT, L1QSTAT, L1RSTAT, L1SSTAT, L1USTAT, & @@ -42,7 +42,7 @@ SUBROUTINE SET_FILE_CLOSE_STAT ( CLOSE_STAT ) USE SET_FILE_CLOSE_STAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: CLOSE_STAT ! Close status of files ! ********************************************************************************************************************************** @@ -103,5 +103,5 @@ SUBROUTINE SET_FILE_CLOSE_STAT ( CLOSE_STAT ) L5BSTAT = CLOSE_STAT ! ********************************************************************************************************************************** - + END SUBROUTINE SET_FILE_CLOSE_STAT diff --git a/Source/UTIL/SET_SPARSE_MAT_SYM.f90 b/Source/UTIL/SET_SPARSE_MAT_SYM.f90 index 23d5bb9c..c3771310 100644 --- a/Source/UTIL/SET_SPARSE_MAT_SYM.f90 +++ b/Source/UTIL/SET_SPARSE_MAT_SYM.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SET_SPARSE_MAT_SYM ! Sets symmetry indicators for sparse matrices depending on Bulk Data PARAM SPARSTOR - + USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE PARAMS, ONLY : SPARSTOR, SUPINFO @@ -115,11 +115,11 @@ SUBROUTINE SET_SPARSE_MAT_SYM SYM_MSF = 'N' SYM_MSS = 'Y' SYM_PF = 'N' - SYM_PF_TMP = 'N' - SYM_PFYS = 'N' - SYM_PFYS1 = 'N' - SYM_PS = 'N' - SYM_QSYS = 'N' + SYM_PF_TMP = 'N' + SYM_PFYS = 'N' + SYM_PFYS1 = 'N' + SYM_PS = 'N' + SYM_QSYS = 'N' SYM_KAA = 'Y' SYM_KAO = 'N' @@ -135,16 +135,16 @@ SUBROUTINE SET_SPARSE_MAT_SYM SYM_GOA = 'N' SYM_GOAt = 'N' - SYM_KLL = 'Y' - SYM_KLLs = 'Y' - SYM_KRL = 'N' - SYM_KRR = 'Y' - SYM_KLLD = 'Y' - SYM_KLLDs = 'Y' - SYM_KRLD = 'N' - SYM_KRRD = 'Y' - SYM_MPF0 = 'N' - SYM_MLL = 'Y' + SYM_KLL = 'Y' + SYM_KLLs = 'Y' + SYM_KRL = 'N' + SYM_KRR = 'Y' + SYM_KLLD = 'Y' + SYM_KLLDs = 'Y' + SYM_KRLD = 'N' + SYM_KRRD = 'Y' + SYM_MPF0 = 'N' + SYM_MLL = 'Y' SYM_MLLn = 'N' SYM_MLLs = 'Y' SYM_MLR = 'N' @@ -223,11 +223,11 @@ SUBROUTINE SET_SPARSE_MAT_SYM SYM_MSF = 'N' SYM_MSS = 'N' SYM_PF = 'N' - SYM_PF_TMP = 'N' - SYM_PFYS = 'N' - SYM_PFYS1 = 'N' - SYM_PS = 'N' - SYM_QSYS = 'N' + SYM_PF_TMP = 'N' + SYM_PFYS = 'N' + SYM_PFYS1 = 'N' + SYM_PS = 'N' + SYM_QSYS = 'N' SYM_KAA = 'N' SYM_KAO = 'N' @@ -243,16 +243,16 @@ SUBROUTINE SET_SPARSE_MAT_SYM SYM_GOA = 'N' SYM_GOAt = 'N' - SYM_KLL = 'N' + SYM_KLL = 'N' SYM_KLLs = 'Y' ! KLLs is always symmetric - SYM_KRL = 'N' - SYM_KRR = 'N' - SYM_KLLD = 'N' + SYM_KRL = 'N' + SYM_KRR = 'N' + SYM_KLLD = 'N' SYM_KLLDs = 'Y' ! KLLs is always symmetric - SYM_KRLD = 'N' - SYM_KRRD = 'N' - SYM_MPF0 = 'N' - SYM_MLL = 'N' + SYM_KRLD = 'N' + SYM_KRRD = 'N' + SYM_MPF0 = 'N' + SYM_MLL = 'N' SYM_MLLn = 'N' SYM_MLLs = 'Y' ! MLLs is always symmetric SYM_MLR = 'N' diff --git a/Source/UTIL/SORTLEN.f90 b/Source/UTIL/SORTLEN.f90 index 8b08453e..393239bd 100644 --- a/Source/UTIL/SORTLEN.f90 +++ b/Source/UTIL/SORTLEN.f90 @@ -1,54 +1,54 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SORTLEN ( NLEN, JCT ) - + ! Calculates shell sort length parameter, JCT - + USE PENTIUM_II_KIND, ONLY : LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM USE CONSTANTS_1, ONLY : TWO USE TIMDAT, ONLY : TSEC - + USE SORTLEN_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SORTLEN' INTEGER(LONG), INTENT(IN) :: NLEN ! Length of the array that will be sorted in the calling procedure INTEGER(LONG), INTENT(OUT) :: JCT ! Sort parameter to be used by calling procedure INTEGER(LONG) :: MAX_JCT ! Max practical value of JCT to use in sort by the calling procedure. ! Values of JCT > MAX_JCT will not cause any error, but will introduce -! inefficiency into the sort (a DO loop will run excessively). +! inefficiency into the sort (a DO loop will run excessively). + - INTRINSIC DLOG - + ! ********************************************************************************************************************************** @@ -62,7 +62,7 @@ SUBROUTINE SORTLEN ( NLEN, JCT ) MAX_JCT = FLOOR( (DLOG(DBLE(NLEN)+1.D0)) / (DLOG(TWO)) ) ! Calculate shell sort parameter JCT based on array size (NLEN) - + IF (NLEN <= 5) THEN JCT = 1 ELSE IF ((NLEN > 5) .AND. (NLEN <= 13)) THEN ! Add 8 @@ -92,21 +92,21 @@ SUBROUTINE SORTLEN ( NLEN, JCT ) ELSE IF ((NLEN > 32765) .AND. (NLEN <= 65533)) THEN ! Add 32768 JCT = 14 ELSE IF ((NLEN > 65533) .AND. (NLEN <= 131069)) THEN ! Add 65536 - JCT = 15 + JCT = 15 ELSE IF ((NLEN > 131069) .AND. (NLEN <= 262141)) THEN ! Add 131072 - JCT = 16 + JCT = 16 ELSE IF ((NLEN > 262141) .AND. (NLEN <= 524285)) THEN ! Add 262144 - JCT = 17 + JCT = 17 ELSE IF ((NLEN > 524285) .AND. (NLEN <= 1048573)) THEN ! Add 524288 - JCT = 18 + JCT = 18 ELSE JCT = MAX_JCT ENDIF - + RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE SORTLEN diff --git a/Source/UTIL/SORT_GRID_RGRID.f90 b/Source/UTIL/SORT_GRID_RGRID.f90 index aa557eac..417100fc 100644 --- a/Source/UTIL/SORT_GRID_RGRID.f90 +++ b/Source/UTIL/SORT_GRID_RGRID.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SORT_GRID_RGRID ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) - + ! Performs shell sort on integer IARRAY (GRID) and real RARRAY (RGRID) to put them into an order where the GRID ID ! (in column 1 of IARRAY) is in numerically increasing order - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MGRID, MRGRID USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + USE SORT_GRID_RGRID_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SORT_GRID_RGRID' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort @@ -47,7 +47,7 @@ SUBROUTINE SORT_GRID_RGRID ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY INTEGER(LONG), INTENT(INOUT) :: IARRAY(NSIZE,MGRID) ! Array GRID INTEGER(LONG) :: I,K,M ! DO loop indices - INTEGER(LONG) :: IDUM1 ! Dummy values in IARRAY used when switching IARRAY rows during sort + INTEGER(LONG) :: IDUM1 ! Dummy values in IARRAY used when switching IARRAY rows during sort INTEGER(LONG) :: IFLIP ! Indicates whether two values have been switched in sort order. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: MAXM ! NSIZE - SORTPK @@ -56,15 +56,15 @@ SUBROUTINE SORT_GRID_RGRID ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) INTEGER(LONG) :: SORT_NUM ! How many times the sort has to be performed in order for the data ! to be in sort order. SORT_MAX is max value - - REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE,MRGRID)! Array RGRID + + REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE,MRGRID)! Array RGRID REAL(DOUBLE) :: RDUM1 ! Dummy values in RARRAY used when switching RARRAY rows during sort - + ! ********************************************************************************************************************************** ! Call SORTLEN to calculate the shell sort parameter JCT - + SORT_NUM = 1 CALL SORTLEN ( NSIZE, JCT ) @@ -83,14 +83,14 @@ SUBROUTINE SORT_GRID_RGRID ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) IDUM1 = IARRAY(M,I) IARRAY(M,I) = IARRAY(N,I) IARRAY(N,I) = IDUM1 - ENDDO + ENDDO DO I=1,MRGRID RDUM1 = RARRAY(M,I) RARRAY(M,I) = RARRAY(N,I) RARRAY(N,I) = RDUM1 - ENDDO + ENDDO IFLIP = 1 - ENDIF + ENDIF ENDDO IF (IFLIP == 1) THEN IFLIP = 0 @@ -98,7 +98,7 @@ SUBROUTINE SORT_GRID_RGRID ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) ELSE EXIT ENDIF - ENDDO + ENDDO ENDDO SORTED = 'YES' ! Make sure array is sorted @@ -132,7 +132,7 @@ SUBROUTINE SORT_GRID_RGRID ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) ! ********************************************************************************************************************************** 914 FORMAT(' *ERROR 914: SUBROUTINE ',A,', CALLED BY SUBR ',A & ,/,14X,' HAS MADE ',I8,' UNSUCCESSFUL ATTEMPTS TO SORT ARRAY(S) ',A & - ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') + ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') ! ********************************************************************************************************************************** diff --git a/Source/UTIL/SORT_INT1.f90 b/Source/UTIL/SORT_INT1.f90 index 2b7dad46..40a44a38 100644 --- a/Source/UTIL/SORT_INT1.f90 +++ b/Source/UTIL/SORT_INT1.f90 @@ -1,43 +1,43 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SORT_INT1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY ) - + ! Performs shell sort on integer array IARRAY (of size NSIZE) to put it into numerically increasing order - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + USE SORT_INT1_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SORT_INT1' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort @@ -46,7 +46,7 @@ SUBROUTINE SORT_INT1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY ) INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY INTEGER(LONG), INTENT(INOUT) :: IARRAY(NSIZE) ! Integer array INTEGER(LONG) :: I,K,M ! DO loop indices - INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: IFLIP ! Indicates whether two values have been switched in sort order. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: MAXM ! NSIZE - SORTPK @@ -59,12 +59,12 @@ SUBROUTINE SORT_INT1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY ) ! ********************************************************************************************************************************** ! Call SORTLEN to calculate the shell sort parameter JCT - + SORT_NUM = 1 CALL SORTLEN ( NSIZE, JCT ) - -outer:DO ! Run sort until array is sorted or SORT_MAX is exceeded + +outer:DO ! Run sort until array is sorted or SORT_MAX is exceeded DO K = JCT,1,-1 ! Do the sort SORTPK = 2**K - 1 @@ -86,9 +86,9 @@ SUBROUTINE SORT_INT1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY ) ELSE EXIT ENDIF - ENDDO + ENDDO ENDDO - + ! Make sure array is sorted. If not, repeat algorithm SORT_MAX times SORTED = 'YES' ! Make sure array is sorted @@ -97,7 +97,7 @@ SUBROUTINE SORT_INT1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY ) SORTED = 'NO ' EXIT ENDIF - ENDDO + ENDDO IF (SORTED == 'YES') THEN ! If array is sorted, exit outer loop EXIT outer @@ -122,8 +122,8 @@ SUBROUTINE SORT_INT1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY ) ! ********************************************************************************************************************************** 914 FORMAT(' *ERROR 914: SUBROUTINE ',A,', CALLED BY SUBR ',A & ,/,14X,' HAS MADE ',I8,' UNSUCCESSFUL ATTEMPTS TO SORT ARRAY(S) ',A & - ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') + ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') ! ********************************************************************************************************************************** - END SUBROUTINE SORT_INT1 \ No newline at end of file + END SUBROUTINE SORT_INT1 diff --git a/Source/UTIL/SORT_INT1_REAL1.f90 b/Source/UTIL/SORT_INT1_REAL1.f90 index 88a24bcb..cf54fa9a 100644 --- a/Source/UTIL/SORT_INT1_REAL1.f90 +++ b/Source/UTIL/SORT_INT1_REAL1.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SORT_INT1_REAL1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) - + ! Performs shell sort on integer array IARRAY to put it into numerically increasing order and sorts real array RARRAY ! along with IARRAY. Both arrays ore of size NSIZE - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + USE SORT_INT1_REAL1_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SORT_INT1_REAL1' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort @@ -47,7 +47,7 @@ SUBROUTINE SORT_INT1_REAL1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY INTEGER(LONG), INTENT(INOUT) :: IARRAY(NSIZE) ! Array of integer values INTEGER(LONG) :: I,K,M ! DO loop indices - INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: IFLIP ! Indicates whether two values have been switched in sort order. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: MAXM ! NSIZE - SORTPK @@ -56,18 +56,18 @@ SUBROUTINE SORT_INT1_REAL1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) INTEGER(LONG) :: SORT_NUM ! How many times the sort has to be performed in order for the data - REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE) ! Array of real values + REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE) ! Array of real values REAL(DOUBLE) :: RDUM ! Dummy values in RARRAY used when switching RARRAY rows during the sort. ! ********************************************************************************************************************************** ! Call SORTLEN to calculate the shell sort parameter JCT - + SORT_NUM = 1 CALL SORTLEN ( NSIZE, JCT ) - + outer:DO ! Run sort until array is sorted or SORT_MAX is exceeded DO K = JCT,1,-1 ! Do the sort @@ -93,9 +93,9 @@ SUBROUTINE SORT_INT1_REAL1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) ELSE EXIT ENDIF - ENDDO + ENDDO ENDDO - + SORTED = 'YES' ! Make sure array is sorted. chk_sort:DO I=1,NSIZE-1 IF (IARRAY(I) > IARRAY(I+1)) THEN @@ -127,7 +127,7 @@ SUBROUTINE SORT_INT1_REAL1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) ! ********************************************************************************************************************************** 914 FORMAT(' *ERROR 914: SUBROUTINE ',A,', CALLED BY SUBR ',A & ,/,14X,' HAS MADE ',I8,' UNSUCCESSFUL ATTEMPTS TO SORT ARRAY(S) ',A & - ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') + ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') ! ********************************************************************************************************************************** diff --git a/Source/UTIL/SORT_INT1_REAL3.f90 b/Source/UTIL/SORT_INT1_REAL3.f90 index bdf20aad..ed681ac2 100644 --- a/Source/UTIL/SORT_INT1_REAL3.f90 +++ b/Source/UTIL/SORT_INT1_REAL3.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SORT_INT1_REAL3 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) - + ! Performs shell sort on integer array IARRAY to put it into numerically increasing order and sorts real array RARRAY (with 3 cols) ! along with IARRAY. Both arrays have NSIZE rows - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + USE SORT_INT1_REAL3_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SORT_INT1_REAL3' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort @@ -47,7 +47,7 @@ SUBROUTINE SORT_INT1_REAL3 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY INTEGER(LONG), INTENT(INOUT) :: IARRAY(NSIZE) ! Array of integer values INTEGER(LONG) :: I,K,M ! DO loop indices - INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: IFLIP ! Indicates whether two values have been switched in sort order. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: MAXM ! NSIZE - SORTPK @@ -56,18 +56,18 @@ SUBROUTINE SORT_INT1_REAL3 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) INTEGER(LONG) :: SORT_NUM ! How many times the sort has to be performed in order for the data - REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE,3) ! Array of real values + REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE,3) ! Array of real values REAL(DOUBLE) :: RDUM ! Dummy values in RARRAY used when switching RARRAY rows during the sort. ! ********************************************************************************************************************************** ! Call SORTLEN to calculate the shell sort parameter JCT - + SORT_NUM = 1 CALL SORTLEN ( NSIZE, JCT ) - + outer:DO ! Run sort until array is sorted or SORT_MAX is exceeded DO K = JCT,1,-1 ! Do the sort @@ -95,9 +95,9 @@ SUBROUTINE SORT_INT1_REAL3 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) ELSE EXIT ENDIF - ENDDO + ENDDO ENDDO - + SORTED = 'YES' ! Make sure array is sorted. chk_sort:DO I=1,NSIZE-1 IF (IARRAY(I) > IARRAY(I+1)) THEN @@ -129,7 +129,7 @@ SUBROUTINE SORT_INT1_REAL3 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, RARRAY ) ! ********************************************************************************************************************************** 914 FORMAT(' *ERROR 914: SUBROUTINE ',A,', CALLED BY SUBR ',A & ,/,14X,' HAS MADE ',I8,' UNSUCCESSFUL ATTEMPTS TO SORT ARRAY(S) ',A & - ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') + ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') ! ********************************************************************************************************************************** diff --git a/Source/UTIL/SORT_INT2.f90 b/Source/UTIL/SORT_INT2.f90 index c560bd99..7e60f801 100644 --- a/Source/UTIL/SORT_INT2.f90 +++ b/Source/UTIL/SORT_INT2.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SORT_INT2 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2 ) - + ! Performs shell sort on integer array IARRAY1 to put it into numerically increasing order and sorts integer array ! IARRAY2 along with IARRAY1. Both arrays are of size NSIZE - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + USE SORT_INT2_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SORT_INT2' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort @@ -48,7 +48,7 @@ SUBROUTINE SORT_INT2 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2 ) INTEGER(LONG), INTENT(INOUT) :: IARRAY1(NSIZE) ! Integer array INTEGER(LONG), INTENT(INOUT) :: IARRAY2(NSIZE) ! Integer array INTEGER(LONG) :: I,K,M ! DO loop indices - INTEGER(LONG) :: IDUM1,IDUM2 ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM1,IDUM2 ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: IFLIP ! Indicates whether two values have been switched in sort order. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: MAXM ! NSIZE - SORTPK @@ -61,11 +61,11 @@ SUBROUTINE SORT_INT2 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2 ) ! ********************************************************************************************************************************** ! Call SORTLEN to calculate the shell sort parameter JCT - + SORT_NUM = 1 CALL SORTLEN ( NSIZE, JCT ) - + outer:DO ! Run sort until array is sorted or SORT_MAX is exceeded DO K = JCT,1,-1 ! Do the sort @@ -91,7 +91,7 @@ SUBROUTINE SORT_INT2 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2 ) ELSE EXIT ENDIF - ENDDO + ENDDO ENDDO SORTED = 'YES' ! Make sure array is sorted. @@ -125,7 +125,7 @@ SUBROUTINE SORT_INT2 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2 ) ! ********************************************************************************************************************************** 914 FORMAT(' *ERROR 914: SUBROUTINE ',A,', CALLED BY SUBR ',A & ,/,14X,' HAS MADE ',I8,' UNSUCCESSFUL ATTEMPTS TO SORT ARRAY(S) ',A & - ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') + ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') ! ********************************************************************************************************************************** diff --git a/Source/UTIL/SORT_INT2_REAL1.f90 b/Source/UTIL/SORT_INT2_REAL1.f90 index 2b93f5cd..2961a479 100644 --- a/Source/UTIL/SORT_INT2_REAL1.f90 +++ b/Source/UTIL/SORT_INT2_REAL1.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SORT_INT2_REAL1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, RARRAY ) - + ! Performs shell sort on integer array IARRAY1 to put it into numerically increasing order and sorts integer array IARRAY2 and real ! array RARRAY along with IARRAY1. All arrays are of size NSIZE - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + USE SORT_INT2_REAL1_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SORT_INT2_REAL1' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort @@ -48,7 +48,7 @@ SUBROUTINE SORT_INT2_REAL1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, RARR INTEGER(LONG), INTENT(INOUT) :: IARRAY1(NSIZE) ! Array of integer values INTEGER(LONG), INTENT(INOUT) :: IARRAY2(NSIZE) ! Array of integer values INTEGER(LONG) :: I,K,M ! DO loop indices - INTEGER(LONG) :: IDUM1,IDUM2 ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM1,IDUM2 ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: IFLIP ! Indicates whether two values have been switched in sort order. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: MAXM ! NSIZE - SORTPK @@ -57,18 +57,18 @@ SUBROUTINE SORT_INT2_REAL1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, RARR INTEGER(LONG) :: SORT_NUM ! How many times the sort has to be performed in order for the data - REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE) ! Array of real values + REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE) ! Array of real values REAL(DOUBLE) :: RDUM ! Dummy values in RARRAY used when switching RARRAY rows during the sort ! ********************************************************************************************************************************** ! Call SORTLEN to calculate the shell sort parameter JCT - + SORT_NUM = 1 CALL SORTLEN ( NSIZE, JCT ) - + outer:DO ! Run sort until array is sorted or SORT_MAX is exceeded DO K = JCT,1,-1 ! Do the sort @@ -97,9 +97,9 @@ SUBROUTINE SORT_INT2_REAL1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, RARR ELSE EXIT ENDIF - ENDDO + ENDDO ENDDO - + SORTED = 'YES' ! Make sure array is sorted. chk_sort:DO I=1,NSIZE-1 IF (IARRAY1(I) > IARRAY1(I+1)) THEN @@ -131,7 +131,7 @@ SUBROUTINE SORT_INT2_REAL1 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, RARR ! ********************************************************************************************************************************** 914 FORMAT(' *ERROR 914: SUBROUTINE ',A,', CALLED BY SUBR ',A & ,/,14X,' HAS MADE ',I8,' UNSUCCESSFUL ATTEMPTS TO SORT ARRAY(S) ',A & - ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') + ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') ! ********************************************************************************************************************************** diff --git a/Source/UTIL/SORT_INT3.f90 b/Source/UTIL/SORT_INT3.f90 index 08f9ee32..de657e45 100644 --- a/Source/UTIL/SORT_INT3.f90 +++ b/Source/UTIL/SORT_INT3.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SORT_INT3 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARRAY3 ) - + ! Performs shell sort on integer array IARRAY1 to put it into numerically increasing order and sorts integer arrays ! IARRAY2 and IARRAY3 along with IARRAY1. All 3 arrays are of size NSIZE - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + USE SORT_INT3_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SORT_INT3' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort @@ -49,7 +49,7 @@ SUBROUTINE SORT_INT3 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARRAY3 ) INTEGER(LONG), INTENT(INOUT) :: IARRAY2(NSIZE) ! Integer array INTEGER(LONG), INTENT(INOUT) :: IARRAY3(NSIZE) ! Integer array INTEGER(LONG) :: I,K,M ! DO loop indices - INTEGER(LONG) :: IDUM1,IDUM2,IDUM3 ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM1,IDUM2,IDUM3 ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: IFLIP ! Indicates whether two values have been switched in sort order. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: MAXM ! NSIZE - SORTPK @@ -62,11 +62,11 @@ SUBROUTINE SORT_INT3 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARRAY3 ) ! ********************************************************************************************************************************** ! Call SORTLEN to calculate the shell sort parameter JCT - + SORT_NUM = 1 CALL SORTLEN ( NSIZE, JCT ) - + outer:DO ! Run sort until array is sorted or SORT_MAX is exceeded DO K = JCT,1,-1 ! Do the sort @@ -95,9 +95,9 @@ SUBROUTINE SORT_INT3 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARRAY3 ) ELSE EXIT ENDIF - ENDDO + ENDDO ENDDO - + SORTED = 'YES' ! Make sure array is sorted. chk_sort:DO I=1,NSIZE-1 IF (IARRAY1(I) > IARRAY1(I+1)) THEN @@ -129,7 +129,7 @@ SUBROUTINE SORT_INT3 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARRAY3 ) ! ********************************************************************************************************************************** 914 FORMAT(' *ERROR 914: SUBROUTINE ',A,', CALLED BY SUBR ',A & ,/,14X,' HAS MADE ',I8,' UNSUCCESSFUL ATTEMPTS TO SORT ARRAY(S) ',A & - ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') + ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') ! ********************************************************************************************************************************** diff --git a/Source/UTIL/SORT_INT3_CHAR2.f90 b/Source/UTIL/SORT_INT3_CHAR2.f90 index 79f7bff1..4aff0238 100644 --- a/Source/UTIL/SORT_INT3_CHAR2.f90 +++ b/Source/UTIL/SORT_INT3_CHAR2.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SORT_INT3_CHAR2 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARRAY3, CARRAY1, CARRAY2 ) - + ! Performs shell sort on integer array IARRAY1 to put it into numerically increasing order and sorts integer arrays ! IARRAY2, IARRAY3 and character arrays CARRAY1, CARRAY2 along with IARRAY1. All arrays are of size NSIZE - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + USE SORT_INT3_CHAR2_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SORT_INT3_CHAR2' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY @@ -53,7 +53,7 @@ SUBROUTINE SORT_INT3_CHAR2 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARR INTEGER(LONG), INTENT(INOUT) :: IARRAY2(NSIZE) ! Integer array INTEGER(LONG), INTENT(INOUT) :: IARRAY3(NSIZE) ! Integer array INTEGER(LONG) :: I,K,M ! DO loop indices - INTEGER(LONG) :: IDUM1,IDUM2,IDUM3 ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM1,IDUM2,IDUM3 ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: IFLIP ! Indicates whether two values have been switched in sort order. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: MAXM ! NSIZE - SORTPK @@ -66,11 +66,11 @@ SUBROUTINE SORT_INT3_CHAR2 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARR ! ********************************************************************************************************************************** ! Call SORTLEN to calculate the shell sort parameter JCT - + SORT_NUM = 1 CALL SORTLEN ( NSIZE, JCT ) - + outer:DO ! Run sort until array is sorted or SORT_MAX is exceeded DO K = JCT,1,-1 ! Do the sort @@ -104,9 +104,9 @@ SUBROUTINE SORT_INT3_CHAR2 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARR ELSE EXIT ENDIF - ENDDO + ENDDO ENDDO - + SORTED = 'YES' ! Make sure array is sorted. chk_sort:DO I=1,NSIZE-1 IF (IARRAY1(I) > IARRAY1(I+1)) THEN @@ -138,7 +138,7 @@ SUBROUTINE SORT_INT3_CHAR2 ( CALLING_SUBR, MESSAG, NSIZE, IARRAY1, IARRAY2, IARR ! ********************************************************************************************************************************** 914 FORMAT(' *ERROR 914: SUBROUTINE ',A,', CALLED BY SUBR ',A & ,/,14X,' HAS MADE ',I8,' UNSUCCESSFUL ATTEMPTS TO SORT ARRAY(S) ',A & - ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') + ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') ! ********************************************************************************************************************************** diff --git a/Source/UTIL/SORT_REAL1_INT1.f90 b/Source/UTIL/SORT_REAL1_INT1.f90 index 578b587a..33600a59 100644 --- a/Source/UTIL/SORT_REAL1_INT1.f90 +++ b/Source/UTIL/SORT_REAL1_INT1.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SORT_REAL1_INT1 ( CALLING_SUBR, MESSAG, NSIZE, RARRAY, IARRAY ) - + ! Performs shell sort on real array RARRAY to put it into numerically increasing order and sorts integer array IARRAY ! along with RARRAY. Both arrays are of size NSIZE - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + USE SORT_REAL1_INT1_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SORT_REAL1_INT1' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort @@ -47,7 +47,7 @@ SUBROUTINE SORT_REAL1_INT1 ( CALLING_SUBR, MESSAG, NSIZE, RARRAY, IARRAY ) INTEGER(LONG), INTENT(IN) :: NSIZE ! No. rows in arrays IARRAY, RARRAY INTEGER(LONG), INTENT(INOUT) :: IARRAY(NSIZE) ! Integer array INTEGER(LONG) :: I,K,M ! DO loop indices - INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: IFLIP ! Indicates whether two values have been switched in sort order. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: MAXM ! NSIZE - SORTPK @@ -56,18 +56,18 @@ SUBROUTINE SORT_REAL1_INT1 ( CALLING_SUBR, MESSAG, NSIZE, RARRAY, IARRAY ) INTEGER(LONG) :: SORT_NUM ! How many times the sort has to be performed in order for the data - REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE) ! Array of real values + REAL(DOUBLE), INTENT(INOUT) :: RARRAY(NSIZE) ! Array of real values REAL(DOUBLE) :: RDUM ! Dummy values in RARRAY used when switching RARRAY rows during sort. ! ********************************************************************************************************************************** ! Call SORTLEN to calculate the shell sort parameter JCT - + SORT_NUM = 1 CALL SORTLEN ( NSIZE, JCT ) - + outer:DO ! Run sort until array is sorted or SORT_MAX is exceeded DO K = JCT,1,-1 ! Do the sort @@ -93,9 +93,9 @@ SUBROUTINE SORT_REAL1_INT1 ( CALLING_SUBR, MESSAG, NSIZE, RARRAY, IARRAY ) ELSE EXIT ENDIF - ENDDO + ENDDO ENDDO - + SORTED = 'YES' ! Make sure array is sorted. chk_sort:DO I=1,NSIZE-1 IF (RARRAY(I) > RARRAY(I+1)) THEN @@ -127,7 +127,7 @@ SUBROUTINE SORT_REAL1_INT1 ( CALLING_SUBR, MESSAG, NSIZE, RARRAY, IARRAY ) ! ********************************************************************************************************************************** 914 FORMAT(' *ERROR 914: SUBROUTINE ',A,', CALLED BY SUBR ',A & ,/,14X,' HAS MADE ',I8,' UNSUCCESSFUL ATTEMPTS TO SORT ARRAY(S) ',A & - ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') + ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') ! ********************************************************************************************************************************** diff --git a/Source/UTIL/SORT_TDOF.f90 b/Source/UTIL/SORT_TDOF.f90 index 2e862c0d..b4358987 100644 --- a/Source/UTIL/SORT_TDOF.f90 +++ b/Source/UTIL/SORT_TDOF.f90 @@ -1,44 +1,44 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SORT_TDOF ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, ICOL ) - + ! Performs shell sort on 2D integer array IARRAY1 such that column ICOL is in numerically increasing order. IARRAY ! has MTDOF columns (which is the number of columns in array TDOF) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR, MTDOF USE PARAMS, ONLY : SORT_MAX USE TIMDAT, ONLY : TSEC - + USE SORT_TDOF_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SORT_TDOF' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! Subr that called this subr CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! Message to be written out if this subr fails to sort @@ -48,7 +48,7 @@ SUBROUTINE SORT_TDOF ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, ICOL ) INTEGER(LONG), INTENT(INOUT) :: IARRAY(NSIZE,MTDOF) ! Integer array INTEGER(LONG) :: I,J,K,M ! DO loop indices INTEGER(LONG), INTENT(IN) :: ICOL ! Col ICOL will be the col in numerical order after sort - INTEGER(LONG) :: IDUM(MTDOF) ! Dummy values in IARRAY used when switching IARRAY rows during sort. + INTEGER(LONG) :: IDUM(MTDOF) ! Dummy values in IARRAY used when switching IARRAY rows during sort. INTEGER(LONG) :: IFLIP ! Indicates whether two values have been switched in sort order. INTEGER(LONG) :: JCT ! Shell sort parameter returned from subroutine SORTLEN. INTEGER(LONG) :: MAXM ! NSIZE - SORTPK @@ -61,17 +61,17 @@ SUBROUTINE SORT_TDOF ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, ICOL ) ! ********************************************************************************************************************************** ! Call SORTLEN to calculate the shell sort parameter JCT - + SORT_NUM = 1 CALL SORTLEN ( NSIZE, JCT ) - + outer:DO ! Run sort until array is sorted or SORT_MAX is exceeded DO K = JCT,1,-1 ! Do the sort SORTPK = 2**K - 1 MAXM = NSIZE - SORTPK - IFLIP = 0 + IFLIP = 0 DO DO M = 1,MAXM N = M + SORTPK @@ -81,7 +81,7 @@ SUBROUTINE SORT_TDOF ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, ICOL ) IARRAY(M,J) = IARRAY(N,J) IARRAY(N,J) = IDUM(J) ENDDO - IFLIP = 1 + IFLIP = 1 ENDIF ENDDO IF (IFLIP == 1) THEN @@ -90,7 +90,7 @@ SUBROUTINE SORT_TDOF ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, ICOL ) ELSE EXIT ENDIF - ENDDO + ENDDO ENDDO @@ -125,7 +125,7 @@ SUBROUTINE SORT_TDOF ( CALLING_SUBR, MESSAG, NSIZE, IARRAY, ICOL ) ! ********************************************************************************************************************************** 914 FORMAT(' *ERROR 914: SUBROUTINE ',A,', CALLED BY SUBR ',A & ,/,14X,' HAS MADE ',I8,' UNSUCCESSFUL ATTEMPTS TO SORT ARRAY(S) ',A & - ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') + ,/,14X,' THE MAX NUMBER OF SORT ATTEMPTS CAN BE INCREASED WITH BULK DATA PARAM SORT_MAX') ! ********************************************************************************************************************************** diff --git a/Source/UTIL/SPARSE_CRS_SPARSE_CCS.f90 b/Source/UTIL/SPARSE_CRS_SPARSE_CCS.f90 index 96ff5b41..bb503eae 100644 --- a/Source/UTIL/SPARSE_CRS_SPARSE_CCS.f90 +++ b/Source/UTIL/SPARSE_CRS_SPARSE_CCS.f90 @@ -1,50 +1,50 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SPARSE_CRS_SPARSE_CCS ( NROWS_A, NCOLS_A, NTERMS_A, MAT_A_NAME, I_A, J_A, A, MAT_B_NAME, J_B, I_B, B, WRT_SCREEN ) ! Converts matrices in sparse compressed row storage (CRS) format to sparse compressed column storage (CCS) format - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : F06, SC1, WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS, ONLY : DEBUG - + USE SPARSE_CRS_SPARSE_CCS_USE_IFs IMPLICIT NONE - + CHARACTER, PARAMETER :: CR13 = CHAR(13) ! This causes a carriage return simulating the "+" action in a FORMAT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SPARSE_CRS_SPARSE_CCS' CHARACTER(LEN=*), INTENT(IN) :: MAT_A_NAME ! Name of input matrix in CRS format CHARACTER(LEN=*), INTENT(IN) :: MAT_B_NAME ! Name of output matrix in CCS format CHARACTER(LEN=*), INTENT(IN) :: WRT_SCREEN ! If 'Y' then write msgs to screen - + INTEGER(LONG), INTENT(IN) :: NCOLS_A ! Number of cols in input matrix, A (and output matrix B) INTEGER(LONG), INTENT(IN) :: NROWS_A ! Number of rows in input matrix, A (and output matrix B) INTEGER(LONG), INTENT(IN) :: NTERMS_A ! Number of nonzero terms in input matrix, A (and output matrix B) @@ -102,7 +102,7 @@ SUBROUTINE SPARSE_CRS_SPARSE_CCS ( NROWS_A, NCOLS_A, NTERMS_A, MAT_A_NAME, I_A, CALL COUNTER_INIT(COUNTER_TEMPLATE, NCOLS_A) END IF DO J=1,NCOLS_A - COL_J_NUM_TERMS = 0 + COL_J_NUM_TERMS = 0 DO K=1,NTERMS_A IF (J_A(K) == J) THEN ! We found a term that belongs in col J COL_J_NUM_TERMS = COL_J_NUM_TERMS + 1 ! Update the number of terms counted that belong to this column @@ -114,7 +114,7 @@ SUBROUTINE SPARSE_CRS_SPARSE_CCS ( NROWS_A, NCOLS_A, NTERMS_A, MAT_A_NAME, I_A, ENDDO IF (WRT_SCREEN == 'Y') THEN CALL COUNTER_PROGRESS(J) - ENDIF + ENDIF J_B(J+1) = J_B(J) + COL_J_NUM_TERMS ! J_B used to tell how many terms there are in each col of B ENDDO WRITE(SC1,*) CR13 @@ -130,7 +130,7 @@ SUBROUTINE SPARSE_CRS_SPARSE_CCS ( NROWS_A, NCOLS_A, NTERMS_A, MAT_A_NAME, I_A, 12345 FORMAT(" Extracting ", A, "->", A, " col") ! ********************************************************************************************************************************** - + ! ################################################################################################################################## CONTAINS @@ -155,7 +155,7 @@ SUBROUTINE CRS_CCS_DEB ( WHICH ) WRITE(F06,1016) NROWS_A, NCOLS_A, NTERMS_A WRITE(F06,*) - WRITE(F06,2800) + WRITE(F06,2800) WRITE(F06,*) WRITE(F06,3001) DO II=1,NROWS_A+1 @@ -173,7 +173,7 @@ SUBROUTINE CRS_CCS_DEB ( WHICH ) NCOLS_B = NCOLS_A NTERMS_B = NTERMS_A - WRITE(F06,2800) + WRITE(F06,2800) WRITE(F06,*) WRITE(F06,3021) DO II=1,NCOLS_B+1 diff --git a/Source/UTIL/SPARSE_CRS_TERM_COUNT.f90 b/Source/UTIL/SPARSE_CRS_TERM_COUNT.f90 index 4c37fe11..f0d54818 100644 --- a/Source/UTIL/SPARSE_CRS_TERM_COUNT.f90 +++ b/Source/UTIL/SPARSE_CRS_TERM_COUNT.f90 @@ -1,46 +1,46 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SPARSE_CRS_TERM_COUNT ( NROWS, NTERM_IN, MATIN_NAME, I_MATIN, J_MATIN, NTERM_OUT ) - + ! Counts terms in sparse compressed row (CRS) storage format matrices that are on, or above, the diagonal. Used to get the number ! of terms from a matrix stored as sparse nonsym that will be in the same matrix stored as sparse sym. - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + USE SPARSE_CRS_TERM_COUNT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SPARSE_CRS_TERM_COUNT' CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of input matrix - + INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in input matrix, MATIN INTEGER(LONG), INTENT(IN) :: NTERM_IN ! Number of nonzero terms in input matrix, MATIN INTEGER(LONG), INTENT(IN) :: I_MATIN(NROWS+1) ! I_MATIN(I+1) - I_MATIN(I) are the number of nonzeros in MATIN row I @@ -66,13 +66,13 @@ SUBROUTINE SPARSE_CRS_TERM_COUNT ( NROWS, NTERM_IN, MATIN_NAME, I_MATIN, J_MATIN ELSE CYCLE ENDIF - ENDDO - ENDDO + ENDDO + ENDDO RETURN ! ********************************************************************************************************************************** - + END SUBROUTINE SPARSE_CRS_TERM_COUNT diff --git a/Source/UTIL/SPARSE_CRS_TO_FULL.f90 b/Source/UTIL/SPARSE_CRS_TO_FULL.f90 index b2310afe..3243f93d 100644 --- a/Source/UTIL/SPARSE_CRS_TO_FULL.f90 +++ b/Source/UTIL/SPARSE_CRS_TO_FULL.f90 @@ -1,48 +1,48 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SPARSE_CRS_TO_FULL ( MATIN_NAME, NTERM_IN, NROWS, NCOLS, SYM_IN, I_MATIN, J_MATIN, MATIN, MATOUT ) -! Converts matrices in sparse compressed row storage format to full format - +! Converts matrices in sparse compressed row storage format to full format + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE DEBUG_PARAMETERS - + USE SPARSE_CRS_TO_FULL_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SPARSE_CRS_TO_FULL' CHARACTER(LEN=*), INTENT(IN) :: SYM_IN ! 'Y' or 'N' symmetry indicator for input matrix. CHARACTER(LEN=*), INTENT(IN) :: MATIN_NAME ! Name of matrix - + INTEGER(LONG), INTENT(IN) :: NCOLS ! Number of cols in input matrix, MATIN INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in input matrix, MATIN INTEGER(LONG), INTENT(IN) :: NTERM_IN ! Number of nonzero terms in input matrix, MATIN @@ -71,19 +71,19 @@ SUBROUTINE SPARSE_CRS_TO_FULL ( MATIN_NAME, NTERM_IN, NROWS, NCOLS, SYM_IN, I_MA DO I=1,NROWS DO J=1,NCOLS MATOUT(I,J) = ZERO - ENDDO - ENDDO + ENDDO + ENDDO ! Create full matrix MATOUT from sparse input matrix MATIN - K = 0 + K = 0 DO I=1,NROWS ROW_I_NTERMS = I_MATIN(I+1) - I_MATIN(I) DO J=1,ROW_I_NTERMS K = K + 1 IF (K > NTERM_IN) CALL ARRAY_SIZE_ERROR_1( SUBR_NAME, NTERM_IN, MATIN_NAME ) MATOUT(I,J_MATIN(K)) = MATIN(K) - ENDDO + ENDDO ENDDO ! If input matrix was tagged as symmetric, then lower triang portion was not in MATIN, so set lower triang portion: @@ -92,8 +92,8 @@ SUBROUTINE SPARSE_CRS_TO_FULL ( MATIN_NAME, NTERM_IN, NROWS, NCOLS, SYM_IN, I_MA DO I=1,NROWS DO J=1,I-1 MATOUT(I,J) = MATOUT(J,I) - ENDDO - ENDDO + ENDDO + ENDDO ENDIF IF( DEBUG(205) > 0) CALL DEBUG_CRS_TO_FULL @@ -103,15 +103,15 @@ SUBROUTINE SPARSE_CRS_TO_FULL ( MATIN_NAME, NTERM_IN, NROWS, NCOLS, SYM_IN, I_MA RETURN ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE DEBUG_CRS_TO_FULL - + IMPLICIT NONE - + CHARACTER(14*BYTE) :: MATOUT_CHAR(NCOLS) ! Character representation of the real data in one row of REAL_VAR INTEGER :: II,JJ,KK,LL ! DO loop indices or counters @@ -167,7 +167,7 @@ SUBROUTINE DEBUG_CRS_TO_FULL WRITE(F06,*) WRITE(F06,98799) - + WRITE(F06,*) ! ********************************************************************************************************************************** @@ -178,7 +178,7 @@ SUBROUTINE DEBUG_CRS_TO_FULL 9208 FORMAT(' -----------------------------------------------------------------------------------------------------------------',& '-------------------------------------------------------') - 9300 FORMAT(65X, 'Matrix ', A, ' displayed in full format',/,65X,'----------------------------------------',/) + 9300 FORMAT(65X, 'Matrix ', A, ' displayed in full format',/,65X,'----------------------------------------',/) 98720 FORMAT(' __________________________________________________________________________________________________________________',& '_________________' ,//,& @@ -193,5 +193,5 @@ SUBROUTINE DEBUG_CRS_TO_FULL ! ********************************************************************************************************************************** END SUBROUTINE DEBUG_CRS_TO_FULL - + END SUBROUTINE SPARSE_CRS_TO_FULL diff --git a/Source/UTIL/SPARSE_MAT_DIAG_ZEROS.f90 b/Source/UTIL/SPARSE_MAT_DIAG_ZEROS.f90 index aa81f047..f9d00824 100644 --- a/Source/UTIL/SPARSE_MAT_DIAG_ZEROS.f90 +++ b/Source/UTIL/SPARSE_MAT_DIAG_ZEROS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE SPARSE_MAT_DIAG_ZEROS ( NAME, NROWS_A, NTERM_A, I_A, J_A, NUM_A_DIAG_ZEROS ) @@ -50,7 +50,7 @@ SUBROUTINE SPARSE_MAT_DIAG_ZEROS ( NAME, NROWS_A, NTERM_A, I_A, J_A, NUM_A_DIAG_ INTEGER(LONG) :: A_ROW_BEG ! Index into array I_A where a row of matrix A begins INTEGER(LONG) :: A_ROW_END ! Index into array I_A where a row of matrix A ends INTEGER(LONG), INTENT(OUT) :: NUM_A_DIAG_ZEROS ! Number of zero diagonal terms in input matrix A - INTEGER(LONG) :: I,K ! DO loop indices + INTEGER(LONG) :: I,K ! DO loop indices INTEGER(LONG) :: ZERO_DIAGS(NROWS_A)! Row numbers where there are zero diag terms @@ -94,7 +94,7 @@ SUBROUTINE SPARSE_MAT_DIAG_ZEROS ( NAME, NROWS_A, NTERM_A, I_A, J_A, NUM_A_DIAG_ ENDDO i_do IF (DEBUG(89) > 0) THEN - WRITE(F06,100) NAME, NUM_A_DIAG_ZEROS + WRITE(F06,100) NAME, NUM_A_DIAG_ZEROS WRITE(F06,101) (ZERO_DIAGS(I),I=1,NUM_A_DIAG_ZEROS) ENDIF @@ -109,4 +109,4 @@ SUBROUTINE SPARSE_MAT_DIAG_ZEROS ( NAME, NROWS_A, NTERM_A, I_A, J_A, NUM_A_DIAG_ ! ********************************************************************************************************************************** - END SUBROUTINE SPARSE_MAT_DIAG_ZEROS \ No newline at end of file + END SUBROUTINE SPARSE_MAT_DIAG_ZEROS diff --git a/Source/UTIL/STMERR.f90 b/Source/UTIL/STMERR.f90 index 07f7e553..055e042a 100644 --- a/Source/UTIL/STMERR.f90 +++ b/Source/UTIL/STMERR.f90 @@ -1,50 +1,50 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE STMERR ( XTIME, FILNAM, OUNT ) - + ! Prints error messages when the wrong time stamp, STIME, is read as the first record in a file that has been opened - + USE PENTIUM_II_KIND, ONLY : LONG USE IOUNT1, ONLY : FILE_NAM_MAXLEN USE SCONTR, ONLY : FATAL_ERR USE TIMDAT, ONLY : STIME - + USE STMERR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - + INTEGER(LONG), INTENT(IN) :: OUNT(2) ! File units to write messages to INTEGER(LONG), INTENT(IN) :: XTIME ! Time stamp read from file LINK1A INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IEND ! Index - + ! ********************************************************************************************************************************** @@ -59,7 +59,7 @@ SUBROUTINE STMERR ( XTIME, FILNAM, OUNT ) WRITE(OUNT(I),908) XTIME, STIME, FILNAM(1:IEND) IF (OUNT(2) == OUNT(1)) EXIT ENDDO - + FATAL_ERR = FATAL_ERR + 1 diff --git a/Source/UTIL/SURFACE_FIT.f90 b/Source/UTIL/SURFACE_FIT.f90 index c35f2b74..28a71afd 100644 --- a/Source/UTIL/SURFACE_FIT.f90 +++ b/Source/UTIL/SURFACE_FIT.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE SURFACE_FIT ( NUM_FITS, NUM_COEFFS, XI, YI, WI, XO, YO, WO, DEB, MESSAGE, OUNT, POLY_PCT_ERR, PCT_ERR_MAX, IERR ) @@ -137,7 +137,7 @@ SUBROUTINE SURFACE_FIT ( NUM_FITS, NUM_COEFFS, XI, YI, WI, XO, YO, WO, DEB, MESS XROW(1:NUM_COEFFS-1) = XYI(I,1:NUM_COEFFS-1) XROW(0) = ONE CALL INCLUD ( WT, XROW, WI(I) ) - ENDDO + ENDDO CALL TOLSET () @@ -172,7 +172,7 @@ SUBROUTINE SURFACE_FIT ( NUM_FITS, NUM_COEFFS, XI, YI, WI, XO, YO, WO, DEB, MESS ENDIF ENDDO -! Calc fit to output coords, XO, YO +! Calc fit to output coords, XO, YO DO I=1,NUM_FITS IF (NUM_COEFFS >= 1) THEN @@ -207,12 +207,12 @@ SUBROUTINE SURFACE_FIT ( NUM_FITS, NUM_COEFFS, XI, YI, WI, XO, YO, WO, DEB, MESS ! ********************************************************************************************************************************** 958 FORMAT(' *ERROR 958: PROGRAMMING ERROR IN SUBROUTINE ',A & - ,/,14X,' THE VX VECTOR FOR ',A,' ELEMENT ',I8,' WAS LEFT UNSORTED. IT MUST BE SORTED TO DETERMINE VY, VZ') + ,/,14X,' THE VX VECTOR FOR ',A,' ELEMENT ',I8,' WAS LEFT UNSORTED. IT MUST BE SORTED TO DETERMINE VY, VZ') ! ################################################################################################################################## - + CONTAINS - + ! ################################################################################################################################## SUBROUTINE DEB_SURFACE_FIT diff --git a/Source/UTIL/SYM_MAT_DECOMP_LAPACK.f90 b/Source/UTIL/SYM_MAT_DECOMP_LAPACK.f90 index a646b3b1..e5b752ee 100644 --- a/Source/UTIL/SYM_MAT_DECOMP_LAPACK.f90 +++ b/Source/UTIL/SYM_MAT_DECOMP_LAPACK.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, NTERMS, I_MATIN, J_MATIN, MATIN, PRT_ERRS, & MATIN_DIAG_RAT, EQUIL_MATIN, CALC_COND_NUM, DEB_PRT, EQUED, MATIN_SDIA, K_INORM, RCOND, & EQUIL_SCALE_FACS, INFO ) @@ -35,7 +35,7 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FACTORED_MATRIX, FATAL_ERR, LINKNO - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO, ONE, ONEPP6 USE PARAMS, ONLY : BAILOUT, EPSIL, SUPINFO USE LAPACK_DPB_MATRICES, ONLY : ABAND, LAPACK_S @@ -44,16 +44,16 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N USE SYM_MAT_DECOMP_LAPACK_USE_IFs USE LINK_MESSAGE_Interface - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SYM_MAT_DECOMP_LAPACK' CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: CALLED_SUBR = ' ' ! Name of a called subr (for output error purposes) CHARACTER(LEN=*) , INTENT(IN) :: CALC_COND_NUM ! If "Y" calc RCOND (reciprocal of condition number of MATIN) CHARACTER(LEN=*) , INTENT(IN) :: CALLING_SUBR ! The subr that called this subr (used for output error purposes) CHARACTER(LEN=*) , INTENT(IN) :: EQUIL_MATIN ! If "Y" attempt to equilibrate MATIN (if it needs it) - CHARACTER(1*BYTE), INTENT(OUT) :: EQUED ! 'Y' if MATIN was equilibrated in subr EQUILIBRATE (called herein) + CHARACTER(1*BYTE), INTENT(OUT) :: EQUED ! 'Y' if MATIN was equilibrated in subr EQUILIBRATE (called herein) CHARACTER(LEN=*) , INTENT(IN) :: MATIN_DIAG_RAT ! If "Y" calculate max ratio of matrix diagonal to factor diagonal CHARACTER(LEN=*) , INTENT(IN) :: MATIN_NAME ! Name of matrix to be decomposed CHARACTER(LEN=*) , INTENT(IN) :: MATIN_SET ! Set designator for the input matrix. If it corresponds to a MYSTRAN @@ -66,7 +66,7 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N CHARACTER( 1*BYTE), PARAMETER :: INORM = 'I' ! Indicates to calculate the infinity norm via LAPACK function DLANSB CHARACTER( 1*BYTE) :: QUIT_ON_POS_INFO ! Indicator of whether to quit if output value of INFO is found to be > 0 CHARACTER( 1*BYTE), PARAMETER :: UPLO = 'U' ! Indicates upper triang part of matrix is stored - + INTEGER(LONG), INTENT(IN) :: DEB_PRT(2) ! Debug numbers to say whether to write ABAND and/or its decomp to file INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in sparse matrix MATIN INTEGER(LONG), INTENT(IN) :: NTERMS ! Number of nonzeros in sparse matrix MATIN @@ -82,7 +82,7 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N INTEGER(LONG), INTENT(OUT) :: MATIN_SDIA ! No. of superdiags in the MATIN upper triangle INTEGER(LONG) :: COMPV ! Component number (1-6) of a grid DOF INTEGER(LONG) :: GRIDV ! Grid number - INTEGER(LONG) :: I ! DO loop index + INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: IIMAX ! Row/Col in MATIN where max diagonal term occurs INTEGER(LONG) :: IIMIN ! Row/Col in MATIN where min diagonal term occurs @@ -103,9 +103,9 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N REAL(DOUBLE) :: MB_TO_ALLOCATE ! MB of memory to allocate REAL(DOUBLE) :: MINKII ! Minimum diagonal term in MATIN !xx REAL(DOUBLE) :: SCOND ! Ratio of min to max scaling factors, LAPACK_S(i), if MATIN is equil'ed. - + LOGICAL :: FACTORIZATION_PROBLEM - + INTRINSIC :: DABS @@ -124,10 +124,10 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N EPS1 = EPSIL(1) -! Determine bandwidth of matrix +! Determine bandwidth of matrix CALL LINK_MESSAGE('CALC BANDWIDTH OF MATRIX ' // MATIN_NAME(1:)) - CALL BANDSIZ ( NROWS, NTERMS, I_MATIN, J_MATIN, MATIN_SDIA ) + CALL BANDSIZ ( NROWS, NTERMS, I_MATIN, J_MATIN, MATIN_SDIA ) MB_TO_ALLOCATE = (REAL(DOUBLE))*(REAL(MATIN_SDIA+1))*(REAL(NROWS))/ONEPP6 WRITE(SC1,3094) MATIN_NAME, MATIN_SDIA+1, MB_TO_ALLOCATE WRITE(ERR,3002) MATIN_NAME, MATIN_SDIA+1 @@ -173,10 +173,10 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N !xx WRITE(SC1, * ) K_INORM = DLANSB ( INORM, UPLO, NROWS, MATIN_SDIA, ABAND, MATIN_SDIA+1, LAPACK_S ) WRITE(F06,3005) MATIN_NAME, K_INORM - ENDIF + ENDIF ! Get max & min diagonals from the original matrix. Code assumes all diag terms positive - + IF (MATIN_DIAG_RAT == 'Y') THEN CALL LINK_MESSAGE('GET MAX/MIN DIAGONALS OF MATRIX ' // MATIN_NAME(1:)) @@ -188,7 +188,7 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N IIMAX = I ENDIF ENDDO - WRITE(F06,3006) MATIN_NAME, MAXKII,IIMAX + WRITE(F06,3006) MATIN_NAME, MAXKII,IIMAX MINKII = MAXKII IIMIN = IIMAX @@ -203,7 +203,7 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N IF (DABS(MINKII) > EPS1) THEN KRATIO = MAXKII/MINKII WRITE(F06,3008) MATIN_NAME, KRATIO - ENDIF + ENDIF ENDIF EQUED = 'N' @@ -225,8 +225,8 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N CALL DEALLOCATE_LAPACK_MAT ( 'LAPACK_S' ) -! Get max & min diagonals from the equilibrated matrix. Code assumes all diag terms positive - +! Get max & min diagonals from the equilibrated matrix. Code assumes all diag terms positive + IF ((EQUED == 'Y') .AND. (MATIN_DIAG_RAT == 'Y')) THEN CALL LINK_MESSAGE('GET MAX/MIN DIAGONALS OF EQUILIBRATED MATRIX' // MATIN_NAME(1:)) @@ -238,7 +238,7 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N IIMAX = I ENDIF ENDDO - WRITE(F06,3009) MATIN_NAME, MAXKII,IIMAX + WRITE(F06,3009) MATIN_NAME, MAXKII,IIMAX MINKII = MAXKII IIMIN = 0 @@ -261,8 +261,8 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N NROWS, F06) ENDIF ENDIF - - ENDIF + + ENDIF ! Perform factorization of matrix. ABAND is the original matrix going into the decomp routine and is the upper triangular factor on ! exit. @@ -270,7 +270,7 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N CALL LINK_MESSAGE('LAPACK TRIANGULAR FACTORIZATION OF MATRIX ' // MATIN_NAME(1:)) CALL DPBTRF ( UPLO, NROWS, MATIN_SDIA, ABAND, MATIN_SDIA+1, INFO ) - CALLED_SUBR = 'DPBTRF' + CALLED_SUBR = 'DPBTRF' IF (INFO == 0) THEN FACTORED_MATRIX(1:) = ' ' @@ -291,10 +291,10 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N WRITE(ERR,981) MATIN_NAME, CALLED_SUBR, INFO WRITE(F06,981) MATIN_NAME, CALLED_SUBR, INFO IF ((GRIDV > 0) .AND. (COMPV > 0)) THEN - WRITE(ERR,9811) GRIDV, COMPV, CALLING_SUBR + WRITE(ERR,9811) GRIDV, COMPV, CALLING_SUBR WRITE(F06,9811) GRIDV, COMPV, CALLING_SUBR - ELSE - WRITE(ERR,9812) INFO, CALLING_SUBR + ELSE + WRITE(ERR,9812) INFO, CALLING_SUBR WRITE(F06,9812) INFO, CALLING_SUBR ENDIF ENDIF @@ -310,7 +310,7 @@ SUBROUTINE SYM_MAT_DECOMP_LAPACK ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N ENDIF ENDIF - + DO I=1,NROWS FACTOR_DIAG(I) = ABAND(MATIN_SDIA+1,I) ENDDO diff --git a/Source/UTIL/SYM_MAT_DECOMP_SUPRLU.f90 b/Source/UTIL/SYM_MAT_DECOMP_SUPRLU.f90 index bfec31e4..274e0444 100644 --- a/Source/UTIL/SYM_MAT_DECOMP_SUPRLU.f90 +++ b/Source/UTIL/SYM_MAT_DECOMP_SUPRLU.f90 @@ -1,29 +1,29 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE SYM_MAT_DECOMP_SUPRLU ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, NTERMS, I_MATIN, J_MATIN, MATIN, INFO ) ! Decomposes a symmetric band matrix into triangular factors. The input matrix, MATIN, is stored in CRS sparse format @@ -31,16 +31,16 @@ SUBROUTINE SYM_MAT_DECOMP_SUPRLU ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : ERR, F06, SC1 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR - USE TIMDAT, ONLY : TSEC + USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : CRS_CCS, SPARSTOR, BAILOUT USE SCRATCH_MATRICES, ONLY : I_CCS1, J_CCS1, CCS1 USE SuperLU_STUF, ONLY : SLU_FACTORS USE SYM_MAT_DECOMP_SUPRLU_USE_IFs - + IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'SYM_MAT_DECOMP_SUPRLU' CHARACTER(LEN=*), INTENT(IN) :: CALLING_SUBR ! The subr that called this subr (used for output error purposes) @@ -101,7 +101,7 @@ SUBROUTINE SYM_MAT_DECOMP_SUPRLU ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N ENDIF - ELSE ! Error - incorrect CRS_CCS + ELSE ! Error - incorrect CRS_CCS WRITE(ERR,932) SUBR_NAME, 'SPARSTOR' WRITE(F06,932) SUBR_NAME, 'SPARSTOR' @@ -113,7 +113,7 @@ SUBROUTINE SYM_MAT_DECOMP_SUPRLU ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N IF (INFO == 0) THEN - WRITE (SC1,9902) MATIN_NAME, SUBR_NAME + WRITE (SC1,9902) MATIN_NAME, SUBR_NAME WRITE (F06,9902) MATIN_NAME, SUBR_NAME ELSE IF (INFO < 0) THEN ! Illegal value of an argument to SuperLU @@ -131,21 +131,21 @@ SUBROUTINE SYM_MAT_DECOMP_SUPRLU ( CALLING_SUBR, MATIN_NAME, MATIN_SET, NROWS, N WRITE(ERR,981) MATIN_NAME, INFO WRITE(F06,981) MATIN_NAME, INFO IF ((GRIDV > 0) .AND. (COMPV > 0)) THEN - WRITE(ERR,9811) GRIDV, COMPV, CALLING_SUBR + WRITE(ERR,9811) GRIDV, COMPV, CALLING_SUBR WRITE(F06,9811) GRIDV, COMPV, CALLING_SUBR - ELSE - WRITE(ERR,9812) INFO, CALLING_SUBR + ELSE + WRITE(ERR,9812) INFO, CALLING_SUBR WRITE(F06,9812) INFO, CALLING_SUBR ENDIF - + ENDIF - ! This should also use BAILOUT_CHECK like SYM_MAT_DECOMP_LAPACK does, however we need to - ! build an array of the diagonal values of the U factor. SLU_FACTORS is a pointer to the + ! This should also use BAILOUT_CHECK like SYM_MAT_DECOMP_LAPACK does, however we need to + ! build an array of the diagonal values of the U factor. SLU_FACTORS is a pointer to the ! structure containing L, U, perm_c, perm_r. See superlu/FORTRAN/c_fortran_dgssv.c. We ! may need to look up the permutations to find the corresponding rows of U. ! - ! It still respects the BAILOUT parameter when SuperLU reports an error while processing + ! It still respects the BAILOUT parameter when SuperLU reports an error while processing ! the matrix which seems to work in a similar way. IF ((INFO > 0)) THEN diff --git a/Source/UTIL/TIME_INIT.f90 b/Source/UTIL/TIME_INIT.f90 index ac6510ad..e9ac21de 100644 --- a/Source/UTIL/TIME_INIT.f90 +++ b/Source/UTIL/TIME_INIT.f90 @@ -1,39 +1,39 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE TIME_INIT - + ! Set time initializing parameters - + USE TIMDAT, ONLY : HOUR, MINUTE, SEC, SFRAC - + USE TIME_INIT_USE_IFs IMPLICIT NONE - + ! ********************************************************************************************************************************** ! Set time initializing parameters diff --git a/Source/UTIL/VECTOR_NORM.f90 b/Source/UTIL/VECTOR_NORM.f90 index 438c6491..21560d9f 100644 --- a/Source/UTIL/VECTOR_NORM.f90 +++ b/Source/UTIL/VECTOR_NORM.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE VECTOR_NORM ( VEC, NSIZE, WHICH, VEC_NORM, IERR ) - + ! Calculates a particular norm (VEC_NORM) for an input vector (VEC) of extent NSIZE. The norm that is to be calculated is specified ! by WHICH: @@ -36,19 +36,19 @@ SUBROUTINE VECTOR_NORM ( VEC, NSIZE, WHICH, VEC_NORM, IERR ) USE IOUNT1, ONLY : ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM, FATAL_ERR USE TIMDAT, ONLY : TSEC - USE CONSTANTS_1, ONLY : ZERO + USE CONSTANTS_1, ONLY : ZERO USE VECTOR_NORM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'VECTOR_NORM' CHARACTER(LEN=*), INTENT(IN) :: WHICH ! Which norm to calculate (see below) INTEGER(LONG) , INTENT(IN) :: NSIZE ! Extent of VEC INTEGER(LONG) , INTENT(OUT) :: IERR ! Error indicator INTEGER(LONG) :: I ! DO loop index - + REAL(DOUBLE) , INTENT(IN) :: VEC(NSIZE) ! The vector for which the norm will be calculated REAL(DOUBLE) , INTENT(OUT) :: VEC_NORM ! The norm calculated for VEC REAL(DOUBLE) :: TEMP ! Temporary variable @@ -75,7 +75,7 @@ SUBROUTINE VECTOR_NORM ( VEC, NSIZE, WHICH, VEC_NORM, IERR ) IF (DABS(VEC(I)) > VEC_NORM) THEN VEC_NORM = DABS(VEC(I)) ENDIF - ENDDO + ENDDO ELSE diff --git a/Source/UTIL/WRITE_ALLOC_MEM_TABLE.f90 b/Source/UTIL/WRITE_ALLOC_MEM_TABLE.f90 index 9fdcf7d0..c5f45a52 100644 --- a/Source/UTIL/WRITE_ALLOC_MEM_TABLE.f90 +++ b/Source/UTIL/WRITE_ALLOC_MEM_TABLE.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE WRITE_ALLOC_MEM_TABLE ( MESSAGE ) diff --git a/Source/UTIL/WRITE_EDAT.f90 b/Source/UTIL/WRITE_EDAT.f90 index dd98a973..647688c0 100644 --- a/Source/UTIL/WRITE_EDAT.f90 +++ b/Source/UTIL/WRITE_EDAT.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE WRITE_EDAT @@ -38,7 +38,7 @@ SUBROUTINE WRITE_EDAT MEDAT_CPENTA15, MEDAT_PLOTEL , MEDAT_CQUAD , MEDAT_CROD , & MEDAT_CSHEAR , MEDAT_CTETRA4 , MEDAT_CTETRA10, MEDAT_CTRIA , & MEDAT_CUSER1 , MEDAT0_CUSERIN, METYPE - + USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EDAT, EPNT, ETYPE USE PARAMS, ONLY : SUPWARN @@ -48,7 +48,7 @@ SUBROUTINE WRITE_EDAT IMPLICIT NONE CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_EDAT' - CHARACTER(10*BYTE) :: ICHAR ! + CHARACTER(10*BYTE) :: ICHAR ! ! Descriptors for items in EDAT for each element in the Bulk Data deck CHARACTER(16*BYTE) :: EDAT_DESCR(0:MAX(2*LGUSERIN+LSUSERIN+6,25),METYPE) diff --git a/Source/UTIL/WRITE_ELM_OT4.f90 b/Source/UTIL/WRITE_ELM_OT4.f90 index 17044b90..13c6e915 100644 --- a/Source/UTIL/WRITE_ELM_OT4.f90 +++ b/Source/UTIL/WRITE_ELM_OT4.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_ELM_OT4 ( MAT_NAME, NROWS_MAT, NROWS_TXT, NCOLS, TXT, UNT ) - + ! Writes CB OTM text file that describes the rows of element related OTM matrices USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC USE CC_OUTPUT_DESCRIBERS, ONLY : STRN_LOC, STRE_LOC - + USE WRITE_ELM_OT4_USE_IFs IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: NROWS_TXT ! Number of rows in TXT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_ELM_OT4' @@ -48,27 +48,27 @@ SUBROUTINE WRITE_ELM_OT4 ( MAT_NAME, NROWS_MAT, NROWS_TXT, NCOLS, TXT, UNT ) INTEGER(LONG), INTENT(IN) :: UNT ! Unit number where to write matrix INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** WRITE(UNT,11) NROWS_MAT, NCOLS, MAT_NAME - IF (MAT_NAME(1:8) == 'OTM_ELFE') THEN + IF (MAT_NAME(1:8) == 'OTM_ELFE') THEN WRITE(UNT,21) - ELSE IF (MAT_NAME(1:8) == 'OTM_ELFN') THEN - WRITE(UNT,22) + ELSE IF (MAT_NAME(1:8) == 'OTM_ELFN') THEN + WRITE(UNT,22) ELSE IF (MAT_NAME(1:8) == 'OTM_STRE') THEN - IF ((STRE_LOC == 'CORNER ') .OR. (STRE_LOC == 'GAUSS ')) THEN + IF ((STRE_LOC == 'CORNER ') .OR. (STRE_LOC == 'GAUSS ')) THEN WRITE(UNT,231) - ELSE + ELSE WRITE(UNT,232) - ENDIF - ELSE IF (MAT_NAME(1:8) == 'OTM_STRN') THEN - IF ((STRN_LOC == 'CORNER ') .OR. (STRN_LOC == 'GAUSS ')) THEN + ENDIF + ELSE IF (MAT_NAME(1:8) == 'OTM_STRN') THEN + IF ((STRN_LOC == 'CORNER ') .OR. (STRN_LOC == 'GAUSS ')) THEN WRITE(UNT,241) - ELSE + ELSE WRITE(UNT,242) - ENDIF + ENDIF ENDIF DO I=1,NROWS_TXT diff --git a/Source/UTIL/WRITE_FIJFIL.f90 b/Source/UTIL/WRITE_FIJFIL.f90 index bcbbf041..211b6b67 100644 --- a/Source/UTIL/WRITE_FIJFIL.f90 +++ b/Source/UTIL/WRITE_FIJFIL.f90 @@ -1,56 +1,56 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_FIJFIL ( WHICH, JVEC ) - + ! Writes elem matrices to unformatted disk files if disk file output for elem data is requested. ! User must have Case Control entries ELDATA in order to get these files written - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : F06, F21, F22, F23, F24, F25, F21_MSG, F22_MSG, F23_MSG, F24_MSG, F25_MSG USE DEBUG_PARAMETERS USE SCONTR, ONLY : BLNK_SUB_NAM, MAX_STRESS_POINTS, NSUB, NTSUB USE TIMDAT, ONLY : TSEC USE MODEL_STUF, ONLY : EID, TYPE, ELGP, ELDOF, KE, ME, PEB, PEG, PEL, PPE, PTE, & - SE1, SE2, SE3, STE1, STE2, STE3, UEB, UEG, UEL + SE1, SE2, SE3, STE1, STE2, STE3, UEB, UEG, UEL USE PARAMS, ONLY : ELFORCEN USE WRITE_FIJFIL_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_FIJFIL' - + INTEGER(LONG), INTENT(IN) :: JVEC ! Internal subcase or vector number for data to be written INTEGER(LONG), INTENT(IN) :: WHICH ! Which F2j file to write to INTEGER(LONG) :: I,J, K ! DO loop indices - - + + ! ********************************************************************************************************************************** IF (( DEBUG(193) == 1) .OR. (DEBUG(193) == 999)) THEN @@ -69,18 +69,18 @@ SUBROUTINE WRITE_FIJFIL ( WHICH, JVEC ) DO I=1,NTSUB DO J=1,ELDOF WRITE(F21) PTE(J,I) - ENDDO - ENDDO + ENDDO + ENDDO DO I=1,NSUB DO J=1,ELDOF WRITE(F21) PPE(J,I) - ENDDO - ENDDO + ENDDO + ENDDO !xx WRITE(F21) 'FINISHED' ENDIF - + ! Write element mass matrix to disk file if requested - + IF ((WHICH == 2) .OR. (WHICH == 9999)) THEN WRITE(F22) F22_MSG WRITE(F22) EID @@ -92,10 +92,10 @@ SUBROUTINE WRITE_FIJFIL ( WHICH, JVEC ) ENDDO ENDDO !xx WRITE(F22) 'FINISHED' - ENDIF + ENDIF ! Write element stiffness matrix to disk file if requested - + IF ((WHICH == 3) .OR. (WHICH == 9999)) THEN WRITE(F23) F23_MSG WRITE(F23) EID @@ -107,10 +107,10 @@ SUBROUTINE WRITE_FIJFIL ( WHICH, JVEC ) ENDDO ENDDO !xx WRITE(F23) 'FINISHED' - ENDIF - + ENDIF + ! Write element stress recovery matrices to disk file if requested - + IF ((WHICH == 4) .OR. (WHICH == 9999)) THEN WRITE(F24) F24_MSG @@ -120,50 +120,50 @@ SUBROUTINE WRITE_FIJFIL ( WHICH, JVEC ) WRITE(F24) NTSUB WRITE(F24) MAX_STRESS_POINTS - DO K=1,MAX_STRESS_POINTS+1 + DO K=1,MAX_STRESS_POINTS+1 DO I=1,3 DO J=1,ELDOF WRITE(F24) SE1(I,J,K) ENDDO - ENDDO - + ENDDO + DO I=1,3 DO J=1,ELDOF WRITE(F24) SE2(I,J,K) ENDDO - ENDDO - + ENDDO + DO I=1,3 DO J=1,ELDOF WRITE(F24) SE3(I,J,K) ENDDO - ENDDO - + ENDDO + DO J=1,NTSUB DO I=1,3 WRITE(F24) STE1(I,J,K) ENDDO - ENDDO - + ENDDO + DO J=1,NTSUB DO I=1,3 WRITE(F24) STE2(I,J,K) ENDDO - ENDDO - + ENDDO + DO J=1,NTSUB DO I=1,3 WRITE(F24) STE3(I,J,K) ENDDO - ENDDO + ENDDO ENDDO !xx WRITE(F24) 'FINISHED' ENDIF - + ! Write element loads, displ's to disk file if requested - + IF ((WHICH == 5) .OR. (WHICH == 9999)) THEN WRITE(F25) F25_MSG WRITE(F25) 'Displs and forces are in coord system: ', ELFORCEN @@ -186,7 +186,7 @@ SUBROUTINE WRITE_FIJFIL ( WHICH, JVEC ) ENDIF !xx WRITE(F25) 'FINISHED' ENDIF - + RETURN diff --git a/Source/UTIL/WRITE_FILNAM.f90 b/Source/UTIL/WRITE_FILNAM.f90 index 6eb6895d..afc7fa76 100644 --- a/Source/UTIL/WRITE_FILNAM.f90 +++ b/Source/UTIL/WRITE_FILNAM.f90 @@ -1,52 +1,52 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_FILNAM ( FILNAM, UNT, BLEN ) ! Writes file name, FILNAM, to unit UNT with a format that depends on the actual length, in characters, of FILNAM (used ! to avoid using 4 lines of screen to write a short file name when the allowable length of FILNAM is 256 bytes) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : FILE_NAM_MAXLEN, SC1 - + USE WRITE_FILNAM_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name - CHARACTER(15*BYTE) :: LEADING_BLANKS ! - + CHARACTER(15*BYTE) :: LEADING_BLANKS ! + INTEGER(LONG), INTENT(IN) :: UNT ! Unit number of file FILNAM to write to INTEGER(LONG), INTENT(IN) :: BLEN ! Length, in char's, of blanks to print before filnam INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: FLEN ! Length, in char's, of FILNAM (non-blanks) - + ! ********************************************************************************************************************************** ! Find actual length of file name - + LEADING_BLANKS(1:) = ' ' ! Print filename @@ -55,11 +55,11 @@ SUBROUTINE WRITE_FILNAM ( FILNAM, UNT, BLEN ) WRITE(SC1,1001) LEADING_BLANKS(1:BLEN), TRIM(FILNAM) ELSE WRITE(UNT,1001) LEADING_BLANKS(1:BLEN), TRIM(FILNAM) - ENDIF - + ENDIF + ! ********************************************************************************************************************************** 1001 FORMAT(A,A) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_FILNAM diff --git a/Source/UTIL/WRITE_GRD_OT4.f90 b/Source/UTIL/WRITE_GRD_OT4.f90 index 6535fe4e..645edec0 100644 --- a/Source/UTIL/WRITE_GRD_OT4.f90 +++ b/Source/UTIL/WRITE_GRD_OT4.f90 @@ -1,41 +1,41 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_GRD_OT4 ( MAT_NAME, NROWS_MAT, NROWS_TXT, NCOLS, TXT, UNT ) - + ! Writes CB OTM text file that describes the rows of grid related OTM matrices USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + USE WRITE_GRD_OT4_USE_IFs IMPLICIT NONE - + INTEGER(LONG), INTENT(IN) :: NROWS_TXT ! Number of rows in TXT CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_GRD_OT4' @@ -47,12 +47,12 @@ SUBROUTINE WRITE_GRD_OT4 ( MAT_NAME, NROWS_MAT, NROWS_TXT, NCOLS, TXT, UNT ) INTEGER(LONG), INTENT(IN) :: UNT ! Unit number where to write matrix INTEGER(LONG) :: I ! DO loop index - + ! ********************************************************************************************************************************** - WRITE(UNT, 1) NROWS_MAT, NCOLS, MAT_NAME - WRITE(UNT, 2) + WRITE(UNT, 1) NROWS_MAT, NCOLS, MAT_NAME + WRITE(UNT, 2) DO I=1,NROWS_TXT WRITE(UNT,3) TXT(I) diff --git a/Source/UTIL/WRITE_GRID_COORDS.f90 b/Source/UTIL/WRITE_GRID_COORDS.f90 index 72a3da1b..2d0abe6c 100644 --- a/Source/UTIL/WRITE_GRID_COORDS.f90 +++ b/Source/UTIL/WRITE_GRID_COORDS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE WRITE_GRID_COORDS @@ -45,7 +45,7 @@ SUBROUTINE WRITE_GRID_COORDS DO I = 1,NGRID WRITE(F06,1004) GRID(I,1),(RGRID(I,J),J = 1,3) ENDDO - WRITE(F06,*) + WRITE(F06,*) WRITE(F06,*) ! ********************************************************************************************************************************** @@ -54,7 +54,7 @@ SUBROUTINE WRITE_GRID_COORDS 1003 FORMAT(/,36X,'GRID ID X Y Z') 1004 FORMAT(35X,I8,1X,1ES17.6,1X,1ES17.6,1X,1ES17.6) - + ! ********************************************************************************************************************************** END SUBROUTINE WRITE_GRID_COORDS diff --git a/Source/UTIL/WRITE_INTEGER_VEC.f90 b/Source/UTIL/WRITE_INTEGER_VEC.f90 index 3bdff5c2..055afd83 100644 --- a/Source/UTIL/WRITE_INTEGER_VEC.f90 +++ b/Source/UTIL/WRITE_INTEGER_VEC.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_INTEGER_VEC ( ARRAY_DESCR, INT_VEC, NROWS ) - + ! Writes an integer vector to F06 in a format that has 10 terms across the page (repeated until vector is completely written) USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : WRT_ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + USE WRITE_INTEGER_VEC_USE_IFs ! Corrected 2019/07/14 (was WRITE_VECTOR_USE_IFs) IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_INTEGER_VEC' CHARACTER(LEN=*), INTENT(IN) :: ARRAY_DESCR ! Character descriptor of the integer array to be printed CHARACTER(131*BYTE) :: HEADER ! MAT_DESCRIPTOR centered in a line of output @@ -86,5 +86,5 @@ SUBROUTINE WRITE_INTEGER_VEC ( ARRAY_DESCR, INT_VEC, NROWS ) 103 FORMAT(16X,10(I10)) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_INTEGER_VEC diff --git a/Source/UTIL/WRITE_L1A.f90 b/Source/UTIL/WRITE_L1A.f90 index ee320f0b..6e0352af 100644 --- a/Source/UTIL/WRITE_L1A.f90 +++ b/Source/UTIL/WRITE_L1A.f90 @@ -1,34 +1,34 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_L1A ( CLOSE_STAT, CALL_OUTA_HERE ) - + ! Writes data to file LINK1A at the end of each LINK. This is read by all LINK's after LINK1, as they begin. This text file contains ! the names of files opened for a run, the "counter" info (e.g. NGRID, number of grids, etc), solution number, PARAM's - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : MOT4, MOU4, WRT_ERR @@ -79,7 +79,7 @@ SUBROUTINE WRITE_L1A ( CLOSE_STAT, CALL_OUTA_HERE ) USE WRITE_L1A_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_L1A' CHARACTER(LEN=*), INTENT(IN) :: CLOSE_STAT ! STATUS when closing file LINK1A CHARACTER(LEN=*), INTENT(IN) :: CALL_OUTA_HERE ! 'Y'/'N' indicator of whether to call OUTA_HERE (this should be 'Y' @@ -94,12 +94,12 @@ SUBROUTINE WRITE_L1A ( CLOSE_STAT, CALL_OUTA_HERE ) ! ********************************************************************************************************************************** ! Units for writing open errors - + OUNT(1) = ERR OUNT(2) = F06 ! Open L1A file and write STIME - + OPEN (L1A,FILE=LINK1A,STATUS='REPLACE',IOSTAT=IOCHK) IF (IOCHK /= 0) THEN CALL OPNERR (IOCHK, LINK1A, OUNT ) @@ -109,17 +109,17 @@ SUBROUTINE WRITE_L1A ( CLOSE_STAT, CALL_OUTA_HERE ) ENDIF ENDIF WRITE(L1A,110) STIME - + ! Write current LINK number WRITE(L1A,110) LINKNO ! Write solution name - + WRITE(L1A,120) SOL_NAME - + ! Write I/0 unit numbers, close status and names - + WRITE(L1A,140) SC1 ! 1 WRITE(L1A,151) BUG,BUGSTAT,BUG_MSG,BUGFIL ! 3 @@ -127,7 +127,7 @@ SUBROUTINE WRITE_L1A ( CLOSE_STAT, CALL_OUTA_HERE ) WRITE(L1A,151) ENF,ENFSTAT,ENF_MSG,ENFFIL ! 5 WRITE(L1A,151) ERR,ERRSTAT,ERR_MSG,ERRFIL ! 6 WRITE(L1A,151) F06,F06STAT,F06_MSG,F06FIL ! 8 - WRITE(L1A,151) IN0,IN0STAT,IN0_MSG,IN0FIL ! 9 + WRITE(L1A,151) IN0,IN0STAT,IN0_MSG,IN0FIL ! 9 WRITE(L1A,151) L1A,L1ASTAT,L1A_MSG,LINK1A ! 10 WRITE(L1A,151) NEU,NEUSTAT,NEU_MSG,NEUFIL ! 11 WRITE(L1A,151) PCH,PCHSTAT,PCH_MSG,PCHFIL ! 12 @@ -200,7 +200,7 @@ SUBROUTINE WRITE_L1A ( CLOSE_STAT, CALL_OUTA_HERE ) ENDDO ! Write counter info from module SCONTR - + I = 0 I = I + 1 ; WRITE(L1A,160) LBAROFF , 'LBAROFF ( 1)' ! @@ -530,7 +530,7 @@ SUBROUTINE WRITE_L1A ( CLOSE_STAT, CALL_OUTA_HERE ) WRITE(L1A,103) (COMM(I),I=0,49) CALL FILE_CLOSE ( L1A, LINK1A, CLOSE_STAT ) - + RETURN @@ -557,5 +557,5 @@ SUBROUTINE WRITE_L1A ( CLOSE_STAT, CALL_OUTA_HERE ) 193 FORMAT(1X,1ES14.6,1X,A) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_L1A diff --git a/Source/UTIL/WRITE_L1M.f90 b/Source/UTIL/WRITE_L1M.f90 index 446dd46c..31c9b101 100644 --- a/Source/UTIL/WRITE_L1M.f90 +++ b/Source/UTIL/WRITE_L1M.f90 @@ -1,35 +1,35 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_L1M - + ! Writes data from file LINK1M of eigenvalue extraction data (actual eigenvalues/vectors are not in this file) - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE - + USE SCONTR, ONLY : LINKNO, NUM_EIGENS USE IOUNT1, ONLY : ERR, F06, L1M, L1M_MSG, L1MSTAT, LINK1M, SC1, WRT_ERR USE DEBUG_PARAMETERS, ONLY : DEBUG @@ -41,15 +41,15 @@ SUBROUTINE WRITE_L1M USE WRITE_L1M_USE_IFs USE LINK_MESSAGE_Interface - + IMPLICIT NONE INTEGER(LONG) :: I ! DO loop index INTEGER(LONG) :: OUNT(2) ! File units to write messages to - + ! ********************************************************************************************************************************** ! Make units for writing errors the screen and output file - + OUNT(1) = ERR OUNT(2) = F06 @@ -88,5 +88,5 @@ SUBROUTINE WRITE_L1M ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_L1M diff --git a/Source/UTIL/WRITE_L1Z.f90 b/Source/UTIL/WRITE_L1Z.f90 index c62fc073..cacd773d 100644 --- a/Source/UTIL/WRITE_L1Z.f90 +++ b/Source/UTIL/WRITE_L1Z.f90 @@ -1,50 +1,50 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_L1Z - + ! Writes file LINK1Z of some of the data needed in a restart if user has CHKPNT in the Exec Control - + USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : F06, L1Z, LINK1Z, L1Z_MSG, L1ZSTAT USE SCONTR, ONLY : BLNK_SUB_NAM, NSUB, SOL_NAME USE TIMDAT, ONLY : STIME, TSEC USE MODEL_STUF, ONLY : CC_EIGR_SID, MPCSET, SPCSET, SUBLOD - + USE WRITE_L1Z_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_L1Z' INTEGER(LONG) :: I ! DO loop index - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + - ! ********************************************************************************************************************************** @@ -60,5 +60,5 @@ SUBROUTINE WRITE_L1Z CALL FILE_CLOSE ( L1Z, LINK1Z, L1ZSTAT ) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_L1Z diff --git a/Source/UTIL/WRITE_MATRIX_1.f90 b/Source/UTIL/WRITE_MATRIX_1.f90 index 66dcf35e..f8bd4d05 100644 --- a/Source/UTIL/WRITE_MATRIX_1.f90 +++ b/Source/UTIL/WRITE_MATRIX_1.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE WRITE_MATRIX_1 ( FILNAM, UNT, CLOSE_IT, CLOSE_STAT, MESSAG, NAME, NTERM, NROWS, I_MATIN, J_MATIN, MATIN ) @@ -47,7 +47,7 @@ SUBROUTINE WRITE_MATRIX_1 ( FILNAM, UNT, CLOSE_IT, CLOSE_STAT, MESSAG, NAME, NTE CHARACTER(LEN=*), INTENT(IN) :: CLOSE_STAT ! What to do with file when it is closed CHARACTER(LEN=*), INTENT(IN) :: FILNAM ! File name CHARACTER(LEN=*), INTENT(IN) :: NAME ! Matrix name - CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN + CHARACTER(LEN=*), INTENT(IN) :: MESSAG ! File description. Input to subr UNFORMATTED_OPEN INTEGER(LONG), INTENT(IN) :: NROWS ! Number of rows in MATIN INTEGER(LONG), INTENT(IN) :: NTERM ! Number of matrix terms that should be in FILNAM @@ -56,11 +56,11 @@ SUBROUTINE WRITE_MATRIX_1 ( FILNAM, UNT, CLOSE_IT, CLOSE_STAT, MESSAG, NAME, NTE INTEGER(LONG), INTENT(IN) :: J_MATIN(NTERM) ! Col numbers for terms in matrix MATIN INTEGER(LONG) :: I,J,K ! DO loop indices or counters INTEGER(LONG) :: NTERM_ROW_I ! Number of terms in row I of MATIN - INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN + INTEGER(LONG) :: OUNT(2) ! File units to write messages to. Input to subr UNFORMATTED_OPEN REAL(DOUBLE) , INTENT(IN) :: MATIN(NTERM) ! Real values for matrix MATIN - + CHARACTER(LEN=LEN(NAME)+7+LEN(": writing row")) :: COUNTER_TEMPLATE INTRINSIC DABS @@ -84,9 +84,9 @@ SUBROUTINE WRITE_MATRIX_1 ( FILNAM, UNT, CLOSE_IT, CLOSE_STAT, MESSAG, NAME, NTE NTERM_ROW_I = I_MATIN(I+1) - I_MATIN(I) DO J=1,NTERM_ROW_I K = K + 1 - IF (K > NTERM) CALL ARRAY_SIZE_ERROR_1( SUBR_NAME, NTERM, NAME) + IF (K > NTERM) CALL ARRAY_SIZE_ERROR_1( SUBR_NAME, NTERM, NAME) WRITE(UNT) I,J_MATIN(K),MATIN(K) - ENDDO + ENDDO CALL COUNTER_PROGRESS(I) ENDDO diff --git a/Source/UTIL/WRITE_MATRIX_BY_COLS.f90 b/Source/UTIL/WRITE_MATRIX_BY_COLS.f90 index f01fd092..721b83e7 100644 --- a/Source/UTIL/WRITE_MATRIX_BY_COLS.f90 +++ b/Source/UTIL/WRITE_MATRIX_BY_COLS.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_MATRIX_BY_COLS ( MAT_DESCR, MATOUT, NROWS, NCOLS, OUT_UNT ) - + ! Writes a matrix one column at a time in a format that has 10 terms across the page (repeated un til col is completely written) USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + USE WRITE_VECTOR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_MATRIX_BY_COLS' CHARACTER(LEN=*), INTENT(IN) :: MAT_DESCR ! Character descriptor of the matrix to be printed CHARACTER(131*BYTE) :: HEADER ! MAT_DESCRIPTOR centered in a line of output @@ -51,7 +51,7 @@ SUBROUTINE WRITE_MATRIX_BY_COLS ( MAT_DESCR, MATOUT, NROWS, NCOLS, OUT_UNT ) REAL(DOUBLE) , INTENT(IN) :: MATOUT(NROWS,NCOLS)! Matrix to write out REAL(DOUBLE) :: MAT_LINE(10) ! Up to 10 terms from one col of MATOUT - + INTRINSIC :: LEN @@ -94,5 +94,5 @@ SUBROUTINE WRITE_MATRIX_BY_COLS ( MAT_DESCR, MATOUT, NROWS, NCOLS, OUT_UNT ) 103 FORMAT(1X,10(1ES14.6)) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_MATRIX_BY_COLS diff --git a/Source/UTIL/WRITE_MATRIX_BY_ROWS.f90 b/Source/UTIL/WRITE_MATRIX_BY_ROWS.f90 index 9005f91a..9b1b4014 100644 --- a/Source/UTIL/WRITE_MATRIX_BY_ROWS.f90 +++ b/Source/UTIL/WRITE_MATRIX_BY_ROWS.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_MATRIX_BY_ROWS ( MAT_DESCR, MATOUT, NROWS, NCOLS, OUT_UNT ) - + ! Writes a matrix one row at a time in a format that has 10 terms across the page (repeated until row is completely written) USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + USE WRITE_VECTOR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_MATRIX_BY_ROWS' CHARACTER(LEN=*), INTENT(IN) :: MAT_DESCR ! Character descriptor of the matrix to be printed CHARACTER(131*BYTE) :: HEADER ! MAT_DESCRIPTOR centered in a line of output @@ -51,7 +51,7 @@ SUBROUTINE WRITE_MATRIX_BY_ROWS ( MAT_DESCR, MATOUT, NROWS, NCOLS, OUT_UNT ) REAL(DOUBLE) , INTENT(IN) :: MATOUT(NROWS,NCOLS)! Matrix to write out REAL(DOUBLE) :: MAT_LINE(10) ! Up to 10 terms from one col of MATOUT - + INTRINSIC :: LEN @@ -94,5 +94,5 @@ SUBROUTINE WRITE_MATRIX_BY_ROWS ( MAT_DESCR, MATOUT, NROWS, NCOLS, OUT_UNT ) 103 FORMAT(1X,10(1ES14.6)) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_MATRIX_BY_ROWS diff --git a/Source/UTIL/WRITE_OU4_FULL_MAT.f90 b/Source/UTIL/WRITE_OU4_FULL_MAT.f90 index b41981b2..967296f6 100644 --- a/Source/UTIL/WRITE_OU4_FULL_MAT.f90 +++ b/Source/UTIL/WRITE_OU4_FULL_MAT.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_OU4_FULL_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, MAT, UNT ) - + ! Writes a matrix that is in full format to unformatted file attached to unit UNT in NASTRAN OUTPUT4 format. ! Used for OUTPUT4 matrices @@ -35,11 +35,11 @@ SUBROUTINE WRITE_OU4_FULL_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, MAT, UNT ) USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : PRTOU4 - + USE WRITE_OU4_FULL_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_OU4_FULL_MAT' CHARACTER(LEN=*), INTENT(IN) :: MAT_NAME ! Matrix name (only 1st 8 characters will be written) @@ -58,7 +58,7 @@ SUBROUTINE WRITE_OU4_FULL_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, MAT, UNT ) REAL(DOUBLE) , INTENT(IN) :: MAT(NROWS,NCOLS) ! Array of terms in matrix MAT - + ! ********************************************************************************************************************************** @@ -122,5 +122,5 @@ SUBROUTINE WRITE_OU4_FULL_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, MAT, UNT ) 1001 FORMAT(' *INFORMATION: MATRIX ',A,' WITH ',I8,' ROWS AND ',I8,' COLS HAS BEEN WRITTEN IN OUTPUT4 FORMAT TO FILE ',A) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_OU4_FULL_MAT diff --git a/Source/UTIL/WRITE_OU4_SPARSE_MAT.f90 b/Source/UTIL/WRITE_OU4_SPARSE_MAT.f90 index d3a9f331..73f64a50 100644 --- a/Source/UTIL/WRITE_OU4_SPARSE_MAT.f90 +++ b/Source/UTIL/WRITE_OU4_SPARSE_MAT.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_OU4_SPARSE_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, NTERM_MAT, I_MAT, J_MAT, MAT, UNT ) - + ! Writes a matrix that is in sparse CRS format to unformatted file attached to unit UNT in NASTRAN OUTPUT4 format. ! Used for OUTPUT4 matrices @@ -36,11 +36,11 @@ SUBROUTINE WRITE_OU4_SPARSE_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, NTERM_MAT, USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : PRTOU4, SPARSTOR USE SCRATCH_MATRICES, ONLY : I_CRS1, J_CRS1, CRS1, I_CCS1, J_CCS1, CCS1 - + USE WRITE_OU4_SPARSE_MAT_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_OU4_SPARSE_MAT' CHARACTER(LEN=*), INTENT(IN) :: MAT_NAME ! Matrix name (only 1st 8 characters will be written) @@ -58,19 +58,19 @@ SUBROUTINE WRITE_OU4_SPARSE_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, NTERM_MAT, INTEGER(LONG), INTENT(IN) :: J_MAT(NTERM_MAT) ! Col numbers in MAT INTEGER(LONG), INTENT(IN) :: UNT ! Unit number where to write matrix INTEGER(LONG) :: I,J,K ! DO loop indices or counters - INTEGER(LONG), PARAMETER :: IROW = 1 ! + INTEGER(LONG), PARAMETER :: IROW = 1 ! !xx INTEGER(LONG) :: NTERM_ROW_CCS1 ! Number of nonzero terms in row I of CRS1 - INTEGER(LONG) :: NUM_MAT_DIAG_0 ! - INTEGER(LONG) :: NTERM_CCS1 ! - INTEGER(LONG) :: NTERM_CRS1 ! - INTEGER(LONG) :: NTERM_COL_J ! + INTEGER(LONG) :: NUM_MAT_DIAG_0 ! + INTEGER(LONG) :: NTERM_CCS1 ! + INTEGER(LONG) :: NTERM_CRS1 ! + INTEGER(LONG) :: NTERM_COL_J ! INTEGER(LONG), PARAMETER :: PREC = 2 ! Matrix precision (2 indicates double precision) INTEGER(LONG), PARAMETER :: ROW_BEG = 1 ! 1st row of matrix output to UNT is row 1 REAL(DOUBLE) , INTENT(IN) :: MAT(NTERM_MAT) ! Array of terms in matrix MAT REAL(DOUBLE) :: CCS1_COL(NROWS) ! One column of CCS1 in full format - + ! ********************************************************************************************************************************** @@ -102,7 +102,7 @@ SUBROUTINE WRITE_OU4_SPARSE_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, NTERM_MAT, CALL SPARSE_MAT_DIAG_ZEROS ( MAT_NAME, NROWS, NTERM_MAT, I_MAT, J_MAT, NUM_MAT_DIAG_0 ) NTERM_CRS1 = 2*NTERM_MAT - (NROWS - NUM_MAT_DIAG_0) - CALL ALLOCATE_SCR_CRS_MAT ( 'CRS1', NROWS, NTERM_CRS1, SUBR_NAME ) + CALL ALLOCATE_SCR_CRS_MAT ( 'CRS1', NROWS, NTERM_CRS1, SUBR_NAME ) CALL CRS_SYM_TO_CRS_NONSYM ( MAT_NAME, NROWS, NTERM_MAT, I_MAT, J_MAT, MAT, 'CRS1', NTERM_CRS1, I_CRS1, J_CRS1, CRS1, 'N' ) NTERM_CCS1 = NTERM_CRS1 @@ -143,7 +143,7 @@ SUBROUTINE WRITE_OU4_SPARSE_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, NTERM_MAT, K = K + 1 CCS1_COL(I_CCS1(K)) = CCS1(K) ENDDO - ENDIF ! Always write whole matrix + ENDIF ! Always write whole matrix WRITE(UNT) J, ROW_BEG, 2*NROWS, (CCS1_COL(I),I=1,NROWS) IF (PRTOU4 > 0) THEN WRITE(F06,105) J,(CCS1_COL(I),I=1,NROWS) @@ -177,7 +177,7 @@ SUBROUTINE WRITE_OU4_SPARSE_MAT ( MAT_NAME, NROWS, NCOLS, FORM, SYM, NTERM_MAT, - + ! ********************************************************************************************************************************** END SUBROUTINE WRITE_OU4_SPARSE_MAT diff --git a/Source/UTIL/WRITE_PARTNd_MAT_HDRS.f90 b/Source/UTIL/WRITE_PARTNd_MAT_HDRS.f90 index 1d52c43e..6ad337b7 100644 --- a/Source/UTIL/WRITE_PARTNd_MAT_HDRS.f90 +++ b/Source/UTIL/WRITE_PARTNd_MAT_HDRS.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE WRITE_PARTNd_MAT_HDRS ( MAT_NAME, ROW_SET, COL_SET, NROWS, NCOLS ) @@ -161,4 +161,4 @@ SUBROUTINE WRITE_PARTNd_MAT_HDRS ( MAT_NAME, ROW_SET, COL_SET, NROWS, NCOLS ) ! ********************************************************************************************************************************** - END SUBROUTINE WRITE_PARTNd_MAT_HDRS \ No newline at end of file + END SUBROUTINE WRITE_PARTNd_MAT_HDRS diff --git a/Source/UTIL/WRITE_SPARSE_CRS.f90 b/Source/UTIL/WRITE_SPARSE_CRS.f90 index a59001a9..f88d387d 100644 --- a/Source/UTIL/WRITE_SPARSE_CRS.f90 +++ b/Source/UTIL/WRITE_SPARSE_CRS.f90 @@ -1,31 +1,31 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_SPARSE_CRS ( MAT_NAME, ROW_SET, COL_SET, NTERM_A, NROWS_A, I_AXX, J_AXX, AXX ) - + ! Writes a matrix that is in sparse CRS format to the F06 output file based on user request via Bulk Data PARAM PRTijk entries USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE @@ -34,26 +34,26 @@ SUBROUTINE WRITE_SPARSE_CRS ( MAT_NAME, ROW_SET, COL_SET, NTERM_A, NROWS_A, I_AX USE TIMDAT, ONLY : TSEC USE CONSTANTS_1, ONLY : ZERO USE PARAMS, ONLY : SPARSTOR, TINY - + USE WRITE_SPARSE_CRS_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_SPARSE_CRS' CHARACTER(LEN=*), INTENT(IN) :: COL_SET ! Set designator for cols of matrix CHARACTER(LEN=*), INTENT(IN) :: ROW_SET ! Set designator for rows of matrix CHARACTER(LEN=*), INTENT(IN) :: MAT_NAME ! Input matrix descriptor CHARACTER(132*BYTE) :: LINE_OUT ! Line to print out (to describe matrix) that is centered - INTEGER(LONG), INTENT(IN) :: NTERM_A ! No. of terms in sparse matrix - INTEGER(LONG), INTENT(IN) :: NROWS_A ! No. of rows in sparse matrix + INTEGER(LONG), INTENT(IN) :: NTERM_A ! No. of terms in sparse matrix + INTEGER(LONG), INTENT(IN) :: NROWS_A ! No. of rows in sparse matrix INTEGER(LONG), INTENT(IN) :: I_AXX(NROWS_A+1) ! Array of starting indices for the 1-st term in rows of AXX INTEGER(LONG), INTENT(IN) :: J_AXX(NTERM_A) ! Array of col no's for terms in matrix AXX INTEGER(LONG) :: COL_COMP = 0 ! Component number returned from subr GET_GRID_AND_COMP INTEGER(LONG) :: COL_GRID = 0 ! Grid number returned from subr GET_GRID_AND_COMP INTEGER(LONG) :: I,J ! DO loop index INTEGER(LONG) :: INDEX ! Index into character array LINE_OUT - INTEGER(LONG) :: K ! Counter + INTEGER(LONG) :: K ! Counter INTEGER(LONG) :: MAT_NAME_LEN ! Length of char array MAT_NAME. On input, it is the length as defined ! in the calling subr. In this subr, MAT_NAME is striped of trailing ! blanks to get only the actual message. On exit MAT_NAME_LEN is the @@ -65,7 +65,7 @@ SUBROUTINE WRITE_SPARSE_CRS ( MAT_NAME, ROW_SET, COL_SET, NTERM_A, NROWS_A, I_AX REAL(DOUBLE) , INTENT(IN) :: AXX(NTERM_A) ! Array of terms in matrix AXX - + ! ********************************************************************************************************************************** @@ -118,7 +118,7 @@ SUBROUTINE WRITE_SPARSE_CRS ( MAT_NAME, ROW_SET, COL_SET, NTERM_A, NROWS_A, I_AX IF ((ROW_GRID > 0) .AND. (ROW_COMP > 0)) THEN - DO J=1,NTERM_ROW_I + DO J=1,NTERM_ROW_I K = K+1 IF (DABS(AXX(K)) > TINY) THEN WRITE(F06,11) K, ROW_GRID, ROW_COMP, J_AXX(K), AXX(K) @@ -127,7 +127,7 @@ SUBROUTINE WRITE_SPARSE_CRS ( MAT_NAME, ROW_SET, COL_SET, NTERM_A, NROWS_A, I_AX ELSE - DO J=1,NTERM_ROW_I + DO J=1,NTERM_ROW_I IF (DABS(AXX(K)) > TINY) THEN WRITE(F06,12) K, I, J_AXX(K),AXX(K) ENDIF @@ -149,7 +149,7 @@ SUBROUTINE WRITE_SPARSE_CRS ( MAT_NAME, ROW_SET, COL_SET, NTERM_A, NROWS_A, I_AX WRITE(F06,202) LINE_OUT, TINY, NROWS_A, NTERM_A, NULL_ROWS_A ENDIF K = 0 - DO I=1,NROWS_A + DO I=1,NROWS_A NTERM_ROW_I = I_AXX(I+1) - I_AXX(I) IF (NTERM_ROW_I == 0) CYCLE @@ -161,7 +161,7 @@ SUBROUTINE WRITE_SPARSE_CRS ( MAT_NAME, ROW_SET, COL_SET, NTERM_A, NROWS_A, I_AX IF ((ROW_GRID > 0) .AND. (ROW_COMP > 0)) THEN - DO J=1,NTERM_ROW_I + DO J=1,NTERM_ROW_I K = K+1 COL_GRID = 0 COL_COMP = 0 @@ -181,7 +181,7 @@ SUBROUTINE WRITE_SPARSE_CRS ( MAT_NAME, ROW_SET, COL_SET, NTERM_A, NROWS_A, I_AX ELSE - DO J=1,NTERM_ROW_I + DO J=1,NTERM_ROW_I K = K+1 COL_GRID = 0 COL_COMP = 0 @@ -253,5 +253,5 @@ SUBROUTINE WRITE_SPARSE_CRS ( MAT_NAME, ROW_SET, COL_SET, NTERM_A, NROWS_A, I_AX 24 FORMAT(20X,I12,5X,I8,15X,I8,14X,1ES21.14,' 24') ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_SPARSE_CRS diff --git a/Source/UTIL/WRITE_TDOF.f90 b/Source/UTIL/WRITE_TDOF.f90 index 147eaa4e..afb7d0b5 100644 --- a/Source/UTIL/WRITE_TDOF.f90 +++ b/Source/UTIL/WRITE_TDOF.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE WRITE_TDOF ( TDOF_MSG ) @@ -82,7 +82,7 @@ SUBROUTINE WRITE_TDOF ( TDOF_MSG ) ENDIF ENDIF ENDDO - WRITE(F06,*) + WRITE(F06,*) ENDDO IF ((NUM_USET_U1 > 0) .OR. (NUM_USET_U2 > 0)) THEN WRITE(F06,402) NDOFG, NDOFM, NDOFN, NDOFSA, NDOFSB, NDOFSG, NDOFSZ, NDOFSE, NDOFS, NDOFF, NDOFO, NDOFA, NDOFR, NDOFL, & @@ -94,7 +94,7 @@ SUBROUTINE WRITE_TDOF ( TDOF_MSG ) ENDIF ! Table TDOFI is printed in the F06 file if B.D. PARAM PRTDOF = 2 or 3 - + IF ((PRTDOF == 2) .OR. (PRTDOF == 3)) THEN NAME1 = 'DOF NUMBER' NAME2 = '(TDOFI)' @@ -122,7 +122,7 @@ SUBROUTINE WRITE_TDOF ( TDOF_MSG ) ENDIF ENDIF ENDDO - WRITE(F06,*) + WRITE(F06,*) ENDDO IF ((NUM_USET_U1 > 0) .OR. (NUM_USET_U2 > 0)) THEN WRITE(F06,402) NDOFG, NDOFM, NDOFN, NDOFSA, NDOFSB, NDOFSG, NDOFSZ, NDOFSE, NDOFS, NDOFF, NDOFO, NDOFA, NDOFR, NDOFL, & @@ -132,7 +132,7 @@ SUBROUTINE WRITE_TDOF ( TDOF_MSG ) ENDIF WRITE(F06,'(//)') ENDIF - + RETURN diff --git a/Source/UTIL/WRITE_TSET.f90 b/Source/UTIL/WRITE_TSET.f90 index 4f10d97c..7f668580 100644 --- a/Source/UTIL/WRITE_TSET.f90 +++ b/Source/UTIL/WRITE_TSET.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################# -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE WRITE_TSET @@ -51,7 +51,7 @@ SUBROUTINE WRITE_TSET WRITE(F06,57) DO I=1,NGRID WRITE(F06,58) GRID(I,1), GRID_SEQ(I), INV_GRID_SEQ(I), (TSET(I,J),J = 1,MTSET) - ENDDO + ENDDO WRITE(F06,59) diff --git a/Source/UTIL/WRITE_USERIN_BD_CARDS.f90 b/Source/UTIL/WRITE_USERIN_BD_CARDS.f90 index 5c36c9a6..8e299026 100644 --- a/Source/UTIL/WRITE_USERIN_BD_CARDS.f90 +++ b/Source/UTIL/WRITE_USERIN_BD_CARDS.f90 @@ -1,33 +1,33 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE WRITE_USERIN_BD_CARDS ( NROWS, X_SET ) ! Write out B.D. CUSERIN card images, created in MYSTRAN for use in INPUT4 for a substructure, if user has requested it via Bulk -! Data PARAM CUSERIN, +! Data PARAM CUSERIN, USE PENTIUM_II_KIND, ONLY : BYTE, LONG USE IOUNT1, ONLY : ERR, F06, F06FIL, MOU4, OU4, OU4FIL @@ -36,7 +36,7 @@ SUBROUTINE WRITE_USERIN_BD_CARDS ( NROWS, X_SET ) USE DOF_TABLES, ONLY : TDOFI USE PARAMS, ONLY : CUSERIN_EID, CUSERIN_IN4, CUSERIN_PID, CUSERIN_SPNT_ID, CUSERIN_XSET, & CUSERIN_COMPTYP, SUPWARN - USE MODEL_STUF, ONLY : CORD, RCORD, GRID_ID, GRID, RGRID + USE MODEL_STUF, ONLY : CORD, RCORD, GRID_ID, GRID, RGRID USE OUTPUT4_MATRICES, ONLY : ACT_OU4_OUTPUT_NAMES, NUM_OU4_REQUESTS, OU4_FILE_UNITS USE WRITE_USERIN_BD_CARDS_USE_IFs @@ -147,7 +147,7 @@ SUBROUTINE WRITE_USERIN_BD_CARDS ( NROWS, X_SET ) DO J=1,6 USERIN_COMPS(I)(J:J) = COMPS(J) ENDDO - ENDIF + ENDIF ENDDO @@ -176,7 +176,7 @@ SUBROUTINE WRITE_USERIN_BD_CARDS ( NROWS, X_SET ) IF (CORD_FND == 'N') THEN WARN_ERR = WARN_ERR + 1 WRITE(ERR,9988) USERIN_CORDS(I,1), SUBR_NAME - IF (SUPWARN == 'N') THEN + IF (SUPWARN == 'N') THEN WRITE(F06,9988) USERIN_CORDS(I,1), SUBR_NAME ENDIF ENDIF @@ -242,15 +242,15 @@ SUBROUTINE WRITE_USERIN_BD_CARDS ( NROWS, X_SET ) WRITE(ICARD(FIRST,J+3),204) RCORD(ICORD,J) ; CALL LEFT_ADJ_BDFLD ( ICARD(FIRST,J+3) ) ENDDO - WRITE(ICARD(FIRST,7),204) RCORD(ICORD, 6) ; CALL LEFT_ADJ_BDFLD ( ICARD(FIRST,7) ) - WRITE(ICARD(FIRST,8),204) RCORD(ICORD, 9) ; CALL LEFT_ADJ_BDFLD ( ICARD(FIRST,8) ) - WRITE(ICARD(FIRST,9),204) RCORD(ICORD,12) ; CALL LEFT_ADJ_BDFLD ( ICARD(FIRST,9) ) + WRITE(ICARD(FIRST,7),204) RCORD(ICORD, 6) ; CALL LEFT_ADJ_BDFLD ( ICARD(FIRST,7) ) + WRITE(ICARD(FIRST,8),204) RCORD(ICORD, 9) ; CALL LEFT_ADJ_BDFLD ( ICARD(FIRST,8) ) + WRITE(ICARD(FIRST,9),204) RCORD(ICORD,12) ; CALL LEFT_ADJ_BDFLD ( ICARD(FIRST,9) ) WRITE(F06,206) (ICARD(FIRST,J),J=2,9) - WRITE(ICARD(FIRST,2),204) RCORD(ICORD, 4) ; CALL LEFT_ADJ_BDFLD ( ICARD(FIRST,2) ) - WRITE(ICARD(FIRST,3),204) RCORD(ICORD, 7) ; CALL LEFT_ADJ_BDFLD ( ICARD(FIRST,3) ) - WRITE(ICARD(FIRST,4),204) RCORD(ICORD,10) ; CALL LEFT_ADJ_BDFLD ( ICARD(FIRST,4) ) + WRITE(ICARD(FIRST,2),204) RCORD(ICORD, 4) ; CALL LEFT_ADJ_BDFLD ( ICARD(FIRST,2) ) + WRITE(ICARD(FIRST,3),204) RCORD(ICORD, 7) ; CALL LEFT_ADJ_BDFLD ( ICARD(FIRST,3) ) + WRITE(ICARD(FIRST,4),204) RCORD(ICORD,10) ; CALL LEFT_ADJ_BDFLD ( ICARD(FIRST,4) ) WRITE(F06,207) (ICARD(FIRST,J),J=2,4) @@ -270,13 +270,13 @@ SUBROUTINE WRITE_USERIN_BD_CARDS ( NROWS, X_SET ) ENDDO DO J=1,3 - WRITE(ICARD(I,J+6),204) RCORD(ICORD,J+9) ; CALL LEFT_ADJ_BDFLD ( ICARD(I,J+6) ) + WRITE(ICARD(I,J+6),204) RCORD(ICORD,J+9) ; CALL LEFT_ADJ_BDFLD ( ICARD(I,J+6) ) ENDDO WRITE(F06,206) (ICARD(I,J),J=2,9) DO J=1,3 - WRITE(ICARD(I,J+1),204) RCORD(ICORD,J+3) ; CALL LEFT_ADJ_BDFLD ( ICARD(I,J+3) ) + WRITE(ICARD(I,J+1),204) RCORD(ICORD,J+3) ; CALL LEFT_ADJ_BDFLD ( ICARD(I,J+3) ) ENDDO WRITE(F06,207) (ICARD(I,J),J=2,4) @@ -302,7 +302,7 @@ SUBROUTINE WRITE_USERIN_BD_CARDS ( NROWS, X_SET ) WRITE(ICARD(5,1),201) NVEC ; CALL LEFT_ADJ_BDFLD ( ICARD(5,1) ) WRITE(ICARD(6,1),203) CORD_MSG WRITE(F06,202) (ICARD(I,1),I=2,6) - + DO I=1,NUM_USERIN_GRIDS ! Write CUSERIN cont cards for grids to internal file (ICARD) WRITE(ICARD(I,1),201) USERIN_GRIDS(I) ; CALL LEFT_ADJ_BDFLD ( ICARD(I,1) ) WRITE(ICARD(I,2),203) USERIN_COMPS(I) ; CALL LEFT_ADJ_BDFLD ( ICARD(I,2) ) @@ -316,14 +316,14 @@ SUBROUTINE WRITE_USERIN_BD_CARDS ( NROWS, X_SET ) ICARD(I+2,1), ICARD(I+2,2), ICARD(I+3,1), ICARD(I+3,2) NUM_LEFT = NUM_LEFT - 4 - ELSE IF (NUM_LEFT == 3) THEN + ELSE IF (NUM_LEFT == 3) THEN WRITE(F06,223) ICARD(I,1) , ICARD(I,2) , ICARD(I+1,1), ICARD(I+1,2), & ICARD(I+2,1), ICARD(I+2,2) - ELSE IF (NUM_LEFT == 2) THEN + ELSE IF (NUM_LEFT == 2) THEN WRITE(F06,222) ICARD(I,1) , ICARD(I,2) , ICARD(I+1,1), ICARD(I+1,2) - ELSE IF (NUM_LEFT == 1) THEN + ELSE IF (NUM_LEFT == 1) THEN WRITE(F06,222) ICARD(I,1) , ICARD(I,2) ENDIF @@ -407,7 +407,7 @@ SUBROUTINE WRITE_USERIN_BD_CARDS ( NROWS, X_SET ) '$ written to binary files via Exec Control OUTPUT4 statement(s) in this run' ,//, & '$ Finally, make sure that the real numbers above have enough decimal places to',/, & '$ accurately represent the quantities. Otherwise replace them before using them') - + 9988 FORMAT(' *WARNING : CANNOT FIND COORD SYSTEM ',I8,' IN SUBR ',A) diff --git a/Source/UTIL/WRITE_USET.f90 b/Source/UTIL/WRITE_USET.f90 index 89029096..27f41323 100644 --- a/Source/UTIL/WRITE_USET.f90 +++ b/Source/UTIL/WRITE_USET.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE WRITE_USET @@ -59,7 +59,7 @@ SUBROUTINE WRITE_USET IF ((USET(I,1)(1:1) == 'U') .OR. (USET(I,2)(1:1) == 'U') .OR. (USET(I,3)(1:1) == 'U') .OR. & (USET(I,4)(1:1) == 'U') .OR. (USET(I,5)(1:1) == 'U') .OR. (USET(I,6)(1:1) == 'U')) THEN WRITE(F06,58) GRID(I,1), (USET(I,J),J = 1,MTSET) - ELSE + ELSE CYCLE i_do ENDIF ENDDO i_do diff --git a/Source/UTIL/WRITE_USETSTR.f90 b/Source/UTIL/WRITE_USETSTR.f90 index 027884eb..681fe00b 100644 --- a/Source/UTIL/WRITE_USETSTR.f90 +++ b/Source/UTIL/WRITE_USETSTR.f90 @@ -1,28 +1,28 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. + +! End MIT license text. SUBROUTINE WRITE_USETSTR @@ -43,7 +43,7 @@ SUBROUTINE WRITE_USETSTR CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_USETSTR' CHARACTER(LEN(TSET_CHR_LEN)) :: CHAR_SET ! Name of a DOF set: G, N, M, etc - CHARACTER(LEN(TSET_CHR_LEN)) :: NULL_SET_NAME(MTDOF)! Array of names of sets that are null (for output message purposes) + CHARACTER(LEN(TSET_CHR_LEN)) :: NULL_SET_NAME(MTDOF)! Array of names of sets that are null (for output message purposes) CHARACTER( 1*BYTE) :: USETSTR_OUTPUT ! If 'Y' then output of USET tables is requested INTEGER(LONG) :: COL_NUM ! Column number in TDOF where a DOF set exists @@ -212,4 +212,4 @@ SUBROUTINE WRITE_USETSTR ! ********************************************************************************************************************************** - END SUBROUTINE WRITE_USETSTR \ No newline at end of file + END SUBROUTINE WRITE_USETSTR diff --git a/Source/UTIL/WRITE_VECTOR.f90 b/Source/UTIL/WRITE_VECTOR.f90 index 574f788b..055b23d5 100644 --- a/Source/UTIL/WRITE_VECTOR.f90 +++ b/Source/UTIL/WRITE_VECTOR.f90 @@ -1,42 +1,42 @@ ! ################################################################################################################################## -! Begin MIT license text. +! Begin MIT license text. ! _______________________________________________________________________________________________________ - -! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) - -! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and + +! Copyright 2022 Dr William R Case, Jr (mystransolver@gmail.com) + +! Permission is hereby granted, free of charge, to any person obtaining a copy of this software and ! associated documentation files (the "Software"), to deal in the Software without restriction, including ! without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to -! the following conditions: - -! The above copyright notice and this permission notice shall be included in all copies or substantial -! portions of the Software and documentation. - -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. +! copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to +! the following conditions: + +! The above copyright notice and this permission notice shall be included in all copies or substantial +! portions of the Software and documentation. + +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. ! _______________________________________________________________________________________________________ - -! End MIT license text. - + +! End MIT license text. + SUBROUTINE WRITE_VECTOR ( VEC_NAME, WHAT, NUM, UX ) - -! Writes a vector in full format to the F06 file + +! Writes a vector in full format to the F06 file USE PENTIUM_II_KIND, ONLY : BYTE, LONG, DOUBLE USE IOUNT1, ONLY : WRT_ERR, F06 USE SCONTR, ONLY : BLNK_SUB_NAM USE TIMDAT, ONLY : TSEC - + USE WRITE_VECTOR_USE_IFs IMPLICIT NONE - + CHARACTER(LEN=LEN(BLNK_SUB_NAM)):: SUBR_NAME = 'WRITE_VECTOR' CHARACTER(LEN=*), INTENT(IN) :: VEC_NAME ! Name of vector being output CHARACTER(LEN=*), INTENT(IN) :: WHAT ! Title over output vector (e.g. DISPL, FORCE, etc.) @@ -52,7 +52,7 @@ SUBROUTINE WRITE_VECTOR ( VEC_NAME, WHAT, NUM, UX ) REAL(DOUBLE) , INTENT(IN) :: UX(NUM) ! Vector to write out - + ! ********************************************************************************************************************************** @@ -70,14 +70,14 @@ SUBROUTINE WRITE_VECTOR ( VEC_NAME, WHAT, NUM, UX ) ENDDO LINE_OUT(1:) = ' ' ! Center VEC_NAME (w/0 trailing blanks) in LINE_OUT - INDEX = (LEN(LINE_OUT) - VEC_NAME_LEN)/2 + INDEX = (LEN(LINE_OUT) - VEC_NAME_LEN)/2 LINE_OUT(INDEX:) = VEC_NAME(1:VEC_NAME_LEN) WRITE(F06,2101) LINE_OUT, WHAT - + DO I=1,NUM WRITE(F06,2102) I, UX(I) - ENDDO + ENDDO WRITE(F06,*) @@ -86,10 +86,10 @@ SUBROUTINE WRITE_VECTOR ( VEC_NAME, WHAT, NUM, UX ) ! ********************************************************************************************************************************** 2101 FORMAT(A,//,54X,'I ',A,/,51X,'(DOF)') - + 2102 FORMAT(43X,I12,8X,1ES13.6) ! ********************************************************************************************************************************** - + END SUBROUTINE WRITE_VECTOR diff --git a/metis/GKlib b/metis/GKlib new file mode 160000 index 00000000..e2856c2f --- /dev/null +++ b/metis/GKlib @@ -0,0 +1 @@ +Subproject commit e2856c2f595b153ca1ce9258c5301dbabc4f39f5 diff --git a/metis/METIS b/metis/METIS new file mode 160000 index 00000000..dfded64f --- /dev/null +++ b/metis/METIS @@ -0,0 +1 @@ +Subproject commit dfded64f24664caa8809cacf416d378112e8867f diff --git a/metis/metis_patches/CMakeLists.txt b/metis/metis_patches/CMakeLists.txt new file mode 100644 index 00000000..1b6cfb7c --- /dev/null +++ b/metis/metis_patches/CMakeLists.txt @@ -0,0 +1,61 @@ +cmake_minimum_required(VERSION 3.10) +project(METIS C) + +set(CMAKE_POSITION_INDEPENDENT_CODE ON) +set(SHARED FALSE CACHE BOOL "build a shared library") +option(METIS_BUILD_PROGRAMS "Build METIS command line programs" OFF) + +if(MSVC) + set(METIS_INSTALL FALSE) +else() + set(METIS_INSTALL TRUE) +endif() + +# Configure libmetis library. +if(SHARED) + set(METIS_LIBRARY_TYPE SHARED) +else() + set(METIS_LIBRARY_TYPE STATIC) +endif(SHARED) + +include(./conf/gkbuild.cmake) + +# METIS' custom options +#option(IDX64 "enable 64 bit ints" OFF) +#option(REAL64 "enable 64 bit floats (i.e., double)" OFF) +#if(IDX64) +# set(METIS_COPTIONS "${METIS_COPTIONS} -DIDXTYPEWIDTH=64") +#else() +# set(METIS_COPTIONS "${METIS_COPTIONS} -DIDXTYPEWIDTH=32") +#endif(IDX64) +#if(REAL64) +# set(METIS_COPTIONS "${METIS_COPTIONS} -DREALTYPEWIDTH=64") +#else() +# set(METIS_COPTIONS "${METIS_COPTIONS} -DREALTYPEWIDTH=32") +#endif(REAL64) +# +#set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} ${METIS_COPTIONS}") + + +set(METIS_GENERATED_INCLUDE_DIR "${CMAKE_CURRENT_BINARY_DIR}/include") +file(MAKE_DIRECTORY "${METIS_GENERATED_INCLUDE_DIR}") +file(WRITE "${METIS_GENERATED_INCLUDE_DIR}/metis.h" "#define IDXTYPEWIDTH 32\n#define REALTYPEWIDTH 32\n") +file(READ "${CMAKE_CURRENT_SOURCE_DIR}/include/metis.h" METIS_PUBLIC_HEADER) +file(APPEND "${METIS_GENERATED_INCLUDE_DIR}/metis.h" "${METIS_PUBLIC_HEADER}") + +# Add include directories. +# i.e., the -I equivalent +include_directories("${METIS_GENERATED_INCLUDE_DIR}") +include_directories(${GKLIB_PATH}/include) +include_directories(${CMAKE_INSTALL_PREFIX}/include) + +# List of paths that the compiler will search for library files. +# i.e., the -L equivalent +link_directories(${GKLIB_PATH}/lib) +link_directories(${CMAKE_INSTALL_PREFIX}/lib) + +# Recursively look for CMakeLists.txt in subdirs. +add_subdirectory("libmetis") +if(METIS_BUILD_PROGRAMS) + add_subdirectory("programs") +endif() diff --git a/mystran.rc b/mystran.rc index 22e2b22f..df2ee5f8 100644 --- a/mystran.rc +++ b/mystran.rc @@ -1,8 +1,8 @@ #include 1 VERSIONINFO -FILEVERSION 17,0,0,0 -PRODUCTVERSION 17,0,0,0 +FILEVERSION 18,0,0,0 +PRODUCTVERSION 18,0,0,0 FILEFLAGSMASK 0x3fL #ifdef _DEBUG FILEFLAGS VS_FF_DEBUG @@ -19,9 +19,9 @@ BEGIN BLOCK "040904E4" BEGIN VALUE "FileDescription", "MYSTRAN Finite Element Solver" - VALUE "FileVersion", "17.0.0" + VALUE "FileVersion", "18.0.0" VALUE "ProductName", "MYSTRAN" - VALUE "ProductVersion", "17.0.0" + VALUE "ProductVersion", "18.0.0" VALUE "CompanyName", "Open-Source Project" VALUE "OriginalFilename", "mystran.exe" END diff --git a/superlu_patches/FORTRAN/c_fortran_dgssv.c b/superlu_patches/FORTRAN/c_fortran_dgssv.c new file mode 100644 index 00000000..1f6b01a7 --- /dev/null +++ b/superlu_patches/FORTRAN/c_fortran_dgssv.c @@ -0,0 +1,189 @@ + +/* + * -- SuperLU routine (version 6.0) -- + * Univ. of California Berkeley, Xerox Palo Alto Research Center, + * and Lawrence Berkeley National Lab. + * October 15, 2003 + * + * March 26, 2023 Add 64-bit indexing and METIS ordering + */ + +#include "slu_ddefs.h" + +#define HANDLE_SIZE 8 + +/* kind of integer to hold a pointer. Use 64-bit. */ +typedef long long int fptr; + +typedef struct { + SuperMatrix *L; + SuperMatrix *U; + int *perm_c; + int *perm_r; +} factors_t; + +/*! + * This routine can be called from Fortran. + * + * iopt (input) int + * Specifies the operation: + * = 1, performs LU decomposition for the first time + * = 2, performs triangular solve + * = 3, free all the storage in the end + * + * f_factors (input/output) fptr* + * If iopt == 1, it is an output and contains the pointer pointing to + * the structure of the factored matrices. + * Otherwise, it it an input. + */ +void c_fortran_dgssv_(int *iopt, int *n, int_t *nnz, int *nrhs, double *values, + int_t *rowind, int_t *colptr, double *b, int *ldb, + fptr *f_factors, /* a handle containing the address + pointing to the factored matrices */ + int_t *info) { + SuperMatrix A, AC, B; + SuperMatrix *L, *U; + int *perm_r; /* row permutations from partial pivoting */ + int *perm_c; /* column permutation vector */ + int *etree; /* column elimination tree */ + SCformat *Lstore; + NCformat *Ustore; + int i, panel_size, permc_spec, relax; + trans_t trans; + mem_usage_t mem_usage; + superlu_options_t options; + SuperLUStat_t stat; + factors_t *LUfactors; + GlobalLU_t Glu; /* Not needed on return. */ + int_t *rowind0; /* counter 1-based indexing from Fortran arrays. */ + int_t *colptr0; + + trans = NOTRANS; + + if (*iopt == 1) { /* LU decomposition */ + + /* Set the default input options. */ + set_default_options(&options); + + /* Initialize the statistics variables. */ + StatInit(&stat); + + /* Adjust to 0-based indexing */ + if (!(rowind0 = intMalloc(*nnz))) + ABORT("Malloc fails for rowind0[]."); + if (!(colptr0 = intMalloc(*n + 1))) + ABORT("Malloc fails for colptr0[]."); + for (i = 0; i < *nnz; ++i) + rowind0[i] = rowind[i] - 1; + for (i = 0; i <= *n; ++i) + colptr0[i] = colptr[i] - 1; + + dCreate_CompCol_Matrix(&A, *n, *n, *nnz, values, rowind0, colptr0, SLU_NC, + SLU_D, SLU_GE); + L = (SuperMatrix *)SUPERLU_MALLOC(sizeof(SuperMatrix)); + U = (SuperMatrix *)SUPERLU_MALLOC(sizeof(SuperMatrix)); + if (!(perm_r = int32Malloc(*n))) + ABORT("Malloc fails for perm_r[]."); + if (!(perm_c = int32Malloc(*n))) + ABORT("Malloc fails for perm_c[]."); + if (!(etree = int32Malloc(*n))) + ABORT("Malloc fails for etree[]."); +/* + * Get column permutation vector perm_c[], according to permc_spec: + * permc_spec = 0: natural ordering + * permc_spec = 1: minimum degree on structure of A'*A + * permc_spec = 2: minimum degree on structure of A'+A + * permc_spec = 3: approximate minimum degree for unsymmetric matrices + * permc_spec = 6: METIS ordering on structure of A'*A + */ +#if (HAVE_METIS) + printf("USING METIS ORDERING\r\n"); + permc_spec = 6; +#else + permc_spec = options.ColPerm; +#endif + // permc_spec = 0; + // printf("before get_perm_c: permc_spec %d, *n %d\n", permc_spec, *n); + get_perm_c(permc_spec, &A, perm_c); + // printf("after get_perm_c: permc_spec %d\n", permc_spec); + + sp_preorder(&options, &A, perm_c, etree, &AC); + + panel_size = sp_ienv(1); + relax = sp_ienv(2); + + dgstrf(&options, &AC, relax, panel_size, etree, NULL, 0, perm_c, perm_r, L, + U, &Glu, &stat, info); + + if (*info == 0) { + Lstore = (SCformat *)L->Store; + Ustore = (NCformat *)U->Store; + printf("No of nonzeros in factor L = %lld\n", (long long)Lstore->nnz); + printf("No of nonzeros in factor U = %lld\n", (long long)Ustore->nnz); + printf("No of nonzeros in L+U = %lld\n", + (long long)Lstore->nnz + Ustore->nnz); + dQuerySpace(L, U, &mem_usage); + printf("L\\U MB %.3f\ttotal MB needed %.3f\n", mem_usage.for_lu / 1e6, + mem_usage.total_needed / 1e6); + } else { + printf("dgstrf() error returns INFO= %lld\n", (long long)*info); + if (*info <= *n) { /* factorization completes */ + dQuerySpace(L, U, &mem_usage); + printf("L\\U MB %.3f\ttotal MB needed %.3f\n", mem_usage.for_lu / 1e6, + mem_usage.total_needed / 1e6); + } + } + + /* Save the LU factors in the factors handle */ + LUfactors = (factors_t *)SUPERLU_MALLOC(sizeof(factors_t)); + LUfactors->L = L; + LUfactors->U = U; + LUfactors->perm_c = perm_c; + LUfactors->perm_r = perm_r; + *f_factors = (fptr)LUfactors; + + /* Free un-wanted storage */ + SUPERLU_FREE(etree); + Destroy_SuperMatrix_Store(&A); + Destroy_CompCol_Permuted(&AC); + SUPERLU_FREE(rowind0); + SUPERLU_FREE(colptr0); + StatFree(&stat); + + } else if (*iopt == 2) { /* Triangular solve */ + int iinfo; + + /* Initialize the statistics variables. */ + StatInit(&stat); + + /* Extract the LU factors in the factors handle */ + LUfactors = (factors_t *)*f_factors; + L = LUfactors->L; + U = LUfactors->U; + perm_c = LUfactors->perm_c; + perm_r = LUfactors->perm_r; + + dCreate_Dense_Matrix(&B, *n, *nrhs, b, *ldb, SLU_DN, SLU_D, SLU_GE); + + /* Solve the system A*X=B, overwriting B with X. */ + dgstrs(trans, L, U, perm_c, perm_r, &B, &stat, &iinfo); + *info = iinfo; + + Destroy_SuperMatrix_Store(&B); + StatFree(&stat); + + } else if (*iopt == 3) { /* Free storage */ + /* Free the LU factors in the factors handle */ + LUfactors = (factors_t *)*f_factors; + SUPERLU_FREE(LUfactors->perm_r); + SUPERLU_FREE(LUfactors->perm_c); + Destroy_SuperNode_Matrix(LUfactors->L); + Destroy_CompCol_Matrix(LUfactors->U); + SUPERLU_FREE(LUfactors->L); + SUPERLU_FREE(LUfactors->U); + SUPERLU_FREE(LUfactors); + } else { + fprintf(stderr, "Invalid iopt=%d passed to c_fortran_dgssv()\n", *iopt); + exit(-1); + } +}