include file: SIGM 1
*IF DEF,A19_2A                                                             SIGM.2      
      REAL                                                                 SIGM.3      
     + POW                        ! Power in sigmoidal function.           SIGM.4      
      PARAMETER(POW = 20.0)                                                SIGM.5      
*ENDIF                                                                     SIGM.6