Donjon/data/Test4x4coupl_nompi_proc/Pmac.c2m


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

!
! PROCEDURE:  Pmac                                                   
! USAGE:      Macrolib construction for a fixed material
! AUTHOR:     E.Varin (97/08/11)                                     
! CALL:                                   
!
!  MACRO := Pmac    ;
!
! NOTES:
!    All the sequential ASCII files are exported COMPO files
!    and must have the names and directory hierarchy as used
!    in the calling to CRE: module
!
 PARAMETER   MACRO ::
  ::: LINKED_LIST MACRO ;  ;
 LINKED_LIST NREFL ;
 SEQ_ASCII   REFLn ::
    FILE 'REFLn' ;
 MODULE      CRE: END: ;
*
 NREFL  := REFLn     ; 
 MACRO := CRE: NREFL ::  NMIX 2  READ  
       COMPO NREFL   MIX    2      'MIXTMOD    1'  ENDMIX ;
 END: ;