Breakups & Divorce Support Group
Just broke up with someone or in the midst of a difficult divorce? Breaking up is difficult no matter what the circumstances are. They say that time heals all wounds, but sometimes a listening ear or a hug can work wonders for the heart. Whether you need a place to vent, someone to hold you to No Contact, or need advice about what to do, we're here to help.
Wouldn't mind meeting some of the people here but just don't know when that could happen.
TekJoe ... duh
sc2kids4me
Shocky
Sandra81
Abandoned4another
caligirl67410 (or whatever her #s are, lol)
Dun4now
and i talk to a ton, including these, away from here. love them all!
Wish
Trail
Solong
LouieJ
(They are all GREAT, except Solong - she's a little too wild for me)
- Sarah1976
- Pgamble
- Rfuller21
- Pasta ; )
- Jenn70
- Wick
- foxymama
- ostonee
- hotpocket
- southernmedic
I MAY have missed a couple.
AND MEETING MORE TONIGHT!! I love this, it's just lovely.
I feel like hugging all DS'ers now --- so consider this a group HUG!
I'm mysterious like that.
call timestamp ( )
write ( *, '(a)' ) ' '
write ( *, '(a)' ) 'CLUSTER_ENERGY'
write ( *, '(a)' ) ' Compute the cluster energy of a set of points.'
write ( *, '(a)' ) ' '
seed = 1234567
call random_initialize ( seed )
call i_input ( 'Enter spatial dimension DIM_NUM', dim_num, ierror )
allocate ( r_min(1:dim_num) )
allocate ( r_max(1:dim_num) )
call input_get ( point_dist, dim_num, r_min, r_max, point_num, c_lo, &
c_hi, it_lo, it_hi )
call input_check ( point_dist, dim_num, r_min, r_max, point_num, c_lo, &
c_hi, it_lo, it_hi )
call input_print ( point_dist, dim_num, r_min, r_max, point_num, c_lo, &
c_hi, it_lo, it_hi )
allocate ( point(1:dim_num,1:point_num) )
call point_generate ( point_dist, dim_num, r_min, r_max, point_num, point )
if ( .false. ) then
call point_print ( dim_num, point_num, point )
end if