158 lines
No EOL
14 KiB
Fortran
158 lines
No EOL
14 KiB
Fortran
!*================================================================================================*!
|
|
!| |!
|
|
!| /$$$$$$$ /$$ /$$ /$$ /$$ |!
|
|
!| | $$__ $$|__/ | $$ /$ | $$| $$ |!
|
|
!| | $$ \ $$ /$$ /$$$$$$ | $$ /$$$| $$| $$$$$$$ /$$$$$$ /$$$$$$ /$$$$$$ |!
|
|
!| | $$$$$$$ | $$ /$$__ $$ | $$/$$ $$ $$| $$__ $$ /$$__ $$ /$$__ $$ /$$__ $$ |!
|
|
!| | $$__ $$| $$| $$ \ $$ | $$$$_ $$$$| $$ \ $$| $$ \ $$| $$ \ $$| $$ \ $$ |!
|
|
!| | $$ \ $$| $$| $$ | $$ | $$$/ \ $$$| $$ | $$| $$ | $$| $$ | $$| $$ | $$ |!
|
|
!| | $$$$$$$/| $$| $$$$$$$ | $$/ \ $$| $$ | $$| $$$$$$/| $$$$$$/| $$$$$$$/ |!
|
|
!| |_______/ |__/ \____ $$ |__/ \__/|__/ |__/ \______/ \______/ | $$____/ |!
|
|
!| /$$ \ $$ | $$ |!
|
|
!| | $$$$$$/ | $$ |!
|
|
!| \______/ |__/ |!
|
|
!| |!
|
|
!| DESCRIPTION: |!
|
|
!| ------------ |!
|
|
!| |!
|
|
!| DESCRIPTION NEEDED. |!
|
|
!| | | |!
|
|
!| |!
|
|
!| -------------------------------------------------------------------------------------------- |!
|
|
!| Copyright (c) 2023, High Performance Computing Center - University of Stuttgart |!
|
|
!| |!
|
|
!| Redistribution and use in source and binary forms, with or without modification, are |!
|
|
!| permitted provided that the following conditions are met: |!
|
|
!| |!
|
|
!| (1) Redistributions of source code must retain the above copyright notice, this list of |!
|
|
!| conditions and the following disclaimer. |!
|
|
!| |!
|
|
!| (2) Redistributions in binary form must reproduce the above copyright notice, this list |!
|
|
!| of conditions and the following disclaimer in the documentation and/or other |!
|
|
!| materials provided with the distribution. |!
|
|
!| |!
|
|
!| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS “AS IS” AND ANY EXPRESS |!
|
|
!| OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF |!
|
|
!| MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE |!
|
|
!| COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, |!
|
|
!| EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF |!
|
|
!| SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |!
|
|
!| HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR |!
|
|
!| TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, |!
|
|
!| EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |!
|
|
!| |!
|
|
!*================================================================================================*!
|
|
module MODULE_FILE
|
|
!*-----------------------*!
|
|
! DEFINE INT VARIABLES: !
|
|
!*-----------------------*!
|
|
!*-----------------------*!
|
|
! DEFINE FLOAT VARIABLES: !
|
|
!*-----------------------*!
|
|
!*-----------------------*!
|
|
! DEFINE CHAR VARIABLES: !
|
|
!*-----------------------*!
|
|
!*-----------------------*!
|
|
! DEFINE STRUCTS: !
|
|
!*-----------------------*!
|
|
!*--------------------------------------------------------*!
|
|
! COMMENTCOMMENTCOMMENTCOMMENTCOMMENTCOMMENTCOMMENTCOMMENT !
|
|
!*--------------------------------------------------------*!
|
|
!************************************************************************************************!
|
|
!| _ _ _ ____ _ _ _ ___ ____ |!
|
|
!| | |\ | | | | | | \ |___ |!
|
|
!| | | \| |___ |___ |__| |__/ |___ |!
|
|
!| |!
|
|
!************************************************************************************************!
|
|
!************************************************************************************************!
|
|
!| ___ ____ _ _ _ _ ___ _ _ _ ____ ___ _ _ ___ ____ ____ |!
|
|
!| |__] |__/ | |\/| | | | | | |___ | \_/ |__] |___ [__ |!
|
|
!| | | \ | | | | | | \/ |___ | | | |___ ___] |!
|
|
!| |!
|
|
!************************************************************************************************!
|
|
!************************************************************************************************!
|
|
!| _ _ ____ ____ ____ ____ ____ |!
|
|
!| |\/| |__| | |__/ | | [__ |!
|
|
!| | | | | |___ | \ |__| ___] |!
|
|
!| |!
|
|
!************************************************************************************************!
|
|
!************************************************************************************************!
|
|
!| ____ ____ _ _ ____ ___ ____ _ _ ___ ____ |!
|
|
!| | | | |\ | [__ | |__| |\ | | [__ |!
|
|
!| |___ |__| | \| ___] | | | | \| | ___] |!
|
|
!| |!
|
|
!************************************************************************************************!
|
|
!************************************************************************************************!
|
|
!| ____ _ _ ___ ____ ____ _ _ ____ _ _ _ ____ ____ _ ____ ___ _ ____ ____ |!
|
|
!| |___ \/ | |___ |__/ |\ | |__| | | | |__| |__/ | |__| |__] | |___ [__ |!
|
|
!| |___ _/\_ | |___ | \ | \| | | |___ \/ | | | \ | | | |__] |___ |___ ___] |!
|
|
!| |!
|
|
!************************************************************************************************!
|
|
!************************************************************************************************!
|
|
!| ____ _ _ ___ ____ ____ _ _ ____ _ ____ ____ _ _ ____ ___ ____ _ _ ___ ____ |!
|
|
!| |___ \/ | |___ |__/ |\ | |__| | | | | |\ | [__ | |__| |\ | | [__ |!
|
|
!| |___ _/\_ | |___ | \ | \| | | |___ |___ |__| | \| ___] | | | | \| | ___] |!
|
|
!| |!
|
|
!************************************************************************************************!
|
|
!************************************************************************************************!
|
|
!| ____ _ ____ ___ ____ _ ____ ____ _ _ ____ ___ ____ _ _ ___ ____ |!
|
|
!| | __ | | | |__] |__| | | | | |\ | [__ | |__| |\ | | [__ |!
|
|
!| |__] |___ |__| |__] | | |___ |___ |__| | \| ___] | | | | \| | ___] |!
|
|
!| |!
|
|
!************************************************************************************************!
|
|
!************************************************************************************************!
|
|
!| ___ _ _ ___ ____ ____ |!
|
|
!| | \_/ |__] |___ [__ |!
|
|
!| | | | |___ ___] |!
|
|
!| |!
|
|
!************************************************************************************************!
|
|
!************************************************************************************************!
|
|
!| ___ ____ ____ ____ _ _ _ ____ ___ ___ _ _ ___ ____ ____ |!
|
|
!| | \ |___ |__/ |__/ | | | |___ | \ | \_/ |__] |___ [__ |!
|
|
!| |__/ |___ | \ | \ | \/ |___ |__/ | | | |___ ___] |!
|
|
!| |!
|
|
!************************************************************************************************!
|
|
!------------------------------------------------------------------------------------------------!
|
|
! !
|
|
! DESCRIPTION: !
|
|
! ------------ !
|
|
! !
|
|
! DESCRIPTION NEEDED !
|
|
! | | !
|
|
! !
|
|
!------------------------------------------------------------------------------------------------!
|
|
!============================|=========================|==========================================
|
|
!************************************************************************************************!
|
|
!| ___ ____ _ _ _ ____ ___ ____ ____ _ _ _ _ ____ ___ _ ____ _ _ ____ |!
|
|
!| |__] |__/ | | | |__| | |___ |___ | | |\ | | | | | | |\ | [__ |!
|
|
!| | | \ | \/ | | | |___ | |__| | \| |___ | | |__| | \| ___] |!
|
|
!| |!
|
|
!************************************************************************************************!
|
|
!************************************************************************************************!
|
|
!| ___ _ _ ___ _ _ ____ ____ _ _ _ _ ____ ___ _ ____ _ _ ____ |!
|
|
!| |__] | | |__] | | | |___ | | |\ | | | | | | |\ | [__ |!
|
|
!| | |__| |__] |___ | |___ | |__| | \| |___ | | |__| | \| ___] |!
|
|
!| |!
|
|
!************************************************************************************************!
|
|
!------------------------------------------------------------------------------------------------!
|
|
! !
|
|
! DESCRIPTION: !
|
|
! ------------ !
|
|
! !
|
|
! DESCRIPTION NEEDED !
|
|
! | | !
|
|
! !
|
|
! ARGUMENTS: !
|
|
! ---------- !
|
|
! Name Description !
|
|
! ---- ----------- !
|
|
! - - !
|
|
! !
|
|
! RETURN: !
|
|
! ------- !
|
|
! - !
|
|
! !
|
|
!------------------------------------------------------------------------------------------------!
|
|
!===========|==========================|======================|======|=======|====================
|
|
!=================================================================================================
|
|
end module MODULE_FILE |