File: createdb.F90

package info (click to toggle)
odb-api 0.18.1-5
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 26,452 kB
  • sloc: cpp: 115,083; ansic: 86,859; f90: 30,318; sql: 12,508; sh: 9,939; yacc: 3,680; python: 2,432; lex: 1,593; perl: 1,116; fortran: 341; csh: 214; makefile: 111; lisp: 17
file content (14 lines) | stat: -rw-r--r-- 389 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
PROGRAM createdb
!*** createdb.F90 ***
USE odb_module
implicit none
INTEGER(4) :: myproc,nproc,npools,h
INTEGER(4) :: nrows, ncols, nra, rc
character(len=64) dbname
rc = ODB_init(myproc=myproc,nproc=nproc)
CALL getarg(1,dbname) ! Database name
npools = 1 ! Change this to a desired number
h = ODB_open(dbname,'NEW',npools)
rc = ODB_close(h,save=.TRUE.)
rc = ODB_end()
END PROGRAM createdb