Originally Posted by John D.

I'll see your post and raise you a DELETE.. Can you spot the parens I should have deleted??

error_reporting(E_ALL & ~E_NOTICE);

if (!@include 'functions_rwgarage_plus.php') {
include 'functions_rwgarage.php';
}

static $rwgarage_postbit_cache = array();

function rwgarage_fetchFromCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window)
{
global $rwgarage_postbit_cache;
$key = $userID . ($use_username_in_link ? '_T' : '_F') . ($usepostid ? '_T' : '_F') . ($onclick_launch_window ? '_T' : '_F');
return $rwgarage_postbit_cache[$key];
}

function rwgarage_putInCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window, $content)
{
global $rwgarage_postbit_cache;
$key = $userID . ($use_username_in_link ? '_T' : '_F') . ($usepostid ? '_T' : '_F') . ($onclick_launch_window ? '_T' : '_F');
$rwgarage_postbit_cache[$key] = $content;
}

function generate_garage_popup_menu($userinfo, $use_username_in_link = false, $usepostid = false, $onclick_launch_window=true)
{
global $vbulletin, $db, $vbphrase, $post;
$userID = $userinfo['userid'];
$cacheHit = rwgarage_fetchFromCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window);
if(!$cacheHit)
{
$vehicles = $db->query_read("SELECT * FROM " .
TABLE_PREFIX . "rwgarage_vehicle WHERE userid = ". $userID . " AND display='1'");

$num_vehicles = $db->num_rows($vehicles);
if($num_vehicles > 0)
{
$content = "";
$popupbits = "";

while($vehicle = $db->fetch_Array($vehicles))
{
$usethumb = false;
$thumbname = NULL;
$image = $db->query_first("SELECT * from " .
TABLE_PREFIX . "rwgarage_image WHERE vehicle_id = ". $vehicle['vehicle_id'] ." AND showinsections='main'");

if($image['image_id']!=0)
{
$usethumb = true;
$thumbname = $vbulletin->options['bburl']. "/" .$vbulletin->options['rwgarage_imagedir']. "/" .$image['userid']. "/" .$image['image_id']. "t.jpg";
}

if($vehicle['name'] != "")
$vehicle_name = $vehicle['name'];
else
$vehicle_name = $vehicle['year']. " " .$vehicle['make']. " " .$vehicle['model'];

$vehicle_id = $vehicle['vehicle_id'];
eval('$popupbits .= "' . fetch_template('rwgarage_popup_menubit') . '";') );
}

rwgarage_putInCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window, $popupbits);
$cacheHit = $popupbits;
}
else
{
rwgarage_putInCache($userID, $use_username_in_link, $usepostid, $onclick_launch_window, ' ');
$cacheHit = ' ';
}
}

if($cacheHit == ' ')
return NULL;
else
{
$popupbits = $cacheHit;
eval('$content = "' . fetch_template('rwgarage_popup_menu') . '";');
return $content;
}
}

Originally Posted by jleidel

I'm a code monkey... and I've been on the phone since 7AM CST [SUCK!]... It's 4:14 CST and I'm on beer #5. SeanR/Roger/Richard/Curry/anyone... care to come have a frosty adult beverage?

[modeled that picture several years ago]

Originally Posted by jleidel

Dude...? Interpreted languages....?
rwgarage_putInCache($userID, $use_username_in_link, $usepostid,
$onclick_launch_window, ' ');
$cacheHit = ' ';

Try...

PRODUCE_CO: IF (.NOT. CO_PRODUCTION) THEN !Combustion without CO formation and destruction
YO2Z => WORK1
Q = 0._EB
Z_2 = 0._EB
DO K=1,KBAR
DO J=1,JBAR
ILOOPA: DO I=1,IBAR
IF (SOLID(CELL_INDEX(I,J,K))) CYCLE ILOOPA
CALL GET_MASS_FRACTION2(YY(I,J,K,I_FUEL),Z_2,YY(I,J,K,I_PROG_F),O2_INDEX,Y_SU M(I,J,K),YO2Z(I,J,K))
ENDDO ILOOPA
ENDDO
ENDDO
YO2MIN = 1.E-10_EB
YFUMIN = 1.E-10_EB
!Loop and do F -> CO
RN => REACTION(1)
HFAC_F = RN%HEAT_OF_COMBUSTION/DT
SUPPRESSIONIF: IF (SUPPRESSION) THEN !TMP and Y_O2 dependent combustion
DO K=1,KBAR
DO J=1,JBAR
ILOOPB: DO I=1,IBAR
IC = CELL_INDEX(I,J,K)
IF (SOLID(IC)) CYCLE ILOOPB
IWA = WALL_INDEX(IC,
YO20 = YO2Z(I,J,K)
YFU0 = MAX(0._EB,MIN(1._EB,YY(I,J,K,I_FUEL)))*RN%Y_F_INLET
IF (YFU0<=YFUMIN .OR. YO20<=YO2MIN) CYCLE ILOOPB

!Get min O2
Y_O2_MAX = YO20
Y_F_MAX = YFU0/RN%Y_F_INLET
TMP_MIN = TMP(I,J,K)
TMP_F_MIN = TMP(I,J,K)
!Check neighboring cells for fuel and oxygen
!X direction
IF (IWA(-1)==0) THEN
IF (YO2Z(I-1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I-1,J,K)
TMP_MIN = TMP(I-1,J,K)
ENDIF
IF (YY(I-1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I-1,J,K,I_FUEL)
TMP_F_MIN = TMP(I-1,J,K)
ENDIF
ELSE
IW = IWA(-1)
IF (SURFACE(IJKW(5,IW))%SPECIES_BC_INDEX/=NO_MASS_FLUX) THEN
Y_SUM_W = 0._EB
DO N=1,N_SPECIES
IF (SPECIES(N)%MODE==GAS_SPECIES) THEN
Y_SUM_W = Y_SUM_W + YY_W(IW,N)
ENDIF
ENDDO
CALL GET_MASS_FRACTION2(YY_W(IW,I_FUEL),Z_2,YY_W(IW,I_PROG_F),O2_INDEX,Y_SUM_ W,YO2W)
IF (YO2W>Y_O2_MAX) THEN
Y_O2_MAX = YO2W
TMP_MIN = TMP_F(IW)
ENDIF
IF (MAX(0._EB,MIN(1._EB,YY_W(IW,I_FUEL)))>Y_F_MAX) THEN
Y_F_MAX = YY_W(IW,I_FUEL)
TMP_F_MIN = TMP_F(IW)
ENDIF
ENDIF
ENDIF
IF (IWA(1)==0) THEN
IF (YO2Z(I+1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I+1,J,K)
TMP_MIN = TMP(I+1,J,K)
ENDIF
IF (YY(I+1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I+1,J,K,I_FUEL)
TMP_F_MIN = TMP(I+1,J,K)
ENDIF

Originally Posted by SeanR

WTF?

Originally Posted by jleidel

Dude...? Interpreted languages....?
rwgarage_putInCache($userID, $use_username_in_link, $usepostid,
$onclick_launch_window, ' ');
$cacheHit = ' ';

Try...

PRODUCE_CO: IF (.NOT. CO_PRODUCTION) THEN !Combustion without CO formation and destruction
YO2Z => WORK1
Q = 0._EB
Z_2 = 0._EB
DO K=1,KBAR
DO J=1,JBAR
ILOOPA: DO I=1,IBAR
IF (SOLID(CELL_INDEX(I,J,K))) CYCLE ILOOPA
CALL GET_MASS_FRACTION2(YY(I,J,K,I_FUEL),Z_2,YY(I,J,K,I_PROG_F),O2_INDEX,Y_SU M(I,J,K),YO2Z(I,J,K))
ENDDO ILOOPA
ENDDO
ENDDO
YO2MIN = 1.E-10_EB
YFUMIN = 1.E-10_EB
!Loop and do F -> CO
RN => REACTION(1)
HFAC_F = RN%HEAT_OF_COMBUSTION/DT
SUPPRESSIONIF: IF (SUPPRESSION) THEN !TMP and Y_O2 dependent combustion
DO K=1,KBAR
DO J=1,JBAR
ILOOPB: DO I=1,IBAR
IC = CELL_INDEX(I,J,K)
IF (SOLID(IC)) CYCLE ILOOPB
IWA = WALL_INDEX(IC,
YO20 = YO2Z(I,J,K)
YFU0 = MAX(0._EB,MIN(1._EB,YY(I,J,K,I_FUEL)))*RN%Y_F_INLET
IF (YFU0<=YFUMIN .OR. YO20<=YO2MIN) CYCLE ILOOPB

!Get min O2
Y_O2_MAX = YO20
Y_F_MAX = YFU0/RN%Y_F_INLET
TMP_MIN = TMP(I,J,K)
TMP_F_MIN = TMP(I,J,K)
!Check neighboring cells for fuel and oxygen
!X direction
IF (IWA(-1)==0) THEN
IF (YO2Z(I-1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I-1,J,K)
TMP_MIN = TMP(I-1,J,K)
ENDIF
IF (YY(I-1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I-1,J,K,I_FUEL)
TMP_F_MIN = TMP(I-1,J,K)
ENDIF
ELSE
IW = IWA(-1)
IF (SURFACE(IJKW(5,IW))%SPECIES_BC_INDEX/=NO_MASS_FLUX) THEN
Y_SUM_W = 0._EB
DO N=1,N_SPECIES
IF (SPECIES(N)%MODE==GAS_SPECIES) THEN
Y_SUM_W = Y_SUM_W + YY_W(IW,N)
ENDIF
ENDDO
CALL GET_MASS_FRACTION2(YY_W(IW,I_FUEL),Z_2,YY_W(IW,I_PROG_F),O2_INDEX,Y_SUM_ W,YO2W)
IF (YO2W>Y_O2_MAX) THEN
Y_O2_MAX = YO2W
TMP_MIN = TMP_F(IW)
ENDIF
IF (MAX(0._EB,MIN(1._EB,YY_W(IW,I_FUEL)))>Y_F_MAX) THEN
Y_F_MAX = YY_W(IW,I_FUEL)
TMP_F_MIN = TMP_F(IW)
ENDIF
ENDIF
ENDIF
IF (IWA(1)==0) THEN
IF (YO2Z(I+1,J,K)>Y_O2_MAX) THEN
Y_O2_MAX = YO2Z(I+1,J,K)
TMP_MIN = TMP(I+1,J,K)
ENDIF
IF (YY(I+1,J,K,I_FUEL)>Y_F_MAX) THEN
Y_F_MAX = YY(I+1,J,K,I_FUEL)
TMP_F_MIN = TMP(I+1,J,K)
ENDIF

Originally Posted by John D.

Tried it? BSOD on a runtime? Maybe, instead I'll try js or precompile some vb? Not sure how it will act for the MySQL calls and PHP handlers?

Posted from my iPhone.

Originally Posted by jleidel

Fortran90 ... use gfortran or ifort

Originally Posted by John D.

Oh - oh.. I'll try that..!!

(On my porch with a beer - with my iPhone - I'm done coding for the day...

JD