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