how to make fortran code to remove coordinate of particles from input file to avoid overlapping -


i had configuration 1804 particles particles overlap. try make fortran code remove co-ordinates of particles. got error. please me.

      program check_overlap        implicit double precision (a-h,o-z)       parameter (maxatom = 20000000)       dimension rx(maxatom), ry(maxatom), rz(maxatom)       real drmax        character resname*(5),atomname*(5)       character box_par       drmax = 0.15       open (10, file = 'conf.gro')        read (10,*) box_par       read (10,*) nn        100  ipart = 1, nn       read(10,99) numres,resname,atomname,numatom,                  & rx(ipart), ry(ipart), rz(ipart)  99    format (i5,2a5,i5,3f8.3)  100   continue        close(10)       200 = 1, nn-1        rxi = rx(i)       ryi = ry(i)       rzi = rz(i)        300 j = i+1 , nn        rxij = rxi - rx (j)       ryij = ryi - ry (j)       rzij = rzi - rz (j)        rijsq = rxij*rxij + ryij*ryij + rzij*rzij        if ( rijsq.lt.25)        rxiold = rxi       ryiold = ryi       rziold = rzi        rxinew = rxiold + (2.0 * ranf (dumy) - 1.0) * drmax       ryinew = ryiold + (2.0 * ranf (dumy) - 1.0) * drmax       rzinew = rziold + (2.0 * ranf (dumy) - 1.0) * drmax        rxinew = rxinew - anint (rxinew)       ryinew = ryinew - anint (ryinew)       rzinew = rzinew - anint (rzinew)        rxij_new = rxi - rxinew       ryij_new = ryi - ryinew       rzij_new = rzi - rzinew        rijsq_new = rxij_new*rxij_new + ryij_new*ryij_new+         & rzij_new*rzij_new        if (rijsq_new.gt.25)        rx(i) = rxinew       ry(i) = ryinew       rz(i) = rzinew        end if        end if  300   continue 200   continue        call writeout (cn)


Comments

Post a Comment

Popular posts from this blog

java.util.scanner - How to read and add only numbers to array from a text file -

i'm learning java , have question regarding reading file want read numbers file contains strings well. here example of file: 66.56 "3 java 3-43 5-42 2.1 1 and here coding: public class test { public static void main (string [] args){ if (0 < args.length) { file x = new file(args[0]); try{ scanner in = new scanner( new fileinputstream(x)); arraylist<double> test = new arraylist<>(); while(in.hasnext()){ if(in.hasnextdouble()){ double f=in.nextdouble(); test.add(f);} else {in.next();} } catch(ioexception e) { system.err.println("exception during reading: " + e); } } my problem add 66.56,2.1 , 1 doesn't add 3 after "3 or ignores 3-43 , 5-42 can tell me how skip strings , add doubles here? thanks all said 3 ie; "3, 3-43 , 4-42 strings either u read string , split , check number @ " , - or put in space between characters , integers. jvm after compilation tre...
Read more

rewrite - Trouble with Wordpress multiple custom querystrings -

i'm working on adding multiple querystring , doesn't seem work. i've found codes seems work others might i'm missing something. i want like: http://mydomain.com/board/?getyear=2013&getsometext2=sometext to http://mydomain.com/board/2013/sometext/ i added code below functions.php file. doesn't seem work should though. this works. echoing querystring gets both variable without problem. http://mydomain.com/board/2013/sometext/ but doesn't. tested querystring vis isset() seems nothing being set/get http://mydomain.com/board/2013/ function add_query_vars($vars) { $vars[] = "getyear"; $vars[] = "getsometext2"; return $vars; } add_filter('query_vars', 'add_query_vars'); function add_rewrite_rules($arules) { $anewrules = array('board/([^/]+)/([^/]+)/?$' => 'index.php?pagename=board&getyear=$matches[1]&getsometext2=$matches[2]'); $arules = $a...
Read more