Computational Chemistry -- fpppp #1

• Determine which commons are threadprivate, others are shared

• Declare them with directive in each subroutine

  • When used in parallel
  • And outside parallel

SUBROUTINE FPPPP

!$omp threadprivate(/FFQ/,/FP4/)

COMMON /FFQ/FQ0,FQ1,FQ2 COMMON /FP4/QA,QA1,QA2

. . .

END

SUBROUTINE TWLDRV(..., VEE,FXYZ, ...)

!$omp threadprivate(/FFQ/,/FP4/)

COMMON /FFQ/FQ0,FQ1,FQ2

COMMON /FP4/A1,A2,A3,A4...

Previous slide

Next slide

Back to first slide

View graphic version