Home
last modified time | relevance | path

Searched refs:fmtstr1 (Results 1 – 15 of 15) sorted by relevance

/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dcp_dbcsr_output.F361 CHARACTER(LEN=25) :: fmtstr1 local
397 fmtstr1 = "(/,T2,23X, ( X,I5, X))"
416 WRITE (UNIT=fmtstr1(11:12), FMT="(I2)") ncol
417 WRITE (UNIT=fmtstr1(14:15), FMT="(I2)") left
418 WRITE (UNIT=fmtstr1(21:22), FMT="(I2)") right
435 WRITE (UNIT=output_unit, FMT=fmtstr1) (jcol, jcol=from, to)
529 CHARACTER(LEN=25) :: fmtstr1 local
540 fmtstr1 = "(/,T2,23X, ( X,I5, X))"
559 WRITE (UNIT=fmtstr1(11:12), FMT="(I2)") ncol
560 WRITE (UNIT=fmtstr1(14:15), FMT="(I2)") left
[all …]
H A Dmolden_utils.F71 CHARACTER(LEN=15) :: fmtstr1 local
99 WRITE (UNIT=fmtstr1, FMT='("(I6,1X,ES",I0,".",I0,")")') ndigits + 7, ndigits
311 … CALL print_coeffs(iw, fmtstr1, ndigits, irow_in, orbmap(:, lshell), &
329 … CALL print_coeffs(iw, fmtstr1, ndigits, irow_in, orbmap(:, lshell), &
365 SUBROUTINE print_coeffs(iw, fmtstr1, ndigits, irow_in, orbmap, mo_coeff) argument
367 CHARACTER(LEN=*), INTENT(in) :: fmtstr1 local
377 WRITE (iw, fmtstr1) irow_in + orbital - 1, mo_coeff(orbmap(orbital))
H A Dforce_env_utils.F428 CHARACTER(LEN=31) :: fmtstr1 local
437 fmtstr1 = "(/,T2,A,/,/,T13,A1,2( X,A1))"
438 WRITE (UNIT=fmtstr1(22:23), FMT="(I2)") n + 7
446 WRITE (UNIT=output_unit, FMT=fmtstr1) &
449 WRITE (UNIT=output_unit, FMT=fmtstr1) &
509 CHARACTER(LEN=46) :: fmtstr1 local
517 fmtstr1 = "(/,T2,A,/,/,T2,A,T11,A,T18,A,T35,A1,2( X,A1))"
518 WRITE (UNIT=fmtstr1(39:40), FMT="(I2)") n + 6
530 WRITE (UNIT=output_unit, FMT=fmtstr1) &
H A Dqs_pdos.F159 CHARACTER(LEN=27) :: fmtstr1 local
704 fmtstr1 = "(I8,2X,2F16.6, (2X,F16.8))"
707 WRITE (UNIT=fmtstr1(15:16), FMT="(I2)") nsoset(maxl)
710 WRITE (UNIT=fmtstr1(15:16), FMT="(I2)") maxl + 1
730 WRITE (UNIT=iw, FMT=fmtstr1) imo, eigenvalues(imo), occupation_numbers(imo), &
739 WRITE (UNIT=iw, FMT=fmtstr1) imo, eigenvalues(imo), occupation_numbers(imo), &
772 fmtstr1 = "(I8,2X,2F16.6, (2X,F16.8))"
775 WRITE (UNIT=fmtstr1(15:16), FMT="(I2)") nsoset(ldos_p(ildos)%ldos%maxl)
778 WRITE (UNIT=fmtstr1(15:16), FMT="(I2)") ldos_p(ildos)%ldos%maxl + 1
799 WRITE (UNIT=iw, FMT=fmtstr1) imo, eigenvalues(imo), occupation_numbers(imo), &
[all …]
H A Dqs_mo_io.F1011 CHARACTER(LEN=25) :: fmtstr1, fmtstr7 local
1078 fmtstr1 = "(/,T2,21X, ( X,I5, X))"
1088 WRITE (UNIT=fmtstr1(11:12), FMT="(I2)") ncol
1089 WRITE (UNIT=fmtstr1(14:15), FMT="(I2)") left
1090 WRITE (UNIT=fmtstr1(21:22), FMT="(I2)") right
1217 WRITE (UNIT=iw, FMT=fmtstr1) (jcol, jcol=from, to)
H A Dqs_force.F489 CHARACTER(LEN=48) :: fmtstr1 local
514 fmtstr1 = "(/,/,T2,A,/,/,T3,A,T11,A,T23,A,T40,A1,2( X,A1))"
515 WRITE (UNIT=fmtstr1(41:42), FMT="(I2)") ndigits + 5
531 WRITE (UNIT=output_unit, FMT=fmtstr1) &
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dcp_dbcsr_output.F361 CHARACTER(LEN=25) :: fmtstr1 local
397 fmtstr1 = "(/,T2,23X, ( X,I5, X))"
416 WRITE (UNIT=fmtstr1(11:12), FMT="(I2)") ncol
417 WRITE (UNIT=fmtstr1(14:15), FMT="(I2)") left
418 WRITE (UNIT=fmtstr1(21:22), FMT="(I2)") right
435 WRITE (UNIT=output_unit, FMT=fmtstr1) (jcol, jcol=from, to)
529 CHARACTER(LEN=25) :: fmtstr1 local
540 fmtstr1 = "(/,T2,23X, ( X,I5, X))"
559 WRITE (UNIT=fmtstr1(11:12), FMT="(I2)") ncol
560 WRITE (UNIT=fmtstr1(14:15), FMT="(I2)") left
[all …]
H A Dmolden_utils.F71 CHARACTER(LEN=15) :: fmtstr1 local
99 WRITE (UNIT=fmtstr1, FMT='("(I6,1X,ES",I0,".",I0,")")') ndigits + 7, ndigits
311 … CALL print_coeffs(iw, fmtstr1, ndigits, irow_in, orbmap(:, lshell), &
329 … CALL print_coeffs(iw, fmtstr1, ndigits, irow_in, orbmap(:, lshell), &
365 SUBROUTINE print_coeffs(iw, fmtstr1, ndigits, irow_in, orbmap, mo_coeff) argument
367 CHARACTER(LEN=*), INTENT(in) :: fmtstr1 local
377 WRITE (iw, fmtstr1) irow_in + orbital - 1, mo_coeff(orbmap(orbital))
H A Dforce_env_utils.F428 CHARACTER(LEN=31) :: fmtstr1 local
437 fmtstr1 = "(/,T2,A,/,/,T13,A1,2( X,A1))"
438 WRITE (UNIT=fmtstr1(22:23), FMT="(I2)") n + 7
446 WRITE (UNIT=output_unit, FMT=fmtstr1) &
449 WRITE (UNIT=output_unit, FMT=fmtstr1) &
509 CHARACTER(LEN=46) :: fmtstr1 local
517 fmtstr1 = "(/,T2,A,/,/,T2,A,T11,A,T18,A,T35,A1,2( X,A1))"
518 WRITE (UNIT=fmtstr1(39:40), FMT="(I2)") n + 6
530 WRITE (UNIT=output_unit, FMT=fmtstr1) &
H A Dqs_pdos.F159 CHARACTER(LEN=27) :: fmtstr1 local
704 fmtstr1 = "(I8,2X,2F16.6, (2X,F16.8))"
707 WRITE (UNIT=fmtstr1(15:16), FMT="(I2)") nsoset(maxl)
710 WRITE (UNIT=fmtstr1(15:16), FMT="(I2)") maxl + 1
730 WRITE (UNIT=iw, FMT=fmtstr1) imo, eigenvalues(imo), occupation_numbers(imo), &
739 WRITE (UNIT=iw, FMT=fmtstr1) imo, eigenvalues(imo), occupation_numbers(imo), &
772 fmtstr1 = "(I8,2X,2F16.6, (2X,F16.8))"
775 WRITE (UNIT=fmtstr1(15:16), FMT="(I2)") nsoset(ldos_p(ildos)%ldos%maxl)
778 WRITE (UNIT=fmtstr1(15:16), FMT="(I2)") ldos_p(ildos)%ldos%maxl + 1
799 WRITE (UNIT=iw, FMT=fmtstr1) imo, eigenvalues(imo), occupation_numbers(imo), &
[all …]
H A Dqs_mo_io.F1011 CHARACTER(LEN=25) :: fmtstr1, fmtstr7 local
1078 fmtstr1 = "(/,T2,21X, ( X,I5, X))"
1088 WRITE (UNIT=fmtstr1(11:12), FMT="(I2)") ncol
1089 WRITE (UNIT=fmtstr1(14:15), FMT="(I2)") left
1090 WRITE (UNIT=fmtstr1(21:22), FMT="(I2)") right
1217 WRITE (UNIT=iw, FMT=fmtstr1) (jcol, jcol=from, to)
H A Dqs_force.F483 CHARACTER(LEN=48) :: fmtstr1 local
508 fmtstr1 = "(/,/,T2,A,/,/,T3,A,T11,A,T23,A,T40,A1,2( X,A1))"
509 WRITE (UNIT=fmtstr1(41:42), FMT="(I2)") ndigits + 5
525 WRITE (UNIT=output_unit, FMT=fmtstr1) &
/dports/cad/stepcode/stepcode-0.8/src/clstepcore/
H A DsdaiApplication_instance.cc853 std::stringstream fmtstr1, fmtstr2; in EntityValidLevel() local
863 fmtstr1 << " #%d %" << BUFSIZ - 1 << "s "; in EntityValidLevel()
869 int found1 = sscanf( ( char * )attrValue, fmtstr1.str().c_str() , &fileId, tmp ); in EntityValidLevel()
/dports/devel/sdl20/SDL2-2.0.18/src/audio/
H A DSDL_wave.c233 const char *fmtstr1 = "WAVE chunk dump:\n" in WaveDebugDumpFormat() local
267 …res = SDL_snprintf(dumpstr, bufsize, fmtstr1, rifflen, fmtlen, format->formattag, format->channels… in WaveDebugDumpFormat()
/dports/x11/controllermap/SDL2-2.0.18/src/audio/
H A DSDL_wave.c233 const char *fmtstr1 = "WAVE chunk dump:\n" in WaveDebugDumpFormat() local
267 …res = SDL_snprintf(dumpstr, bufsize, fmtstr1, rifflen, fmtlen, format->formattag, format->channels… in WaveDebugDumpFormat()