OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
timer.F File Reference
#include "implicit_f.inc"
#include "macro.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "impl1_c.inc"
#include "remesh_c.inc"
#include "sms_c.inc"
#include "sphcom.inc"
#include "task_c.inc"
#include "timeri_c.inc"
#include "units_c.inc"
#include "param_c.inc"
#include "chara_c.inc"
#include "scr19_c.inc"
#include "ddspmd_c.inc"
#include "commandline.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine print_summary (flag, ntimax, tabtime, titles, out_id, itherm)
subroutine print_block (title_part, tabtime, ntimax, flag, out_id, nfields, fields, titles)
subroutine printime (t, itherm, output)
subroutine print_runtime ()
subroutine printcpu (iflag)
subroutine initimeg (ng)
subroutine startimeg (ng)
subroutine stoptimeg (ng)
subroutine printimeg (iparg, pm, ipm, ixc, ixtg, ixs)
subroutine printcoques (iparg, ixc, ipm, theogp, numshg)
subroutine printsolides (iparg, theogp, numsolg, ipm, ixs)
subroutine printtet4 (iparg, theogp, numsolg, ipm, ixs)
subroutine printtet10 (iparg, theogp, numsolg)
subroutine printtriangles (iparg, theogp, numtrig)
subroutine interlagran (tab, lx, ltab, x, y)
subroutine my_fsort (array, index, size, work)
subroutine elapstime (t, etime)
subroutine startime_mp (event, nbr_gr, timer_mp)
subroutine stoptime_mp (event, nbr_gr, timer_mp, cputime_mp)
subroutine cumultime_mp (taille, iparg, ixc, ixq, ixt, ixp, ixtg, ixr, ixs, kxig3d, ipm, igeo, geo, poin_ump, cputime_mp, nbr_gpmp, cputime_mp_glob, tab_ump, pm, bufmat, tabmp_l, tab_mat)
subroutine printime_mp (taille, tab_ump, cputime_mp2, poin_ump, t1, elem_mp, cputime_mp, poids_ref)
subroutine get_mem_map_var (got_m_map)
subroutine add_elapsed_time_mon_off (t)

Function/Subroutine Documentation

◆ add_elapsed_time_mon_off()

subroutine add_elapsed_time_mon_off ( type(timer_), intent(inout) t)

Definition at line 3198 of file timer.F.

3199! When /MON/OFF is used, main processor
3200! must write the elapsed time
3201C-----------------------------------------------
3202C M o d u l e s
3203C-----------------------------------------------
3204 USE timer_mod
3205 USE time_mod
3206 USE inoutfile_mod
3207C-----------------------------------------------
3208C I m p l i c i t T y p e s
3209C-----------------------------------------------
3210#include "implicit_f.inc"
3211C-----------------------------------------------
3212C C o m m o n B l o c k s
3213C-----------------------------------------------
3214#include "task_c.inc"
3215 COMMON /iclock/clock0
3216 INTEGER CLOCK0
3217 COMMON /rclock/elapsed
3218 DOUBLE PRECISION ELAPSED
3219C-----------------------------------------------
3220C L o c a l V a r i a b l e s
3221C-----------------------------------------------
3222 TYPE(TIMER_), INTENT(INOUT) :: T
3223 INTEGER I, NPROC
3224 DOUBLE PRECISION SECS
3225 INTEGER :: LEN_RST_NAME
3226 LOGICAL :: BOOL_FILE
3227 INTEGER :: CURRENT_RUN,OFFSET
3228 INTEGER, DIMENSION(2148) :: RST_NAME
3229 INTEGER :: LEN_TMP_NAME
3230 CHARACTER(len=4096) :: TMP_NAME
3231
3232C---------------------------
3233C Elapsed time & Estimated Speedup
3234C---------------------------
3235 CALL elapstime(t,secs)
3236! ---------------------------
3237 IF(ispmd==0) THEN
3238 current_run = global_comp_time%RUN_NBR
3239 global_comp_time%ENGINE_TIME(current_run) = secs
3240 len_rst_name = len_trim(global_comp_time%RST_NAME)
3241 len_tmp_name = outfile_name_len +len_rst_name
3242 tmp_name=outfile_name(1:outfile_name_len)//global_comp_time%RST_NAME(1:len_rst_name)
3243
3244 DO i = 1, len_tmp_name
3245 rst_name(i) = ichar(tmp_name(i:i))
3246 END DO
3247 bool_file=.false.
3248 INQUIRE(file=tmp_name(1:len_tmp_name), exist=bool_file)
3249! check if *_0000.rst exists
3250 IF(bool_file) THEN
3251 CALL cur_fil_c(20)
3252 CALL open_c(rst_name,len_tmp_name,2)
3253! write the starter + engine elapsed time
3254 offset= - storage_size(global_comp_time%ENGINE_TIME(current_run))/8
3255 CALL fseek_end_c(offset)
3256 CALL write_dpdb(global_comp_time%ENGINE_TIME(current_run),1)
3257 CALL close_c
3258 ENDIF
3259 ENDIF
3260! ---------------------------
3261
3262 RETURN
elapstime
subroutine elapstime(t, etime)
Definition timer.F:2576
inoutfile_mod
Definition inoutfile_mod.F:96
inoutfile_mod::outfile_name
character(len=outfile_char_len) outfile_name
Definition inoutfile_mod.F:111
inoutfile_mod::outfile_name_len
integer outfile_name_len
Definition inoutfile_mod.F:109
time_mod
Definition time_mod.F:34
time_mod::global_comp_time
type(time_type) global_comp_time
Definition time_mod.F:56
write_dpdb
subroutine write_dpdb(a, n)
Definition write_db.F:302
close_c
void close_c()
Definition write_routtines.c:298
fseek_end_c
void fseek_end_c(int *lseek)
Definition write_routtines.c:343
cur_fil_c
void cur_fil_c(int *nf)
Definition write_routtines.c:477
open_c
void open_c(int *ifil, int *len, int *mod)
Definition write_routtines.c:180

◆ cumultime_mp()

subroutine cumultime_mp ( integer taille,
integer, dimension(nparg,*) iparg,
integer, dimension(nixc,*) ixc,
integer, dimension(nixq,*) ixq,
integer, dimension(nixt,*) ixt,
integer, dimension(nixp,*) ixp,
integer, dimension(nixtg,*) ixtg,
integer, dimension(nixr,*) ixr,
integer, dimension(nixs,*) ixs,
integer, dimension(*) kxig3d,
integer, dimension(npropmi,*) ipm,
integer, dimension(npropgi,*) igeo,
geo,
integer, dimension(nummat) poin_ump,
dimension(taille) cputime_mp,
integer nbr_gpmp,
dimension(nbr_gpmp,nspmd+1) cputime_mp_glob,
integer, dimension(7,taille) tab_ump,
pm,
bufmat,
integer tabmp_l,
tab_mat )

Definition at line 2702 of file timer.F.

2709C
2710C-----------------------------------------------
2711C I m p l i c i t T y p e s
2712C-----------------------------------------------
2713#include "implicit_f.inc"
2714C-----------------------------------------------
2715C G l o b a l P a r a m e t e r s
2716C-----------------------------------------------
2717 COMMON /timerg/timerg(2,500000),cputimeg(500000)
2718 REAL TIMERG,CPUTIMEG
2719C-----------------------------------------------
2720#include "com01_c.inc"
2721#include "com04_c.inc"
2722#include "task_c.inc"
2723#include "param_c.inc"
2724#include "scr19_c.inc"
2725C-----------------------------------------------
2726C D u m m y A r g u m e n t s
2727C-----------------------------------------------
2728 INTEGER IPARG(NPARG,*),IXC(NIXC,*),IXS(NIXS,*),
2729 . IXQ(NIXQ,*),IXT(NIXT,*), IXP(NIXP,*),
2730 . IXR(NIXR,*),KXIG3D(*),IXTG(NIXTG,*),
2731 . IPM(NPROPMI,*),IGEO(NPROPGI,*),
2732 . TAILLE,NBR_GPMP,TABMP_L
2733
2734 my_real pm(npropm,*),geo(npropg,*),bufmat(*),tab_mat(ngroup)
2735c my_real, DIMENSION(NUMMAT,NUMGEO,TABMP_L), INTENT(IN) :: TAB_MAT_PROP
2736
2737C Mat + Prop timers
2738 INTEGER, DIMENSION(NUMMAT) :: POIN_UMP
2739 INTEGER, DIMENSION(7,TAILLE) :: TAB_UMP
2740 my_real, DIMENSION(TAILLE) :: cputime_mp
2741 my_real, DIMENSION(NBR_GPMP,NSPMD+1):: cputime_mp_glob
2742
2743
2744C-----------------------------------------------
2745C L o c a l V a r i a b l e s
2746C-----------------------------------------------
2747 INTEGER NG,ITY,MID,MUID,NFT,I,J,K,
2748 . PID,PUID,
2749 . ISOL,ISOL2,TEST,INDI3
2750 my_real, DIMENSION(NSPMD+1,TAILLE) :: cputime_mp2
2751 INTEGER, DIMENSION(TAILLE) :: ELEM_MP
2752 my_real, DIMENSION(TAILLE) :: poids_ref
2753 my_real t1, t2
2754
2755
2756
2757 INTEGER NPROC, MSGTAG, MSGTAG2, ISTART, NGROUP_R,
2758 . NEL,PROC,NGF, NGL,
2759 . NELT,
2760 . IRSIZE, MSGTAG3 ,NES,NEQ,NEC,NETG,NET,NEP,NER,NEUR,
2761 . MPT,NPTS,NPTT,NPTOT,ISOLNOD,JSROT
2762
2763 CHARACTER FILNAM*100,PROCNAM*4
2764 my_real
2765 . ts, tq, tc, ttg, tt, tp, tr, tur, dtu,mins,maxs,minq,
2766 . maxq,minc,maxc,mintg,maxtg,minp,maxp,mint,maxt,minr,
2767 . maxr,minur,maxur, cpug, cpuelem, t(8,2),cc
2768C
2769 INTEGER NUMSOLG,NUMSHG,NUMTRIG,NUMOTHER,MTN,NELEM,NPT,NSG,
2770 . IHBE,NFUNC,FILEN,NUMSOL4G,NUMSOL10G,JHBE
2771
2772 real
2773 . theogp(ngroup),tabx(3),tabmat(3),nptr,timmat,telt,tpsthtot,
2774 . tpsreel,batozmult,tppond
2775 INTEGER RECHERCHE,OFF,NUMEL_RE
2776 my_real invtref
2777 my_real, DIMENSION(NUMMAT,NUMGEO) :: soltelt1_old,soltelt6_old,
2778 . soltelt8_old,soltelt16_old,soltelt20_old,tetra4_old,
2779 . tetra10_old,shtnl_old,tritnl_old
2780 REAL WD
2781C-----------------------------------------------
2782
2783 t1 = 0
2784 elem_mp = zero
2785 poids_ref = zero
2786 DO ng=1,ngroup
2787 ity = iparg(5,ng)
2788 nft = iparg(3,ng)+1
2789 k = 0
2790
2791 mtn = iparg(1,ng)
2792 nelem = iparg(2,ng)
2793 npt = iparg(6,ng)
2794 nsg = iparg(10,ng)
2795 ihbe = iparg(23,ng)
2796
2797
2798 IF(ity==1) THEN
2799 ! BRIC
2800 mid = ixs(1,nft)
2801 pid = ixs(10,nft)
2802 muid = ipm(1,mid)
2803 puid = igeo(1,pid)
2804 i = poin_ump(mid)
2805 k = i
2806 ELSEIF(ity==2) THEN
2807 ! QUAD
2808 mid = ixq(1,nft)
2809 pid = ixq(6,nft)
2810 muid = ipm(1,mid)
2811 puid = igeo(1,pid)
2812 i = poin_ump(mid)
2813 k = i
2814 ELSEIF(ity==3) THEN
2815 ! SHELL
2816 mid = ixc(1,nft)
2817 pid = ixc(6,nft)
2818 muid = ipm(1,mid)
2819 puid = igeo(1,pid)
2820 i = poin_ump(mid)
2821 k = i
2822 ELSEIF(ity==4) THEN
2823 ! TRUSS
2824 mid = ixt(1,nft)
2825 pid = ixt(4,nft)
2826 muid = ipm(1,mid)
2827 puid = igeo(1,pid)
2828 i = poin_ump(mid)
2829 k = i
2830 ELSEIF(ity==5) THEN
2831 ! BEAM
2832 mid = ixp(1,nft)
2833 pid = ixp(5,nft)
2834 muid = ipm(1,mid)
2835 puid = igeo(1,pid)
2836 i = poin_ump(mid)
2837 k = i
2838 ELSEIF(ity==6) THEN
2839 ! RESSORT MUID=0 --> 1er case de TAB_UMP
2840 mid = tab_ump(3,1)
2841 pid = ixr(1,nft)
2842 muid = 0
2843 puid = igeo(1,pid)
2844 i = 1
2845 k = 1
2846 ELSEIF(ity==7) THEN
2847 ! SHELL_3N
2848 mid = ixtg(1,nft)
2849 pid = ixtg(5,nft)
2850 muid = ipm(1,mid)
2851 puid = igeo(1,pid)
2852 i = poin_ump(mid)
2853 k = i
2854 ENDIF
2855
2856 IF(k /= 0) THEN
2857 test = 0
2858 DO WHILE((k<=taille).AND.(test==0))
2859 ! +-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+
2860 IF((tab_ump(1,k)==muid)) THEN
2861 ! *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
2862 IF(tab_ump(2,k)==puid) THEN
2863 ! -------------------------------
2864 IF(ity/=1) THEN
2865 IF (tab_ump(7,k)==ity) THEN
2866 cputime_mp(k) = cputime_mp(k) + cputimeg(ng)
2867 elem_mp(k) = elem_mp(k) + iparg(2,ng)
2868 test=1
2869 ! ---------------------
2870 IF(ity==3) THEN
2871c POIDS_REF(K)=TAB_MAT_PROP(MID,PID,1)
2872 poids_ref(k)=tab_mat(ng)
2873
2874 ELSEIF(ity==7) THEN
2875c POIDS_REF(K)=TAB_MAT_PROP(MID,PID,2)
2876 poids_ref(k)=tab_mat(ng)
2877 ENDIF ! <--- fin ITY==3 or 7
2878 ! ---------------------
2879 ELSE ! <--- fin TAB_UMP(7,K)==ITY
2880 k=k+1
2881 ENDIF
2882 ! -------------------------------
2883 ELSE ! <--- fin ITY/=1
2884 isol = iparg(28,ng)
2885 IF((isol==4).OR.(isol==6).OR.
2886 . (isol==8).OR.(isol==10).OR.
2887 . (isol==16).OR.(isol==20)) THEN
2888 isol=isol+1000
2889 ELSE
2890 isol = 1
2891 ENDIF
2892 IF(tab_ump(7,k)==isol) THEN
2893 cputime_mp(k) = cputime_mp(k) + cputimeg(ng)
2894 elem_mp(k) = elem_mp(k) + iparg(2,ng)
2895 test=1
2896 ! -----------------
2897 IF(isol==1008) THEN
2898 indi3 = 3
2899 ELSEIF(isol==1010) THEN
2900 indi3 = 4
2901 ELSEIF(isol==1016) THEN
2902 indi3 = 5
2903 ELSEIF(isol==1020) THEN
2904 indi3 = 6
2905 ELSEIF(isol==1006) THEN
2906 indi3 = 7
2907 ELSEIF(isol==1004) THEN
2908 indi3 = 8
2909 ELSE
2910 indi3 = 9
2911 ENDIF
2912 ! -----------------
2913c POIDS_REF(K)= TAB_MAT_PROP(MID,PID,INDI3)
2914 poids_ref(k)= tab_mat(ng)
2915 ELSE ! <--- fin TAB_UMP(7,K)==ISOL
2916 k=k+1
2917 ENDIF
2918 ENDIF
2919 ELSE ! <--- fin PUID
2920 k=k+1
2921 ENDIF
2922 ! *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
2923 ELSE ! <--- fin MUID
2924 test = 1
2925! PRINT*,ISPMD,NG,' ERRORRRRRRRRR ',ITY,MUID,PUID,MID,PID,MTN,CPUTIMEG(NG)
2926! T1=T1+CPUTIMEG(NG)
2927 ENDIF
2928 ! +-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+-*+
2929 ENDDO
2930 ENDIF
2931 ENDDO
2932
2933 DO j=1,taille
2934 DO i=1,nspmd+1
2935 cputime_mp2(i,j) = zero
2936 ENDDO
2937 ENDDO
2938
2939 IF(nspmd > 1) THEN
2940 ! MPI Comm
2941 CALL spmd_ex_cputime(taille,cputime_mp,cputime_mp2)
2942 IF(ispmd==0) THEN
2943 t1 = zero
2944 t2 = zero
2945 DO i=1,taille
2946 DO j=1,nspmd
2947 t1 = t1 + cputime_mp2(j,i)
2948 cputime_mp2(nspmd+1,i) = cputime_mp2(nspmd+1,i) + cputime_mp2(j,i)/(ncycle)
2949 ENDDO
2950 IF((cputime_mp2(nspmd+1,i)>= zero).AND.(tab_ump(5,i)>0)) THEN
2951 cputime_mp2(nspmd+1,i) = cputime_mp2(nspmd+1,i)/(tab_ump(5,i))
2952 ELSE
2953 cputime_mp2(nspmd+1,i) = zero
2954 ENDIF
2955 ENDDO
2956 ENDIF ! <-- (ISPMD==0)
2957 ELSE
2958 DO i=1,taille
2959 cputime_mp2(1,i) = cputime_mp(i)
2960 cputime_mp2(2,i) = cputime_mp(i)/ncycle
2961 IF((cputime_mp2(2,i)>= zero).AND.(tab_ump(5,i)>0)) THEN
2962 cputime_mp2(2,i) = cputime_mp2(2,i)/(tab_ump(5,i))
2963 ELSE
2964 cputime_mp2(2,i) = zero
2965 ENDIF
2966 ENDDO
2967 ENDIF
2968
2969 DO i=1,taille
2970 IF((cputime_mp(i)>zero).AND.(elem_mp(i)>0)) THEN
2971 cputime_mp(i) = cputime_mp(i)/(elem_mp(i)*ncycle)
2972 ENDIF
2973 ENDDO
2974C
2975 CALL printime_mp(taille,tab_ump,cputime_mp2,poin_ump,t1,elem_mp,
2976 . cputime_mp,poids_ref)
2977
2978 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
printime_mp
subroutine printime_mp(taille, tab_ump, cputime_mp2, poin_ump, t1, elem_mp, cputime_mp, poids_ref)
Definition timer.F:2989
spmd_ex_cputime
subroutine spmd_ex_cputime(dim_tab3, tab3, tab4)
Definition spmd_ex_cputime.F:33

◆ elapstime()

subroutine elapstime ( type(timer_), intent(inout) t,
double precision etime )

Definition at line 2575 of file timer.F.

2576 USE timer_mod
2577C reset timer elapsed time et calcul tu temps elapsed courant
2578C-----------------------------------------------
2579C I m p l i c i t T y p e s
2580C-----------------------------------------------
2581#include "implicit_f.inc"
2582C----------------------------------------------
2583C C o m m o n B l o c k s
2584C-----------------------------------------------
2585#include "task_c.inc"
2586!#include "timerr_c.inc"
2587 COMMON /iclock/clock0
2588 INTEGER CLOCK0
2589 COMMON /rclock/elapsed
2590 DOUBLE PRECISION ELAPSED
2591C-----------------------------------------------
2592C D u m m y A r g u m e n t s
2593C-----------------------------------------------
2594 TYPE(TIMER_), INTENT(INOUT) :: T
2595 DOUBLE PRECISION ETIME
2596C-----------------------------------------------
2597C L o c a l V a r i a b l e s
2598C-----------------------------------------------
2599 INTEGER CLOCK1, CLOCKRATE, NBMAX
2600 DOUBLE PRECISION SECS
2601#ifdef _OPENMP
2602 REAL(kind=8) :: omp_ending_time
2603 REAL(kind=8) omp_get_wtime
2604 external OMP_GET_WTIME
2605#endif
2606C-----------------------------------------------
2607 CALL system_clock(count=clock1, count_rate=clockrate,
2608 + count_max=nbmax )
2609
2610 IF(clock1 < 0 ) THEN
2611 CALL system_clock(count=clock1, count_rate=clockrate,
2612 + count_max=nbmax )
2613 ENDIF
2614#ifdef _OPENMP
2615 omp_ending_time = omp_get_wtime( )
2616 clock0 = clock1
2617 elapsed = omp_ending_time - t%OMP_STARTING_TIME
2618 etime = elapsed
2619#else
2620 IF(clock1 > 0 ) THEN
2621 secs = clock1-clock0 ! diff temps courant - temps initial (qui peut ne pas etre 0 !)
2622 IF(secs<zero) secs = secs + nbmax ! cas depassement nb de periode maximum
2623 secs = secs/clockrate
2624 clock0 = clock1 ! recuperation du temps courant dans clock0
2625 elapsed = elapsed + secs
2626 etime = elapsed
2627 ENDIF
2628#endif
2629C
2630 RETURN

◆ get_mem_map_var()

subroutine get_mem_map_var ( integer got_m_map)

Definition at line 3163 of file timer.F.

3164C-----------------------------------------------
3165C I m p l i c i t T y p e s
3166C-----------------------------------------------
3167#include "implicit_f.inc"
3168C-----------------------------------------------
3169C C o m m o n B l o c k s
3170C-----------------------------------------------
3171#include "commandline.inc"
3172C-----------------------------------------------
3173C D u m m y A r g u m e n t s
3174C-----------------------------------------------
3175 INTEGER GOT_M_MAP
3176C-----------------------------------------------
3177 got_m_map = got_mem_map
3178

◆ initimeg()

subroutine initimeg ( integer ng)

Definition at line 1431 of file timer.F.

1432C initialisation des timers groupes elem.
1433C-----------------------------------------------
1434C I m p l i c i t T y p e s
1435C-----------------------------------------------
1436#include "implicit_f.inc"
1437C----------------------------------------------
1438C C o m m o n B l o c k s
1439C-----------------------------------------------
1440 COMMON /timerg/timerg(2,500000),cputimeg(500000)
1441 REAL TIMERG,CPUTIMEG
1442C-----------------------------------------------
1443C D u m m y A r g u m e n t s
1444C-----------------------------------------------
1445 INTEGER NG
1446C-----------------------------------------------
1447C L o c a l V a r i a b l e s
1448C-----------------------------------------------
1449 INTEGER J
1450C-----------------------------------------------
1451 DO j=1,ng
1452 cputimeg(j) = zero
1453 ENDDO
1454C
1455 RETURN

◆ interlagran()

subroutine interlagran ( real, dimension(ltab) tab,
real, dimension(ltab) lx,
integer ltab,
real x,
real y )

Definition at line 2507 of file timer.F.

2508
2509 REAL TAB(LTAB),LX(LTAB),X,Y,MUL
2510 INTEGER I,J,LTAB
2511
2512 y = 0.
2513
2514 DO i=1,ltab
2515
2516 mul = 1.
2517 DO j=1,ltab
2518 IF (i/=j) THEN
2519 mul= mul * (x-lx(j))/(lx(i)-lx(j))
2520 ENDIF
2521 ENDDO
2522
2523 y = y + tab(i)*mul
2524
2525 ENDDO

◆ my_fsort()

subroutine my_fsort ( real, dimension(size) array,
integer, dimension(size) index,
integer size,
real, dimension(size) work )

Definition at line 2538 of file timer.F.

2539 INTEGER SIZE
2540 real
2541 . array(size),work(size),tmp
2542
2543 INTEGER INDEX(SIZE),I,J,ITMP
2544
2545 DO i=1,SIZE
2546 work(i) = array(i)
2547 ENDDO
2548
2549 DO i=1,SIZE
2550 DO j=1,size-i
2551 IF (work(j)<work(j+1)) THEN
2552 tmp = work(j)
2553 work(j) = work(j+1)
2554 work(j+1) = tmp
2555
2556 itmp = index(j)
2557 index(j) = index(j+1)
2558 index(j+1) = itmp
2559 ENDIF
2560 ENDDO
2561 ENDDO

◆ print_block()

subroutine print_block ( character(len=*), intent(in) title_part,
real, dimension(ntimax,parasiz), intent(inout) tabtime,
integer, intent(in) ntimax,
integer, intent(in) flag,
integer, intent(in) out_id,
integer, intent(in) nfields,
integer, dimension(nfields), intent(in) fields,
character(len=9), dimension(ntimax), intent(in) titles )

Definition at line 404 of file timer.F.

406C-----------------------------------------------
407C I m p l i c i t T y p e s
408C-----------------------------------------------
409#include "implicit_f.inc"
410C----------------------------------------------
411C C o m m o n B l o c k s
412C-----------------------------------------------
413#include "com01_c.inc"
414#include "task_c.inc"
415C-----------------------------------------------
416C D u m m y A r g u m e n t s
417C-----------------------------------------------
418 INTEGER, INTENT(IN) :: NTIMAX
419 CHARACTER(LEN=*), INTENT(IN) :: TITLE_PART
420 REAL, INTENT(INOUT) :: TABTIME(NTIMAX,PARASIZ)
421 INTEGER, INTENT(IN) :: FLAG ! 1 : No Min/Max
422 ! 2 : Min/Max
423 INTEGER, INTENT(IN) :: OUT_ID ! file descriptor
424 INTEGER, INTENT(IN) :: NFIELDS ! number of columns (must be <= 15 )
425 INTEGER, INTENT(IN) :: FIELDS(NFIELDS) ! number of columns
426
427 CHARACTER(LEN=9), INTENT(IN) :: TITLES(NTIMAX) ! number of columns
428C-----------------------------------------------
429C L o c a l V a r i a b l e s
430C-----------------------------------------------
431 CHARACTER(LEN=22) :: FORMAT1="(1x,A4,1x,15(1x,E9.4))"
432 CHARACTER(LEN=22) :: FORMAT2="(1x,A5,1x,15(1x,A9))"
433 CHARACTER(LEN=22) :: FORMAT3="(17x,A20)"
434 CHARACTER(LEN=22) :: FORMAT4="(I4,2x,15(1x,E9.4))"
435 CHARACTER(LEN=22) :: FORMAT5="(A4,2x,15(1x,E9.4))"
436
437 DOUBLE PRECISION :: DMIN(NFIELDS)
438 DOUBLE PRECISION :: DMAX(NFIELDS)
439 DOUBLE PRECISION :: AVG(NFIELDS)
440
441 CHARACTER(LEN=9) :: TITLES_LOC(NFIELDS) ! number of columns
442 DOUBLE PRECISION :: ARRAY(15)
443 INTEGER I,J
444
445 DO j = 1,nfields
446 titles_loc(j) = titles(fields(j))
447 ENDDO
448
449 WRITE(out_id,*)' '
450 WRITE(out_id,format3) title_part
451 WRITE(out_id,*)' '
452 WRITE(out_id,format2) "#PROC",titles_loc(1:nfields)
453 DO i = 1,nspmd
454 DO j = 1,nfields
455 array(j) = tabtime(fields(j),i)
456 ENDDO
457 WRITE(out_id,format4) i,array(1:nfields)
458 ENDDO
459
460 IF(flag==2 .AND. nspmd > 2) THEN
461 DO i = 1, nfields
462 avg(i)=zero
463 dmax(i)=tabtime(fields(i),1)
464 dmin(i)=tabtime(fields(i),1)
465 END DO
466 DO i = 1, nspmd
467 DO j = 1, nfields
468 avg(j)=avg(j)+tabtime(fields(j),i)
469 dmin(j)=min(dmin(j) ,dble(tabtime(fields(j),i)))
470 dmax(j)=max(dmax(j) ,dble(tabtime(fields(j),i)))
471 END DO
472 END DO
473 DO i=1,nfields
474 avg(i)=avg(i)/nspmd
475 END DO
476
477 WRITE(out_id,*)' '
478 WRITE(out_id,format2) " ",titles_loc(1:nfields)
479 WRITE(out_id,format5) "MIN",dmin(1:nfields)
480 WRITE(out_id,format5) "MAX",dmax(1:nfields)
481 WRITE(out_id,format5) "AVG",avg(1:nfields)
482 ENDIF
min
#define min(a, b)
Definition macros.h:20
max
#define max(a, b)
Definition macros.h:21

◆ print_runtime()

subroutine print_runtime

Definition at line 1265 of file timer.F.

1266C-----------------------------------------------
1267C M o d u l e s
1268C-----------------------------------------------
1269 USE time_mod
1270C-----------------------------------------------
1271C I m p l i c i t T y p e s
1272C-----------------------------------------------
1273#include "implicit_f.inc"
1274C-----------------------------------------------
1275C C o m m o n B l o c k s
1276C-----------------------------------------------
1277#include "units_c.inc"
1278C-----------------------------------------------
1279C L o c a l V a r i a b l e s
1280C-----------------------------------------------
1281 INTEGER :: I,IJK,IJKL,CURRENT_RUN
1282 REAL(kind=8) :: total_time,result
1283 INTEGER, DIMENSION(GLOBAL_COMP_TIME%RUN_NBR+2) :: IH_TAB,IM_TAB,IS_TAB
1284! ----------------------------------------
1285
1286 total_time = global_comp_time%STARTER_TIME
1287 DO i=1,global_comp_time%RUN_NBR
1288 total_time = total_time + global_comp_time%ENGINE_TIME(i)
1289 ih_tab(i)=int(global_comp_time%ENGINE_TIME(i)/3600.0d0)
1290 im_tab(i)=int((global_comp_time%ENGINE_TIME(i)-ih_tab(i)*3600.0d0)/60.0d0)
1291 is_tab(i)=int(global_comp_time%ENGINE_TIME(i)-ih_tab(i)*3600.0d0-im_tab(i)*60.0d0)
1292 ENDDO
1293 ijk = global_comp_time%RUN_NBR + 1
1294 ih_tab(ijk)=int(global_comp_time%STARTER_TIME/3600.0d0)
1295 im_tab(ijk)=int((global_comp_time%STARTER_TIME-ih_tab(ijk)*3600.0d0)/60.0d0)
1296 is_tab(ijk)=int(global_comp_time%STARTER_TIME-ih_tab(ijk)*3600.0d0-im_tab(ijk)*60.0d0)
1297
1298 ijkl = global_comp_time%RUN_NBR + 2
1299 ih_tab(ijkl)=int(total_time/3600.0d0)
1300 im_tab(ijkl)=int((total_time-ih_tab(ijkl)*3600.0d0)/60.0d0)
1301 is_tab(ijkl)=int(total_time-ih_tab(ijkl)*3600-im_tab(ijkl)*60.0d0)
1302
1303 WRITE(iout,*) ' '
1304 WRITE(iout,*)
1305 . ' ** COMPUTE RUNTIME INFORMATION SUMMARY **'
1306 WRITE(iout,*) ' '
1307 WRITE(iout,100) global_comp_time%STARTER_TIME,ih_tab(ijk),im_tab(ijk),is_tab(ijk)
1308 DO i=1,global_comp_time%RUN_NBR
1309 WRITE(iout,101) i,global_comp_time%ENGINE_TIME(i),ih_tab(i),im_tab(i),is_tab(i)
1310 ENDDO
1311 WRITE(iout,103)
1312 WRITE(iout,102)total_time,ih_tab(ijkl),im_tab(ijkl),is_tab(ijkl)
1313 WRITE(iout,*)' '
1314C
1315
1316C
1317 100 FORMAT(' STARTER RUNTIME =', (f14.2),'s',' (',i2.2,':',i2.2,':',i2.2,')')
1318 101 FORMAT(' #',(i4.3), ' ENGINE RUNTIME =',(f14.2),'s',' (',i2.2,':',i2.2,':',i2.2,')')
1319 102 FORMAT(' STARTER+ENGINE RUNTIME =',(f14.2),'s',' (',i2.2,':',i2.2,':',i2.2,')')
1320 103 FORMAT(' ------------------------------ ')
1321
1322 RETURN

◆ print_summary()

subroutine print_summary ( integer, intent(in) flag,
integer, intent(in) ntimax,
real, dimension(ntimax,parasiz), intent(inout) tabtime,
character(len=9), dimension(ntimax), intent(inout) titles,
integer, intent(in) out_id,
integer, intent(in) itherm )

Definition at line 30 of file timer.F.

31C-----------------------------------------------
32C I m p l i c i t T y p e s
33C-----------------------------------------------
34#include "implicit_f.inc"
35C----------------------------------------------
36C C o m m o n B l o c k s
37C-----------------------------------------------
38#include "macro.inc"
39#include "com01_c.inc"
40#include "com04_c.inc"
41#include "impl1_c.inc"
42#include "remesh_c.inc"
43#include "sms_c.inc"
44#include "sphcom.inc"
45#include "task_c.inc"
46#include "timeri_c.inc"
47
48C-----------------------------------------------
49C D u m m y A r g u m e n t s
50C-----------------------------------------------
51 INTEGER, INTENT(IN) :: FLAG ! 1 : No MIN/MAX block
52 ! 2 : Min/Max block
53 INTEGER, INTENT(IN) :: ITHERM
54 INTEGER, INTENT(IN) :: OUT_ID ! file descriptor
55 INTEGER, INTENT(IN) :: NTIMAX ! max number of timer
56 CHARACTER(LEN=9), INTENT(INOUT) :: TITLES(NTIMAX) ! number of columns
57 REAL, INTENT(INOUT) :: TABTIME(NTIMAX,PARASIZ)
58C-----------------------------------------------
59C L o c a l V a r i a b l e s
60C-----------------------------------------------
61 INTEGER :: NF,NFIELDS,FIELDS(NTIMAX)
62 INTEGER I,J
63 REAL :: TOTAL
64 REAL :: ZEROS = 0.0
65
66 IF (impl_s==1) THEN
67 nfields = 4
68 fields(1) = 31 ; fields(2) = 32 ; fields(3) = 33 ; fields(4) = 34
69 CALL print_block("** IMPLICIT **",tabtime,ntimax,
70 . flag,out_id,nfields,fields,titles)
71 ENDIF
72C
73c IF(IMONM >= 1)THEN
74 nf = 1
75 IF(ninter > 0) THEN
76 fields(nf) = macro_timer_contsort
77 nf = nf + 1
78 fields(nf) = macro_timer_contfor
79 nf = nf + 1
80 ENDIF
81 fields(nf) = macro_timer_element
82 nf = nf + 1
83 fields(nf) = macro_timer_kin
84 nf = nf + 1
85 fields(nf) = macro_timer_integ
86 nf = nf + 1
87 fields(nf) = macro_timer_io
88 nf = nf + 1
89 fields(nf) = macro_timer_p0
90 nf = nf + 1
91 fields(nf) = macro_timer_asm
92 IF(.NOT.( (idtmins==0).AND.(idtmins_int==0))) THEN
93 nf = nf + 1
94 fields(nf) = macro_timer_ams
95 ENDIF
96 nf = nf + 1
97 fields(nf) = macro_timer_resol
98 nfields = nf
99 CALL print_block("** SUMMARY **",tabtime,ntimax,
100 . flag,out_id,nfields,fields,titles)
101
102
103 IF(nadmesh/=0)THEN
104 nfields = 3
105 fields(1) = 36 ; fields(2) = 37 ; fields(3) = 38
106 CALL print_block("** ADAPTIVE MESH TIME **",tabtime,ntimax,
107 . flag,out_id,nfields,fields,titles)
108
109 END IF !adaptive mesh
110
111 IF (nspmd > 1) THEN
112 DO i = 1, nspmd
113 total = tabtime(10,i)+tabtime(11,i)+
114 . tabtime(12,i)+tabtime(13,i)
115 tabtime(macro_timer_tmp1,i) = total
116 IF(tabtime(1,i) > 0 ) THEN
117 tabtime(macro_timer_tmp2,i) = 100.d0*total/tabtime(1,i)
118 ELSE
119 tabtime(macro_timer_tmp2,i) = 0.0d0
120 ENDIF
121 ENDDO
122 fields(1) = 10 ; titles(10) = 'FORCES'
123 fields(2) = 11 ; titles(11) = 'RBYFOR'
124 fields(3) = 12 ; titles(12) = 'RBYVEL '
125 fields(4) = 13 ; titles(13) = 'VEL '
126 fields(5) = macro_timer_tmp1 ; titles(macro_timer_tmp1) = 'TOT'
127 fields(6) = macro_timer_tmp2 ; titles(macro_timer_tmp2) = '%'
128 nfields = 6
129 CALL print_block("** SPMD COM. TIME **",tabtime,ntimax,
130 . flag,out_id,nfields,fields,titles)
131 ENDIF ! SPMD
132C
133 IF (imonm>=1) THEN
134 IF(idtmins/=0.OR.idtmins_int/=0)THEN
135 fields(1) =61 ; titles(61) = 'PCG'
136 fields(2) =62 ; titles(62) = 'PARITF'
137 fields(3) =63 ; titles(63) = 'COMMR '
138 fields(4) =64 ; titles(64) = 'COMP_MV'
139 fields(5) =65 ; titles(65) = 'VFI'
140 fields(6) =80 ; titles(80) = 'COMM_MV'
141 fields(7) =70 ; titles(70) = 'TOT_PROJ '
142 fields(8) =71 ; titles(71) = 'MAT_LT2'
143 fields(9) =72 ; titles(72) = 'MAM_NM'
144 fields(10) =73 ; titles(73) = 'MAN_NNM'
145 fields(11) =74 ; titles(74) = 'COMP_MV_E '
146 fields(12) =75 ; titles(75) = 'BUILD_M'
147 nfields = 12
148 CALL print_block("** AMS TIME **",tabtime,ntimax,
149 . flag,out_id,nfields,fields,titles)
150
151 END IF
152C
153 IF(impl_s == 1) THEN
154 fields(1) = 67 ; titles(fields(1)) = 'COMMDOT'
155 fields(2) = 66 ; titles(fields(2)) = 'COMMV'
156 fields(3) = 68 ; titles(fields(3)) = 'GPU_CPU '
157 fields(4) = 69 ; titles(fields(4)) = 'CPU_GPU'
158 nfields = 4
159 CALL print_block("** IMPLICIT PCG **",tabtime,ntimax,
160 . flag,out_id,nfields,fields,titles)
161 END IF
162C
163 DO i = 1, nspmd
164 tabtime(macro_timer_tmp1,i) = max(0.0,tabtime(8,i)-tabtime(20,i)
165 . -tabtime(29,i)
166 . -tabtime(76,i),
167 . +tabtime(77,i))
168 tabtime(macro_timer_tmp2,i) = max(0.0,tabtime(8,i)+
169 . tabtime(19,i)+tabtime(3,i)
170 . -tabtime(29,i)-tabtime(76,i))
171
172 ENDDO
173
174 IF( ninter > 0 ) THEN
175 fields(1) = 15 ; titles(fields(1)) = 'BUKCRIT'
176 fields(2) = 16 ; titles(fields(2)) = 'COMMCRIT'
177 fields(3) = 17 ; titles(fields(3)) = 'BUCKET '
178 fields(4) = 18 ; titles(fields(4)) = 'GFRONT'
179 fields(5) = 19 ; titles(fields(5)) = 'CONTOPT'
180 fields(6) = 20 ; titles(fields(6)) = 'CONTF'
181 fields(7) = macro_timer_tmp1 ;
182 titles(fields(7)) = 'DST'
183 fields(8) = macro_timer_tmp2 ;
184 titles(fields(8)) = 'CE_FORCE'
185 nfields = 8
186 IF(ninter25 > 0) THEN
187 fields(9) = 106 ; titles(fields(9)) = 'NORML'
188 nfields = nfields + 1
189 ENDIF
190
191 IF(ninterfric > 0) THEN
192 nfields = nfields + 1
193 fields(nfields) = macro_timer_fric ; titles(fields(nfields)) = 'FRIC'
194 ENDIF
195
196 CALL print_block("** INTERFACE TIME **",tabtime,ntimax,
197 . flag,out_id,nfields,fields,titles)
198
199 fields(1 )=21 ; titles(fields(1 )) = 'FICOM1'
200 fields(2 )=22 ; titles(fields(2 )) = 'FICOM2'
201 fields(3 )=23 ; titles(fields(3 )) = 'ISDXV1'
202 fields(4 )=24 ; titles(fields(4 )) = 'ISDXV2'
203 fields(5 )=27 ; titles(fields(5 )) = 'TRIMMX'
204 fields(6 )=25 ; titles(fields(6 )) = 'TRIBOX'
205 fields(7 )=30 ; titles(fields(7 )) = 'TRIBUC'
206 fields(8 )=26 ; titles(fields(8 )) = 'TRIGAT'
207 fields(9 )=76 ; titles(fields(9 )) = 'SYNCCOM'
208 fields(10)=29 ; titles(fields(10)) = 'SHOOTING'
209 fields(11)=28 ; titles(fields(11)) = 'INT2_FV'
210 nfields = 11
211 CALL print_block(" ",tabtime,ntimax,
212 . flag,out_id,nfields,fields,titles)
213 ENDIF
214
215 fields(1 )=40 ; titles(fields(1 )) = 'RB_SENS'
216 fields(2 )=41 ; titles(fields(2 )) = 'CLOADS'
217 fields(3 )=42 ; titles(fields(3 )) = 'BCS'
218 fields(4 )=43 ; titles(fields(4 )) = 'RL_RW'
219 fields(5 )=44 ; titles(fields(5 )) = 'FIXVEL'
220 fields(6 )=45 ; titles(fields(6 )) = 'RBE3'
221 fields(7 )=46 ; titles(fields(7 )) = 'GRAV'
222
223 nfields = 7
224 CALL print_block("** KIN COND & TASK0 TIME **",tabtime,ntimax,
225 . flag,out_id,nfields,fields,titles)
226
227 fields(1 )=47 ; titles(fields(1 )) = 'MANCTR'
228 fields(2 )=50 ; titles(fields(2 )) = 'MONVOL'
229 fields(3 )=52 ; titles(fields(3 )) = 'DAMP'
230 fields(4 )=28 ; titles(fields(4 )) = 'INT2'
231 fields(5 )=44
232 fields(6 )=41
233 fields(7 )=53 ; titles(fields(7 )) = 'DT2'
234 fields(8 )=49 ; titles(fields(8 )) = 'AUX'
235 fields(9 )=51 ; titles(fields(9 )) = 'FORINTS'
236 nfields = 9
237 IF(tabtime(54,1) > 0 ) THEN
238 nfields = nfields + 1
239 fields(10)=54 ; titles(fields(10)) = 'R2R'
240 ENDIF
241 IF(tabtime(55,1) > 0 ) THEN
242 nfields = nfields + 1
243 fields(11)=55 ; titles(fields(11)) = 'R2M'
244 ENDIF
245 CALL print_block(" ",tabtime,ntimax,
246 . flag,out_id,nfields,fields,titles)
247
248 IF(iale+ieuler+itherm/=0) THEN
249 fields(1) = macro_timer_alemain
250 fields(2) = macro_timer_ifsub0
251 fields(3) = macro_timer_multifvm
252 fields(4) = macro_timer_spmdcfd
253 fields(5) = macro_timer_muscl
254 nfields = 5
255 CALL print_block("** ALE TIME **",tabtime,ntimax,
256 . flag,out_id,nfields,fields,titles)
257
258 ENDIF
259
260 IF(.false.) THEN
261 nfields = 0
262 IF(tabtime(macro_timer_monvol,1) > 0) THEN
263 nfields = nfields + 1
264 fields(nfields) = macro_timer_monvol
265 titles(macro_timer_monvol) = 'UP'
266 ENDIF
267 IF(tabtime(macro_timer_fvmbag,1) > 0) THEN
268 nfields = nfields + 1
269 fields(nfields) = macro_timer_fvmbag
270 titles(macro_timer_fvmbag) = 'FVMESH'
271 ENDIF
272 IF(tabtime(macro_timer_fvmbag,1) > 0) THEN
273 nfields = nfields + 1
274 fields(nfields) = macro_timer_fvmbag1
275 titles(macro_timer_fvmbag1) = 'FVBAG'
276 ENDIF
277 IF(nfields > 0) CALL print_block("** AIRBAGS **",tabtime,ntimax,
278 . flag,out_id,nfields,fields,titles)
279 ENDIF
280
281
282C /INTER/TYPE25 25
283 nfields = 0
284 j = macro_timer_t25sliding
285 IF(tabtime(j,1) > 0) THEN
286 nfields = nfields + 1
287 fields(nfields) = j
288 titles(j) = 'SLIDING'
289 ENDIF
290 j = macro_timer_t25norm
291 IF(tabtime(j,1) > 0) THEN
292 nfields = nfields + 1
293 fields(nfields) = j
294 titles(j) = 'NORM'
295 ENDIF
296 j = macro_timer_t25stfe
297 IF(tabtime(j,1) > 0) THEN
298 nfields = nfields + 1
299 fields(nfields) = j
300 titles(j) = 'GETSTIF'
301 ENDIF
302 j = macro_timer_t25vox0
303 IF(tabtime(j,1) > 0) THEN
304 nfields = nfields + 1
305 fields(nfields) = j
306 titles(j) = 'VOX0'
307 ENDIF
308 j = macro_timer_t25vox0e2e
309 IF(tabtime(j,1) > 0) THEN
310 nfields = nfields + 1
311 fields(nfields) = j
312 titles(j) = 'VOX0E2E'
313 ENDIF
314 j = macro_timer_t25rnum
315 IF(tabtime(j,1) > 0) THEN
316 nfields = nfields + 1
317 fields(nfields) = j
318 titles(j) = 'RNUM'
319 ENDIF
320 j = macro_timer_t25rnume
321 IF(tabtime(j,1) > 0) THEN
322 nfields = nfields + 1
323 fields(nfields) = j
324 titles(j) = 'RNUME2E'
325 ENDIF
326 j = macro_timer_t25buc
327 IF(tabtime(j,1) > 0) THEN
328 nfields = nfields + 1
329 fields(nfields) = j
330 titles(j) = 'BUC'
331 ENDIF
332 j = macro_timer_t25buce2e
333 IF(tabtime(j,1) > 0) THEN
334 nfields = nfields + 1
335 fields(nfields) = j
336 titles(j) = 'BUCE2E'
337 ENDIF
338 j = macro_timer_t25trce
339 IF(tabtime(j,1) > 0) THEN
340 nfields = nfields + 1
341 fields(nfields) = j
342 titles(j) = 'TRCE2E'
343 ENDIF
344
345 IF(nfields > 0) CALL print_block("**/INTER/TYPE25 **",tabtime,ntimax,
346 . flag,out_id,nfields,fields,titles)
347
348
349 nfields = 0
350 IF (numsph > 0)THEN
351 fields(1 )=48 ; titles(fields(1 )) = 'SPH_TOT'
352 fields(2 )=87 ; titles(fields(2 )) = 'SPH_SORT'
353 fields(3 )=88 ; titles(fields(3 )) = 'SPH_FORCES'
354 fields(4 )=89 ; titles(fields(4 )) = 'SPH_OTHER'
355 fields(5 )=90 ; titles(fields(5 )) = 'SPH_SORT1'
356 fields(6 )=91 ; titles(fields(6 )) = 'COMSORT1'
357 fields(7 )=94 ; titles(fields(7 )) = 'SPH_SORT0'
358 fields(8 )=92 ; titles(fields(8 )) = 'COMM_SORT0'
359 fields(9 )=93 ; titles(fields(9 )) = 'COMM_FORCES'
360 nfields = 9
361 CALL print_block("** SPH TIME **",tabtime,ntimax,
362 . flag,out_id,nfields,fields,titles)
363 ENDIF
364 IF(tabtime(macro_timer_genh3d,1) > 0 ) THEN
365
366 fields(1 )=macro_timer_genh3d ; titles(fields(1 ))= 'TOTAL'
367 fields(2 )=macro_timer_spmdh3d; titles(fields(2 ))= 'SPMD'
368 fields(3 )=macro_timer_libh3d ; titles(fields(3 ))= 'H3DLIB'
369 fields(4 )=macro_timer_genh3d1; titles(fields(4 ))= 'GPSTMAX'
370c FIELDS(5 )=MACRO_TIMER_GENH3D2; TITLES(FIELDS(5 ))= 'WRITE'
371
372 nfields = 4
373
374 CALL print_block("** H3D ANIMATIONS **",tabtime,ntimax,
375 . flag,out_id,nfields,fields,titles)
376 ENDIF
377C
378
379
380 IF (imonm == 2) THEN
381 fields(1 )=56 ; titles(fields(1 )) = 'BEG_CRIT'
382 fields(2 )=57 ; titles(fields(2 )) = 'EOF_CRIT'
383 fields(3 )=58 ; titles(fields(3 )) = 'EOF_SORT'
384 fields(4 )=59 ; titles(fields(4 )) = 'EOF_FORCES'
385 fields(5 )=60 ; titles(fields(5 )) = 'EOF_CYCLE'
386 fields(6 )=95 ; titles(fields(6 )) = 'EOF_SPH'
387 nfields = 6
388
389 CALL print_block("** FORCED SYNCH",tabtime,ntimax,
390 . flag,out_id,nfields,fields,titles)
391
392 ENDIF
393 ENDIF !IMONM > 0
394
395
print_block
subroutine print_block(title_part, tabtime, ntimax, flag, out_id, nfields, fields, titles)
Definition timer.F:406

◆ printcoques()

subroutine printcoques ( integer, dimension(nparg,*) iparg,
integer, dimension(nixc,*) ixc,
integer, dimension(npropmi,*) ipm,
real, dimension(ngroup) theogp,
integer numshg )

Definition at line 1963 of file timer.F.

1964C-----------------------------------------------
1965C I m p l i c i t T y p e s
1966C-----------------------------------------------
1967#include "implicit_f.inc"
1968C-----------------------------------------------
1969C C o m m o n B l o c k s
1970C-----------------------------------------------
1971#include "com01_c.inc"
1972#include "param_c.inc"
1973#include "scr19_c.inc"
1974C-----------------------------------------------
1975C G l o b a l P a r a m e t e r s
1976C-----------------------------------------------
1977 COMMON /timerg/timerg(2,500000),cputimeg(500000)
1978 REAL TIMERG,CPUTIMEG
1979C-----------------------------------------------
1980C D u m m y A r g u m e n t s
1981C-----------------------------------------------
1982 INTEGER NUMSHG
1983 INTEGER IPARG(NPARG,*),IXC(NIXC,*),IPM(NPROPMI,*)
1984C
1985 REAL THEOGP(NGROUP)
1986C-----------------------------------------------
1987C L o c a l V a r i a b l e s
1988C-----------------------------------------------
1989 INTEGER NGL,NG,NUMGROUP(NUMSHG),INDEXSH(NUMSHG),
1990 . ITY,MTN,NELEM,NPT,NSG,MID,MUID,
1991 . NFT,IHBE,MMA,NFUNC,I,J
1992 REAL DIFFTT,DIFFTTSH(NUMSHG),TEMP(NUMSHG)
1993 REAL THEOTP(NUMSHG),REELTP(NUMSHG)
1994 REAL TABX(3),TABMAT(3),NPTR,TIMMAT,TELT
1995 REAL TPSTHTOT,TPSREEL,PCT
1996C-----------------------------------------------
1997C S o u r c e L i n e s
1998C-----------------------------------------------
1999
2000 ngl = 0
2001
2002 DO ng=1,ngroup
2003 ity = iparg(5,ng)
2004 mtn = iparg(1,ng)
2005 nelem = iparg(2,ng)
2006 npt = iparg(6,ng)
2007 nsg = iparg(10,ng)
2008 nft = iparg(3,ng)+1
2009 ihbe = iparg(23,ng)
2010
2011
2012 IF (ity==3) THEN
2013
2014 ngl = ngl + 1
2015
2016 numgroup(ngl) = ng
2017 diffttsh(ngl) = cputimeg(ng) - theogp(ng)
2018
2019 ENDIF
2020 ENDDO
2021
2022 DO i=1,ngl
2023 indexsh(i) = i
2024 ENDDO
2025
2026 CALL my_fsort(diffttsh,indexsh,numshg,temp)
2027
2028 WRITE(66,2000)
2029c WRITE(66,'(A)') ' '
2030c WRITE(66,'(A)') 'SHELL ELEMENT GROUPS'
2031c WRITE(66,'(A)') ' '
2032c WRITE(66,'(A,A,A)')
2033c . ' GRP_NB ELEM_TYP NUM_ELEM MAT_NUMB ',
2034c . ' NPT NSG CPUTIMEG',
2035c . ' TIMETHEO DIFF PCT'
2036
2037 DO i=1,numshg
2038 ngl = indexsh(i)
2039 ng = numgroup(ngl)
2040
2041 ity = iparg(5,ng)
2042 mtn = iparg(1,ng)
2043 nelem = iparg(2,ng)
2044 nft = iparg(3,ng)+1
2045 nsg = iparg(10,ng)
2046 npt = iparg(6,ng)
2047 ihbe = iparg(23,ng)
2048
2049 mid = ixc(1,nft)
2050 muid = ipm(1,mid)
2051
2052 difftt = cputimeg(ng) - theogp(ng)
2053
2054 pct = ((cputimeg(ng) - theogp(ng))/cputimeg(ng) )*100
2055
2056 WRITE(66,'(I10,A,I10,A,I10,A,I10,A,I10,A,I10,A,I10,A,I10,
2057 . A,E15.3,A,E15.3,A,E15.3,A,F8.3,A)')
2058 . ng,' ',ity,' ',IHBE,' ',NELEM,' ',MTN,' ',MUID,
2059 . ' ',NPT,' ',NSG,' ',
2060 . CPUTIMEG(NG),' ',THEOGP(NG),' ',DIFFTT,' ',PCT,'%'
2061
2062 ENDDO
2063
2064
2065 2000 FORMAT(
2066 & /' '/' '/10X,' shell element groups'/
2067 & 10X,' --------------------'/
2068 & ' '/
2069 & ' '/
2070 & ' grp_nb elem_typ ihbe ',
2071 & 'num_elem mat_numb ',
2072 & ' mat_usern npt nsg cputimeg',
2073 & ' timetheo diff pct')
2074
my_fsort
subroutine my_fsort(array, index, size, work)
Definition timer.F:2539

◆ printcpu()

subroutine printcpu ( integer iflag)

Definition at line 1335 of file timer.F.

1336C-----------------------------------------------
1337C I m p l i c i t T y p e s
1338C-----------------------------------------------
1339#include "implicit_f.inc"
1340C-----------------------------------------------
1341C C o m m o n B l o c k s
1342C-----------------------------------------------
1343#include "com01_c.inc"
1344#include "task_c.inc"
1345#include "units_c.inc"
1346#include "impl1_c.inc"
1347C-----------------------------------------------
1348C D u m m y A r g u m e n t s
1349C-----------------------------------------------
1350 INTEGER IFLAG
1351
1352 CHARACTER*256 HOSTNAME, CPUNAM
1353 INTEGER FREQUENCE,LENH,LENC,I,MEM,SWAP
1354 SAVE hostname,cpunam,frequence,lenh,lenc,mem,swap
1355
1356 CHARACTER(len=129) :: STACKSIZE_INFO
1357 INTEGER :: STACKSIZE_INFO_LEN
1358
1359 CHARACTER(len=129) :: OMP_STACKSIZE_INFO
1360 INTEGER :: OMP_STACKSIZE_INFO_LEN
1361
1362 IF(iflag==1) THEN
1363
1364 CALL cpuinfo(hostname,lenh,cpunam, lenc, frequence,mem,swap)
1365
1366 ELSEIF(iflag==2) THEN
1367 ! 2nd call after parallel initialization & communication
1368 IF(ispmd==0) THEN
1369 WRITE(iout,*)' '
1370 WRITE(iout,7000)
1371 WRITE(iout,*)' '
1372 IF(nspmd==1) THEN
1373 IF(mem>-1)THEN
1374 WRITE(iout,7400)
1375 WRITE(iout,'(A,A,A,A,A,I4,A,I6,A,I6,A)') ' ',
1376 . hostname(1:lenh),' ',cpunam(1:lenc),', ',frequence,
1377 . ' MHz, ',mem,' MB RAM, ',swap,' MB swap'
1378 ELSE
1379 WRITE(iout,7450)
1380 WRITE(iout,'(A,A,A,A,A,I4,A)') ' ',
1381 . hostname(1:lenh),' ',cpunam(1:lenc),', ',frequence,
1382 . ' MHz '
1383 END IF
1384 ELSE
1385 i = 1
1386 IF(mem>-1)THEN
1387 WRITE(iout,7500)
1388 WRITE(iout,'(I4,A,A,A,A,A,I4,A,I6,A,I6,A)') i,' ',
1389 . hostname(1:lenh),' ',cpunam(1:lenc),', ',frequence,
1390 . ' MHz, ',mem,' MB RAM, ',swap,' MB swap'
1391 ELSE
1392 WRITE(iout,7550)
1393 WRITE(iout,'(I4,A,A,A,A,A,I4,A)') i,' ',
1394 . hostname(1:lenh),' ',cpunam(1:lenc),', ',frequence,
1395 . ' MHz '
1396 END IF
1397 END IF
1398 END IF
1399C ecriture du complement en multiprocs
1400 IF(nspmd>1)
1401 . CALL spmd_printcpuinfo(hostname,lenh,cpunam, lenc, frequence,
1402 . mem,swap)
1403 IF(ispmd==0) THEN
1404 WRITE(iout,*)' '
1405 omp_stacksize_info_len=128
1406 stacksize_info_len=128
1407 CALL get_solver_stacksize(stacksize_info,stacksize_info_len,omp_stacksize_info,omp_stacksize_info_len)
1408 WRITE(iout,'(A,A)') ' STACKSIZE . . . . . . . . . . . . . . . . . . . . ',stacksize_info(1:stacksize_info_len)
1409 WRITE(iout,'(A,A)') ' THREAD STACKSIZE . . . . . . . . . . . . . . . . . ',omp_stacksize_info(1:omp_stacksize_info_len)
1410 WRITE(iout,'(A)') ' '
1411 ! Force write to output file
1412 CALL my_flush(iout)
1413 END IF
1414
1415 ENDIF
1416
1417 lmemv = mem
1418
1419 7000 FORMAT (' COMPUTATION HARDWARE DESCRIPTION')
1420 7400 FORMAT (' HOSTNAME CPU TYPE, FREQUENCY AND MEMORY')
1421 7450 FORMAT (' HOSTNAME CPU TYPE AND FREQUENCY')
1422 7500 FORMAT (' CPU# HOSTNAME CPU TYPE, FREQUENCY AND MEMORY')
1423 7550 FORMAT (' CPU# HOSTNAME CPU TYPE AND FREQUENCY ')
1424
swap
#define swap(a, b, tmp)
Definition macros.h:40
spmd_printcpuinfo
subroutine spmd_printcpuinfo(hostname, lenh, cpunam, lenc, frequence, mem, swap)
Definition spmd_printcpuinfo.F:34
get_solver_stacksize
void get_solver_stacksize(char *stsize, int *stsize_len, char *omp_stsize, int *omp_stsize_len)
Definition stacksize.cpp:172
my_flush
subroutine my_flush(iunit)
Definition machine.F:147
cpuinfo
void cpuinfo(char *hostname, int *lenhost, char *cputype, int *lencputype, int *frequence, int *memory, int *swap)
Definition mon_c.c:671

◆ printime()

subroutine printime ( type(timer_), intent(inout) t,
integer, intent(in) itherm,
type(output_), intent(inout) output )

Definition at line 509 of file timer.F.

510C routine d'affichage des timers
511C-----------------------------------------------
512C M o d u l e s
513C-----------------------------------------------
514 USE timer_mod
515 USE time_mod
516 USE inoutfile_mod
517 USE output_mod
518C-----------------------------------------------
519C I m p l i c i t T y p e s
520C-----------------------------------------------
521#include "implicit_f.inc"
522C-----------------------------------------------
523C C o m m o n B l o c k s
524C-----------------------------------------------
525#include "com01_c.inc"
526#include "com04_c.inc"
527#include "scr05_c.inc"
528#include "sms_c.inc"
529#include "task_c.inc"
530#include "timerc_c.inc"
531#include "timeri_c.inc"
532!#include "timerr_c.inc"
533#include "units_c.inc"
534#include "filescount_c.inc"
535 COMMON /iclock/clock0
536 INTEGER CLOCK0
537 COMMON /rclock/elapsed
538 DOUBLE PRECISION ELAPSED
539C-----------------------------------------------
540C D u m m y A r g u m e n t s
541C-----------------------------------------------
542 TYPE(TIMER_), INTENT(INOUT) :: T
543 INTEGER ,INTENT(IN) :: ITHERM
544 TYPE(OUTPUT_), INTENT(INOUT) :: OUTPUT
545C-----------------------------------------------
546C L o c a l V a r i a b l e s
547C-----------------------------------------------
548 INTEGER I, NPROC, MSGTAG, IRSIZE, J, IH, IM, IS
549 DOUBLE PRECISION SECS, TOTAL, CUMUL(MAX_NB_TIMER),
550 . AVERAGE(MAX_NB_TIMER), DEVIATION(MAX_NB_TIMER),
551 . DMIN(MAX_NB_TIMER), DMAX(MAX_NB_TIMER),CUMUL_MAT,CUMUL_ELEM,
552 . CUMUL_FAIL,ARRAY(NSPMD),X_MINVALUE,X_MAXVALUE,Y_MAXVALUE
553 INTEGER MEMUSE(NSPMD),MEM_L,MMIN,MMAX,MTOT,MAVR,
554 . OUTSIZE,RFILESIZE,NB_INTERV
555 INTEGER VMPEAK, VMSIZE,VMRSS,VMHWM, VMSTK,MEMSTAT(5,NSPMD),
556 . GOT_MEM_MAP
557 CHARACTER(LEN=9) TITLES(MAX_NB_TIMER)
558 INTEGER FIELDS(11),NFIELDS
559 REAL ZEROS
560 INTEGER :: NF,IJK,IJKL,LEN_RST_NAME
561 CHARACTER*8 DATE
562 CHARACTER*10 TIME
563 LOGICAL :: BOOL_FILE
564 INTEGER :: CURRENT_RUN,OFFSET
565 INTEGER, DIMENSION(2148) :: RST_NAME
566 INTEGER :: LEN_TMP_NAME
567 CHARACTER(len=4096) :: TMP_NAME
568 INTEGER :: INDICE
569 INTEGER, PARAMETER :: INTSIZE = 4
570 REAL, DIMENSION(:,:), ALLOCATABLE :: CPUTIME
571 REAL, DIMENSION(:,:), ALLOCATABLE :: SYSTIME
572 REAL, DIMENSION(:,:), ALLOCATABLE :: REALTIME
573
574
575 titles(macro_timer_resol ) = "RESOL"
576 titles(macro_timer_contsort ) = "CONTSORT"
577 titles(macro_timer_contfor ) = "CONTFOR"
578 titles(macro_timer_element ) = "ELEMENT"
579 titles(macro_timer_kin ) = "KINCOND"
580 titles(macro_timer_integ ) = "INTEG"
581 titles(macro_timer_p0 ) = "T0"
582 titles(macro_timer_io ) = "IO"
583 titles(macro_timer_asm ) = "ASM"
584 titles(macro_timer_ams ) = "SMS"
585
586
587 titles(macro_timer_alemain ) = "ALEMAIN"
588 titles(macro_timer_ifsub0 ) = "IFSUB0"
589 titles(macro_timer_multifvm ) = "MULTIFVM"
590 titles(macro_timer_spmdcfd ) = "SPMDCFD"
591 titles(macro_timer_muscl ) = "MUSCL"
592
593
594 titles(31) = '[K]SETUP'
595 titles(32) = '[M]SETUP'
596 titles(33) = 'IMP_SOLV'
597 titles(34) = 'IMP_TOT'
598 titles(36) = 'CRITER'
599 titles(37) = 'FOR'
600 titles(38) = 'VEL'
601C
602 zeros=zero
603 IF (icray==1) THEN
604 irsize = 8
605 ELSE
606 irsize = 4
607 ENDIF
608C
609 vmpeak=-1
610 vmsize=-1
611 vmrss=-1
612 vmhwm=-1
613 vmstk=-1
614 CALL map_memory(vmpeak, vmsize,vmrss,vmhwm, vmstk)
615 nproc = nspmd
616C nproc = nombre de domaines, toutes les taches SMP comptent pour un seul proc
617CC NPROC = MAX(NTHREAD,NSPMD)
618CC smp nproc = ntask, spmd nproc = NSPMD
619
620 ALLOCATE(cputime(max_nb_timer,nspmd))
621 ALLOCATE(systime(max_nb_timer,nspmd))
622 ALLOCATE(realtime(max_nb_timer,nspmd))
623
624 DO i = 1, max_nb_timer
625 ! copy local timers
626 cputime(i,1) = t%CPUTIME(i)
627 systime(i,1) = t%SYSTIME(i)
628 realtime(i,1) = t%REALTIME(i)
629 ENDDO
630
631 memuse(ispmd+1)=vmpeak
632 memstat(1,ispmd+1) = vmpeak
633 memstat(2,ispmd+1) = vmsize
634 memstat(3,ispmd+1) = vmrss
635 memstat(4,ispmd+1) = vmhwm
636 memstat(5,ispmd+1) = vmstk
637
638
639
640 IF (nspmd > 1) THEN
641C gather des cpu et sys time pour spmd
642 msgtag = 1000
643 IF (ispmd/=0) THEN
644 CALL rad_spmd_send(t%CPUTIME,max_nb_timer*irsize,0,it_spmd,
645 . msgtag+ispmd+1,intsize)
646 CALL rad_spmd_send(t%SYSTIME,max_nb_timer*irsize,0,it_spmd,
647 . msgtag+ispmd+1,intsize)
648 CALL rad_spmd_send(t%REALTIME,max_nb_timer*irsize,0,it_spmd,
649 . msgtag+ispmd+1,intsize)
650 ELSE
651 DO i = 2, nspmd
652 CALL rad_spmd_recv(cputime(1,i),max_nb_timer*irsize,i-1,it_spmd,
653 . msgtag+i,intsize)
654 CALL rad_spmd_recv(systime(1,i),max_nb_timer*irsize,i-1,it_spmd,
655 . msgtag+i,intsize)
656 CALL rad_spmd_recv(realtime(1,i),max_nb_timer*irsize,i-1,it_spmd,
657 . msgtag+i,intsize)
658 ENDDO
659 ENDIF
660
661C Gather de la m moire utilis e
662 msgtag = 1100
663 memuse=0
664 mem_l=0
665
666c MEMUSE(ISPMD+1)=VMPEAK
667c MEMSTAT(1,ISPMD+1) = VMPEAK
668c MEMSTAT(2,ISPMD+1) = VMSIZE
669c MEMSTAT(3,ISPMD+1) = VMRSS
670c MEMSTAT(4,ISPMD+1) = VMHWM
671c MEMSTAT(5,ISPMD+1) = VMSTK
672
673 IF (ispmd/=0) THEN
674 CALL rad_spmd_send( memuse(ispmd+1),1*irsize,0,it_spmd,
675 . msgtag+ispmd+1,intsize)
676 CALL rad_spmd_send( vmsize,1*irsize,0,it_spmd,
677 . msgtag+ispmd+1,intsize)
678 CALL rad_spmd_send( vmrss,1*irsize,0,it_spmd,
679 . msgtag+ispmd+1,intsize)
680 CALL rad_spmd_send( vmhwm,1*irsize,0,it_spmd,
681 . msgtag+ispmd+1,intsize)
682 CALL rad_spmd_send( vmstk,1*irsize,0,it_spmd,
683 . msgtag+ispmd+1,intsize)
684 ELSE
685 DO i = 2, nspmd
686 CALL rad_spmd_recv(memuse(i),1*irsize,i-1,it_spmd,
687 . msgtag+i,intsize)
688 memstat(1,i) = memuse(i)
689 CALL rad_spmd_recv(memstat(2,i),1*irsize,i-1,it_spmd,
690 . msgtag+i,intsize)
691 CALL rad_spmd_recv(memstat(3,i),1*irsize,i-1,it_spmd,
692 . msgtag+i,intsize)
693 CALL rad_spmd_recv(memstat(4,i),1*irsize,i-1,it_spmd,
694 . msgtag+i,intsize)
695 CALL rad_spmd_recv(memstat(5,i),1*irsize,i-1,it_spmd,
696 . msgtag+i,intsize)
697
698 ENDDO
699
700 indice = 1
701 IF(memstat(4,1)/=-1) THEN
702 indice = 4
703 ELSEIF(memstat(1,1)/=-1) THEN
704 indice = 1
705 ELSEIF(memstat(2,1)/=-1) THEN
706 indice = 2
707 ELSEIF(memstat(3,1)/=-1) THEN
708 indice = 3
709 ENDIF
710 mmin = memstat(indice,1)
711 mmax = memstat(indice,1)
712 mtot = memstat(indice,1)
713 DO i=2,nspmd
714 IF (mmin > memstat(indice,i) ) THEN
715 mmin = memstat(indice,i)
716 ENDIF
717 IF (mmax < memstat(indice,i) ) THEN
718 mmax = memuse(i)
719 ENDIF
720 mtot = mtot+ memstat(indice,i)
721 ENDDO
722 mavr=mtot/nspmd
723 ENDIF
724 ELSE
725C Monoproc run
726C Gestion de la m moire utilisee
727 IF(vmhwm/=-1) THEN
728 mem_l = vmhwm
729 ELSEIF(vmpeak/=-1) THEN
730 mem_l = vmpeak
731 ELSEIF(vmsize/=-1) THEN
732 mem_l = vmsize
733 ELSE
734 mem_l = -1
735 ENDIF
736 mmin = mem_l
737 mmax = mem_l
738 mtot = mem_l
739 mavr = mem_l
740 ENDIF
741C
742C Gather de la taille des fichiers restart
743 IF(nspmd > 1)CALL spmd_glob_isum9(restartfilesize,1)
744C Gather taille des fichiers multiple restart
745 IF(nspmd > 1)CALL spmd_glob_isum9(multirests,26)
746C
747
748
749C
750 IF (ispmd/=0) RETURN
751
752 WRITE(istdo,*)' '
753 WRITE(istdo,*)' ** CPU USER TIME **'
754 WRITE(istdo,*)' '
755
756 CALL print_summary(1,max_nb_timer,cputime,titles,istdo,itherm)
757
758 WRITE(iout,*)' '
759 WRITE(iout,*)' ** CPU USER TIME **'
760 WRITE(iout,*)' '
761
762
763 CALL print_summary(1,max_nb_timer,cputime,titles,iout,itherm)
764
765
766
767
768C
769C
770 IF(imon_mat==1)THEN
771 cumul_mat=zero
772 cumul_elem=zero
773 cumul_fail=zero
774 DO i = 1, nproc
775 cumul_mat = cumul_mat +cputime(35,i)
776 cumul_elem= cumul_elem+cputime(3,i)
777 cumul_fail= cumul_fail+cputime(121,i)
778 ENDDO
779
780 WRITE(iout,*)' '
781 WRITE(iout,*)' ** MATERIAL LAWS COST **'
782 WRITE(iout,*)' '
783 WRITE(istdo,*)' '
784 WRITE(istdo,*)' ** MATERIAL LAWS COST **'
785 WRITE(istdo,*)' '
786 WRITE(iout, '(A)')' #PROC ELEM COST MAT COST FAIL COST'
787 WRITE(istdo,'(A)')' #PROC ELEM COST MAT COST FAIL COST'
788 DO i = 1, nproc
789 WRITE(iout, '(I4,3x,E9.4,3x,E9.4,3x,E9.4)') i,cputime(3,i),cputime(35,i),cputime(121,i)
790 WRITE(istdo,'(I4,3x,E9.4,3x,E9.4,3x,E9.4)') i,cputime(3,i),cputime(35,i),cputime(121,i)
791 ENDDO
792 WRITE(iout,*)' '
793 WRITE(istdo,*)' '
794 WRITE(iout,'(A,E9.4)') ' TOTAL ELEMENT COST..............: ',cumul_elem
795 WRITE(iout,'(A,E9.4)') ' TOTAL MATERIAL COST.............: ',cumul_mat
796 WRITE(iout,'(A,E9.4)') ' TOTAL FAIL COST.................: ',cumul_fail
797
798 WRITE(istdo,'(A,E9.4)') ' TOTAL ELEMENT COST..............: ',cumul_elem
799 WRITE(istdo,'(A,E9.4)') ' TOTAL MATERIAL COST.............: ',cumul_mat
800 WRITE(istdo,'(A,E9.4)') ' TOTAL FAIL COST.................: ',cumul_fail
801 WRITE(iout,*)' '
802 WRITE(istdo,*)' '
803 ENDIF
804C
805 WRITE(iout,*)' '
806C---------------------------
807C Global timings
808C---------------------------
809 DO i = 1, max_nb_timer
810 cumul(i) = zero
811 END DO
812 DO i = 1,nproc
813 DO j = 1, max_nb_timer
814 cumul(j) = cumul(j) + cputime(j,i)
815 ENDDO
816 ENDDO
817 IF(idtmins==0.AND.idtmins_int==0)THEN
818 total = cumul(1)-cumul(2)-cumul(8)-cumul(3)-cumul(4)-cumul(5)
819 - -cumul(9)-cumul(macro_timer_alemain)
820 ELSE
821 total = cumul(1)-cumul(2)-cumul(8)-cumul(3)-cumul(4)-cumul(5)
822 - -cumul(9)-cumul(39)-cumul(macro_timer_alemain)
823 END IF
824 IF(cumul(1)<=zero)cumul(1)=em10
825
826
827 WRITE(istdo,*) ''
828
829 WRITE(istdo,*)
830 . ' ** CUMULATIVE CPU TIME SUMMARY **'
831 WRITE(istdo,*)' '
832 WRITE(istdo,'(A,E9.4,3x,F6.2,A)')' CONTACT SORTING.............: ',
833 + cumul(2),100*cumul(2)/cumul(1),' % '
834 WRITE(istdo,'(A,E9.4,3x,F6.2,A)')' CONTACT FORCES..............: ',
835 + cumul(8),100*cumul(8)/cumul(1),' % '
836 IF(ninter25/=0)
837 * WRITE(istdo,'(A,E9.4,3x,F6.2,A)')' ..INCLUDING CONTACT NORMALS: ',
838 * cumul(106),100*cumul(106)/cumul(1),' % '
839 WRITE(istdo,'(A,E9.4,3x,F6.2,A)')' ELEMENT FORCES..............: ',
840 + cumul(3),100*cumul(3)/cumul(1),' % '
841 WRITE(istdo,'(A,E9.4,3x,F6.2,A)')' KINEMATIC COND..............: ',
842 + cumul(4),100*cumul(4)/cumul(1),' % '
843 WRITE(istdo,'(A,E9.4,3x,F6.2,A)')' INTEGRATION.................: ',
844 + cumul(5),100*cumul(5)/cumul(1),' % '
845 WRITE(istdo,'(A,E9.4,3x,F6.2,A)')' ASSEMBLING..................: ',
846 + cumul(9),100*cumul(9)/cumul(1),' % '
847 IF(idtmins/=0.OR.idtmins_int/=0)THEN
848 WRITE(istdo,'(A,E9.4,3x,F6.2,A)')' AMS.........................: ',
849 + cumul(39),100*cumul(39)/cumul(1),' % '
850 END IF
851 IF(iale+ieuler+itherm/=0) THEN
852 WRITE(istdo,'(A,E9.4,3x,F6.2,A)')' ALE.........................: ',
853 + cumul(macro_timer_alemain),
854 + 100*cumul(macro_timer_alemain)/cumul(1),' % '
855 ENDIF
856
857 WRITE(istdo,'(A,E9.4,3x,F6.2,A)')' OTHERS (including I/O)......: ',
858 + total,100*total/cumul(1),' % '
859 WRITE(istdo,'(A,E9.4,3x,F6.2,A)')' TOTAL.......................: ',
860 + cumul(1),100*cumul(1)/cumul(1),' % '
861c IF(NUMSPH /=0) THEN
862c WRITE(ISTDO,'(A,E9.4,3x,F6.2,A)')' SPH TOTAL...................: ',
863c + CUMUL(48),
864c + 100*CUMUL(48)/CUMUL(1),' % '
865c ENDIF
866
867
868
869 WRITE(istdo,*)' '
870
871 WRITE(iout,*) ''
872 WRITE(iout,*)
873 . ' ** CUMULATIVE CPU TIME SUMMARY **'
874 WRITE(iout,*)' '
875 WRITE(iout,'(A,E9.4,3x,F6.2,A)')' CONTACT SORTING.............: ',
876 + cumul(2),100*cumul(2)/cumul(1),' % '
877 WRITE(iout,'(A,E9.4,3x,F6.2,A)')' CONTACT FORCES..............: ',
878 + cumul(8),100*cumul(8)/cumul(1),' % '
879 IF(ninter25/=0)
880 * WRITE(iout,'(A,E9.4,3x,F6.2,A)')' .. INCLUDING CONTACT NORMALS: ',
881 * cumul(106),100*cumul(106)/cumul(1),' % '
882 WRITE(iout,'(A,E9.4,3x,F6.2,A)')' ELEMENT FORCES..............: ',
883 + cumul(3),100*cumul(3)/cumul(1),' % '
884 WRITE(iout,'(A,E9.4,3x,F6.2,A)')' KINEMATIC COND..............: ',
885 + cumul(4),100*cumul(4)/cumul(1),' % '
886 WRITE(iout,'(A,E9.4,3x,F6.2,A)')' INTEGRATION.................: ',
887 + cumul(5),100*cumul(5)/cumul(1),' % '
888 WRITE(iout,'(A,E9.4,3x,F6.2,A)')' ASSEMBLING..................: ',
889 + cumul(9),100*cumul(9)/cumul(1),' % '
890 IF(idtmins/=0.OR.idtmins_int/=0)THEN
891 WRITE(iout,'(A,E9.4,3x,F6.2,A)')' AMS.........................: ',
892 + cumul(39),100*cumul(39)/cumul(1),' % '
893 END IF
894 IF(iale+ieuler+itherm/=0) THEN
895 WRITE(iout,'(A,E9.4,3x,F6.2,A)')' ALE.........................: ',
896 + cumul(macro_timer_alemain)
897 + ,100*cumul(macro_timer_alemain)/cumul(1),' % '
898 ENDIF
899 WRITE(iout,'(A,E9.4,3x,F6.2,A)')' OTHERS (including I/O)......: ',
900 + total,100*total/cumul(1),' % '
901 WRITE(iout,'(A,E9.4,3x,F6.2,A)')' TOTAL.......................: ',
902 + cumul(1),100*cumul(1)/cumul(1),' % '
903 WRITE(iout,*)' '
904
905
906C
907
908 WRITE(iout,*)' '
909 WRITE(iout,*)' ** ELAPSED TIME **'
910 WRITE(iout,*)' '
911
912 CALL print_summary(2,max_nb_timer,realtime,titles,iout,itherm)
913
914 IF(.false.)THEN
915 WRITE(iout,*)' '
916 WRITE(iout,*)' ** ADDITIONAL DEBUG TIMERS (2) **'
917 WRITE(iout,*)' '
918 DO i = 1, nproc
919 WRITE(iout,5550)i,
920 . realtime(96,i),realtime(97,i),realtime(98,i),realtime(99,i),
921 . realtime(100,i),realtime(101,i),realtime(102,i)
922 ENDDO
923 END IF
924C
925 WRITE(iout,*)' '
926
927 WRITE(istdo,*)
928 . ' ** MEMORY USAGE STATISTICS **'
929 WRITE(istdo,*)' '
930 WRITE(istdo,'(A,A,I8,A)')' TOTAL MEMORY USED ',
931 + '.........................: ',mtot,' MB'
932 WRITE(istdo,'(A,A,I8,A)')' MAXIMUM MEMORY PER PROCESSOR' ,
933 * '...............: ', mmax,' MB'
934 WRITE(istdo,'(A,A,I8,A)')' MINIMUM MEMORY PER PROCESSOR',
935 * '...............: ',mmin,' MB'
936 WRITE(istdo,'(A,A,I8,A)')' AVERAGE MEMORY PER PROCESSOR',
937 * '...............: ', mavr,' MB'
938 WRITE(istdo,*)' '
939
940 IF (imonm > 0)THEN
941 WRITE(istdo,'(A)') ' #PROC MEMORY USED'
942 DO i = 1, nproc
943 WRITE(istdo,'(I4,A,I8,A)') i,' ',memuse(i),' MB'
944 ENDDO
945 WRITE(istdo,*)' '
946 ENDIF
947
948
949C Output file
950 WRITE(iout,*)
951 . ' ** MEMORY USAGE STATISTICS **'
952 WRITE(iout,*)' '
953 WRITE(iout,'(A,A,I8,A)')' TOTAL MEMORY USED ',
954 + '.........................: ',mtot,' MB'
955 WRITE(iout,'(A,A,I8,A)')' MAXIMUM MEMORY PER PROCESSOR' ,
956 * '...............: ', mmax,' MB'
957 WRITE(iout,'(A,A,I8,A)')' MINIMUM MEMORY PER PROCESSOR',
958 * '...............: ',mmin,' MB'
959 WRITE(iout,'(A,A,I8,A)')' AVERAGE MEMORY PER PROCESSOR',
960 * '...............: ', mavr,' MB'
961 WRITE(iout,*)' '
962
963c IF (IMONM > 0)THEN
964c WRITE(IOUT,'(A)') ' #PROC MEMORY USE'
965c DO I = 1, NPROC
966c WRITE(IOUT,'(I4,A,I8,A)') I,' ',MEMUSE(I),' MB'
967c ENDDO
968c WRITE(IOUT,*)' '
969c ENDIF
970
971C workaround / one variable in commandline.inc conflicts with scr07.inc
972 CALL get_mem_map_var(got_mem_map)
973 IF(got_mem_map==1 .OR. imonm > 0)THEN
974 WRITE(iout,'(A)') ' ** PROCESS MEMORY MAPPING'
975 WRITE(iout,*)' '
976 WRITE(iout,'(A)') ' #PROC VMPEAK VMSIZE VMRSS VMHWM VMSTK'
977 DO i = 1, nproc
978 WRITE(iout,'(I4,A,I10,A,I10,A,I10,A,I10,A,I10)')
979 * i,' ',memstat(1,i),' ',memstat(2,i),' ',memstat(3,i),' ',
980 * memstat(4,i),' ',memstat(5,i)
981 ENDDO
982 WRITE(istdo,*)' '
983
984 ENDIF
985
986C Engine Disk usage Statistics
987! ANIMTOTALSIZE : kb
988! THFILESIZE : kb
989! OUTPFILESIZE : kb
990! H3DTOTALSIZE : mb --> kb
991 h3dtotalsize = h3dtotalsize*1024
992 outsize=animtotalsize+thfilesize+outpfilesize+h3dtotalsize
993 DO i=1,9
994 outsize = outsize+multithfilesize(i)
995 ENDDO
996 rfilesize=restartfilesize
997 DO i=1,26
998 rfilesize = rfilesize+multirests(i)
999 ENDDO
1000 totalfilecount = (outsize)+rfilesize+mumpsfilesize+
1001 * bcsfilesize
1002 totalfilecount = totalfilecount/1024
1003 outsize = outsize / 1024
1004 rfilesize = rfilesize / 1024
1005 mumpsfilesize = mumpsfilesize / 1024
1006 bcsfilesize = bcsfilesize / 1024
1007 WRITE(istdo,*)
1008 . ' ** DISK USAGE STATISTICS **'
1009 WRITE(istdo,*)' '
1010 WRITE(istdo,'(A,A,I10,A)')' TOTAL DISK SPACE USED ',
1011 * '.....................: ',totalfilecount,
1012 * ' MB'
1013 WRITE(istdo,'(A,A,I10,A)')' ANIMATION/H3D/TH/OUTP SIZE ',
1014 * '................: ',outsize,
1015 * ' MB'
1016 WRITE(istdo,'(A,A,I10,A)')' RESTART FILE SIZE ',
1017 * '.........................: ',
1018 * rfilesize,' MB'
1019 IF (mumpsfilesize > 0)THEN
1020 WRITE(istdo,'(A,A,I10,A)')' MUMPS INTERNAL FILE USAGE ',
1021 * '.................: ',
1022 * mumpsfilesize,' MB'
1023 ENDIF
1024 IF (bcsfilesize > 0) THEN
1025 WRITE(istdo,'(A,A,I10,A)')' BCS INTERNAL FILE USAGE ',
1026 * '...................: ',
1027 * bcsfilesize,' MB'
1028 ENDIF
1029
1030
1031 WRITE(istdo,*)' '
1032
1033
1034 WRITE(iout,*)
1035 . ' ** DISK USAGE STATISTICS **'
1036 WRITE(iout,*)' '
1037 WRITE(iout,'(A,A,I10,A)')' TOTAL DISK SPACE USED ',
1038 * '.....................: ',totalfilecount,
1039 * ' MB'
1040 WRITE(iout,'(A,A,I10,A)')' ANIMATION/H3D/TH/OUTP SIZE ',
1041 * '................: ',outsize,
1042 * ' MB'
1043 WRITE(iout,'(A,A,I10,A)')' RESTART FILE SIZE ',
1044 * '.........................: ',
1045 * rfilesize,' MB'
1046 IF (mumpsfilesize > 0)THEN
1047 WRITE(iout,'(A,A,I10,A)')' MUMPS INTERNAL FILE USAGE ',
1048 * '.................: ',
1049 * mumpsfilesize/1024,' MB'
1050 ENDIF
1051 IF (bcsfilesize > 0) THEN
1052 WRITE(iout,'(A,A,I10,A)')' BCS INTERNAL FILE USAGE ',
1053 * '...................: ',
1054 * bcsfilesize/1024,' MB'
1055 ENDIF
1056
1057 WRITE(iout,*)' '
1058
1059C---------------------------
1060C Elapsed time & Estimated Speedup
1061C---------------------------
1062 CALL elapstime(t,secs)
1063 CALL date_and_time(date,time)
1064 output%CHECKSUM%DATE = date
1065 output%CHECKSUM%TIME = time
1066! ---------------------------
1067 IF(ispmd==0) THEN
1068 current_run = global_comp_time%RUN_NBR
1069 global_comp_time%ENGINE_TIME(current_run) = secs
1070 len_rst_name = len_trim(global_comp_time%RST_NAME)
1071 len_tmp_name = outfile_name_len + len_rst_name
1072 tmp_name=outfile_name(1:outfile_name_len)//global_comp_time%RST_NAME(1:len_rst_name)
1073
1074 DO i = 1, len_tmp_name
1075 rst_name(i) = ichar(tmp_name(i:i))
1076 END DO
1077 bool_file=.false.
1078 INQUIRE(file=tmp_name(1:len_tmp_name), exist=bool_file)
1079! check if *_0000.rst exists
1080 IF(bool_file) THEN
1081 CALL cur_fil_c(20)
1082 CALL open_c(rst_name,len_tmp_name,2)
1083! write the starter + engine elapsed time
1084 offset= - storage_size(global_comp_time%ENGINE_TIME(current_run))/8
1085 CALL fseek_end_c(offset)
1086 CALL write_dpdb(global_comp_time%ENGINE_TIME(current_run),1)
1087 CALL close_c
1088 ENDIF
1089 ENDIF
1090! ---------------------------
1091
1092
1093C CALL SYSTEM_CLOCK(COUNT=CLOCK1, COUNT_RATE=CLOCKRATE,
1094C + COUNT_MAX=NBMAX )
1095C SECS = CLOCK1-CLOCK0 ! diff temps final - temps initial (qui peut ne pas etre 0 !)
1096C IF(SECS<ZERO) SECS = SECS + NBMAX ! cas depassement nb de periode maximum
1097C SECS = SECS/CLOCKRATE
1098
1099 ih=int(secs/3600.0d0)
1100 im=int((secs-ih*3600.0d0)/60.0d0)
1101 is=int(secs-ih*3600.0d0-im*60.0d0)
1102
1103 WRITE(iout,*)
1104 . ' ** COMPUTE TIME INFORMATION **'
1105 WRITE(iout,*)
1106 . ' ** CURRENT ENGINE **'
1107 WRITE(iout,*)' '
1108
1109 WRITE(iout,6200)startdate(1:4),startdate(5:6),startdate(7:8),
1110 . starttime(1:2),starttime(3:4),starttime(5:6)
1111 WRITE(iout,6300)date(1:4),date(5:6),date(7:8),
1112 . time(1:2),time(3:4),time(5:6)
1113 WRITE(iout,*)' '
1114
1115 WRITE(istdo,6000)secs
1116 WRITE(istdo,6100)ih,im,is
1117 IF(nproc>1.AND.secs>zero)WRITE(istdo,8000)cumul(1)/secs
1118 WRITE(istdo,*)' '
1119 WRITE(iout,6000)secs
1120 WRITE(iout,6100)ih,im,is
1121 IF(nproc>1.AND.secs>zero)WRITE(iout,8000)cumul(1)/secs
1122
1123 1000 FORMAT(' ** PROCESSOR NUMBER **',16(i8,5x,"%",2x))
1124 2000 FORMAT(' #PROC ','CONT.SORT ','CONT. F ','ELEMENT ',
1125 . 'KIN.COND. ','INTEGR.',' I/O ','TASK0 ',
1126 . 'ASSEMB. ','RESOL ')
1127 2001 FORMAT(' #PROC ','CONT.SORT ','CONT. F ','ELEMENT ',
1128 . 'KIN.COND. ','INTEGR.',' I/O ','TASK0 ',
1129 . 'ASSEMB. ','AMS ','RESOL ')
1130 2050 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1131 . 1x,e9.4,1x,e9.4,1x,e9.4)
1132 2051 FORMAT(i4,3x,f6.2,a,1x,f6.2,a,1x,f6.2,a,1x,f6.2,a,1x,f6.2,a,
1133 . 1x,f6.2,a,1x,f6.2,a,1x,f6.2,a,1x,f6.2,a)
1134 2055 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1135 . 1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1136 2057 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1137 . 1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1138 2100 FORMAT(' #PROC ','CONT.SORT ','CONT. F ','ELEMENT ',
1139 . 'KIN.COND. ','INTEGR.',' I/O ','TASK0 ',
1140 . 'ASSEMB. ','RESOL ')
1141 2101 FORMAT(' #PROC ','CONT.SORT ','CONT. F ','ELEMENT ',
1142 . 'KIN.COND. ','INTEGR.',' I/O ','TASK0 ',
1143 . 'ASSEMB. ' ,'AMS ','RESOL ')
1144 2102 FORMAT(' ','CONT.SORT ','CONT. F ','ELEMENT ',
1145 . 'KIN.COND. ','INTEGR.',' I/O ','TASK0 ',
1146 . 'ASSEMB. ','RESOL ')
1147 2103 FORMAT(' ','CONT.SORT ','CONT. F ','ELEMENT ',
1148 . 'KIN.COND. ','INTEGR.',' I/O ','TASK0 ',
1149 . 'ASSEMB. ' ,'AMS ','RESOL ')
1150 2110 FORMAT(' #PROC ','[K]SETUP ','[M]SETUP ','IMPL.SOLV ',
1151 . 'IMPL.TOTAL')
1152 2120 FORMAT(' #PROC ',' COMM DOT',' COMM V ','COMM GPU>CPU ',
1153 . 'COMM CPU>GPU ')
1154 2121 FORMAT(' ',' COMM DOT',' COMM V ','COMM GPU>CPU ',
1155 . 'COMM CPU>GPU ')
1156 2125 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1157 2126 FORMAT(1x,a4,2x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1158 2150 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,
1159 . e9.4,1x,e9.4,1x,e9.4)
1160 2151 FORMAT(1x,a4,2x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,
1161 . e9.4,1x,e9.4,1x,e9.4)
1162 2155 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1163 . 1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1164 2156 FORMAT(1x,a4,2x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1165 . 1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1166 2157 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1167 . 1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1168 2158 FORMAT(1x,a4,2x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1169 . 1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1170 2160 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1171 2200 FORMAT(' #PROC ','CRITER ','ADAPT FOR ','ADAPT VEL ')
1172 2201 FORMAT(' ','CRITER ','ADAPT FOR ','ADAPT VEL ')
1173 2250 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4)
1174 2251 FORMAT(1x,a4,2x,e9.4,1x,e9.4,1x,e9.4)
1175 3000 FORMAT(' #PROC ','FORCES ','RBY.FOR. ','RBY.VEL. ',
1176 . 'VELOCITIES',' TOTAL ','% CPU')
1177 3001 FORMAT(' ','FORCES ','RBY.FOR. ','RBY.VEL. ',
1178 . 'VELOCITIES',' TOTAL ')
1179 3050 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,2x,f6.2)
1180 3051 FORMAT(1x,a4,2x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1181 3330 FORMAT(' #PROC ',' PCG ',' PARIT F ',' COMM R ',
1182 . ' COMP M.V ',' COMM VFI ',' COMM M.V ',' TOT PROJ ',
1183 . ' MAV_LT2 ',' MAM_NM ',' MAV_N,MN ',' COMP MV/E',
1184 . ' BUILD M ')
1185 3331 FORMAT(' ',' PCG ',' PARIT F ',' COMM R ',
1186 . ' COMP M.V ',' COMM VFI ',' COMM M.V ',' TOT PROJ ',' MAV_LT2 ',
1187 . ' MAM_NM ',' MAV_N,MN ',' COMP MV/E',' BUILD M ')
1188 3335 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1189 . 1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1190 3336 FORMAT(1x,a4,2x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1191 . 1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1192 4000 FORMAT(' #PROC ','BUCKCRIT ',' COMMCRIT',' BUCKET ',
1193 . ' gfront ',' cont.opt ',' cont.f** ',
1194 . ' cont.dst ',' c+e force',' cont.norml')
1195 4001 FORMAT(' ','buckcrit ',' commcrit',' bucket ',
1196 . ' gfront ',' cont.opt ',' cont.f** ',
1197 . ' cont.dst ',' c+e force')
1198 4050 FORMAT(I4,3x,E9.4,1x,E9.4,1x,E9.4,1x,E9.4,1x,E9.4,1x,E9.4,1x,
1199 . E9.4,1x,E9.4,1x,E9.4)
1200 4051 FORMAT(1x,A4,2x,E9.4,1x,E9.4,1x,E9.4,1x,E9.4,1x,E9.4,1x,E9.4,1x,
1201 . E9.4,1x,E9.4)
1202 4500 FORMAT(' #PROC ','RB+SENS ',' CLOADS ',' BCS ',
1203 . ' RL+RW ',' FIXVEL ',' RBE3 ',' GRAV')
1204 4501 FORMAT(' ','RB+SENS ',' CLOADS ',' BCS ',
1205 . ' RL+RW ',' FIXVEL ',' RBE3 ',' GRAV')
1206 4550 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,2x,e9.4,1x,
1207 . e9.4,1x,e9.4,1x,e9.4)
1208 4551 FORMAT(1x,a4,2x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,2x,e9.4,1x,
1209 . e9.4,1x,e9.4,1x,e9.4)
1210 5000 FORMAT(' #PROC ','FICOM1 ',' FICOM2 ',' ISDXV1 ',
1211 . ' ISDXV2 ',' TRI MMX**',' TRI BOX ',
1212 . ' TRI BUC**',' TRI GAT**',' SYNC COM ',
1213 . ' SHOOTING ',' INT2 F+V')
1214 5001 FORMAT(' ','FICOM1 ',' FICOM2 ',' ISDXV1 ',
1215 . ' ISDXV2 ',' TRI MMX**',' TRI BOX ',
1216 . ' TRI BUC**',' TRI GAT**',' SYNC COM ',
1217 . ' SHOOTING ',' INT2 F+V')
1218 5050 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1219 + 1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1220 5051 FORMAT(1x,a4,2x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1221 + 1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1222 5500 FORMAT(' #PROC ','MANCTR ',' MONVOL ',' DAMP ',
1223 . ' INT2* ',' FIXVEL* ',' CLOADS* ',
1224 . ' DT2 ',' AUX ',' FORINTS ',
1225 . ' R2R ',' R2M')
1226 5501 FORMAT(' ','MANCTR ',' MONVOL ',' DAMP ',
1227 . ' INT2* ',' FIXVEL* ',' CLOADS* ',
1228 . ' DT2 ',' AUX ',' FORINTS ',
1229 . ' R2R ',' R2M')
1230 5550 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1231 + 1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1232 + 1x,e9.4,1x,e9.4)
1233 5551 FORMAT(1x,a4,2x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1234 + 1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,
1235 + 1x,e9.4,1x,e9.4)
1236 5600 FORMAT(' #PROC ',' SPH/TOTAL',' SPH/SORT ','SPH/FORCES',
1237 . ' SPH/OTHER',' SPH/SORT1',' COMM.SORT1',' SPH/SORT0',
1238 . ' COMM.SORT0',' COMM.FORCES')
1239 5601 FORMAT(' ',' SPH/TOTAL',' SPH/SORT ','SPH/FORCES',
1240 . ' SPH/OTHER',' SPH/SORT1',' COMM.SORT1',' SPH/SORT0',
1241 . ' COMM.SORT0',' COMM.FORCES')
1242 6000 FORMAT(' ELAPSED TIME =',f14.2,' s')
1243 6100 FORMAT(' ',i8,':',i2.2,':',i2.2)
1244 6200 FORMAT(' EXECUTION STARTED .........................: ',
1245 . a4,'/',a2,'/',a2,' ',a2,':',a2,':',a2)
1246 6300 FORMAT(' EXECUTION COMPLETED .......................: ',
1247 . a4,'/',a2,'/',a2,' ',a2,':',a2,':',a2)
1248 6500 FORMAT(' #PROC ','BEG CRIT ','EOF CRIT ','EOF SORT ',
1249 . ' EOF FORCE',' EOF CYCLE',' EOF SPH')
1250 6501 FORMAT(' ','BEG CRIT ','EOF CRIT ','EOF SORT ',
1251 . ' EOF FORCE',' EOF CYCLE',' EOF SPH')
1252 6550 FORMAT(i4,3x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1253 6551 FORMAT(1x,a4,2x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4,1x,e9.4)
1254 8000 FORMAT(' ESTIMATED SPEEDUP=',f14.2)
1255C
1256 RETURN
the
end diagonal values have been computed in the(sparse) matrix id.SOL
print_summary
subroutine print_summary(flag, ntimax, tabtime, titles, out_id, itherm)
Definition timer.F:31
get_mem_map_var
subroutine get_mem_map_var(got_m_map)
Definition timer.F:3164
map_memory
void map_memory(int *VmPeak, int *VmSize, int *VmRSS, int *VmHWM, int *VmStk)
Definition memory_use_c.c:40
rad_spmd_recv
subroutine rad_spmd_recv(a, siz, ispmd, it_spmd, msgtag, intsize)
Definition rad_spmd_recv.F:34
rad_spmd_send
subroutine rad_spmd_send(a, siz, ispmd, it_spmd, msgtag, intsize)
Definition rad_spmd_send.F:34
spmd_glob_isum9
subroutine spmd_glob_isum9(v, len)
Definition spmd_th.F:523
starter
program starter
Definition starter.F:39

◆ printime_mp()

subroutine printime_mp ( integer taille,
integer, dimension(7,taille) tab_ump,
dimension(nspmd+1,taille) cputime_mp2,
integer, dimension(nummat) poin_ump,
t1,
integer, dimension(taille) elem_mp,
dimension(taille) cputime_mp,
dimension(taille) poids_ref )

Definition at line 2987 of file timer.F.

2989C routine d'ecriture des timers
2990C-----------------------------------------------
2991C I m p l i c i t T y p e s
2992C-----------------------------------------------
2993#include "implicit_f.inc"
2994C-----------------------------------------------
2995C G l o b a l P a r a m e t e r s
2996C-----------------------------------------------
2997 COMMON /timerg/timerg(2,500000),cputimeg(500000)
2998 REAL TIMERG,CPUTIMEG
2999C-----------------------------------------------
3000#include "com01_c.inc"
3001#include "com04_c.inc"
3002#include "task_c.inc"
3003#include "units_c.inc"
3004#include "chara_c.inc"
3005#include "scr19_c.inc"
3006C-----------------------------------------------
3007C D u m m y A r g u m e n t s
3008C-----------------------------------------------
3009 INTEGER TAILLE
3010 INTEGER, DIMENSION(7,TAILLE) :: TAB_UMP
3011 my_real t1
3012 my_real, DIMENSION(NSPMD+1,TAILLE) :: cputime_mp2
3013 INTEGER, DIMENSION(NUMMAT) :: POIN_UMP
3014 INTEGER, DIMENSION(TAILLE) :: ELEM_MP
3015 my_real, DIMENSION(TAILLE) :: poids_ref
3016 my_real, DIMENSION(TAILLE) :: cputime_mp
3017C-----------------------------------------------
3018C L o c a l V a r i a b l e s
3019C-----------------------------------------------
3020
3021 CHARACTER FILNAM*100,PROCNAM*4
3022C
3023 INTEGER ITY,MTN,NEL,MID,PID,MUID,PUID,FILEN,
3024 . J,I,PROC
3025 my_real time_matprop,poin,time_ref!,TIME_ELE
3026C-----------------------------------------------
3027
3028 IF(ispmd==0) THEN
3029C ro ouverture du fichier DDW proc = 0
3030 filnam=rootnam(1:rootlen)//'_'//chrun//'.ddw'
3031 OPEN(unit=66,file=filnam,access='SEQUENTIAL',
3032 . form='FORMATTED',status='UNKNOWN')
3033 filen=rootlen+14
3034
3035 WRITE(66,'(A)') 'DOMAIN DECOMPOSITION ANALYSIS FILE '
3036 WRITE(66,'(A)') '---------------------------------- '
3037 WRITE(66,'(A)') ' '
3038 WRITE(66,'(A)') ' '
3039 WRITE(66,1000) ncycle, t1
3040 WRITE(66,3000)
3041
3042 DO i=1,taille
3043 time_matprop = cputime_mp2(nspmd+1,i)
3044 nel = tab_ump(5,i)
3045 muid = tab_ump(1,i)
3046 puid = tab_ump(2,i)
3047 mid = tab_ump(3,i)
3048 pid = tab_ump(4,i)
3049 mtn = tab_ump(6,i)
3050 ity = tab_ump(7,i)
3051
3052 WRITE(66,'(I12,A,I12,A,I12,A,I12,A,I12,A,I12,A,
3053 . I12,A,E15.5)')
3054 . mtn,' ',ity,' ',nel,' ',mid,' ',muid,' ',pid,
3055 . ' ',puid,' ', time_matprop
3056
3057 ENDDO
3058!
3059 WRITE(66,1100)
3060 WRITE(66,1400) nummat,numgeo
3061 DO i=1,(nummat)
3062 poin = poin_ump(i)
3063 WRITE(66,'(I8,A)') poin_ump(i)
3064 ENDDO
3065 WRITE(66,'(A)') '/END'
3066 CLOSE(unit=66)
3067 WRITE (iout,1300) filnam(1:filen)
3068 WRITE (istdo,1300) filnam(1:filen)
3069 ENDIF
3070
3071C ro ouverture du fichier DDW par proc
3072 IF(iddwstat/=0) THEN
3073 WRITE(procnam,'(I4.4)')ispmd+1
3074 filnam=rootnam(1:rootlen)//'_'//chrun//'_'//procnam//'.ddw'
3075 OPEN(unit=67,file=filnam,access='SEQUENTIAL',
3076 . form='FORMATTED',status='UNKNOWN')
3077 filen=rootlen+14
3078
3079 WRITE(67,'(A)') 'DOMAIN DECOMPOSITION ANALYSIS FILE '
3080 WRITE(67,'(A)') '---------------------------------- '
3081 WRITE(67,'(A)') ' '
3082 WRITE(67,'(A)') ' '
3083 WRITE(67,2000) ncycle
3084 proc = ispmd
3085 WRITE(67,1500) proc
3086 WRITE(67,3101)
3087!
3088 DO i=1,taille
3089 time_matprop = cputime_mp(i)
3090 time_ref = poids_ref(i)
3091 IF(time_matprop>zero) THEN
3092 nel = elem_mp(i)
3093 muid = tab_ump(1,i)
3094 puid = tab_ump(2,i)
3095 mid = tab_ump(3,i)
3096 pid = tab_ump(4,i)
3097 mtn = tab_ump(6,i)
3098 ity = tab_ump(7,i)
3099
3100
3101 WRITE(67,'(I12,A,I12,A,I12,A,I12,A,I12,A,I12,A,
3102 . I12,A,E15.5,A,E15.5)')
3103 . mtn,' ',ity,' ',nel,' ',mid,' ',muid,' ',pid,
3104 . ' ',puid,' ', time_matprop,' ',time_ref
3105 ENDIF
3106
3107
3108
3109 ENDDO
3110 WRITE(67,'(A)') '/END'
3111 CLOSE(unit=67)
3112 ENDIF ! end IDDWSTAT/=0
3113
3114
3115 1000 FORMAT(
3116 & 4x,'TOTAL NUMBER OF CYCLES. . . . . . . . . . . . . .',i10/
3117 & 4x,'TOTAL ELEMENT FORCE TIME. . . . . . . . . . . . .',1pg20.13)
3118 2000 FORMAT(
3119 & 4x,'TOTAL NUMBER OF CYCLES. . . . . . . . . . . . . .',i10)
3120 1400 FORMAT(
3121 & 4x,'MATERIAL NUMBER . . . . . . . . . . . . . .',i10/
3122 & 4x,'PROPERTY NUMBER . . . . . . . . . . . . . .',i10)
3123
3124 1100 FORMAT(
3125 & /' '/' '/4x,' POINTER ')
3126
3127 1500 FORMAT(
3128 & /' '/' '/4x,'ISPMD. . . . . . . . . . . . . .',i10)
3129
3130 1200 FORMAT(
3131 & 4x,'SOLID, SHELL, TRIANGULAR GROUP TIME'/,
3132 & 4x,'-----------------------------------'/,
3133 & 4x,'TOTAL GROUP TIME . . . . . . . . . . . . . . . .',1pg20.13/
3134 & 4x,'STARTER ESTIMATED GROUP TIME . . . . . . . . . .',1pg20.13)
3135
3136 1300 FORMAT (4x,' DD ANALYSIS FILE:',1x,a,' WRITTEN')
3137
3138 3000 FORMAT(
3139 & /' '/' '/10x,' MATERIAL/PROPERTY TIMER'/
3140 & 10x,' --------------------'/
3141 & ' '/
3142 & ' '/
3143 & ' LAW_NUMB ELEM_TYP NUM_ELEM MAT_NUMB MAT_USER',
3144 & ' PROP_NUMB PROP_USER CPUTIME')
3145
3146 3100 FORMAT(
3147 & ' LAW_NUMB ELEM_TYP NUM_ELEM MAT_NUMB MAT_USER',
3148 & ' PROP_NUMB PROP_USER CPUTIME')
3149
3150 3101 FORMAT(
3151 & ' LAW_NUMB ELEM_TYP NUM_ELEM MAT_NUMB MAT_USER',
3152 & ' PROP_NUMB PROP_USER CPUTIME')
3153C
3154 RETURN

◆ printimeg()

subroutine printimeg ( integer, dimension(nparg,*) iparg,
pm,
integer, dimension(npropmi,*) ipm,
integer, dimension(nixc,*) ixc,
integer, dimension(nixtg,*) ixtg,
integer, dimension(nixs,*) ixs )

Definition at line 1567 of file timer.F.

1568C routine d'affichage des timers
1569C-----------------------------------------------
1570C I m p l i c i t T y p e s
1571C-----------------------------------------------
1572#include "implicit_f.inc"
1573C-----------------------------------------------
1574C C o m m o n B l o c k s
1575C-----------------------------------------------
1576 COMMON /timerg/timerg(2,500000),cputimeg(500000)
1577 REAL TIMERG,CPUTIMEG
1578C-----------------------------------------------
1579#include "com01_c.inc"
1580#include "task_c.inc"
1581#include "units_c.inc"
1582#include "param_c.inc"
1583#include "chara_c.inc"
1584#include "scr19_c.inc"
1585#include "ddspmd_c.inc"
1586C-----------------------------------------------
1587C D u m m y A r g u m e n t s
1588C-----------------------------------------------
1589 INTEGER IPARG(NPARG,*),IXC(NIXC,*),IXTG(NIXTG,*),
1590 . IPM(NPROPMI,*),IXS(NIXS,*)
1591 my_real
1592 . pm(npropm,*),cc
1593C-----------------------------------------------
1594C L o c a l V a r i a b l e s
1595C-----------------------------------------------
1596 INTEGER I, NPROC, MSGTAG, MSGTAG2, ISTART, NGROUP_R,
1597 . NEL,PROC,NGF, NGL,
1598 . J, NELT,
1599 . NG,IRSIZE, MSGTAG3 ,NES,NEQ,NEC,NETG,NET,NEP,NER,NEUR,
1600 . MPT,NPTS,NPTT,NPTOT,ISOLNOD
1601
1602 CHARACTER FILNAM*100,PROCNAM*4
1603 my_real
1604 . ts, tq, tc, ttg, tt, tp, tr, tur, dtu,mins,maxs,minq,
1605 . maxq,minc,maxc,mintg,maxtg,minp,maxp,mint,maxt,minr,
1606 . maxr,minur,maxur, cpug, cpuelem, t(8,2)
1607C
1608 INTEGER NUMSOLG,NUMSHG,NUMTRIG,NUMOTHER,ITY,MTN,NELEM,NPT,NSG,
1609 . NFT,IHBE,MMA,NFUNC,FILEN,NUMSOL4G,NUMSOL10G
1610
1611 real
1612 . theogp(ngroup),tabx(3),tabmat(3),nptr,timmat,telt,tpsthtot,
1613 . tpsreel,batozmult,tppond
1614
1615 tpsreel = 0.
1616 tpsthtot = 0.
1617 batozmult = 4
1618 timmat = 0.
1619C ouverture du fichier DDW
1620 WRITE(procnam,'(I4.4)')ispmd+1
1621 filnam=rootnam(1:rootlen)//'_'//chrun//'_'//procnam//'.ddw2'
1622 OPEN(unit=66,file=filnam,access='SEQUENTIAL',
1623 . form='FORMATTED',status='UNKNOWN')
1624 filen=rootlen+14
1625C
1626C preparation de la ponderation
1627C
1628 IF (tpseng==zero) THEN
1629 tppond = one
1630 ELSE
1631 tppond = tpseng/tpsref
1632 ENDIF
1633
1634 WRITE(66,'(A)') 'DOMAIN DECOMPOSITION ANALYSIS FILE '
1635 WRITE(66,'(A)') '---------------------------------- '
1636 WRITE(66,'(A)') ' '
1637 WRITE(66,'(A)') ' '
1638
1639 WRITE(66,1000) ispmd,ncycle
1640c WRITE(66,1100) NCYCLE
1641
1642
1643C Comptage des groupes
1644 numsolg = 0
1645 numshg = 0
1646 numtrig = 0
1647 numsol4g = 0
1648 numsol10g = 0
1649
1650 DO ng=1,ngroup
1651 ity = iparg(5,ng)
1652 IF (ity==1) THEN
1653 isolnod = iparg(28,ng)
1654 IF (isolnod==4) THEN
1655 numsol4g = numsol4g+1
1656 ELSEIF (isolnod==10) THEN
1657 numsol10g = numsol10g+1
1658 ELSE
1659 numsolg = numsolg + 1
1660 ENDIF
1661 ELSEIF (ity==3) THEN
1662 numshg = numshg + 1
1663 ELSEIF (ity==7) THEN
1664 numtrig = numtrig + 1
1665 ENDIF
1666 ENDDO
1667
1668C Calcul du temps theorique de chaque groupe
1669 DO ng=1,ngroup
1670 ity = iparg(5,ng)
1671 mtn = iparg(1,ng)
1672 nelem = iparg(2,ng)
1673 npt = iparg(6,ng)
1674 nsg = iparg(10,ng)
1675 nft = iparg(3,ng)+1
1676 ihbe = iparg(23,ng)
1677
1678 theogp(ng)=0.
1679C SOLIDES
1680 IF (ity==1) THEN
1681 isolnod=iparg(28,ng)
1682 IF (isolnod==4) THEN
1683 telt = tet4tnl(mtn,1) + tet4telt(1)
1684C TETRA10
1685 ELSEIF (isolnod==10) THEN
1686 mma = ixs(1,nft)
1687 nfunc = max(ipm(10,mma) - 3,1)
1688 IF (nfunc<=2) THEN
1689 telt = tet10tnl(mtn,1) + tet10telt(1)
1690 ELSEIF (nfunc>2.AND.nfunc<=7) THEN
1691 telt = tet10tnl(mtn,2) + tet10telt(1)
1692 ELSE
1693 telt = tet10tnl(mtn,3) + tet10telt(1)
1694 ENDIF
1695 ELSE
1696 IF (ihbe<=1.OR.ihbe==101) THEN
1697C Solides ISOLD1
1698 telt = sol1tnl(mtn,1) + soltelt(1)
1699 ELSEIF (ihbe==2.OR.ihbe==102) THEN
1700C Solides ISOLD2
1701 telt = sol1tnl(mtn,1) + soltelt(2)
1702C
1703 ELSEIF (ihbe==24.OR.ihbe==104) THEN
1704C Solides ISOLD24 - HEPH
1705 telt = sol1tnl(mtn,1) + soltelt(3)
1706C
1707 ELSEIF (ihbe==12.OR.ihbe==112) THEN
1708C Solides ISOLD12 - std 8 node integ point
1709 telt = sol8tnl(mtn,1) + soltelt(4)
1710C
1711 ELSEIF (ihbe==14.OR.ihbe>=222) THEN
1712C Solides HA8
1713 mpt = abs(npt)
1714 npts = mpt/100
1715 nptt = mod(mpt/10,10)
1716 nptr = mod(mpt,10)
1717 nptot = npts*nptt*int(nptr)
1718C
1719 telt = nptot*sol8tnl(mtn,1)+soltelt(5)+nptot*soltelt(6)
1720
1721 ELSEIF(ihbe==17)THEN
1722 telt = sol1tnl(mtn,1)*8+soltelt(7)
1723 ELSE
1724 telt = sol1tnl(mtn,1) + soltelt(1)
1725 ENDIF
1726 ENDIF
1727C
1728 theogp(ng)= telt*nelem*ncycle*tppond
1729C COQUES
1730 ELSEIF (ity==3) THEN
1731
1732 DO j=nft,nft+nelem-1
1733 mma = ixc(1,j)
1734 IF (npt>0) THEN
1735C traitement a part pour zero points d integration
1736 IF (mtn==2.OR.mtn==3) THEN
1737 cc = pm(43,mma)
1738 IF (cc/=0.0 )THEN
1739 tabmat(1) = shtnl(mtn,1,2)
1740 tabmat(2) = shtnl(mtn,2,2)
1741 tabmat(3) = shtnl(mtn,3,2)
1742 ELSE
1743 tabmat(1) = shtnl(mtn,1,1)
1744 tabmat(2) = shtnl(mtn,2,1)
1745 tabmat(3) = shtnl(mtn,3,1)
1746 ENDIF
1747
1748 ELSEIF (mtn==36) THEN
1749 nfunc = ipm(10,mma)
1750
1751 IF (nfunc<=2) THEN
1752 tabmat(1) = shtnl(mtn,1,1)
1753 tabmat(2) = shtnl(mtn,2,1)
1754 tabmat(3) = shtnl(mtn,3,1)
1755 ELSEIF (nfunc>2.AND.nfunc<=7) THEN
1756 tabmat(1) = shtnl(mtn,1,2)
1757 tabmat(2) = shtnl(mtn,2,2)
1758 tabmat(3) = shtnl(mtn,3,2)
1759 ELSEIF (nfunc>7) THEN
1760 tabmat(1) = shtnl(mtn,1,3)
1761 tabmat(2) = shtnl(mtn,2,3)
1762 tabmat(3) = shtnl(mtn,3,3)
1763 ENDIF
1764 ELSE
1765 tabmat(1) = shtnl(mtn,1,1)
1766 tabmat(2) = shtnl(mtn,2,1)
1767 tabmat(3) = shtnl(mtn,3,1)
1768 ENDIF
1769
1770 tabx(1) = 1.
1771 tabx(2) = 3.
1772 tabx(3) = 5.
1773
1774 nptr = npt
1775
1776 CALL interlagran(tabmat,tabx,3,nptr,timmat)
1777
1778 ELSE
1779C Cas Zero points d integration
1780 IF (mtn==2.OR.mtn==3) THEN
1781 cc = pm(43,mma)
1782 IF (cc/=0.0 )THEN
1783 timmat = shtnl(mtn,0,2)
1784 ELSE
1785 timmat = shtnl(mtn,0,1)
1786 ENDIF
1787
1788 ELSEIF (mtn==36) THEN
1789 nfunc = nint(pm(40,mma))
1790 IF (nfunc<=2) THEN
1791 timmat = shtnl(mtn,0,1)
1792 ELSEIF (nfunc>2.AND.nfunc<=7) THEN
1793 timmat = shtnl(mtn,0,2)
1794 ELSEIF (nfunc>7) THEN
1795 timmat = shtnl(mtn,0,3)
1796 ENDIF
1797 ELSE
1798 timmat = shtnl(mtn,0,1)
1799 ENDIF
1800
1801C fin cas zero point d integrations
1802 ENDIF
1803
1804C temps elementaire
1805 IF (ihbe>=11.AND.ihbe<=19) THEN
1806 telt = shtelt(3)+batozmult*timmat
1807 ELSEIF (ihbe>=21.AND.ihbe<=29) THEN
1808 telt = shtelt(2) + timmat
1809 ELSE
1810 telt = shtelt(1) + timmat
1811 ENDIF
1812C fin temps elementaire
1813 theogp(ng)= theogp(ng)+telt*ncycle*tppond
1814 ENDDO
1815C TRIANGLES
1816 ELSEIF (ity==7) THEN
1817
1818 DO j=nft,nft+nelem-1
1819 mma = ixtg(1,j)
1820 IF (npt>0) THEN
1821C traitement a part pour zero points d integration
1822 IF (mtn==2.OR.mtn==3) THEN
1823 cc = pm(43,mma)
1824 IF (cc/=0.0 )THEN
1825 tabmat(1) = tritnl(mtn,1,2)
1826 tabmat(2) = tritnl(mtn,2,2)
1827 tabmat(3) = tritnl(mtn,3,2)
1828 ELSE
1829 tabmat(1) = tritnl(mtn,1,1)
1830 tabmat(2) = tritnl(mtn,2,1)
1831 tabmat(3) = tritnl(mtn,3,1)
1832 ENDIF
1833
1834 ELSEIF (mtn==36) THEN
1835 nfunc = ipm(10,mma)
1836 IF (nfunc<=2) THEN
1837 tabmat(1) = tritnl(mtn,1,1)
1838 tabmat(2) = tritnl(mtn,2,1)
1839 tabmat(3) = tritnl(mtn,3,1)
1840 ELSEIF (nfunc>2.AND.nfunc<=7) THEN
1841 tabmat(1) = tritnl(mtn,1,2)
1842 tabmat(2) = tritnl(mtn,2,2)
1843 tabmat(3) = tritnl(mtn,3,2)
1844 ELSEIF (nfunc>7) THEN
1845 tabmat(1) = tritnl(mtn,1,3)
1846 tabmat(2) = tritnl(mtn,2,3)
1847 tabmat(3) = tritnl(mtn,3,3)
1848 ENDIF
1849 ELSE
1850 tabmat(1) = tritnl(mtn,1,1)
1851 tabmat(2) = tritnl(mtn,2,1)
1852 tabmat(3) = tritnl(mtn,3,1)
1853 ENDIF
1854
1855 tabx(1) = 1.
1856 tabx(2) = 3.
1857 tabx(3) = 5.
1858
1859 nptr = npt
1860
1861 CALL interlagran(tabmat,tabx,3,nptr,timmat)
1862
1863 ELSE
1864C Cas Zero points d integration
1865 IF (mtn==2.OR.mtn==3) THEN
1866 cc = pm(43,mma)
1867 IF (cc/=0.0 )THEN
1868 timmat = tritnl(mtn,0,2)
1869 ELSE
1870 timmat = tritnl(mtn,0,1)
1871 ENDIF
1872
1873 ELSEIF (mtn==36) THEN
1874 nfunc = nint(pm(40,mma))
1875 IF (nfunc<=2) THEN
1876 timmat = tritnl(mtn,0,1)
1877 ELSEIF (nfunc>2.AND.nfunc<=7) THEN
1878 timmat = tritnl(mtn,0,2)
1879 ELSEIF (nfunc>7) THEN
1880 timmat = tritnl(mtn,0,3)
1881 ENDIF
1882 ELSE
1883 timmat = tritnl(mtn,0,1)
1884 ENDIF
1885
1886C fin cas zero point d integrations
1887 ENDIF
1888
1889C temps elementaire
1890 IF (ihbe>=11.AND.ihbe<=19) THEN
1891 telt = tritelt(3)+batozmult*timmat
1892 ELSEIF (ihbe>=21.AND.ihbe<=29) THEN
1893 telt = tritelt(2) + timmat
1894 ELSE
1895 telt = tritelt(1) + timmat
1896 ENDIF
1897C fin temps elementaire
1898 theogp(ng)= theogp(ng)+telt*ncycle*tppond
1899 ENDDO
1900
1901 ENDIF
1902 tpsthtot = tpsthtot + theogp(ng)
1903 tpsreel = tpsreel + cputimeg(ng)
1904 ENDDO
1905
1906
1907C Maintenant qu on a tous les temps theoriques des groupes on
1908C peux passer au traitement et a l affichage.
1909
1910 numother = ngroup - numshg - numtrig - numsolg
1911 WRITE(66,'(A)') ' '
1912 WRITE(66,1100) numsolg,numshg,numtrig,numother
1913 WRITE(66,'(A)') ' '
1914 WRITE(66,1200) tpsreel,tpsthtot
1915 IF (numsolg>0)
1916 . CALL printsolides(iparg,theogp,numsolg,ipm,ixs)
1917
1918 IF (numsol4g>0)
1919 . CALL printtet4(iparg,theogp,numsol4g,ipm,ixs)
1920
1921 IF (numsol10g>0)
1922 . CALL printtet10(iparg,theogp,numsol10g)
1923 IF (numshg>0)
1924 . CALL printcoques(iparg,ixc,ipm,theogp,numshg)
1925
1926 IF (numtrig>0)
1927 . CALL printtriangles(iparg,theogp,numtrig)
1928
1929 CLOSE(unit=66)
1930
1931 WRITE (iout,1300) filnam(1:filen)
1932 WRITE (istdo,1300) filnam(1:filen)
1933
1934
1935 1000 FORMAT(
1936 & 4x,'SPMD PROCESSOR NUMBER . . . . . . . . . . . . . .',i10/
1937 & 4x,'TOTAL NUMBER OF CYCLES. . . . . . . . . . . . . .',i10)
1938
1939 1100 FORMAT(
1940 & 4x,'NUMBER OF SOLID ELEMENTS GROUPS . . . . . . . . .',i10/
1941 & 4x,'NUMBER OF SHELL ELEMENTS GROUPS . . . . . . . . .',i10/
1942 & 4x,'NUMBER OF TRIANGULAR ELEMENTS GROUPS. . . . . . .',i10/
1943 & 4x,'NUMBER OF OTHER ELEMENT GROUPS. . . . . . . . . .',i10)
1944
1945 1200 FORMAT(
1946 & 4x,'SOLID, SHELL, TRIANGULAR GROUP TIME'/,
1947 & 4x,'-----------------------------------'/,
1948 & 4x,'TOTAL GROUP TIME . . . . . . . . . . . . . . . .',1pg20.13/
1949 & 4x,'STARTER ESTIMATED GROUP TIME . . . . . . . . . .',1pg20.13)
1950
1951 1300 FORMAT (4x,' DD ANALYSIS FILE:',1x,a,' WRITTEN')
1952C
1953 RETURN
printtriangles
subroutine printtriangles(iparg, theogp, numtrig)
Definition timer.F:2403
printsolides
subroutine printsolides(iparg, theogp, numsolg, ipm, ixs)
Definition timer.F:2085
printtet4
subroutine printtet4(iparg, theogp, numsolg, ipm, ixs)
Definition timer.F:2193
interlagran
subroutine interlagran(tab, lx, ltab, x, y)
Definition timer.F:2508
printcoques
subroutine printcoques(iparg, ixc, ipm, theogp, numshg)
Definition timer.F:1964
printtet10
subroutine printtet10(iparg, theogp, numsolg)
Definition timer.F:2300

◆ printsolides()

subroutine printsolides ( integer, dimension(nparg,*) iparg,
real, dimension(ngroup) theogp,
integer numsolg,
integer, dimension(npropmi,*) ipm,
integer, dimension(nixs,*) ixs )

Definition at line 2084 of file timer.F.

2085C-----------------------------------------------
2086C I m p l i c i t T y p e s
2087C-----------------------------------------------
2088#include "implicit_f.inc"
2089C-----------------------------------------------
2090C C o m m o n B l o c k s
2091C-----------------------------------------------
2092#include "com01_c.inc"
2093#include "param_c.inc"
2094#include "scr19_c.inc"
2095C-----------------------------------------------
2096C G l o b a l P a r a m e t e r s
2097C-----------------------------------------------
2098 COMMON /timerg/timerg(2,500000),cputimeg(500000)
2099 REAL TIMERG,CPUTIMEG
2100C-----------------------------------------------
2101C D u m m y A r g u m e n t s
2102C-----------------------------------------------
2103 INTEGER NUMSOLG
2104 INTEGER IPARG(NPARG,*),IXS(NIXS,*),IPM(NPROPMI,*)
2105 REAL THEOGP(NGROUP)
2106C-----------------------------------------------
2107C L o c a l V a r i a b l e s
2108C-----------------------------------------------
2109 INTEGER NGL,NG,NUMGROUP(NUMSOLG),INDEXSH(NUMSOLG),
2110 . ITY,MTN,NELEM,NPT,NSG,
2111 . NFT,IHBE,MMA,NFUNC,I,J,ISOLNOD,
2112 . MID,MUID
2113 REAL DIFFTT,DIFFTTSH(NUMSOLG),TEMP(NUMSOLG)
2114 REAL THEOTP(NUMSOLG),REELTP(NUMSOLG)
2115 REAL TABX(3),TABMAT(3),NPTR,TIMMAT,TELT
2116 REAL TPSTHTOT,TPSREEL,PCT
2117C-----------------------------------------------
2118C S o u r c e L i n e s
2119C-----------------------------------------------
2120 ngl = 0
2121
2122 DO ng=1,ngroup
2123 ity = iparg(5,ng)
2124 mtn = iparg(1,ng)
2125 nelem = iparg(2,ng)
2126 npt = iparg(6,ng)
2127 nsg = iparg(10,ng)
2128 nft = iparg(3,ng)+1
2129 ihbe = iparg(23,ng)
2130
2131 IF (ity==1) THEN
2132 isolnod = iparg(28,ng)
2133 IF (isolnod/=4.AND.isolnod/=10) THEN
2134 ngl = ngl + 1
2135 numgroup(ngl) = ng
2136 diffttsh(ngl) = cputimeg(ng) - theogp(ng)
2137 ENDIF
2138 ENDIF
2139 ENDDO
2140
2141 DO i=1,ngl
2142 indexsh(i) = i
2143 ENDDO
2144
2145 CALL my_fsort(diffttsh,indexsh,numsolg,temp)
2146
2147 WRITE(66,3000)
2148
2149 DO i=1,numsolg
2150 ngl = indexsh(i)
2151 ng = numgroup(ngl)
2152
2153 ity = iparg(5,ng)
2154 mtn = iparg(1,ng)
2155 nelem = iparg(2,ng)
2156 nft = iparg(3,ng)+1
2157 nsg = iparg(10,ng)
2158 npt = iparg(6,ng)
2159
2160 mid = ixs(1,nft)
2161 muid = ipm(1,mid)
2162
2163 difftt = cputimeg(ng) - theogp(ng)
2164
2165 pct = ((cputimeg(ng) - theogp(ng))/cputimeg(ng) )*100
2166
2167 WRITE(66,'(I8,A,I8,A,I8,A,I8,A,I8,A,I8,A,I8,
2168 . A,E15.3,A,E15.3,A,E15.3,A,F8.3,A)')
2169 . ng,' ',ity,' ',nelem,' ',mtn,' ',muid,' ',npt,
2170 . ' ',nsg,' ',
2171 . cputimeg(ng),' ',theogp(ng),' ',difftt,' ',pct,'%'
2172
2173 ENDDO
2174
2175 3000 FORMAT(
2176 & /' '/' '/10x,' SOLID ELEMENT GROUPS'/
2177 & 10x,' --------------------'/
2178 & ' '/
2179 & ' '/
2180 & ' GRP_NB ELEM_TYP NUM_ELEM MAT_NUMB MAT_USERN',
2181 & ' NPT NSG CPUTIMEG',
2182 & ' TIMETHEO DIFF PCT')
2183

◆ printtet10()

subroutine printtet10 ( integer, dimension(nparg,*) iparg,
real, dimension(ngroup) theogp,
integer numsolg )

Definition at line 2299 of file timer.F.

2300C-----------------------------------------------
2301C I m p l i c i t T y p e s
2302C-----------------------------------------------
2303#include "implicit_f.inc"
2304C-----------------------------------------------
2305C C o m m o n B l o c k s
2306C-----------------------------------------------
2307#include "com01_c.inc"
2308#include "param_c.inc"
2309#include "scr19_c.inc"
2310C-----------------------------------------------
2311C G l o b a l P a r a m e t e r s
2312C-----------------------------------------------
2313 COMMON /timerg/timerg(2,500000),cputimeg(500000)
2314 REAL TIMERG,CPUTIMEG
2315C-----------------------------------------------
2316C D u m m y A r g u m e n t s
2317C-----------------------------------------------
2318 INTEGER NUMSOLG
2319 INTEGER IPARG(NPARG,*)
2320 REAL THEOGP(NGROUP)
2321C-----------------------------------------------
2322C L o c a l V a r i a b l e s
2323C-----------------------------------------------
2324 INTEGER NGL,NG,NUMGROUP(NUMSOLG),INDEXSH(NUMSOLG),
2325 . ITY,MTN,NELEM,NPT,NSG,ISOLNOD,
2326 . NFT,IHBE,MMA,NFUNC,I,J
2327 REAL DIFFTT,DIFFTTSH(NUMSOLG),TEMP(NUMSOLG)
2328 REAL THEOTP(NUMSOLG),REELTP(NUMSOLG)
2329 REAL TABX(3),TABMAT(3),NPTR,TIMMAT,TELT
2330 REAL TPSTHTOT,TPSREEL,PCT
2331C-----------------------------------------------
2332C S o u r c e L i n e s
2333C-----------------------------------------------
2334 ngl = 0
2335
2336 DO ng=1,ngroup
2337 ity = iparg(5,ng)
2338 mtn = iparg(1,ng)
2339 nelem = iparg(2,ng)
2340 npt = iparg(6,ng)
2341 nsg = iparg(10,ng)
2342 nft = iparg(3,ng)+1
2343 ihbe = iparg(23,ng)
2344
2345 IF (ity==1) THEN
2346 isolnod = iparg(28,ng)
2347 IF (isolnod==10) THEN
2348 ngl = ngl + 1
2349 numgroup(ngl) = ng
2350 diffttsh(ngl) = cputimeg(ng) - theogp(ng)
2351 ENDIF
2352 ENDIF
2353 ENDDO
2354
2355 DO i=1,ngl
2356 indexsh(i) = i
2357 ENDDO
2358
2359 CALL my_fsort(diffttsh,indexsh,numsolg,temp)
2360
2361 WRITE(66,3000)
2362
2363 DO i=1,numsolg
2364 ngl = indexsh(i)
2365 ng = numgroup(ngl)
2366
2367 ity = iparg(5,ng)
2368 mtn = iparg(1,ng)
2369 nelem = iparg(2,ng)
2370 nsg = iparg(10,ng)
2371 npt = iparg(6,ng)
2372
2373 difftt = cputimeg(ng) - theogp(ng)
2374
2375 pct = ((cputimeg(ng) - theogp(ng))/cputimeg(ng) )*100
2376
2377 WRITE(66,'(I8,A,I8,A,I8,A,I8,A,I8,A,I8,A,E15.3,A,E15.3,A,
2378 . E15.3,A,F8.3,A)')
2379 . ng,' ',ity,' ',nelem,' ',mtn,' ',npt,' ',nsg,' ',
2380 . cputimeg(ng),' ',theogp(ng),' ',difftt,' ',pct,'%'
2381
2382 ENDDO
2383
2384 3000 FORMAT(
2385 & /' '/' '/10x,' TETRA 10 ELEMENT GROUPS'/
2386 & 10x,' ---------------------'/
2387 & ' '/
2388 & ' '/
2389 & ' GRP_NB ELEM_TYP NUM_ELEM MAT_NUMB ',
2390 & ' NPT NSG CPUTIMEG',
2391 & ' TIMETHEO DIFF PCT')
2392

◆ printtet4()

subroutine printtet4 ( integer, dimension(nparg,*) iparg,
real, dimension(ngroup) theogp,
integer numsolg,
integer, dimension(npropmi,*) ipm,
integer, dimension(nixs,*) ixs )

Definition at line 2192 of file timer.F.

2193C-----------------------------------------------
2194C I m p l i c i t T y p e s
2195C-----------------------------------------------
2196#include "implicit_f.inc"
2197C-----------------------------------------------
2198C C o m m o n B l o c k s
2199C-----------------------------------------------
2200#include "com01_c.inc"
2201#include "param_c.inc"
2202#include "scr19_c.inc"
2203C-----------------------------------------------
2204C G l o b a l P a r a m e t e r s
2205C-----------------------------------------------
2206 COMMON /timerg/timerg(2,500000),cputimeg(500000)
2207 REAL TIMERG,CPUTIMEG
2208C-----------------------------------------------
2209C D u m m y A r g u m e n t s
2210C-----------------------------------------------
2211 INTEGER NUMSOLG
2212 INTEGER IPARG(NPARG,*),IXS(NIXS,*),IPM(NPROPMI,*)
2213 REAL THEOGP(NGROUP)
2214C-----------------------------------------------
2215C L o c a l V a r i a b l e s
2216C-----------------------------------------------
2217 INTEGER NGL,NG,NUMGROUP(NUMSOLG),INDEXSH(NUMSOLG),
2218 . ITY,MTN,NELEM,NPT,NSG,ISOLNOD,
2219 . NFT,IHBE,MMA,NFUNC,I,J,MID,MUID
2220 REAL DIFFTT,DIFFTTSH(NUMSOLG),TEMP(NUMSOLG)
2221 REAL THEOTP(NUMSOLG),REELTP(NUMSOLG)
2222 REAL TABX(3),TABMAT(3),NPTR,TIMMAT,TELT
2223 REAL TPSTHTOT,TPSREEL,PCT
2224C-----------------------------------------------
2225C S o u r c e L i n e s
2226C-----------------------------------------------
2227 ngl = 0
2228
2229 DO ng=1,ngroup
2230 ity = iparg(5,ng)
2231 mtn = iparg(1,ng)
2232 nelem = iparg(2,ng)
2233 npt = iparg(6,ng)
2234 nsg = iparg(10,ng)
2235 nft = iparg(3,ng)+1
2236 ihbe = iparg(23,ng)
2237
2238 IF (ity==1) THEN
2239 isolnod = iparg(28,ng)
2240 IF (isolnod==4) THEN
2241 ngl = ngl + 1
2242 numgroup(ngl) = ng
2243 diffttsh(ngl) = cputimeg(ng) - theogp(ng)
2244 ENDIF
2245 ENDIF
2246 ENDDO
2247
2248 DO i=1,ngl
2249 indexsh(i) = i
2250 ENDDO
2251
2252 CALL my_fsort(diffttsh,indexsh,numsolg,temp)
2253
2254 WRITE(66,3000)
2255
2256 DO i=1,numsolg
2257 ngl = indexsh(i)
2258 ng = numgroup(ngl)
2259 nft = iparg(3,ng)+1
2260
2261 ity = iparg(5,ng)
2262 mtn = iparg(1,ng)
2263 nelem = iparg(2,ng)
2264 nsg = iparg(10,ng)
2265 npt = iparg(6,ng)
2266
2267 mid = ixs(1,nft)
2268 muid = ipm(1,mid)
2269
2270 difftt = cputimeg(ng) - theogp(ng)
2271
2272 pct = ((cputimeg(ng) - theogp(ng))/cputimeg(ng) )*100
2273
2274 WRITE(66,'(I8,A,I8,A,I8,A,I8,A,I8,A,I8,A,I8,
2275 . A,E15.3,A,E15.3,A,E15.3,A,F8.3,A)')
2276 . ng,' ',ity,' ',nelem,' ',mtn,' ',muid,' ',npt,' ',
2277 . nsg,' ',
2278 . cputimeg(ng),' ',theogp(ng),' ',difftt,' ',pct,'%'
2279
2280 ENDDO
2281
2282 3000 FORMAT(
2283 & /' '/' '/10x,' TETRA 4 ELEMENT GROUPS'/
2284 & 10x,' --------------------'/
2285 & ' '/
2286 & ' '/
2287 & ' GRP_NB ELEM_TYP NUM_ELEM MAT_NUMB MAT_USERN',
2288 & ' NPT NSG CPUTIMEG',
2289 & ' TIMETHEO DIFF PCT')
2290

◆ printtriangles()

subroutine printtriangles ( integer, dimension(nparg,*) iparg,
real, dimension(ngroup) theogp,
integer numtrig )

Definition at line 2402 of file timer.F.

2403C-----------------------------------------------
2404C I m p l i c i t T y p e s
2405C-----------------------------------------------
2406#include "implicit_f.inc"
2407C-----------------------------------------------
2408C C o m m o n B l o c k s
2409C-----------------------------------------------
2410#include "com01_c.inc"
2411#include "param_c.inc"
2412#include "scr19_c.inc"
2413C-----------------------------------------------
2414C G l o b a l P a r a m e t e r s
2415C-----------------------------------------------
2416 COMMON /timerg/timerg(2,500000),cputimeg(500000)
2417 REAL TIMERG,CPUTIMEG
2418C-----------------------------------------------
2419C D u m m y A r g u m e n t s
2420C-----------------------------------------------
2421 INTEGER NUMTRIG
2422 INTEGER IPARG(NPARG,*)
2423C
2424C-----------------------------------------------
2425C L o c a l V a r i a b l e s
2426C-----------------------------------------------
2427 INTEGER NGL,NG,NUMGROUP(NUMTRIG),INDEXSH(NUMTRIG),
2428 . ITY,MTN,NELEM,NPT,NSG,
2429 . NFT,IHBE,MMA,NFUNC,I,J
2430 REAL DIFFTT,DIFFTTSH(NUMTRIG),TEMP(NUMTRIG)
2431 REAL THEOTP(NUMTRIG),REELTP(NUMTRIG)
2432 REAL THEOGP(NGROUP),TABX(3),TABMAT(3),NPTR,TIMMAT,TELT
2433 REAL TPSTHTOT,TPSREEL,PCT
2434C-----------------------------------------------
2435C S o u r c e L i n e s
2436C-----------------------------------------------
2437
2438 ngl = 0
2439
2440
2441 DO ng=1,ngroup
2442 ity = iparg(5,ng)
2443 mtn = iparg(1,ng)
2444 nelem = iparg(2,ng)
2445 npt = iparg(6,ng)
2446 nsg = iparg(10,ng)
2447 nft = iparg(3,ng)+1
2448 ihbe = iparg(23,ng)
2449
2450 IF (ity==7) THEN
2451
2452 ngl = ngl + 1
2453
2454 numgroup(ngl) = ng
2455 diffttsh(ngl) = cputimeg(ng) - theogp(ng)
2456
2457 ENDIF
2458 ENDDO
2459
2460 DO i=1,ngl
2461 indexsh(i) = i
2462 ENDDO
2463
2464 CALL my_fsort(diffttsh,indexsh,numtrig,temp)
2465
2466 WRITE(66,3200)
2467
2468 DO i=1,numtrig
2469 ngl = indexsh(i)
2470 ng = numgroup(ngl)
2471
2472 ity = iparg(5,ng)
2473 mtn = iparg(1,ng)
2474 nelem = iparg(2,ng)
2475 nsg = iparg(10,ng)
2476 npt = iparg(6,ng)
2477
2478 difftt = cputimeg(ng) - theogp(ng)
2479
2480 pct = ((cputimeg(ng) - theogp(ng))/cputimeg(ng) )*100
2481
2482 WRITE(66,'(I8,A,I8,A,I8,A,I8,A,I8,A,I8,A,E15.3,A,E15.3,A,
2483 . E15.3,A,F8.3,A)')
2484 . ng,' ',ity,' ',nelem,' ',mtn,' ',npt,' ',nsg,' ',
2485 . cputimeg(ng),' ',theogp(ngl),' ',difftt,' ',pct,'%'
2486
2487 ENDDO
2488
2489 3200 FORMAT(
2490 & /' '/' '/10x,' TRIANGULAR ELEMENT GROUPS'/
2491 & 10x,' -------------------------'/
2492 & ' '/
2493 & ' '/
2494 & ' GRP_NB ELEM_TYP NUM_ELEM MAT_NUMB ',
2495 & ' NPT NSG CPUTIMEG',
2496 & ' TIMETHEO DIFF PCT')
2497

◆ startime_mp()

subroutine startime_mp ( integer event,
integer nbr_gr,
dimension(2,nbr_gr) timer_mp )

Definition at line 2636 of file timer.F.

2637C routine d'incrementation du timer event
2638C-----------------------------------------------
2639C I m p l i c i t T y p e s
2640C-----------------------------------------------
2641#include "implicit_f.inc"
2642C-----------------------------------------------
2643C C o m m o n B l o c k s
2644C-----------------------------------------------
2645#include "task_c.inc"
2646C-----------------------------------------------
2647C D u m m y A r g u m e n t s
2648C-----------------------------------------------
2649 INTEGER EVENT,NBR_GR
2650 my_real, DIMENSION(2,NBR_GR) :: timer_mp
2651C-----------------------------------------------
2652C L o c a l A r g u m e n t s
2653C-----------------------------------------------
2654 INTEGER I
2655
2656 CALL cpu_time(timer_mp(1,event))
2657
2658 RETURN

◆ startimeg()

subroutine startimeg ( integer ng)

Definition at line 1486 of file timer.F.

1487C routine d incrementation des timers elem.
1488C-----------------------------------------------
1489C I m p l i c i t T y p e s
1490C-----------------------------------------------
1491#include "implicit_f.inc"
1492C-----------------------------------------------
1493C C o m m o n B l o c k s
1494C-----------------------------------------------
1495 COMMON /timerg/timerg(2,500000),cputimeg(500000)
1496 REAL TIMERG,CPUTIMEG
1497C-----------------------------------------------
1498C D u m m y A r g u m e n t s
1499C-----------------------------------------------
1500 INTEGER NG
1501C
1502 CALL my_etime(timerg(1,ng))
1503
1504 RETURN
my_etime
subroutine my_etime(timer)
Definition machine.F:114

◆ stoptime_mp()

subroutine stoptime_mp ( integer event,
integer nbr_gr,
dimension(2,nbr_gr) timer_mp,
dimension(nbr_gr) cputime_mp )

Definition at line 2665 of file timer.F.

2666C routine incrementation du timer event
2667C-----------------------------------------------
2668C I m p l i c i t T y p e s
2669C-----------------------------------------------
2670#include "implicit_f.inc"
2671C-----------------------------------------------
2672C C o m m o n B l o c k s
2673C-----------------------------------------------
2674#include "task_c.inc"
2675C-----------------------------------------------
2676C D u m m y A r g u m e n t s
2677C-----------------------------------------------
2678 INTEGER EVENT,NBR_GR
2679 my_real, DIMENSION(NBR_GR) :: cputime_mp
2680 my_real, DIMENSION(2,NBR_GR) :: timer_mp
2681C
2682 INTEGER CLOCK1, CLOCKRATE, NBMAX
2683 DOUBLE PRECISION SECS
2684 INTEGER NBR_ELEM,I
2685C **********************************
2686C
2687 CALL cpu_time(timer_mp(2,event))
2688 cputime_mp(event) = cputime_mp(event) +
2689 . (timer_mp(2,event)-timer_mp(1,event))
2690C
2691 RETURN

◆ stoptimeg()

subroutine stoptimeg ( integer ng)

Definition at line 1534 of file timer.F.

1535C routine incrementation du timer event
1536C-----------------------------------------------
1537C I m p l i c i t T y p e s
1538C-----------------------------------------------
1539#include "implicit_f.inc"
1540C-----------------------------------------------
1541C C o m m o n B l o c k s
1542C-----------------------------------------------
1543 COMMON /timerg/timerg(2,500000),cputimeg(500000)
1544 REAL TIMERG,CPUTIMEG
1545C-----------------------------------------------
1546C D u m m y A r g u m e n t s
1547C-----------------------------------------------
1548 INTEGER NG
1549C
1550 CALL my_etime(timerg(2,ng))
1551 cputimeg(ng) = cputimeg(ng) +
1552 . timerg(2,ng)-timerg(1,ng)
1553 RETURN