2013-03-22 23:05:05 +05:30
|
|
|
! Copyright 2011-13 Max-Planck-Institut für Eisenforschung GmbH
|
2012-04-10 19:00:34 +05:30
|
|
|
!
|
|
|
|
|
! This file is part of DAMASK,
|
|
|
|
|
! the Düsseldorf Advanced MAterial Simulation Kit.
|
|
|
|
|
!
|
|
|
|
|
! DAMASK is free software: you can redistribute it and/or modify
|
|
|
|
|
! it under the terms of the GNU General Public License as published by
|
|
|
|
|
! the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
! (at your option) any later version.
|
|
|
|
|
!
|
|
|
|
|
! DAMASK is distributed in the hope that it will be useful,
|
|
|
|
|
! but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
! GNU General Public License for more details.
|
|
|
|
|
!
|
|
|
|
|
! You should have received a copy of the GNU General Public License
|
|
|
|
|
! along with DAMASK. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
!
|
|
|
|
|
!##################################################################################################
|
2012-05-22 18:15:37 +05:30
|
|
|
!* $Id$
|
2012-04-10 19:00:34 +05:30
|
|
|
!##################################################################################################
|
|
|
|
|
! Material subroutine for BVP solution using spectral method
|
|
|
|
|
!
|
|
|
|
|
! Run 'DAMASK_spectral.exe --help' to get usage hints
|
|
|
|
|
!
|
|
|
|
|
! written by P. Eisenlohr,
|
|
|
|
|
! F. Roters,
|
|
|
|
|
! L. Hantcherli,
|
|
|
|
|
! W.A. Counts,
|
|
|
|
|
! D.D. Tjahjanto,
|
|
|
|
|
! C. Kords,
|
|
|
|
|
! M. Diehl,
|
|
|
|
|
! R. Lebensohn
|
|
|
|
|
!
|
|
|
|
|
! MPI fuer Eisenforschung, Duesseldorf
|
|
|
|
|
!********************************************************************
|
|
|
|
|
! quit subroutine to satisfy IO_error
|
|
|
|
|
!
|
|
|
|
|
!********************************************************************
|
|
|
|
|
subroutine quit(stop_id)
|
|
|
|
|
use prec, only: &
|
|
|
|
|
pInt
|
|
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
integer(pInt), intent(in) :: stop_id
|
|
|
|
|
|
|
|
|
|
end subroutine
|
