1 INTEGER NWP,NELEM,NCH,NSDV
2 PARAMETER (NELEM=1,NSDV=2)
3 DOUBLE PRECISION ONE, TWO, THREE, FOUR, SIX, ZERO
4 PARAMETER (ZERO=0.D0, ONE=1.0D0,TWO=2.0D0)
5 PARAMETER (THREE=3.0D0,FOUR=4.0D0,SIX=6.0D0)
6 CHARACTER(256) DIR1,DIR2,DIR3
7 PARAMETER (DIR1='fibers.inp')