Changeset 2300


Ignore:
Timestamp:
Jun 29, 2017 1:31:14 PM (7 years ago)
Author:
raasch
Message:

NEC related code partly removed, host variable partly removed, host specific code completely removed, default values for host, loop_optimization and termination time_needed changed

Location:
palm/trunk/SOURCE
Files:
12 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/advec_s_bc.f90

    r2292 r2300  
    2525! -----------------
    2626! $Id$
     27! NEC related code removed
     28!
     29! 2292 2017-06-20 09:51:42Z schwenkel
    2730! Implementation of new microphysic scheme: cloud_scheme = 'morrison'
    2831! includes two more prognostic equations for cloud drop concentration (nc) 
     
    182185       REAL(wp) ::  im     !<
    183186       REAL(wp) ::  ip     !<
     187       REAL(wp) ::  m1n    !<
     188       REAL(wp) ::  m1z    !<
    184189       REAL(wp) ::  m2     !<
    185190       REAL(wp) ::  m3     !<
     
    213218       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  ippb !<
    214219       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  ippe !<
     220       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  m1   !<
     221       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  sw   !<
    215222       
    216223       REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  sk_p !<
    217 
    218 #if defined( __nec )
    219        REAL(sp) ::  m1n, m1z  !< important for optimisation of division
    220        REAL(sp), DIMENSION(:,:), ALLOCATABLE :: m1, sw !<
    221 #else
    222        REAL(wp) ::  m1n, m1z
    223        REAL(wp), DIMENSION(:,:), ALLOCATABLE :: m1, sw
    224 #endif
    225 
    226224
    227225!
  • palm/trunk/SOURCE/check_open.f90

    r2298 r2300  
    2525! -----------------
    2626! $Id$
     27! -host
     28!
     29! 2298 2017-06-29 09:28:18Z raasch
    2730! -return_addres, return_username, avs_coor_file_..., avs_data_file_...,
    2831! cross_ts_numbers, cross_ts_number_count
     
    139142
    140143    USE control_parameters,                                                    &
    141         ONLY:  coupling_char, data_output_2d_on_each_pe, host, max_masks,      &
     144        ONLY:  coupling_char, data_output_2d_on_each_pe, max_masks,            &
    142145               message_string, mid, nz_do3d, openfile, run_description_header, &
    143146               runnr
  • palm/trunk/SOURCE/check_parameters.f90

    r2292 r2300  
    2525! -----------------
    2626! $Id$
     27! host-specific settings and checks removed
     28!
     29! 2292 2017-06-20 09:51:42Z schwenkel
    2730! Implementation of new microphysic scheme: cloud_scheme = 'morrison'
    2831! includes two more prognostic equations for cloud drop concentration (nc) 
     
    563566
    564567!
    565 !-- Warning, if host is not set
    566     IF ( host(1:1) == ' ' )  THEN
    567        message_string = '"host" is not set. Please check that environment ' // &
    568                         'variable "localhost" & is set before running PALM'
    569        CALL message( 'check_parameters', 'PA0001', 0, 0, 0, 6, 0 )
    570     ENDIF
    571 
    572 !
    573568!-- Check the coupling mode
    574569!> @todo Check if any queries for other coupling modes (e.g. precursor_ocean) are missing
     
    805800!
    806801!-- Check the general loop optimization method
    807     IF ( loop_optimization == 'default' )  THEN
    808        IF ( host(1:3) == 'nec' )  THEN
    809           loop_optimization = 'vector'
    810        ELSE
    811           loop_optimization = 'cache'
    812        ENDIF
    813     ENDIF
    814 
    815802    SELECT CASE ( TRIM( loop_optimization ) )
    816803
     
    38303817
    38313818!
    3832 !-- Set default value of the time needed to terminate a model run
    3833     IF ( termination_time_needed == -1.0_wp )  THEN
    3834        IF ( host(1:3) == 'ibm' )  THEN
    3835           termination_time_needed = 300.0_wp
    3836        ELSE
    3837           termination_time_needed = 35.0_wp
    3838        ENDIF
    3839     ENDIF
    3840 
    3841 !
    38423819!-- Check pressure gradient conditions
    38433820    IF ( dp_external  .AND.  conserve_volume_flow )  THEN
  • palm/trunk/SOURCE/close_file.f90

    r2277 r2300  
    2525! -----------------
    2626! $Id$
     27! -host
     28!
     29! 2277 2017-06-12 10:47:51Z kanani
    2730! Removed unused variables do2d_xy_n, do2d_xz_n, do2d_yz_n, do3d_avs_n
    2831!
     
    7982
    8083    USE control_parameters,                                                    &
    81         ONLY:  host, max_masks,                                                &
    82                mid, nz_do3d, openfile, run_description_header, z_max_do2d
     84        ONLY:  max_masks, mid, nz_do3d, openfile, run_description_header,      &
     85               z_max_do2d
    8386               
    8487    USE grid_variables,                                                        &
  • palm/trunk/SOURCE/disturb_field.f90

    r2233 r2300  
    2525! -----------------
    2626! $Id$
     27! NEC related code removed
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2730!
    2831! 2232 2017-05-30 17:47:52Z suehring
     
    165168          DO  j = dist_nys(dist_range), dist_nyn(dist_range)
    166169             DO  k = disturbance_level_ind_b, disturbance_level_ind_t
    167 #if defined( __nec )
    168                 randomnumber = 3.0_wp * disturbance_amplitude *                &
    169                                ( RANDOM( 0 ) - 0.5_wp )
    170 #else
    171170                CALL RANDOM_NUMBER( randomnumber )
    172171                randomnumber = 3.0_wp * disturbance_amplitude *                &
    173172                                ( randomnumber - 0.5_wp )
    174 #endif
    175173                IF ( nxl <= i .AND. nxr >= i .AND. nys <= j .AND. nyn >= j )   &
    176174                THEN
  • palm/trunk/SOURCE/fft_xy_mod.f90

    r2274 r2300  
    2525! -----------------
    2626! $Id$
     27! NEC related code partly removed, host replaced by loop_optimization
     28!
     29! 2274 2017-06-09 13:27:48Z Giersch
    2730! Changed error messages
    2831!
     
    15381541       INTEGER(iwp) ::  k     !<
    15391542       INTEGER(iwp) ::  siza  !<
     1543       INTEGER(iwp) ::  sizw  !< required on NEC only
    15401544
    15411545       REAL(wp), DIMENSION(0:nx,nz)       ::  ar     !<
     
    15431547       REAL(wp), DIMENSION(6*(nx+4),nz+1) ::  work1  !<
    15441548       
    1545 #if defined( __nec )
    1546        INTEGER(iwp) ::  sizw  !<
    1547        
    1548        COMPLEX(wp), DIMENSION((nx+4)/2+1,nz+1) ::  work  !<
    1549 #endif
     1549       COMPLEX(wp), DIMENSION(:,:), ALLOCATABLE ::  work  !< required on NEC only
    15501550
    15511551       IF ( fft_method == 'temperton-algorithm' )  THEN
     
    15911591
    15921592#if defined( __nec )
     1593          ALLOCATE( work((nx+4)/2+1,nz+1) )
    15931594          siza = SIZE( ai, 1 )
    15941595          sizw = SIZE( work, 1 )
     
    16451646          ENDIF
    16461647
     1648          DEALLOCATE( work )
    16471649#else
    16481650          message_string = 'no system-specific fft-call available'
     
    16801682       INTEGER(iwp) ::  ny1   !<
    16811683       INTEGER(iwp) ::  siza  !<
     1684       INTEGER(iwp) ::  sizw  !< required on NEC only
    16821685
    16831686       REAL(wp), DIMENSION(0:ny1,nz)      ::  ar     !<
     
    16851688       REAL(wp), DIMENSION(6*(ny+4),nz+1) ::  work1  !<
    16861689       
    1687 #if defined( __nec )
    1688        INTEGER(iwp) ::  sizw  !<
    1689        
    1690        COMPLEX(wp), DIMENSION((ny+4)/2+1,nz+1) ::  work !<
    1691 #endif
     1690       COMPLEX(wp), DIMENSION(:,:), ALLOCATABLE ::  work !< required on NEC only
     1691
    16921692
    16931693       IF ( fft_method == 'temperton-algorithm' )  THEN
     
    17331733
    17341734#if defined( __nec )
     1735          ALLOCATE( work((ny+4)/2+1,nz+1) )
    17351736          siza = SIZE( ai, 1 )
    17361737          sizw = SIZE( work, 1 )
     
    17871788          ENDIF
    17881789
     1790          DEALLOCATE( work )
    17891791#else
    17901792          message_string = 'no system-specific fft-call available'
  • palm/trunk/SOURCE/header.f90

    r2299 r2300  
    2525! -----------------
    2626! $Id$
     27! host-specific code removed
     28!
     29! 2299 2017-06-29 10:14:38Z maronga
    2730! Modified output for spinups
    2831!
     
    537540                          threads_per_task, pdims(1), pdims(2), TRIM( char1 )
    538541    ENDIF
    539     IF ( ( host(1:3) == 'ibm'  .OR.  host(1:3) == 'nec'  .OR.    &
    540            host(1:2) == 'lc'   .OR.  host(1:3) == 'dec' )  .AND. &
    541          npex == -1  .AND.  pdims(2) == 1 )                      &
    542     THEN
    543        WRITE ( io, 106 )
    544     ELSEIF ( pdims(2) == 1 )  THEN
     542
     543    IF ( pdims(2) == 1 )  THEN
    545544       WRITE ( io, 107 )  'x'
    546545    ELSEIF ( pdims(1) == 1 )  THEN
     
    19531952              35X,'Processor grid (x,y): (',I4,',',I4,')',1X,A)
    19541953105 FORMAT (35X,'One additional PE is used to handle'/37X,'the dvrp output!')
    1955 106 FORMAT (35X,'A 1d-decomposition along x is forced'/ &
    1956             35X,'because the job is running on an SMP-cluster')
    19571954107 FORMAT (35X,'A 1d-decomposition along ',A,' is used')
    19581955108 FORMAT (35X,'Max. # of parallel I/O streams is ',I5)
  • palm/trunk/SOURCE/init_dvrp.f90

    r2298 r2300  
    2525! -----------------
    2626! $Id$
     27! NEC related cpp directives removed
     28!
     29! 2298 2017-06-29 09:28:18Z raasch
    2730! MPI2 related part removed
    2831!
     
    849852       CALL DVRP_LOG_EVENT( -1, 1 )   ! Logging of total cpu-time used by PALM
    850853       IF ( use_seperate_pe_for_dvrp_output )  THEN
    851 #ifndef __nec
    852854          CALL DVRP_SPLIT_EXIT( 1 )      ! Argument 0: reduced output
    853 #endif
    854855       ELSE
    855856          CALL DVRP_LOG_EXIT( 1 )        ! Argument 0: reduced output
  • palm/trunk/SOURCE/init_pegrid.f90

    r2298 r2300  
    2525! -----------------
    2626! $Id$
     27! host-specific settings removed
     28!
     29! 2298 2017-06-29 09:28:18Z raasch
    2730! MPI2 related parts removed
    2831!
     
    193196        ONLY:  bc_lr, bc_ns, coupling_mode, coupling_mode_remote,              &
    194197               coupling_topology, gathered_size, grid_level,                   &
    195                grid_level_count, host, inflow_l, inflow_n, inflow_r, inflow_s, &
     198               grid_level_count, inflow_l, inflow_n, inflow_r, inflow_s,      &
    196199               io_blocks, io_group, maximum_grid_level,                        &
    197200               maximum_parallel_io_streams, message_string,                    &
     
    315318
    316319!
    317 !-- For communication speedup, set barriers in front of collective
    318 !-- communications by default on SGI-type systems
    319     IF ( host(3:5) == 'sgi' )  collective_wait = .TRUE.
    320 
    321 !
    322320!-- If necessary, set horizontal boundary conditions to non-cyclic
    323321    IF ( bc_lr /= 'cyclic' )  cyclic(1) = .FALSE.
  • palm/trunk/SOURCE/modules.f90

    r2298 r2300  
    2525! -----------------
    2626! $Id$
     27! default value for host changed to '????', default value for loop_optimization
     28! changed to 'cache', default value for termination_time_needed set to 35.0
     29!
     30! 2298 2017-06-29 09:28:18Z raasch
    2731! missing variable descriptions have been added,
    2832! type of write_binary changed from CHARACTER to LOGICAL
     
    950954    CHARACTER (LEN=12)   ::  user_interface_required_revision = ' '       !< required user-interface revision number
    951955    CHARACTER (LEN=16)   ::  conserve_volume_flow_mode = 'default'        !< namelist parameter
    952     CHARACTER (LEN=16)   ::  loop_optimization = 'default'                !< namelist parameter
     956    CHARACTER (LEN=16)   ::  loop_optimization = 'cache'                  !< namelist parameter
    953957    CHARACTER (LEN=16)   ::  momentum_advec = 'ws-scheme'                 !< namelist parameter
    954958    CHARACTER (LEN=16)   ::  psolver = 'poisfft'                          !< namelist parameter
     
    981985    CHARACTER (LEN=20)   ::  timestep_scheme = 'runge-kutta-3'            !< namelist parameter       
    982986    CHARACTER (LEN=40)   ::  topography = 'flat'                          !< namelist parameter
    983     CHARACTER (LEN=64)   ::  host = ' '                                   !< hostname on which PALM is running, ENVPAR namelist parameter provided by mrun
     987    CHARACTER (LEN=64)   ::  host = '????'                                !< hostname on which PALM is running, ENVPAR namelist parameter provided by mrun
    984988    CHARACTER (LEN=80)   ::  log_message                                  !< user-defined message for debugging (sse data_log.f90)
    985989    CHARACTER (LEN=80)   ::  run_identifier                               !< run identifier as given by mrun option -d, ENVPAR namelist parameter provided by mrun
     
    13371341    REAL(wp) ::  s_surface = 0.0_wp                            !< namelist parameter
    13381342    REAL(wp) ::  s_surface_initial_change = 0.0_wp             !< namelist parameter
    1339     REAL(wp) ::  termination_time_needed = -1.0_wp             !< namelist parameter
     1343    REAL(wp) ::  termination_time_needed = 35.0_wp             !< namelist parameter
    13401344    REAL(wp) ::  time_coupling = 0.0_wp                        !< time since last coupling (surface_coupler)
    13411345    REAL(wp) ::  time_disturb = 0.0_wp                         !< time since last flow disturbance
  • palm/trunk/SOURCE/poisfft_mod.f90

    r2119 r2300  
    2525! -----------------
    2626! $Id$
     27! settings depending on host variable removed or replaced by loop_optimization
     28!
     29! 2119 2017-01-17 16:51:50Z raasch
    2730!
    2831! 2118 2017-01-17 16:38:49Z raasch
     
    715718    SUBROUTINE ffty_tr_yx( f_in, f_out )
    716719
    717 
    718720       USE control_parameters,                                                 &
    719            ONLY:  host
     721           ONLY:  loop_optimization
    720722
    721723       USE cpulog,                                                             &
     
    737739       INTEGER(iwp), PARAMETER ::  stridex = 4  !<
    738740
    739        REAL(wp), DIMENSION(0:ny,stridex)        ::  work_ffty      !<
    740 #if defined( __nec )
    741        REAL(wp), DIMENSION(0:ny+1,1:nz,nxl:nxr) ::  work_ffty_vec  !<
    742 #endif
    743741       REAL(wp), DIMENSION(1:nz,0:ny,nxl:nxr)             ::  f_in   !<
    744742       REAL(wp), DIMENSION(nnx,1:nz,nys_x:nyn_x,pdims(1)) ::  f_out  !<
    745743       REAL(wp), DIMENSION(nxl:nxr,1:nz,0:ny)             ::  work   !<
     744
     745       REAL(wp), DIMENSION(:,:), ALLOCATABLE   ::  work_ffty      !<
     746       REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  work_ffty_vec  !<
    746747
    747748!
     
    751752       CALL cpu_log( log_point_s(7), 'fft_y_1d', 'start' )
    752753
    753        IF ( host(1:3) == 'nec' )  THEN
    754 #if defined( __nec )
     754       IF ( loop_optimization == 'vector' )  THEN
     755
     756          ALLOCATE( work_ffty_vec(0:ny+1,1:nz,nxl:nxr) )
    755757!
    756758!--       Code optimized for vector processors
    757 !$OMP    PARALLEL PRIVATE ( i, j, k )
    758 !$OMP    DO
     759          !$OMP PARALLEL PRIVATE ( i, j, k )
     760          !$OMP DO
    759761          DO  i = nxl, nxr
    760762
     
    769771          ENDDO
    770772
    771 !$OMP    DO
     773          !$OMP DO
    772774          DO  k = 1, nz
    773775             DO  j = 0, ny
     
    777779             ENDDO
    778780          ENDDO
    779 !$OMP     END PARALLEL
    780 #endif
     781          !$OMP END PARALLEL
     782
     783          DEALLOCATE( work_ffty_vec )
    781784
    782785       ELSE
    783 
    784786!
    785787!--       Cache optimized code.
     788          ALLOCATE( work_ffty(0:ny,stridex) )
     789!
    786790!--       The i-(x-)direction is split into a strided outer loop and an inner
    787791!--       loop for better cache performance
    788 !$OMP    PARALLEL PRIVATE (i,iend,iouter,ir,j,k,work_ffty)
    789 !$OMP    DO
     792          !$OMP PARALLEL PRIVATE (i,iend,iouter,ir,j,k,work_ffty)
     793          !$OMP DO
    790794          DO  iouter = nxl, nxr, stridex
    791795
     
    817821
    818822          ENDDO
    819 !$OMP     END PARALLEL
     823          !$OMP END PARALLEL
     824
     825          DEALLOCATE( work_ffty )
    820826
    821827       ENDIF
     828
    822829       CALL cpu_log( log_point_s(7), 'fft_y_1d', 'pause' )
    823830
     
    844851    SUBROUTINE tr_xy_ffty( f_in, f_out )
    845852
    846 
    847853       USE control_parameters,                                                 &
    848            ONLY:  host
     854           ONLY:  loop_optimization
    849855
    850856       USE cpulog,                                                             &
     
    866872       INTEGER(iwp), PARAMETER ::  stridex = 4  !<
    867873
    868        REAL(wp), DIMENSION(0:ny,stridex)        ::  work_ffty      !<
    869 #if defined( __nec )
    870        REAL(wp), DIMENSION(0:ny+1,1:nz,nxl:nxr) ::  work_ffty_vec  !<
    871 #endif
    872874       REAL(wp), DIMENSION(nnx,1:nz,nys_x:nyn_x,pdims(1)) ::  f_in   !<
    873875       REAL(wp), DIMENSION(1:nz,0:ny,nxl:nxr)             ::  f_out  !<
    874876       REAL(wp), DIMENSION(nxl:nxr,1:nz,0:ny)             ::  work   !<
     877
     878       REAL(wp), DIMENSION(:,:), ALLOCATABLE   ::  work_ffty         !<
     879       REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  work_ffty_vec     !<
    875880
    876881!
     
    890895       CALL cpu_log( log_point_s(7), 'fft_y_1d', 'continue' )
    891896
    892        IF ( host(1:3) == 'nec' )  THEN
    893 #if defined( __nec )
     897       IF ( loop_optimization == 'vector' )  THEN
     898
     899          ALLOCATE( work_ffty_vec(0:ny+1,1:nz,nxl:nxr) )
    894900!
    895901!--       Code optimized for vector processors
    896 !$OMP    PARALLEL PRIVATE ( i, j, k )
    897 !$OMP    DO
     902          !$OMP PARALLEL PRIVATE ( i, j, k )
     903          !$OMP DO
    898904          DO  k = 1, nz
    899905             DO  j = 0, ny
     
    904910          ENDDO
    905911
    906 !$OMP    DO
     912          !$OMP DO
    907913          DO  i = nxl, nxr
    908914
     
    916922
    917923          ENDDO
    918 !$OMP     END PARALLEL
    919 #endif
     924          !$OMP END PARALLEL
     925
     926          DEALLOCATE( work_ffty_vec )
    920927
    921928       ELSE
    922 
    923929!
    924930!--       Cache optimized code.
     931          ALLOCATE( work_ffty(0:ny,stridex) )
     932!
    925933!--       The i-(x-)direction is split into a strided outer loop and an inner
    926934!--       loop for better cache performance
    927 !$OMP    PARALLEL PRIVATE ( i, iend, iouter, ir, j, k, work_ffty )
    928 !$OMP    DO
     935          !$OMP PARALLEL PRIVATE ( i, iend, iouter, ir, j, k, work_ffty )
     936          !$OMP DO
    929937          DO  iouter = nxl, nxr, stridex
    930938
     
    955963
    956964          ENDDO
    957 !$OMP     END PARALLEL
     965          !$OMP END PARALLEL
     966
     967          DEALLOCATE( work_ffty )
    958968
    959969       ENDIF
     
    976986    SUBROUTINE fftx_tri_fftx( ar )
    977987
    978 
    979988       USE control_parameters,                                                 &
    980            ONLY:  host
     989           ONLY:  loop_optimization
    981990
    982991       USE cpulog,                                                             &
     
    10161025!$        tn = omp_get_thread_num()
    10171026
    1018           IF ( host(1:3) == 'nec' )  THEN
     1027          IF ( loop_optimization == 'vector' )  THEN
    10191028!
    10201029!--          Code optimized for vector processors
     
    10601069          CALL tridia_1dd( ddx2, ddy2, nx, ny, j, work_trix, tri(:,:,:,tn) )
    10611070
    1062           IF ( host(1:3) == 'nec' )  THEN
     1071          IF ( loop_optimization == 'vector' )  THEN
    10631072!
    10641073!--          Code optimized for vector processors
     
    11231132
    11241133       USE control_parameters,                                                 &
    1125            ONLY:  host
     1134           ONLY:  loop_optimization
    11261135
    11271136       USE cpulog,                                                             &
     
    11491158       CALL cpu_log( log_point_s(4), 'fft_x_1d', 'start' )
    11501159
    1151        IF ( host(1:3) == 'nec' )  THEN
     1160       IF ( loop_optimization == 'vector' )  THEN
    11521161!
    11531162!--       Code for vector processors
     
    12361245
    12371246       USE control_parameters,                                                 &
    1238            ONLY:  host
     1247           ONLY:  loop_optimization
    12391248
    12401249       USE cpulog,                                                             &
     
    12731282       CALL cpu_log( log_point_s(4), 'fft_x_1d', 'continue' )
    12741283
    1275        IF ( host(1:3) == 'nec' )  THEN
     1284       IF ( loop_optimization == 'vector' )  THEN
    12761285!
    12771286!--       Code optimized for vector processors
     
    13491358
    13501359       USE control_parameters,                                                 &
    1351            ONLY:  host
     1360           ONLY:  loop_optimization
    13521361
    13531362       USE cpulog,                                                             &
     
    13871396!$        tn = omp_get_thread_num()
    13881397
    1389           IF ( host(1:3) == 'nec' )  THEN
     1398          IF ( loop_optimization == 'vector' )  THEN
    13901399!
    13911400!--          Code optimized for vector processors
     
    14311440          CALL tridia_1dd( ddy2, ddx2, ny, nx, i, work_triy, tri(:,:,:,tn) )
    14321441
    1433           IF ( host(1:3) == 'nec' )  THEN
     1442          IF ( loop_optimization == 'vector' )  THEN
    14341443!
    14351444!--          Code optimized for vector processors
  • palm/trunk/SOURCE/temperton_fft_mod.f90

    r1851 r2300  
    99! -----------------
    1010! $Id$
     11! NEC related CPP directives removed
     12!
     13! 1851 2016-04-08 13:32:50Z maronga
    1114!
    1215! 1850 2016-04-08 13:29:27Z maronga
     
    5154
    5255
    53     INTEGER(iwp)          ::  nfax(10)   !< array used by *fft991*.
     56    INTEGER(iwp)            ::  nfax(10)    !< array used by *fft991*.
     57    INTEGER(iwp), PARAMETER ::  nfft =  32  !< maximum length of calls to *fft
     58    INTEGER(iwp), PARAMETER ::  nout =   6  !< standard output stream
     59
    5460    REAL(wp), ALLOCATABLE ::  trig(:)    !< array used by *fft991*.
    55 
    56 !
    57 !-- nfft: maximum length of calls to *fft.
    58 #if defined( __nec )
    59     INTEGER(iwp), PARAMETER ::  nfft = 256  !<
    60 #else
    61     INTEGER(iwp), PARAMETER ::  nfft =  32  !<
    62 #endif
    63 
    64     INTEGER(iwp), PARAMETER ::  nout =   6  !< standard output stream
    6561
    6662CONTAINS
Note: See TracChangeset for help on using the changeset viewer.