1 | include(dom.inc)
   2 |       PROGRAM domtest
   3 | 
   4 | !       ================================================================!
   5 | !                                                                       !
   6 | !       domtest.F : This program tests the data structure used for the  !
   7 | !                   geometrical pre-processing in Prissma. A previous   !
   8 | !                   created geometry is read and tested.                !
   9 | !                                                                       !
  10 | !       author    : J. AMAYA (june 2007)                                !
  11 | !                                                                       !
  12 | !       ================================================================!
  13 | 
  14 |         USE datas
  15 | 
  16 |         IMPLICIT NONE
  17 | 
  18 |         CHARACTER*80     :: path
  19 |         REAL             :: t1, t2
  20 | 
  21 |         WRITE(*,*) "--- Testing a real 3D geometry: ---"
  22 |         CALL CPU_TIME(t1)
  23 |         WRITE(*,*) "    Starting time: ", t1
  24 | 
  25 | !       ---------------------------------------------------------!
  26 | !       Reading previously processed geometry and data structure !
  27 | !       ---------------------------------------------------------!
  28 | 
  29 |         path="./"
  30 |         CALL readstructure(path)
  31 | 
  32 | !       -------------------------!
  33 | !       Print faces' information !
  34 | !       -------------------------!
  35 | 
  36 | !        CALL printfacesinfo
  37 | 
  38 | !       ----------------------------!
  39 | !       Printing cells' information !
  40 | !       ----------------------------!
  41 | 
  42 | !        CALL printcellsinfo(ndirs)
  43 | 
  44 |         CALL CPU_TIME(t2)
  45 |         WRITE(*,*) "Test finished in ", t2 - t1, " seconds."
  46 | 
  47 |       END PROGRAM domtest