forked from m3g/packmol
-
Notifications
You must be signed in to change notification settings - Fork 0
/
sizes.f90
31 lines (26 loc) · 915 Bytes
/
sizes.f90
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
!
! Written by Leandro Martínez, 2009-2011.
! Copyright (c) 2009-2018, Leandro Martínez, Jose Mario Martinez,
! Ernesto G. Birgin.
!
!
! sizes.i: Define the maximum dimensions of the problems
!
! maxrest: Maximum number of restrictions
! mrperatom: Maximum number of restrictions per atom
! maxtry: Number of tries for building the initial point
! nbp: Maximum number of boxes for fast function evaluation (nbp**3)
! nn: Maximum number of variables
! (at least the number of molecules*6)
! maxkeywords: Maximum number of keywords in input file
!
module sizes
integer :: maxrest
integer :: mrperatom
integer :: maxtry
integer :: nbp
integer :: nn
integer :: maxkeywords
integer, parameter :: strl = 1000
character(len=*), parameter :: str_format = "( a1000 )"
end module sizes