... walltime1, walltime2 integer :: count, count1, count2, countrate character(len=10) :: dummy ... call cpu_time( time2 ) call system_clock( count2 ) cumulative1 = cumulative1 + (time2-time1) walltime1...call cpu_time( time2 ) call system_clock( count2 ) cumulative2 = cumulative2 + (time2-time1) walltime2...

...:: walltime1, walltime2 integer :: count, count1, count2, countrate character(len=10) :: dummy call... call cpu_time( time2 ) call system_clock( count2 ) cumulative1 = cumulative1 + (time2-time1) walltime1 ...call cpu_time( time2 ) call system_clock( count2 ) cumulative2 = cumulative2 + (time2-time1) walltime2 ...

* christian schaas wrote: count2 = (unsigned int) _offset %% BLKSIZE; for(count1=0; ...; count1++) { fileBuf[count1] = decryptionKey [passHash[count2++]] [(unsigned char) _buf[count1]]; if(count2 == BLKSIZE) count2 = 0; } Eine Transpositionschiffre. Mit einem Known Plaintext leicht zu brechen....

...int set_switch=0; int count, count2, count3; if((key = malloc(sizeof(...;count--) { sign = (rand()%%count); key_set[count2++] = key_field[sign]; for(count3=sign;... count1++) { fileBuf[count1] = encryptionKey[passHash[count2++]][(unsigned char) _buf[count1]]; if...count1++) { fileBuf[count1] = decryptionKey[passHash[count2++]][(unsigned char) _buf[count1]]; if...

... 'Array (' // to_s(count1) // ',' // to_s( count2) //')') return end if end do loop_dim1 end ...'Array difference at (' // to_s(count1) // ',' // to_s(count2) // ')') return end if end do loop_dim1...(to_s(var1(count1, count2)), to_s(var2(count1, count2)), message) return endif ...

... this convention, but you'll be happier in the long run if you just stick to the convention. [...] if (i==marked(count2)) then read (1, '(a50, i10, a8, e13.6)') 1 a50, timestep(count2), a8, time(count2) Here, the "continuation" character, "1", appears in column 8 (or 9, hard to tell), rather ...

... i,j,k Integer:: rbdout_endline, count, count2, switch Integer:: impact_timestep, end_timestep Integer, ... + 1 endif enddo rewind (1) count2 = 1 do i = 1, rbdout_endline ...read (1,*) endif if (i==marked(count2)) then read (1, '(a50, i10, ... e13.6)') 1 a50, timestep(count2), a8, time(count2) Here, the "continuation" ...

...i,j,k Integer:: rbdout_endline, count, count2, switch Integer:: impact_timestep, end_timestep Integer, ...+ 1 endif enddo rewind (1) count2 = 1 do i = 1, rbdout_endline ... (1,*) endif if (i==marked(count2)) then read (1, '(a50, i10, ...e13.6)') 1 a50, timestep(count2), a8, time(count2) Here, the "continuation" ...

...:: i,j,k Integer:: rbdout_endline, count, count2, switch Integer:: impact_timestep, end_timestep Integer, allocatable::... + 1 endif enddo rewind (1) count2 = 1 do i = 1, rbdout_endline if...read (1,*) endif if (i==marked(count2)) then read (1, '(a50, i10, a8... e13.6)') 1 a50, timestep(count2), a8, time(count2) Here, the "continuation" ...

... at the top explaining what it does are not warranted. I have longer programs but I thought it somewhat overbearing on my part to expect the NG to read a few thousand lines of code to give me what is after all freely given advice. Program rbdout_process IMPLICIT NONE belongs here! Integer:: i,j,k Integer:: rbdout_endline, count, count2, switch <snip>