C                  INTERNATIONAL AVS CENTER
C        (This disclaimer must remain at the top of all files)
C
C WARRANTY DISCLAIMER
C
C This module and the files associated with it are distributed free of charge.
C It is placed in the public domain and permission is granted for anyone to use,
C duplicate, modify, and redistribute it unless otherwise noted.  Some modules
C may be copyrighted.  You agree to abide by the conditions also included in
C the AVS Licensing Agreement, version 1.0, located in the main module
C directory located at the International AVS Center ftp site and to include
C the AVS Licensing Agreement when you distribute any files downloaded from
C that site.
C
C The International AVS Center, MCNC, the AVS Consortium and the individual
C submitting the module and files associated with said module provide absolutely
C NO WARRANTY OF ANY KIND with respect to this software.  The entire risk as to
C the quality and performance of this software is with the user.  IN NO EVENT
C WILL The International AVS Center, MCNC, the AVS Consortium and the individual
C submitting the module and files associated with said module BE LIABLE TO
C ANYONE FOR ANY DAMAGES ARISING FROM THE USE OF THIS SOFTWARE, INCLUDING,
C WITHOUT LIMITATION, DAMAGES RESULTING FROM LOST DATA OR LOST PROFITS, OR ANY
C SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES.
C
C This AVS module and associated files are public domain software unless
C otherwise noted.  Permission is hereby granted to do whatever you like with
C it, subject to the conditions that may exist in copyrighted materials. Should
C you wish to make a contribution toward the improvement, modification, or
C general performance of this module, please send us your comments:  why you
C liked or disliked it, how you use it, and most important, how it helps your
C work. We will receive your comments at avs@ncsc.org.
C
C Please send AVS module bug reports to avs@ncsc.org.
C
C	"@(#)readh.f	1.1 Stardent 90/03/23"
C			Copyright (c) 1989 by
C			Stardent Computer Inc.
C			All Rights Reserved
C	
C	This software comprises unpublished confidential information of
C	Stardent Computer Inc. and may not be used, copied or made
C	available to anyone, except in accordance with the license
C	under which it is furnished.
C	
C	This file is under sccs control at Stardent in:
C	/sccs/avs/user_modules/data/read_dyna3d/src/s.readh.f
C	
C	


c     *--------------------------------------------------------*
c     *                                                        *
c     *           ****  read_header  ****                      *
c     *                                                        *
c     * readh.f                                                *
c     *--------------------------------------------------------*

      subroutine read_header (file_name, title, num_nodes, num_3d_elems, 
     &           num_1d_elems, num_2d_elems, num_node_data, 
     &           num_states, bin_file)

      include 'read_dyna3d.h'

      character*(*) file_name

      character title*80

      integer num_nodes, num_1d_elems, num_2d_elems, num_3d_elems, 
     &     num_node_data, elem_1d, elem_2d, elem_3d, nodes, malloc, 
     &     node_data, num_states, bin_file
     

      character*80 line, prev_line

      integer check_file$

c     **************
c     ***  body  ***
c     **************

      bin_file = check_file$(file_name) 

      if (bin_file) then
	write (0, *) '******  bin file'

        open (unit = input, file = file_name, form = 'unformatted')

        read (input) title

        read (input) num_nodes, num_node_data, num_1d_elems, 
     &     num_2d_elems, num_3d_elems, num_states 
      else
        open (unit = input, file = file_name)

	do while (1)
          read (input, 1000, end = 10) line 
	  prev_line = line
        end do

10      continue

        read (prev_line, *) num_states 
	rewind input

	read (input, *) title 

	read (input, *) num_nodes, num_3d_elems, num_1d_elems, num_2d_elems  


c       read the number of data values per node. there are always displacements.

	read (input, *) num_node_data 
      end if

      write (0, *) 'title:', title 
      write (0, *) 'nodes brick shell beam:', num_nodes, num_3d_elems, 
     &              num_2d_elems, num_1d_elems,num_states

1000  format (a80)
      return
      end