1 ! This software is Copyright (c) 2012-2015 The Regents of the 2 ! University of California. All Rights Reserved. 3 ! 4 ! Permission to copy and modify this software and its documentation 5 ! for educational, research and non-profit purposes, without fee, 6 ! and without a written agreement is hereby granted, provided that 7 ! the above copyright notice, this paragraph and the following three 8 ! paragraphs appear in all copies. 9 ! 10 ! Permission to make commercial use of this software may be obtained 11 ! by contacting: 12 ! Technology Transfer Office 13 ! 9500 Gilman Drive, Mail Code 0910 14 ! University of California 15 ! La Jolla, CA 92093-0910 16 ! (858) 534-5815 17 ! invent@ucsd.edu 18 ! 19 ! This software program and documentation are copyrighted by The 20 ! Regents of the University of California. The software program and 21 ! documentation are supplied "as is", without any accompanying 22 ! services from The Regents. The Regents does not warrant that the 23 ! operation of the program will be uninterrupted or error-free. The 24 ! end-user understands that the program was developed for research 25 ! purposes and is advised not to rely exclusively on the program for 26 ! any reason. 27 ! 28 ! IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY 29 ! PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL 30 ! DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF THIS 31 ! SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF 32 ! CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 33 ! THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY 34 ! WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 35 ! OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE 36 ! SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" BASIS, AND THE 37 ! UNIVERSITY OF CALIFORNIA HAS NO OBLIGATIONS TO PROVIDE 38 ! MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. 39 40 USE ISO_FORTRAN_ENV 41 42 IMPLICIT NONE 43 44 INCLUDE "mpif.h" 45 INCLUDE "svLS_STRUCT.h" 46 47 ! Communication parameters 48 INTEGER, PARAMETER :: stdout = OUTPUT_UNIT 49 INTEGER, PARAMETER :: 50 2 mplog = MPI_LOGICAL, mpint = MPI_INTEGER, 51 3 mpreal = MPI_DOUBLE_PRECISION, mpchar = MPI_CHARACTER 52