blob: c78230f6e042708decd2b46d8497a8c794f97be3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
*DECK LIBND5
SUBROUTINE LIBND5(CFILNA,NEL)
*
*-----------------------------------------------------------------------
*
*Purpose:
* Initialize dimensions for depletion data with NDAS library files.
*
*Copyright:
* Copyright (C) 2006 Ecole Polytechnique de Montreal
*
*Author(s): A. Hebert
*
*Parameters: input
* CFILNA NDAS file name.
*
*Parameters: output
* NEL number of isotopes on library.
*
*Reference:
* Copyright (C) from NDAS Atomic Energy of Canada Limited utility (2006)
*
*-----------------------------------------------------------------------
*
USE FSDF
IMPLICIT NONE
*----
* SUBROUTINE ARGUMENTS
*----
CHARACTER CFILNA*(*)
INTEGER NEL
*----
* Local variables
*----
CHARACTER TEXT12*12
INTEGER IND,IERR,HEADER(16),IHEAD(200)
*----
* PROBE AND OPEN THE NDAS FILE.
*----
CALL XSDOPN(CFILNA,IERR)
IF(IERR.NE.0) THEN
TEXT12=CFILNA
CALL XABORT('LIBND5: NDAS library '//TEXT12//' cannot be'//
> ' opened')
ENDIF
CALL XSDBLD(6001,HEADER,IERR)
IF(IERR.NE.0) CALL XABORT('LIBND5: XSDBLD could not read library'
> //' parameters')
NEL=0
DO IND=1,HEADER(1)
* Load nuclide header
CALL XSDISO(7000,6001,IND,IHEAD,IERR)
IF(IHEAD(1).NE.0) NEL=NEL+1
ENDDO
CALL XSDCL()
RETURN
END
|
