Scrambler  1
thread_declarations.f90
Go to the documentation of this file.
00001 !#########################################################################
00002 !               
00003 !    Copyright (C) 2003-2012 Department of Physics and Astronomy,
00004 !                            University of Rochester,
00005 !                            Rochester, NY
00006 !
00007 !    thread_declarations.f90 is part of AstroBEAR.
00008 !
00009 !    AstroBEAR is free software: you can redistribute it and/or modify    
00010 !    it under the terms of the GNU General Public License as published by 
00011 !    the Free Software Foundation, either version 3 of the License, or    
00012 !    (at your option) any later version.
00013 !
00014 !    AstroBEAR is distributed in the hope that it will be useful, 
00015 !    but WITHOUT ANY WARRANTY; without even the implied warranty of
00016 !    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00017 !    GNU General Public License for more details.
00018 !
00019 !    You should have received a copy of the GNU General Public License
00020 !    along with AstroBEAR.  If not, see <http://www.gnu.org/licenses/>.
00021 !
00022 !#########################################################################
00025 
00029 
00032 module ThreadDeclarations
00033    USE GlobalDeclarations
00034    include 'fpthread.f'
00035    TYPE(fpthread), DIMENSION(:), ALLOCATABLE :: thread_id
00036    TYPE(fpthread) :: control_thread
00037    TYPE(fpthread_attr), DIMENSION(:), ALLOCATABLE :: thread_attr
00038 
00039    TYPE IntStatusPointer
00040       INTEGER, POINTER :: Status
00041    END TYPE IntStatusPointer
00042    INTEGER, DIMENSION(:), ALLOCATABLE :: thread_status, thread_args, thread_priority
00043    SAVE
00044 end module ThreadDeclarations
 All Classes Files Functions Variables